IchigoJam互換機の拡張端子ににブザーPB04-SE12SHPRとLEDを取り付けて、電球をリレーでON/OFFするようなイメージを再現してみました。LEDを秋月で販売されているGPL/W/A00002/FA/STに置き換えると、より電球っぽくなると思います。
今回、少し、こだわったのはリレーを駆動するような音です。使用したブザーは電圧をかけるだけで4kHzの音が鳴ります。このブザーを瞬間的にON/OFFすることで、ちょうどリレー駆動のような音を再現することが出来ました。ブザーを取り付けなくても動作します。
ブザーの接続＝GND / OUT3 (極性に注意。OUT3が+側)
LEDの接続＝GND / OUT5またはOUT2 (OUT5または2がアノード・LEDのリード線の長い方)
rem CC BY (C) Wataru KUNINO1 LIST:'PWM LED
2 I=1:A=-1
100 'LOOP
110 I=I+A
120 PWM 2,1,1<<(I+2)
130 PWM 5,1,1<<(12-I)
140 WAIT 2
150 IF I=0 GOSUB 300
160 IF I=10 GOSUB 300
170 IF INKEY()=0 GOTO 100
180 OUT 2,0:OUT 5,0
190 END
300 'RELAY
310 IF A=1 OUT 2,0 ELSE OUT 5,0
320 A=-A
330 WAIT 30
340 OUT 3,1
350 REM NOP
360 REM NOP
370 REM NOP
380 OUT 3,0
390 RETURN
対応IchigoJam BASIC Version 1.1.0以降(β版含む)
IchigoJam互換機は、以前に投稿したものを使用しました。もちろん、純正のIchigoJamでも動作します。
また、プログラムには行番号300以降のリレー音をブザーで鳴らす部分を追加しました。
https://bokunimo.net/blog/ichigojam/182/
https://bokunimo.net/blog/ichigojam/182/
（追記）
Facebook IchigoJam-FAN グループの澤口勇治さんからのご意見「ついでに、フィラメントが切れる直前の一瞬明るくなるところを再現して」を追加しました。
rem CC BY (C) Wataru KUNINO1 'PWM LED
2 I=9:A=1
100 'LOOP
110 I=I+A
130 PWM 5,1,1<<(I+2)
140 WAIT 2
150 IF I=0 GOSUB 300
160 IF I=10 GOSUB 300
170 IF INKEY()=0 GOTO 100
180 IF I<6 WAIT 20
200 'END
210 PWM 5,1,1<<I
220 I=I-1:WAIT 1:IF I>5 WAIT 1
230 IF I>=0 GOTO 210
240 OUT 5,1
250 WAIT 10:OUT 3,1:OUT 3,0
260 FOR I=0 TO 12:WAIT 1
270 PWM 5,1,1<<I
280 NEXT:OUT 5,0
290 END
300 'RELAY
310 IF A=1 OUT 5,0
320 A=-A
330 WAIT 60
340 OUT 3,1
350 REM NOP
360 REM NOP
370 REM NOP
380 OUT 3,0
390 RETURN
プログラムを停止するときは、キーボードのスペースキーやリターンキーを押してください。※[ESC]は押さないでください。
また、LEDをGPIOに、直接、接続しているので、一時的に大きな電流がLEDへ流れます。一般的な複数種類のLEDを使って、マイコンやLEDが壊れないことを十分に確認していますが、設計上、好ましくない回路となっています（本来、電流制限抵抗などでLEDへ大きな電流が流れないような回路にする必要があります。）。
by ボクにもわかるIchigoJam用マイコンボード