SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

教室タイマー

教室用の簡易タイマープログラムです。IchigoJam教室で「1分考えて」などと時間を区切った課題の時に使えます。
Video 5モード(8文字×6行表示)で拡大して表示しています。

  • 実行すると、設定する分数を聞かれます。1〜99分で入力します。
  • 入力してエンターキーを押すと、すぐにタイマーが作動します。分数をダウンカウント表示すると共に、イチゴマークの横棒グラフで進行度を表示します。
  • 時間が来ると、BEEP音が鳴ってタイマーが止まります。何かキーを押すと時間設定に戻ります。プログラムを終了したい時はESCキーで止めてください。

TICK関数で簡易にカウントしているので、時間が若干ずれます。IchigoJam実機で、10分設定で1〜2秒早く終わります。
web版だと多少遅くなるので、16行の「TICK()<59」を「TICK()<57」にしてください。
もちろんキッチンタイマーの方が正確に計れますが、IchigoJam教室だったらIchigoJamでやりたいですよね(^_^)

プログラムリスト

1 '*Classroom Timer
2 CLV:CLK:VIDEO 5:CLS
3 ?"Minutes"
4 ?"(1-99)="
5 INPUT T
6 A=T*60
7 CLS:?
8 FOR S=0 TO 29
9 ?CHR$(165);:NEXT
10 GSB 25
11 BEEP
12 'TIMER
13 FOR S=0 TO 29:B=0
14 '@SLOOP
15 CLT
16 IF TICK()<59 CONT
17 A=A-1
18 GSB 25
19 B=B+1
20 IF B<T*2 GOTO 14
21 LC S%8,1+S/8:?CHR$(255)
22 NEXT
23 BEEP 10,60
24 IF INKEY() RUN ELSE CONT
25 '@PRTM
26 LC 0,0
27 N=A/600:?N;
28 N=A%600/60:?N;
29 ?":";
30 N=A%60/10:?N;
31 N=A%60%10:?N;
32 RTN