Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/09/25 22:43:43

MixJuice GET URL : kidspod.club/mj/606

New タイマー(BASIC 1.2.2~)

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS

NEW

10 'New Timer
20 CLV:M=3:S=0:C=60
30 VIDEO 7:CLS:LED 0
40 T=(M*60+S)*C:CLT
50 N=T-TICK()
60 IF N<0 GOTO 110
70 S=N/C:M=S/60:S=S%60
80 IF S=R AND M=L GOTO 50
90 R=S:L-M
100 LC 0,1:? M;":";
110 IF S<10 ?"0"; 
120 ? S;:GOTO 50
130 LED 1:VIDEO 8
140 IF !INKEY() GOTO 140
150 LED 0:VIDEO 1:END

'OK

COMMENT