不
不破さん (7l7pvyk0)2021/12/11 18:45 (No.88375)質問ありがとうございます.
次の動作をするプログラムを作ると言うことですね
(1)ボタンを押すまで動作を待機する
(2)続いて,4分間カウントダウンして,ブザーが鳴る
(3)続いて,4分間カウントアップして,ブザーが鳴る
順番に作っていきましょう.
(1)ボタンを押すまで動作を待機する
5 IF BTN(0)=0 THEN GOTO 5
(2)続いて,4分間カウントダウンして,ブザーが鳴る
4分間は240秒で,0.1秒単位では2400カウントとなります
10 A=2400
20 CLS:LOCATE 0,0:? A
30 WAIT 6 : A=A-1
40 IF A>0 THEN GOTO20
50 BEEP5,5 : WAIT 10 : BEEP10,5 : WAIT 10
(3)続いて,4分間カウントアップして,ブザーが鳴る (2)に続く行番号で書きます
60 A=0
70 CLS:LOCATE 0,0:? A
80 WAIT 6 : A=A+1
90 IF A<=2400 THEN GOTO70
100 BEEP5,5 : WAIT 10 : BEEP10,5 : WAIT 10
110 END
全体をまとめるとつぎのようになります.
5 IF BTN(0)=0 THEN GOTO 5
10 A=2400
20 CLS:LOCATE 0,0:? A
30 WAIT 6 : A=A-1
40 IF A>0 THEN GOTO20
50 BEEP5,5 : WAIT 10 : BEEP10,5 : WAIT 10
60 A=0
70 CLS:LOCATE 0,0:? A
80 WAIT 6 : A=A+1
90 IF A<=2400 THEN GOTO70
100 BEEP5,5 : WAIT 10 : BEEP10,5 : WAIT 10
110 END