SHIROのIchigoJam日記

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

LED Heart

LED Star」に続くクリスマス向けイルミネーション基板の第2弾、ハート形です。
IchigoJamのプログラム次第で、様々に光らせられます。
動画はこちら。

LEDをハート形に並べた基板を作成。

LEDをはんだ付けしてIchigoJamに装着。
aitendoのIchigoJam互換基板「ai.jam」に載せて、赤と白のクリスマスカラーにしてみました(^_^)

基板データ

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

(C) 2018 Shiro Saito (https://www.ichigojaman.jp)

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

プログラムリスト

セレクタ

スロット1〜3のプログラムを選択起動します。

10 '*Selecter
20 CLV
30 FOR P=1 TO 10:OUT P,0:NEXT
40 '@LOOP
50 OUT 1<<N
60 CLT
70 '@INBTN
80 IF BTN() LRUN N+1
90 IF TICK()<60 GOTO 70
100 N=N+1:IF N>2 N=0
110 GOTO 40
イルミネーション

様々なパターンでハート形のLEDが光ります。

10 '*Heart Illumination
20 CLV:OUT 0:OUT 10,0
30 @LOOP
40 FOR I=1 TO 10
50 OUT I,1
60 WAIT 10
70 NEXT
80 WAIT 20
90 FOR T=1 TO 3
100 OUT 0
110 WAIT 20
120 OUT 1023
130 WAIT 20
140 NEXT
150 FOR I=1 TO 9
160 OUT I,0
170 WAIT 10
180 NEXT
190 FOR I=1 TO 9
200 OUT I,1
210 WAIT 10
220 NEXT
230 FOR I=1 TO 10
240 OUT I,0
250 WAIT 10
260 NEXT
270 GOTO @LOOP
ルーレット

IchigoJamのボタンを押すとルーレットが回ります。もう一度ボタンを押すとゆっくりになって止まります。
「赤のLEDで止まったら今日はラッキー」と「恋占い」にしたら、女の子にウケるかも。

10 '*Roulette
20 CLV
30 OUT 0
40 OUT 10,1
50 L=10
60 @START
70 IF !BTN() CONT
80 IF BTN() CONT
90 @LOOP
100 GSB @LED1
110 WAIT 3
120 IF !BTN() GOTO @LOOP
130 Z=RND(3)
140 FOR I=1 TO 5+Z
150 GSB @LED1
160 WAIT 20
170 NEXT
180 GOTO @START
190 @LED1
200 OUT L,0
210 L=L+1
220 IF L>10 L=1
230 OUT L,1
240 BEEP 10,2
250 RTN