LEDでナナイロづくり 2

5.輝度設定
@LUMINA_WS.LED(L,V,I)

5000 @LUMINA_WS.LED(L,V,I)
5010 IF V<1 OR V>34 OR !L THEN RETURN
5020 IF L>255 THEN L=255
5030 FOR I=0 TO V*3-1
5040 IF [I] THEN [I]=L
5050 NEXT
5060 RETURN

・WS.LEDで点灯している輝度を変更します。
———————————————————————
変数 L 変更する輝度 (1~255)
変数 V 変更するLED個数 (1~34)
いずれも範囲外の設定なら、サブルーチンは実行しない。
———————————————————————
変数 I 位置
サブルーチン内部で使う作業用です。
サブルーチンから抜けた後は、変数V×3-1の値に変更されます。

サンプルプログラム5

10 CLV
20 S=”123456700000″
30 L=75
40 GSB @SET_WS.LED(S,(I,C,L))
50 WS.LED12
60 WAIT 120
70 FOR L=100 TO 0 STEP -5
80 V=LEN(S)
90 GSB @LUMINA_WS.LED(L,V,I)
100 WS.LED12
110 WAIT 10
120 NEXT
130 END