New タイマー


IchigoJam BASIC 1.2.2 より採用されている

VIDEO コマンドの文字拡大機能を用いて

タイマーを作りなおしてみました。

 

20 の M で分、S で秒を設定できます。
C は誤差補正用です。

 

20 CLV:M=3:S=0:C=60

 

RUN すると 2:59 という感じに拡大表示され、

カウントダウンしていきます。

0:00 の後は反転と LED が点灯します。

必要な場合、LED 端子経由で何かを動作可能です。

何かキーを押してプログラムを終了します。

再度実行する場合は改めて RUN させます。


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

IchigoJam web でプログラムを実行します。

このQRコードはアクセス解析のためにCookieを使用しています。

アクセス解析は匿名で収集されており、個人を特定するものではありません。

この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。

MixJuice ダウンロード ?"MJ GET 15JM.LI/K/606

MicJack ダウンロード ?"MJ GKP 606



他のバージョン