IchigoJamを組み込んだハート型LEDをユニバーサル基板で作ってみました（その２）

前の記事の続編です。
ひとまず、前回と同じ動画を再掲します。

この基板の内容を回路図に落とし、また、IchigoJamからプログラムリスト吸い上げました。

・回路図

左右のLEDブロックをOUT2と３でON/OFF制御しています。回路の都合で、出力１で消灯、出力＝０で点灯になります。IchigoJamからPWM(2)とPWM(3)で輝度変調がかけられます。

IJ Chip内で、BTNをGNDにショートしていますので、電源投入と同時にプログラムが自動起動します。（あらかじめプログラムをSAVE0しておき、電源投入でLOAD0　RUNを自動実行）

・プログラム（IchigoJam画面のダンプ）

?VER()
12027

OK
LIST
10 '
15 OUT 0:BEEP 10,15:WAIT 90
20 FOR P=100 TO 600 STEP 100
25 BEEP
30 FOR I=1 TO 3
40 GOSUB P
50 NEXT
55 IF IN(1)*IN(2)=O GOTO 77
60 NEXT
65 BEEP 10,20
70 P=(RND(6)+1)*100:GOSUB P
75 IF IN(1)*IN(2)<>O GOTO 70
77 BEEP
80 GOSUB P
85 IF IN(1)*IN(2)<>0 GOTO 80
87 P=P+100
89 IF P>600 P=100
90 GOTO 77
100 '
110 OUT `111001
120 OUT(2),0:OUT(3),0:WAIT 30
130 OUT(2),1:OUT(3),1:WAIT 30
140 RETURN
200 '
210 OUT `111001
220 FOR L=2000 TO 1500 STEP -10
230 PWM(2),L:PWM(3),L
240 NEXT
250 FOR L=1500 TO 2000 STEP 5
260 PWM(2),L:PWM(3),L
270 NEXT
280 PWM(2),0:PWM(3),0
290 RETURN
300 '
310 OUT `010001:WAIT 30
320 OUT `101000:WAIT 30
390 RETURN
400 '
410 FOR L=1 TO 6
420 OUT `110000:WAIT 5
430 OUT `001001:WAIT 5
440 NEXT
490 RETURN
500 '
510 FOR L=1 TO 30
520 OUT(2),0:OUT(3),0
530 OUT(1),RND(2):OUT(4),RND(2):OUT(5),RND(2):OUT(6),RND(2):WAIT 2
540 NEXT
590 RETURN
600 '
610 OUT `111001
620 FOR L=1 TO 150
630 PWM(2),RND(500)+1500
640 PWM(3),RND(500)+1500
650 NEXT
660 PWM(2),0:PWM(3),0
690 RETURN
OK

回路の都合で、PWMは数字が大きい方が輝度は暗く、少ない方が明るくなります。

なお、いつものことですが、記事の一番下にも書いていますように、参考にされる方は自己責任でお願いします。

#IchigoJam #自作室

---