バナー(電光掲示板)


福野さんのブログ記事を見たのです。

 

ちりめんx電子工作 +ITで広がる「ものづくりのまち鯖江」 | 福野泰介の一日一創

 

ここで IchigoDot という簡易電光掲示板が
紹介されているのですが、それを見て

「これを IchigoJam の画面でも!」

とピンときまして、形にしてみました。

 

0.9.7 で採用されたコマンド SCROLL により、

上以外に下左右へのスクロールも

容易に行えるようになったので、これが実現できました。

 

とはいっても配列を [100] までフルに使い、

容量もギリギリまで使っている大作です。

 

IchigoJam BASIC RPi は処理速度がはやいため

スクロールもはやくなります。次の 1 行を加えて下さい。


305 WAIT 5

IchigoJam BASIC 0.9.9〜

5 'バナー (デンシケイジバン)
10 CLS:CLV
20 LET [0],12291,12291,16383,16383
30 LET [4],12291,12291,0,0
40 LET [8],4032,4032,12336,12336
50 LET [12],12336,12336,12336,12336
60 LET [16],3264,3264,0,0
70 LET [20],16383,16383,192,192
80 LET [24],48,48,48,48
90 LET [28],16320,16320,0,0
100 LET [32],48,48,16371,16371
110 LET [36],0,0,960,960
120 LET [40],-13264,-13264,-13264,-13264
130 LET [44],-13264,-13264,16368,16368
140 LET [48],0,0,4032,4032
150 LET [52],12336,12336,12336,12336
160 LET [56],12336,12336,4032,4032
170 LET [60],0,0,3072,3072
180 LET [64],12288,12288,12291,12291
190 LET [68],4095,4095,3,3
200 LET [72],3072,3072,13104,13104
210 LET [76],13104,13104,13104,13104
220 LET [80],16320,16320,0,0
230 LET [84],16368,16368,48,48
240 LET [88],16368,16368,48,48
250 LET [92],16320,16320,0,0
260 LET [96],0,0,0,0,0
270 LET D,0:LET B,0
280 LC 31,4+B:? CHR$([D]&1);
290 LET [D],[D]>>1
300 LET B,B+1:IF B<>16 GOTO 280
310 SCROLL 3:LET B,0
320 LET D,D+1:IF D<>101 GOTO 280
330 LET D,0:GOTO 20

MixJuice ダウンロード ?"MJ GET 15JM.LI/K/589

MicJack ダウンロード ?"MJ GKP 589


IchigoJam BASIC 0.9.7・0.9.8

10 CLS
20 LET [0],12291,12291,16383,16383
30 LET [4],12291,12291,0,0
40 LET [8],4032,4032,12336,12336
50 LET [12],12336,12336,12336,12336
60 LET [16],3264,3264,0,0
70 LET [20],16383,16383,192,192
80 LET [24],48,48,48,48
90 LET [28],16320,16320,0,0
100 LET [32],48,48,16371,16371
110 LET [36],0,0,960,960
120 LET [40],-13264,-13264,-13264,-13264
130 LET [44],-13264,-13264,16368,16368
140 LET [48],0,0,4032,4032
150 LET [52],12336,12336,12336,12336
160 LET [56],12336,12336,4032,4032
170 LET [60],0,0,3072,3072
180 LET [64],12288,12288,12291,12291
190 LET [68],4095,4095,3,3
200 LET [72],3072,3072,13104,13104
210 LET [76],13104,13104,13104,13104
220 LET [80],16320,16320,0,0
230 LET [84],16368,16368,48,48
240 LET [88],16368,16368,48,48
250 LET [92],16320,16320,0,0
260 LET [96],0,0,0,0,0
270 LET D,0:LET B,0
280 LC 35,7+B:? CHR$([D]&1);
290 LET [D],[D]>>1
300 LET B,B+1:IF B<>16 GOTO 280
310 SCROLL 3:LET B,0
320 LET D,D+1:IF D<>101 GOTO 280
330 LET D,0:GOTO 20

解説

