LEDでナナイロづくり

1.ルーレット(光をうごかす)

Mission1応用の簡単なルーレットです。

‘M.5 ルーレット

20 CLV: L=15
30 @LOOP

40 FOR I=0 TO 11
45 PRINT “I=”;I
50 C=6: GSB @SET_WS.LED(I,C,L)
60 WS.LED 12

70 WAIT 3
80 C=0: GSB @SET_WS.LED(I,C,L)
90 WS.LED 12

100 NEXT
110 GOTO @LOOP

50行目と60行目で、現在のLED位置を、紫色(C=6)で点灯します。
70行目のWAITで、状態で少し時間待ちします。
80行目と90行目で、点灯しているLEDを、無色(C=0)に設定してLEDを消灯します。
これを繰り返すことで、ルーレットが動いているように見えます。

ルーレットを止めるときは、[ESC]キーでプログラムを止めます。
しかし、LED消灯後に止めてしまうと見えなくなってしまいます。
そこで、LEDが点灯したあとに、IchigoJam基板のタクトスイッチ(BTN命令)が押されたかどうかを判断して(IF命令)止まるよう、つぎのプログラムを追加します。

65 IF BTN()==1 THEN END

ルーレットの動きに合わせて、音(BEEP命令)も出します。

62 BEEP 5,10


改良したプログラム

20 CLV: L=15
30 @LOOP
40 FOR I=0 TO 11
45 PRINT “I=”;I
50 C=6: GSB @SET_WS.LED(I,C,L)
60 WS.LED 12

62 BEEP 5,10
65 IF BTN()==1 END
70 WAIT 3
80 C=0: GSB @SET_WS.LED(I,C,L)
90 WS.LED 12
100 NEXT
110 GOTO @LOOP