福野泰介の一日一創

jig.jp新社屋エントランスのLEDウォールは、IchigoJam 1台でコントロールしています。 その場にキーボードとモニターもあるので、ESCで止めて、プログラミング可能です！

例えば、こちらランダムに3色を表示するプログラムです。20行でパレットを3色分GRBの順に指定し、30行で16x9の領域にランダムに数字を表示。 USR(#700)でマシン語ドライバを呼び出すとLEDウォールが指定通りに光ります。（#700にマシン語ドライバが書き込まれた状態で実行）

10 VIDEO3:CLS 20 LET[0],0,0,0,80,0,0,0,80,0,0,0,80 30 LC RND(16),RND(9):?RND(4) 40 U=USR(#700) 50 GOTO 30

スクロールするjig.jpロゴは、配列を使って作っていました。横16文字以上に対応するようちょっと改造。横18文字ある「A Inc.」ロゴの表示ができました。

10 [90]=" " 15 [91]=" " 20 [92]=" 2 2 " 30 [93]=" 22 2 " 40 [94]=" 2 2 2 " 50 [95]=" 2 2 2 222 222 " 60 [96]=" 2 2 2 2 2 2 " 70 [97]="2 2 2 2 2 222 2 " 80 [98]=" " 85 LET[0],0,0,0,80,80,80,0,130,0 99 VIDEO3:CLS 100 FOR I=1 TO 16 110 FOR J=0 TO 8 120 LC 16-I,J:?STR$([90+J],I); 130 NEXT 135 GSB300 140 NEXT 200 FOR I=1 TO LEN([90]) 210 FOR J=0 TO 8 220 LC 0,J:?STR$([90+J]+I,16); 230 NEXT 235 GSB300 240 NEXT 250 GOTO100 300 WAIT20 305 U=USR(#700) 310 RTN

links
- jig.jp、鯖江の新社屋で業務スタート！TSUGIコラボで完成、エントランスに巨大LEDウォールの秘密