ラーメンタイマー

簡単な3分タイマーです。それらしく針を動かすのに意外と苦労しました。
動画はこちら。

www.youtube.com

• プログラムを実行すると時計が描かれます。
• IchigoJamのボタンまたはスペースキーを押すと、タイマーがスタートします。
• 秒針が1秒ごとに回ります。3分経つと停止します。

プログラム

10 '*RAMEN TIMER
20 CLV:CLS
30 P=32:Q=24
40 FOR A=-90 TO 269
50 X=COS(A)/12
60 Y=SIN(A)/12
70 DRAW P+X,Q+Y
80 NEXT
90 A=-90
100 X=COS(A)/12
110 Y=SIN(A)/12
120 DRAW P,Q,P+X,Q+Y,2
130 LC 0,21:?"0:00"
140 IF !BTN() AND !BTN(32) CONT
150 CLT
160 FOR T=1 TO 180
170 WAIT 60
180 DRAW P,Q,P+X,Q+Y,2
190 A=A+6:IF A=270 A=-90
200 X=COS(A)/12
210 Y=SIN(A)/12
220 DRAW P,Q,P+X,Q+Y,2
230 LC 0,21
240 M=T/60:S=T%60
250 ?M;":";DEC$(100+S,2)
260 IF T=180 BEEP 10,30 ELSE BEEP 30,2
270 NEXT

プログラム２

最後をちょっと改造して、3分経ったらチャルメラを鳴らすようにしました。

www.youtube.com

10 '*RAMEN TIMER 2
20 CLV:CLS
30 P=32:Q=24
40 FOR A=-90 TO 269
50 X=COS(A)/12
60 Y=SIN(A)/12
70 DRAW P+X,Q+Y
80 NEXT
90 A=-90
100 X=COS(A)/12
110 Y=SIN(A)/12
120 DRAW P,Q,P+X,Q+Y,2
130 LC 0,21:?"0:00"
140 IF !BTN() AND !BTN(32) CONT
150 CLT
160 FOR T=1 TO 180
170 WAIT 60
180 DRAW P,Q,P+X,Q+Y,2
190 A=A+6:IF A=270 A=-90
200 X=COS(A)/12
210 Y=SIN(A)/12
220 DRAW P,Q,P+X,Q+Y,2
230 LC 0,21
240 M=T/60:S=T%60
250 ?M;":";DEC$(100+S,2)
260 IF T<180 BEEP 30,2
270 NEXT
280 PLAY "T240CDE1DCR CDEDCD1"