SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

LED Star

LEDを星形に5個並べたシールド基板です。
電子工作・プログラミング教室での女の子ウケを狙って作ってみました(^_^)

光らせ方はプログラム次第ですが、以前に作った「カセットテープJam」のプログラムを流用して、季節外れですが「ジングルベル」を奏でてみました。
プレイ動画はこちら。

基板データ

(8/6 v0.3)抵抗・LEDのパッドを大きくして、はんだ付けしやすくしました。

*この基板ガーバーデータは、CC BYライセンスとします。どうぞご利用ください。

(C) 2018 Shiro Saito (http://d.hatena.ne.jp/shiro0922/)

このファイルをそのままFusion PCBで登録すれば、基板を発注できます。
基板寸法は64×34mmです。

部品表


※LEDは好きな色の物に換えても構いません。

プログラム「ジングルベル」

1 VIDEO0:PLAY"T180"
2 LET[0],"C;","A;","G;","F;","C;","C;","C;","R;"
3 LET[8],"C;","A;","G;","F;","D;","D;","D;","R;"
4 LET[16],"D;","A#;","A;","G;","E;","E;","E;","R;"
5 LET[24],"<C;","<C;","A#;","G;","A;","A;","A;","R;"
6 LET[32],"D;","A#;","A;","G;","<C;","<C;","<C;","<C;"
7 LET[40],"<D;","<C;","A#;","G;","F;","R;","<C;","R;"
8 LET[48],"A;","A;","A;","R;","A;","A;","A;","R;"
9 LET[56],"A;","<C;","F;","F8G8;","A;","A;","A;","R;"
10 LET[64],"A#;","A#;","A#;","A#;","A#;","A;","A;","A;"
11 LET[72],"A;","G;","G;","F;","G;","R;","<C;","R;"
12 LET[80],"A#;","A#;","A#;","A#;","A#;","A;","A;","A;"
13 LET[88],"<C;","<C;","A#;","G;","F;","F;","F;","R;"
14 A=0:B=16:C=32:D=48:E=64:F=80
15 FORX=ATOA+15:GSB24:NEXT
16 FORX=BTOB+15:GSB24:NEXT
17 FORX=ATOA+15:GSB24:NEXT
18 FORX=CTOC+15:GSB24:NEXT
19 FORX=DTOD+15:GSB24:NEXT
20 FORX=ETOE+15:GSB24:NEXT
21 FORX=DTOD+15:GSB24:NEXT
22 FORX=FTOF+15:GSB24:NEXT
23 GOTO15
24 Z=PEEK([X]):IFZ<65Z=PEEK([X]+1)
25 PLAY[X]:OUT1<<RND(5)
26 IFSOUND()CONT
27 OUT0:RTN