• 締切済み

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

質問します。 下記のプログラムにおいて、 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 よろしくお願いします。

みんなの回答

  • takasebou
  • ベストアンサー率42% (61/144)
回答No.1

VisualBasic というより、これはノーマルの BASICに関する質問でしょうか？？？ Visual Basicだとすると　INPUT や　PRINT は表記のような書き方はできませんし。そもそも行番号が付加されませんし。 ……まぁ、BASIC　ないし QUICK BASICだとして回答すると COLOR 2 としても色をその場で変えるだけなので点滅しません。 点滅させるなら例えば偶数回は　COLOR 1 、奇数回は　COLOR 2 などとしなければいません。 また同一の箇所に表示しなければ点滅にはなりませんから、 LOCATE 文などを使用して位置を指定する必要があります。 表示は一回のみでは出来ません。都度表示する必要があります。またハードスペックによってウェイトをかけたり、あるいはCOLOR 1と2を切替るタイミングを１００回ごとなど調整する必要があるでしょう。 という訳で。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • basic　プログラムです。

    100 DIM A(5) 110 FOR J=1 TO 5 120 READ A(J)　　 130 NEXT J　　 140 FOR I=1 TO 4　 150 LET K=1　　　 160 FOR J=I+1 TO 5　 170 IF A(J)<A(K) THEN LET k=J　 180 NEXT J　　　 190 LET T=A(I)　　　 200 LET A(I)=A(K)　　 210 LET A(K)=T　　　 220 FOR J=1 TO 5　　 230 PRINT A(J);　　 240 NEXT J　　　　 250 PRINT　　　　　 260 NEXT I　　　　 270 DATA 5,3,7,2,1,　 280 END を実行すると １３７２５ ３１７２５ ３１２７５ ７１２３５ という数字が出てきます。 どうしてこのような結果が出るのか 解説をお願いします。

  • basicプログラムです。

    100 DIM A(5) 110 FOR J=1 TO 5 120 READ A(J)　　 130 NEXT J　　 140 FOR I=1 TO 4　 150 LET K=I　　　 160 FOR J=I+1 TO 5　 170 IF A(J)<A(K) THEN LET k=J　 180 NEXT J　　　 190 LET T=A(I)　　　 200 LET A(I)=A(K)　　 210 LET A(K)=T　　　 220 FOR J=1 TO 5　　 230 PRINT A(J);　　 240 NEXT J　　　　 250 PRINT　　　　　 260 NEXT I　　　　 270 DATA 5,3,7,2,1,　 280 END このようなプログラムがあります。 いろいろ調べたのですがそれぞれの文の意味と 何を求めるプログラムか教えて下さい。 ５つの数の組み合わせで小さい数から順番に４個 かなと思ったのですが？？？

  • １０進ベーシックで質問です。

    　超初心者です。サイコロのプログラムを勉強しています。以下のプログラムを書いたところREMはここに書けないと表示され実行できませんでした。実用書通り書いたのですが、、、。実行させるにはどうすればいいか教えて下さい。 ＲＥＭ＊＊＊サイコロの実験 ＤＩＭ　Ｂ（６） ＲＡＮＤＯＭＩＺＥ ＦＯＲ　Ｉ＝１　ＴＯ　６００ 　ＬＥＴ　Ｄ＝ＩＮＴ（ＲＮＤ＊６）＋１ 　ＬＥＴ　Ｂ（Ｄ）＝Ｂ（Ｄ）＋１ ＮＥＸＴ　Ｉ ＦＯＲ　Ｊ＝１　ＴＯ　６ 　ＰＲＩＮＴ　Ｊ；Ｂ（Ｊ） ＮＥＸＴ　Ｊ END

  • ベーシック、循環小数プログラミング

    0 !q/pを少数点表示する 1 LET X=10 2 DIM a(1 TO 100),b(0 TO 100) 3 INPUT q,p 4 LET b(0)=q 5 LET k=1 6 DO 7 LET a(k)=INT(b(k-1)*X/p) 8 LET b(k)=MOD(b(k-1)*X,p) 9 LET j=0 10 DO UNTIL j=k-1 OR b(j)=b(k) 11 LET j=j+1 12 LOOP 13 IF b(j)=b(k) THEN EXIT DO 14 LET k=k+1 15 LOOP 16 !　結果の表示 17 PRINT "0."; 18 FOR i=1 TO j 19 PRINT a(i); 20 NEXT i 21 PRINT "{"; 22 FOR i=j+1 TO k 23 PRINT a(i); 24 NEXT i 25 PRINT "}" 26 END 上のプログラミングですが、 10～16、21～26がはっきりと理解できません。 6のdoは15のloopとつながるんですよね？ q=3,p=7で考えてみたのですが、 8,9行目で a(1)=4 b(0)=3 b(1)=2 a(2)=2 b(2)=6 a(3)=8 b(3)=4 a(4)=5 b(4)=5 a(5)=7 b(5)=1 a(6)=1 b(6)=3 となり、b(0)=b(6)より、循環小数ということだと考えました。 このb(0)=b(6)の比較は10行目、13行目のどちらでしょうか？ また、結果の表示で、17行～20行で、 0.a1a2a3・・と表示することはわかりましたが、循環小数のさいの｛｝の入れ方(21行～25行)が理解できていません。 私の理解や記入がわかりにくいかもしれませんが、 どなたか解説していただけないでしょうか。 よろしくお願いいたします。

  • 十進BASICのプログラムについて

    十進BASICのプログラムについて 小町算のプログラムですが、 100 DIM s(9) 110 FOR i=1 TO 9 120 LET s(i)=-1 130 NEXT i 140 DO 150 LET sum=0 160 LET num=0 170 LET sign=1 180 FOR i=1 TO 9 190 IF s(i)<>0 THEN 200 LET sum=sum+sign*num 210 LET sign=s(i) 220 LET num=i 230 ELSE 240 LET num=10*num+i 250 END IF 260 NEXT i 270 LET sum=sum+sign*num 280 IF sum=100 THEN 290 FOR i=1 TO 9 300 IF s(i)= +1 THEN PRINT " + "; 310 IF s(i)= -1 THEN PRINT " - "; 320 PRINT i; 330 NEXT i 340 PRINT " = 100" 350 END IF 360 LET i=9 370 LET sign=s(i)+1 380 DO WHILE ( sign > 1 ) 390 LET s(i)=-1 400 LET i=i-1 410 LET sign=s(i)+1 420 LOOP 430 LET s(i)=sign 440 LOOP WHILE ( s(1) < 1) 450 END というものですが、このプログラム中にあるsum、num、signとはどういう意味があるのでしょうか？

  • 小町算のプログラムについて

    小町算のプログラムについて 100 DIM s(9) 110 FOR i=1 TO 9 120 LET s(i)=-1 130 NEXT i 140 DO 150 LET sum=0 160 LET num=0 170 LET sign=1 180 FOR i=1 TO 9 190 IF s(i)<>0 THEN 200 LET sum=sum+sign*num 210 LET sign=s(i) 220 LET num=i 230 ELSE 240 LET num=10*num+i 250 END IF 260 NEXT i 270 LET sum=sum+sign*num 280 IF sum=100 THEN 290 FOR i=1 TO 9 300 IF s(i)= +1 THEN PRINT " + "; 310 IF s(i)= -1 THEN PRINT " - "; 320 PRINT i; 330 NEXT i 340 PRINT " = 100" 350 END IF 360 LET i=9 370 LET sign=s(i)+1 380 DO WHILE ( sign > 1 ) 390 LET s(i)=-1 400 LET i=i-1 410 LET sign=s(i)+1 420 LOOP 430 LET s(i)=sign 440 LOOP WHILE ( s(1) < 1) 450 END というものですが、このプログラム中にあるsum、num、signとはどういう意味があるのでしょうか？

  • 行列に関するプログラムについて

    　『m×n 型行列Aの最大成分と最小成分を捜し、それぞれの行番号と列番号を出力するプログラムを作れ』という問題です。 　以下のようにＢＡＣＩＣで考えたのですが、うまく行番号と列番号を出力するプログラムを作れません。アドバイスいただければと思います。宜しくお願い致します。 100 INPUT m 110 INPUT n 120 DIM A(m,n) 130 MAT INPUT A 140 FOR i=1 TO m 150 FOR j=1 TO n-1 160 LET s=A(i,j) 170 LET t=A(i,j) 180 IF A(i,j)＜A(i,j+1) THEN LET s=A(i,j+1) 190 IF A(i,j)＞A(i,j+1) THEN LET t=A(i,j+1) 200 NEXT j 210 NEXT i 220 PRINT "最大成分は";s,"最小成分は";t

  • PHP 九九の表示方法

    どなたかPHPの九九の表示を整えるソースを教えていただけませんでしょうか。 <?php for ($i=1;$i<=9;$i++){ print $i."の段"; for ($j=1;$j<=10;$j++){ if ($j==10){ continue2; } $x=$i*$j; print $i."*".$j."=".$x; } } ?> 上記のソースで下記のように改行とスペースを置いて形を整えたいのですが、アドバイスいただけませんでしょうか？ １の段　１＊１＝１　１＊２＝２　・・・・・１＊９＝９ ２の段　２＊１＝２　２＊２＝４　・・・・・２＊９＝１８ ・ ・ ・ ９の段　９＊１＝９　９＊２＝１８　・・・・・９＊９＝８１ 宜しくお願いいたします。

    • ベストアンサー
    • PHP
  • 離散フーリエ変換について

    10 REM dft 20 N=8 30 DIM　A(N),B(N),X(N) 40 FOR I=0 TO N-1 50 READ X(1) 60 NEXT I 70 P=6.283/N 80 FOR K=0 TO N-1 90 A(K)=0:B(K)=0 100 FOR J=0 TO N-1 110 A(K) =A(K)+X(j)*COS(P*J*K) 120 B(K) =B(K)-X(J)*SIN(P*J*K) 130 NEXT J 140 NEXT K 150 FOR I=0 TO N-1 160 Y=SQL(A(I)^2+B(I)^2) 170 LPRINT I;:LPRINT USING "###,###";A(I),B(I),Y 180 NEXT I 190 DATA 1,1,1,1,0,0,0,0 このDFTプログラムをC言語に直したいのですがよく分かりません； お願いします＠＠；

  • グラフを書きたいのですがどのようにして使うかわかりません

    FOR I=-200 to 200 FOR J=-200 to 200 X(0) = I / 100 ; Y(0) = J / 100 FOR N=0 to 1000 X(N+1) = X(N)^2 - Y(N)^2 + X(0) Y(N+1) = 2*X(N)*Y(N)+Y(0) IF X(N)^2 + Y(N)^2 > 4 THEN PSET(I,J) WHITE ELSE IF N = 1000 THEN PSET(I,J) BLUE ELSE NEXT N END IF NEXT J; NEXT I というグラフを書くプログラムがあるのですがこのプログラムの使い方がわからなくて使えないのでどのようにすれば見れるのか教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する