作りは IchigoJam ロゴ にスクロールを加えて、長くしたもの。

配列のデータは ynomura(Nomura Yukinori さん)版。縦1列で1個の配列を使用しています。

■ 部分にある下に記載している数字の合計が配列の値となります。一番下はマイナスになっている事にご注意下さい。

最近のバージョンでは16進数表記でも有効です。

 


IchigoJam 公式ロゴ版

IchigoJam 公式ロゴバージョンも作成しています。

IchigoJam の販売を行っている店舗や

IchigoJam でイベントを行う場合に

IchigoJam のデモとしてご活用下さい。

 

IchigoJam 公式ロゴは 2015年8月 より

CC BY ライセンス扱いにする事を

福野さんが公言しています。

これを受け、イチゴジャム レシピ 内でも
通常のプログラム同様に公開を行いました。

 

Facebook グループ IchigoJam-FAN 内

 

IchigoJam officially logo

CC BY IchigoJam Licensed by jig.jp


ai.Jam・ai.shuttle.jam・ai.jam.pi ロゴ版を aitendo、

IchigoJam EX ロゴ版を クガデン へ

それぞれ製作・提供しています。

店頭のデモとして見られるかもしれません。



IchigoJam BASIC 0.9.9〜

1 'バナー (デンシケイジバン) コウシキロゴ
10 CLS:CLV
20 LET [0],26622,26622,24576
30 LET [3],24576,26592,26592
40 LET [6],26208,26208,26208
50 LET [9],26208,24576,24576
60 LET [12],26622,26622,24672
70 LET [15],24672,26592,26592
80 LET [18],24576,24576,26598
90 LET [21],26598,0,0
100 LET [24],26592,26592,26208
110 LET [27],26208,32736,32736
120 LET [30],0,0,26592
130 LET [33],26592,26208,26208
140 LET [36],26592,26592,24576
150 LET [39],24576,26112,26112
160 LET [42],26112,26112,26622
170 LET [45],26622,24576,24576
180 LET [48],26592,26592,26208
190 LET [51],26208,26592,26592
200 LET [54],26112,26112,24672
210 LET [57],24672,26592,26592
220 LET [60],24672,24672,26592
230 LET [63],26592,24672,24672
240 LET [66],26592,26592
270 LET D,0:LET B,0
280 LC 31,4+B:? CHR$([D]&1);
290 LET [D],[D]>>1
300 LET B,B+1:IF B<>16 GOTO 280
310 SCROLL 3:LET B,0
320 LET D,D+1:IF D<>101 GOTO 280
330 LET D,0:GOTO 20

MixJuice ダウンロード ?"MJ GET 15JM.LI/K/590

MicJack ダウンロード ?"MJ GKP 590

 

IchigoJam BASIC 0.9.7〜0.9.8

10 CLS
20 LET [0],26622,26622,24576
30 LET [3],24576,26592,26592
40 LET [6],26208,26208,26208
50 LET [9],26208,24576,24576
60 LET [12],26622,26622,24672
70 LET [15],24672,26592,26592
80 LET [18],24576,24576,26598
90 LET [21],26598,0,0
100 LET [24],26592,26592,26208
110 LET [27],26208,32736,32736
120 LET [30],0,0,26592
130 LET [33],26592,26208,26208
140 LET [36],26592,26592,24576
150 LET [39],24576,26112,26112
160 LET [42],26112,26112,26622
170 LET [45],26622,24576,24576
180 LET [48],26592,26592,26208
190 LET [51],26208,26592,26592
200 LET [54],26112,26112,24672
210 LET [57],24672,26592,26592
220 LET [60],24672,24672,26592
230 LET [63],26592,24672,24672
240 LET [66],26592,26592
270 LET D,0:LET B,0
280 LC 35,7+B:? CHR$([D]&1);
290 LET [D],[D]>>1
300 LET B,B+1:IF B<>16 GOTO 280
310 SCROLL 3:LET B,0
320 LET D,D+1:IF D<>101 GOTO 280
330 LET D,0:GOTO 20