「IchigoJamスポーツ」の中の人気プログラム「100ｍダッシュ」を、展示用に改造してみました。
スペースキーの代わりに、大きなボタンスイッチを押してプレイします。
※（11/17）改良版の画面に差し替え。
※（11/17）スイッチについて差し替え。
大きなボタンスイッチは結構高価なので、工場などで使われるフットスイッチにしました。
こちらのフットスイッチだと、分解しなくても軽い力で押せるのでお勧めします。リード線も白・黒の2本しか出ていないのでわかりやすいです。
https://www.monotaro.com/p/0851/9524/
Amazonだとこちら。（写真では5個のスイッチが写っていますが、赤1個だけです）
オジデン フットスイッチ OFL-S-H-R 赤色 多機能型 鋼板ベース付き
- 出版社/メーカー: 大阪自動電機
- メディア: Tools & Hardware
- この商品を含むブログ (1件) を見る
ATian PC CCTVのホームセキュリティ用 リモコンとのTFT液晶カラービデオモニター画面 VGA BNC AV HDMI入力 8インチ（サポート：コンピュータモニタとして）
- 出版社/メーカー: ATian
- メディア: エレクトロニクス
- この商品を含むブログ (1件) を見る
プログラム
VIDEO 3（16文字×12行モード）で、大きな表示にしています。
※（11/17修正）実際に子どもに体験してもらった結果から、タイム表示をReady画面へ移動。画面遷移をワンタッチにしました。ゴールライン表示も追加。
10 '*100m Dash Event 20 VIDEO 3:CLV 30 @TITLE 40 CLS 50 LC 2,0:?"*100m Dash*" 60 LC 6,3:?"TIME" 70 LC 6,4:?T/60;".";T%60/6; 80 WAIT 120 90 LC 5,7:?"READY?"; 100 IF BTN() CONT 110 IF !BTN() CONT 120 CLS 130 LC 0,1:?CHR$(251) 140 LC 4,7:?"|"; 150 LC 0,0 160 FOR T=3 TO 1 STEP -1 170 ?T;" ";:BEEP:WAIT 60 180 NEXT 190 ?"GO!":BEEP 10,60 200 LC 1,1:CLT 210 FOR R=1 TO 100 220 IF !BTN() CONT 230 IF BTN() CONT 240 ?CHR$(8,46,251); 250 NEXT 260 T=TICK() 270 ?" GOAL!"; 280 BEEP 10,60:WAIT 60 290 GOTO @TITLE
（11/4追記）モバイル版
aitendoのSPI液晶に表示するモバイル版を作りました。
これで展示会に持って行けます(^_^)
プログラムはこちら。最初の画面設定を「SWITCH 1」に変更しただけです。
10 '*100m Dash Event 20 SWITCH 1:CLV 30 @TITLE 40 CLS 50 LC 2,0:?"*100m Dash*" 60 LC 6,3:?"TIME" 70 LC 6,4:?T/60;".";T%60/6; 80 WAIT 120 90 LC 5,7:?"READY?"; 100 IF BTN() CONT 110 IF !BTN() CONT 120 CLS 130 LC 0,1:?CHR$(251) 140 LC 4,7:?"|"; 150 LC 0,0 160 FOR T=3 TO 1 STEP -1 170 ?T;" ";:BEEP:WAIT 60 180 NEXT 190 ?"GO!":BEEP 10,60 200 LC 1,1:CLT 210 FOR R=1 TO 100 220 IF !BTN() CONT 230 IF BTN() CONT 240 ?CHR$(8,46,251); 250 NEXT 260 T=TICK() 270 ?" GOAL!"; 280 BEEP 10,60:WAIT 60 290 GOTO @TITLE
