福野さんがブログで書いた「5セグメントLED」が、昔のゼビウス文字を思い出してなかなか面白いです。
福野さんはWeb時計アプリを作っていますが、私はリアルにIchigoJam拡張基板を作って動かしてみました。
プレイ動画がこちら。
ユニバーサル基板に角型LEDを5個並べて、抵抗でOUTポートにつなげました。
LEDの配置とつなぎ方はこんな感じです。
プログラムとして、カウンターとルーレットを作ってみました。
カウンター
ボタンを押すと、0〜9まで数字をカウントします。9の次は0に戻ります。
10 '*5 Segment Counter 20 CLV:OUT 0 30 LET [0],`11011,`10000,`01101,`10101,`11100,`10110,`11110,`10001,`11111,`10111 40 '@LOOP 50 FOR N=0 TO 9 60 OUT [N] 70 IF !BTN() CONT 80 IF BTN() CONT 90 NEXT 100 GOTO 40
ルーレット
ボタンを押すと、数字がランダムに回ります。もう一度ボタンを押すと止まります。
10 '*5 Segment Roulette 20 CLV:OUT 0 30 LET [0],`11011,`10000,`01101,`10101,`11100,`10110,`11110,`10001,`11111,`10111 40 OUT [0] 50 '@START 60 IF !BTN() CONT 70 IF BTN() CONT 80 '@LOOP 90 BEEP 10,2 100 OUT [RND(10)] 110 WAIT 6 120 IF !BTN() GOTO 80 130 FOR I=1 TO 5 140 BEEP 10,2 150 OUT [RND(10)] 160 WAIT 20 170 NEXT 180 GOTO 50
