イルミネーション点滅プログラム/Kidspod;

2018/01/08 11:22:49

GOOD!1
PLAY!0
VIEW1280

: palboon

イルミネーション点滅プログラム

OUT2,3,4でLEDイルミネーションを点滅させるプログラムです。
LEDイルミネーションはトランジスタアレイを利用してichigojamと別の電源で点灯させました。
BTNにCDSで明るさを検知する回路を接続して明るいときと真っ暗なときは自動的にLEDを消します。

Ichigojam

5 'イルミネーション
10 W=1:X=20:VIDEO1,16
20 @MA
40 ?:?"フワットヒカリマス"
50 FORJ=0TO5
60 GOSUB@PW
70 NEXT
80 GOSUB@OU
90 GOTO@MA
100 @PW
110 FOR I=0 TO 100
115 GSB@DO
120 PWM4,I*20
130 PWM3,(100-I)*20
140 WAITW
150 PWM2,I*RND(21)
160 NEXT
170 FOR I=0 TO 100
180 PWM4,2000-I*20
190 PWM3,I*20
200 PWM2,2000-I*RND(21)
210 WAIT W
220 NEXT
230 RTN
240 @OU
250 ?:?"チカチカヒカリマス"
260 FOR I=0TO10
265 GSB@DO
270 OUT0
280 WAIT X
290 OUT4,RND(2):OUT3,RND(2):OUT2,(RND(3)>0)
300 WAIT X
310 NEXT
320 RTN
330 @DO
340 IF ANA()<560OR ANA()>885 OUT2,0:OUT3,0:OUT4,0:LC0,6:?"コノアカルサテ゛ハケシマス";:GOTO@DO
350 RTN

: Kidspod運営チーム2018/01/12 15:41:32
PWMを使って光を調節するのが素晴らしいアイデアですね。センサを使って消灯させるというところもGOOD！