教室用の簡易タイマープログラムです。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
