１００円ショップで購入したデコレーション「プチライト」をＬＥＤのグリーンとレッドをＰＩＣ１２Ｆ６２９を使用して交互に点灯させるようにしました。

内容　ＬＥＤグリーン２０個　または　ＬＥＤレッド２０個
　　　コードの長さ１７０cm
　　　単三２個用電池ボックス（スイッチ付き）
　　　ＬＥＤは常時点灯
　　　クリスマスや植木鉢などに
費用は電池代を入れても５００円くらいで出来ます。

'20_led
'2003.11.03
DEFINE OSC 4
TRISIO=%00001100
i VAR BYTE
loop:
For i=0 TO 9
Low GPIO.0 'High L stop
High GPIO.5 'High L
Pause 300
High GPIO.0 'High L stop
Low GPIO.5 'High L
Pause 300
Next i
For i=0 TO 9
Low GPIO.0 'High L stop
High GPIO.5 'High L
Pause 500
High GPIO.0 'High L stop
Low GPIO.5 'High L
Pause 500
Next i
For i=0 TO 19
Low GPIO.0 'High L stop
High GPIO.5 'High L
Pause 200
High GPIO.0 'High L stop
Low GPIO.5 'High L
Pause 200
Next i
For i=0 TO 6
Low GPIO.0 'High L stop
High GPIO.5 'High L
Pause 1000
High GPIO.0 'High L stop
Low GPIO.5 'High L
Pause 1000
Next i
GoTo loop
End

　最初に戻る