LEDでナナイロづくり 2

イルミネーション

WS.LED用のサブルーチンを応用して12個のLEDサークルをイルミネーションのように光らせるプログラムです。

10 @ARUN:’JPW NANAIRO-LED 2
20 CLS:CLV:R=12
30 L=50
40 S=”112233445566″


50 GSB @STR_WS.LED(S,(I,C,L))
60 WS.LED LEN(S)
70 WAIT 60*3


80 FOR M=1 TO 12
90 GSB @SHIFT_WS.LED(R)
100 IF R>0 WS.LED 12:WAIT 12
110 IF R<0 WS.LED 2,6:WAIT 50
120 NEXT
130 WAIT 60
140 R=-R
150 IF R>0 S=”666655554444333322221111″:R=LEN(S)
160 IF R<0 S=”123456712345″:R=-LEN(S)
170 GOTO 50


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