SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

IchigoBell完成

これまで試作してきたIchigoJamハンドベル「IchigoBell」ですが、
www.ichigojaman.jp
www.ichigojaman.jp
12/17〜18に情報センターで開催するクリスマスイベント「St. Media Xmas 2016」用に、本製作しました。

コテを3本も揃えて、どこのお好み焼き屋だ?(笑)

  • お好み焼き用コテを、100円ショップで買ったプラスチック製に変更。プラスチックなので絶縁対策不要。
  • 裏面の電池も単4×3に変更して、全体を軽量化

内蔵メロディは「ジングルベル」「サンタが街にやってくる」「赤鼻のトナカイ」の3種類です。
リストは以下に載せます。
なお、IFでアナログ入力を判断している行を、

IF !BTN() GOTO 〜

に変えれば、通常の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