数値の初期化ほかについて

　　数値の初期化ほかについて c 2006/03/26 23:11:57 
　　├その１は,書かなくても大丈夫です。 白石　和夫 2006/03/27 07:32:17 
　　├DIMa(9) ??? 2006/03/27 08:42:08 
　　└白石さん？？？さんありがとうございました... c 2006/03/27 23:04:22

　　数値の初期化ほかについて c 2006/03/26 23:11:57  ツリーへ

数値の初期化ほかについて 返事を書く

c 2006/03/26 23:11:57

10
a1=0:a2=0:a3=0:a4=0:a5=0:a6=0:a7=0:a8=0:a9=0

DO
CHARACTER INPUT s$
m=VAL(s$)
PRINT m
SELECT CASE m
CASE 1
a1=a1+1
CASE 2
a2=a2+1
CASE 3
a3=a3+1
CASE 4
a4=a4+1
CASE 5
a5=a5+1
CASE 6
a6=a6+1
CASE 7
a7=a7+1
CASE 8
a8=a8+1
CASE 9
a9=a9+1
CASE 0
GOTO 10
END SELECT
print"++++++++++++++++++++"
PRINT " 1 2 3 4 5 6 7 8 9 "
PRINT a1;a2;a3;a4;a5;a6;a7;a8;a9
loop

END
！++++++++++++プログラム終わり++++++++++
MS_BASIC互換モード

はじめて書き込みさせていただきます。

「数取り機」の代わりのプログラムを上記のとおり作成し、
とりあえずは目的を果たしています。
使用方法は1～9でカウントし、0で初期化

この中でいくつかわからないところがありますのでご教授ください。

その１
2行目の
a1=0:a2=0:a3=0:a4=0:a5=0:a6=0:a7=0:a8=0:a9=0
が非常に見苦しいので、N88の「NEW」にあたるコマンド等、これ以外の方法はありますか？

その２
計算結果のTXTBOXはあくまでもTEXなので、見やすくするために文字
に色をつけることができないですか？するならばグラフィックの
ウインドウに
PLOT TEXT ,AT x,y : 文字列式　と　SET TEXT COLOR 数値式
で、出力しかないのでしょうか？

その３
同様にCHARACTER INPUT s$で入力したときにTXTウインドにその数字
も書き込まれ、さらにはスクロールするのを防止？するには、
グラフィックのウインドウに出力するしかないのでしょうか？

以上のご教授、よろしくお願いします。

　　├その１は,書かなくても大丈夫です。 白石　和夫 2006/03/27 07:32:17  ツリーへ

Re: 数値の初期化ほかについて 返事を書く

白石　和夫 2006/03/27 07:32:17

その１は,書かなくても大丈夫です。
（プログラム実行開始時に変数の値が初期化されるため）
その２，その３は，Windows APIを使えば可能になると思います。
TEXT出力のWindowはWindowsのRichTextコントロールなので，
RichEditコントロールの使い方を調べてください。

　　├DIMa(9) ??? 2006/03/27 08:42:08  ツリーへ

Re: 数値の初期化ほかについて 返事を書く

??? 2006/03/27 08:42:08

DIM a(9)
GOSUB 10
DO
CHARACTER INPUT s$
LET m=VAL(s$)
IF m=0 THEN
GOSUB 10
ELSE
LET a(m)=a(m)+1
END IF
PRINT "++++++++++++++++++++"
PRINT " 1 2 3 4 5 6 7 8 9 "
FOR i=1 TO 9
PRINT a(i);
NEXT i
PRINT
LOOP
STOP
!
10 FOR i=1 TO 9
LET a(i)=0
NEXT i
RETURN
!
END
のようにすれば、少しは見栄えがよくなるのでは？

　　└白石さん？？？さんありがとうございました... c 2006/03/27 23:04:22  ツリーへ

Re: 数値の初期化ほかについて 返事を書く

c 2006/03/27 23:04:22

