LEDでナナイロづくり 2

フラッシュ

12個のサークルを同じ色でフラッシュさせるさせるプログラムです。
光が点滅しますので、試すときは見つめすぎないように注意をしてください。
そのため、フラッシュの回数や輝度は意図的に下げています

10 @ARUN FLASHING
20 CLV:L=15
30 FOR M=1 TO 7
40 F=0
50 FOR N=0 TO 30
60 F=!F
70 C=M*F
80 GSB @SET_WS.LED(I,C,L)
90 WS.LED1,12
100 IF N WAIT2 ELSE WAIT180
110 NEXT
120 WAIT 180
130 NEXT
140 RUN


※以下のサブルーチンも入力が必要です。
@@SET_WS.LED(I,C,L)サブルーチンを1000行目から