簡単な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
プログラム2
最後をちょっと改造して、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"