５．輝度設定
@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　変更する輝度　（１～２５５）
変数　V　変更するLED個数　（１～３４）
いずれも範囲外の設定なら、サブルーチンは実行しない。
———————————————————————
変数　I　位置
サブルーチン内部で使う作業用です。
サブルーチンから抜けた後は、変数V×3-1の値に変更されます。

サンプルプログラム5

10 CLV
20 S=”123456700000″
30 L=75
40 GSB @SET_WS.LED(S,(I,C,L))
50 WS.LED LEN(S)
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.LED LEN(S)
110 WAIT 10
120 NEXT
130 END

---