これまで試作してきたIchigoJamハンドベル「IchigoBell」ですが、
www.ichigojaman.jp
www.ichigojaman.jp
12/17〜18に情報センターで開催するクリスマスイベント「St. Media Xmas 2016」用に、本製作しました。
コテを3本も揃えて、どこのお好み焼き屋だ？（笑）
- お好み焼き用コテを、100円ショップで買ったプラスチック製に変更。プラスチックなので絶縁対策不要。
- 裏面の電池も単4×3に変更して、全体を軽量化
内蔵メロディは「ジングルベル」「サンタが街にやってくる」「赤鼻のトナカイ」の3種類です。
リストは以下に載せます。
なお、IFでアナログ入力を判断している行を、
IF !BTN() CONT
に変えれば、通常のIchigoJamでもボタンを押して演奏できます。
ジングルベル（2/7更新）
1 LET[0],"C;","A;","G;","F;","C;","C;","C;","R;" 2 LET[8],"C;","A;","G;","F;","D;","D;","D;","R;" 3 LET[16],"D;","A#;","A;","G;","E;","E;","E;","R;" 4 LET[24],"<C;","<C;","A#;","G;","A;","A;","A;","R;" 5 LET[32],"D;","A#;","A;","G;","<C;","<C;","<C;","<C;" 6 LET[40],"<D;","<C;","A#;","G;","F;","R;","<C;","R;" 7 LET[48],"A;","A;","A;","R;","A;","A;","A;","R;" 8 LET[56],"A;","<C;","F;","F8G8;","A;","A;","A;","R;" 9 LET[64],"A#;","A#;","A#;","A#;","A#;","A;","A;","A;" 10 LET[72],"A;","G;","G;","F;","G;","R;","<C;","R;" 11 LET[80],"A#;","A#;","A#;","A#;","A#;","A;","A;","A;" 12 LET[88],"<C;","<C;","A#;","G;","F;","F;","F;","R;" 13 A=0:B=16:C=32:D=48:E=64:F=80:VIDEO0,30 14 FORX=ATOA+15:GSB23:NEXT 15 FORX=BTOB+15:GSB23:NEXT 16 FORX=ATOA+15:GSB23:NEXT 17 FORX=CTOC+15:GSB23:NEXT 18 FORX=DTOD+15:GSB23:NEXT 19 FORX=ETOE+15:GSB23:NEXT 20 FORX=DTOD+15:GSB23:NEXT 21 FORX=FTOF+15:GSB23:NEXT 22 GOTO14 23 IFTICK()>18000CLT:VIDEO0,30 24 IFANA(2)>530CONT 25 VIDEO0,1:LED1:PLAY[X]:WAIT20:LED0:CLT:RTN
サンタが街にやってくる（2/7更新）
10 '*Santa ga Machi ni Yattekuru 20 LET [0],"E8F8;","G;","G;","R;","A8B8;","<C;","<C;","R;" 30 LET [8],"E8F8;","G;","G;","G;","A8G8;","F;","F;","R;" 40 LET [16],"E;","G;","C;","E;","D;","F;","R;",">B;" 50 LET [24],"C;","C;","C;","C;","C;","C;","C;","R;" 60 LET [32],"<C;","<D;","<C;","B;","<C;","A;","A;","R;" 70 LET [40],"<C;","<D;","<C;","B;","<C;","A;","A;","R;" 80 LET [48],"<D;","<E;","<D;","<C#;","<D;","B;","B;","R;" 90 LET [56],"B8<C8;","<D;","<C;","B;","A;","G;","G;","R;" 100 A=0:B=32:VIDEO 0,30 110 FOR X=A TO A+31 120 GOSUB 210 130 NEXT 140 FOR X=B TO B+31 150 GOSUB 210 160 NEXT 170 FOR X=A TO A+31 180 GOSUB 210 190 NEXT 200 GOTO 110 210 IF TICK()>18000 CLT:VIDEO0,30 220 IF ANA(2)>530 CONT 230 VIDEO 0,1:LED 1:PLAY [X]:WAIT 20:LED 0:CLT 240 RETURN
赤鼻のトナカイ（2/7更新）
1 '*Akahana no Tonakai 2 LET [0],"G;","A8G8;","E;","<C;","A;","G;","G;","R;" 3 LET [8],"G8A8;","G8A8;","G;","<C;","B;","B;","B;","R;" 4 LET [16],"F;","G8F8;","D;","B;","A;","G;","G;","R;" 5 LET [24],"G8A8;","G8A8;","G;","A;","E;","E;","E;","R;" 6 LET [32],"G8A8;","R8G8;","E;","<C;","A;","G;","G;","R;" 7 LET [40],"G8A8;","G8A8;","G;","<C;","B;","B;","B;","R;" 8 LET [48],"F8G8;","R8F8;","D;","B;","A;","G;","G;","R;" 9 LET [56],"G8A8;","G8A8;","G;","<D;","<C;","<C;","<C;","R;" 10 LET [64],"A;","A;","<C;","A;","G;","E;","G;","R;" 11 LET [72],"F;","A;","G;","F;","E;","E;","E;","R;" 12 LET [80],"D;","E;","G;","A;","B;","B;","B;","R;" 13 LET [88],"<C;","<C;","B;","A;","G;","F8D8;","D;","R;" 14 A=0:B=32:C=64:VIDEO 0,30 15 FOR X=A TO A+31 16 GSB 28 17 NEXT 18 FOR X=B TO B+31 19 GSB 28 20 NEXT 21 FOR X=C TO C+31 22 GSB 28 23 NEXT 24 FOR X=B TO B+31 25 GSB 28 26 NEXT 27 GOTO 15 28 IF TICK()>18000 CLT:VIDEO 0,30 29 IF ANA(2)>530 GOTO 28 30 VIDEO 0,1:LED 1:PLAY [X]:WAIT 20:LED 0:CLT 31 RTN
もろびとこぞりて（2/7更新）
10 '*Morobito Kozorite 20 LET [0],"<C;","<C;","B;","B8A8","G;","G;","G8R8;","F;" 30 LET [8],"E;","E;","D;","D;","C;","C;","C8R8;","G;" 40 LET [16],"A;","A;","A8R8;","A;","B;","B;","B8R8;","B;" 50 LET [24],"<C;","<C;","<C;","<C;","<C;","<C;","R;","<C;" 60 LET [32],"<C;","B;","A;","G;","G;","G8F8;","E8R8;","<C;" 70 LET [40],"<C;","B;","A;","G;","G;","G8F8;","E8R8;","E;" 80 LET [48],"E;","E;","E;","E8F8;","G;","G;","G8R8;","F8E8;" 90 LET [56],"D;","D;","D;","D8E8;","F;","F;","F8R8;","E8D8;" 100 LET [64],"C;","<C;","<C;","A;","G;","G8F8;","E;","F;" 110 LET [72],"E;","E;","D;","D;","C;","C;","C;","R;" 120 L=79:VIDEO 0,30 130 FOR X=0 TO L 140 IF TICK()>18000 CLT:VIDEO0,30 150 IF ANA(2)>530 GOTO 140 160 VIDEO 0,1:LED 1:PLAY [X]:WAIT 20:LED 0:CLT 170 NEXT 180 GOTO 130
→さらに機能強化した「IchigoBell BIG」はこちら。
www.ichigojaman.jp