白石さん？？？さんありがとうございました。
？？？さんの物を使い、おかげでプログラムもすっきりし、実際の業務に生かせる状態となりました。
？？？さんのとおりDIMを使うことは書き込みが終わったあと気がついたのですが実行にはいたりませんでした。
すでに入ってしまった変数の値をプログラムを終了せずに初期化できるか、あまり考える時間がなく、あの程度の文法しかかけませんでした。

QuickBasicからの移行ですのでまだ慣れていませんが、できるだけ自力で努力しますが、また、壁に突き当たったとき、ご指導のほどよろしくお願いします。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

数値の初期化ほかについて	返事を書く
c 2006/03/26 23:11:57
10 a1=0:a2=0:a3=0:a4=0:a5=0:a6=0:a7=0:a8=0:a9=0 DO CHARACTER INPUT s$ m=VAL(s$) PRINT m SELECT CASE m CASE 1 a1=a1+1 CASE 2 a2=a2+1 CASE 3 a3=a3+1 CASE 4 a4=a4+1 CASE 5 a5=a5+1 CASE 6 a6=a6+1 CASE 7 a7=a7+1 CASE 8 a8=a8+1 CASE 9 a9=a9+1 CASE 0 GOTO 10 END SELECT print"++++++++++++++++++++" PRINT " 1 2 3 4 5 6 7 8 9 " PRINT a1;a2;a3;a4;a5;a6;a7;a8;a9 loop END ！++++++++++++プログラム終わり++++++++++ MS_BASIC互換モードはじめて書き込みさせていただきます。「数取り機」の代わりのプログラムを上記のとおり作成し、とりあえずは目的を果たしています。使用方法は1～9でカウントし、0で初期化この中でいくつかわからないところがありますのでご教授ください。その１ 2行目の a1=0:a2=0:a3=0:a4=0:a5=0:a6=0:a7=0:a8=0:a9=0 が非常に見苦しいので、N88の「NEW」にあたるコマンド等、これ以外の方法はありますか？その２計算結果のTXTBOXはあくまでもTEXなので、見やすくするために文字に色をつけることができないですか？するならばグラフィックのウインドウに PLOT TEXT ,AT x,y : 文字列式　と　SET TEXT COLOR 数値式で、出力しかないのでしょうか？その３同様にCHARACTER INPUT s$で入力したときにTXTウインドにその数字も書き込まれ、さらにはスクロールするのを防止？するには、グラフィックのウインドウに出力するしかないのでしょうか？以上のご教授、よろしくお願いします。

Re: 数値の初期化ほかについて	返事を書く
白石　和夫 2006/03/27 07:32:17
その１は,書かなくても大丈夫です。（プログラム実行開始時に変数の値が初期化されるため）その２，その３は，Windows APIを使えば可能になると思います。 TEXT出力のWindowはWindowsのRichTextコントロールなので， RichEditコントロールの使い方を調べてください。

Re: 数値の初期化ほかについて	返事を書く
??? 2006/03/27 08:42:08
DIM a(9) GOSUB 10 DO CHARACTER INPUT s$ LET m=VAL(s$) IF m=0 THEN GOSUB 10 ELSE LET a(m)=a(m)+1 END IF PRINT "++++++++++++++++++++" PRINT " 1 2 3 4 5 6 7 8 9 " FOR i=1 TO 9 PRINT a(i); NEXT i PRINT LOOP STOP ! 10 FOR i=1 TO 9 LET a(i)=0 NEXT i RETURN ! END のようにすれば、少しは見栄えがよくなるのでは？

Re: 数値の初期化ほかについて	返事を書く
c 2006/03/27 23:04:22
白石さん？？？さんありがとうございました。？？？さんの物を使い、おかげでプログラムもすっきりし、実際の業務に生かせる状態となりました。？？？さんのとおりDIMを使うことは書き込みが終わったあと気がついたのですが実行にはいたりませんでした。すでに入ってしまった変数の値をプログラムを終了せずに初期化できるか、あまり考える時間がなく、あの程度の文法しかかけませんでした。 QuickBasicからの移行ですのでまだ慣れていませんが、できるだけ自力で努力しますが、また、壁に突き当たったとき、ご指導のほどよろしくお願いします。