【至急】文字を点滅させる方法は？

質問

質問します。
下記のプログラムにおいて、
13 PRINT "只今、計算中です。少々お待ち下さい。"
14 PRINT "計算終了後、下記に結果を表示します。"
の部分だけを点滅させたいのですが、色が変わる変化しかしません。COLOR 2と書けば点滅するはずですよね？

1 CLS
2 REM 乱数を用いてサイコロ（6面体ダイス）を再現。12000回振って各自がほぼ2000回ずつ出るようなサイコロを目指す。
10 INPUT "乱数系列の値をいくつに設定しますか" ;X
13 PRINT "只今、計算中です。少々お待ち下さい。"
14 PRINT "計算終了後、下記に結果を表示します。"
20 RANDOMIZE X
30 DIM DICE(6)
40 FOR T=1 TO X
50 LET N=1+INT(6*RND)
60 FOR I=1 TO 6
70 IF N=I THEN LET DICE(I)=DICE(I)+1
80 NEXT I
90 NEXT T
100 PRINT
110 FOR J=1 TO 6
120 PRINT J;"の目は"; DICE(J);"回出ました。"
130 NEXT J
140 END

よろしくお願いします。

回答No.1

takasebou

VisualBasic というより、これはノーマルの BASICに関する質問でしょうか？？？

Visual Basicだとすると　INPUT や　PRINT は表記のような書き方はできませんし。そもそも行番号が付加されませんし。

……まぁ、BASIC　ないし QUICK BASICだとして回答すると

COLOR 2 としても色をその場で変えるだけなので点滅しません。

点滅させるなら例えば偶数回は　COLOR 1 、奇数回は　COLOR 2 などとしなければいません。

また同一の箇所に表示しなければ点滅にはなりませんから、 LOCATE 文などを使用して位置を指定する必要があります。

表示は一回のみでは出来ません。都度表示する必要があります。またハードスペックによってウェイトをかけたり、あるいはCOLOR 1と2を切替るタイミングを１００回ごとなど調整する必要があるでしょう。

という訳で。