SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

おうちクエスト「ストップウォッチで10秒ジャスト!」

新型コロナウイルス感染予防の臨時休校で、何日も家にこもっている子どもたちに向けて、Facebookで「おうちクエスト」という企画が出されています。

www.facebook.com

お題は5個。

  1. 10秒ジャスト!(ストップウォッチを10.00秒で止める)
  2. 消しゴムはんこを作ってみよう!
  3. ぐりとぐらのカステラを作ってみよう!
  4. 創作漢字を作ってみよう!
  5. オリジナルおうちクエスト!

この中の1番目「10秒ジャスト!」に挑戦してみました。

IchigoJam webで10秒ジャスト

いい歳の私は「10.00」ジャストはとても狙えそうになかったので、IchigoJam webで1/10秒刻みのストップウォッチを作って挑戦、何とか「10.0」で止められました。

f:id:shiro0922:20200415001013p:plain

こちらのURLで動かせますので試してみてください。
スペースキーを押すと止められます。
F5キーなどでページを再読み込みすると再挑戦できます。

プログラム

10 CLS:VIDEO 5:CLT
20 @LOOP
30 T=TICK()
40 S=T/60:P=T%60/6
50 LC 0,0:?S;".";P
60 IF !BTN(32) GOTO @LOOP

IchigoJamボードで10秒ジャスト

IchigoJamボードだと、ファームウェア1.4の新機能「高速TICK」を使って、1/100秒単位のストップウォッチが作れます。
やってみましたが、「10.00」は難しい…(^_^;)

プログラム

10 CLV:VIDEO 5:CLS:U=60*261:V=U/100
20 CLT
30 @LOOP
40 T=TICK(1)
50 IF T>=U CLT:S=S+1
60 P=T%U/V
70 LC 0,0:?DEC$(S,2);".";DEC$(P,2)
80 IF !BTN(32) GOTO @LOOP