人感センサーを使ってみる

プログラミング教育の教材や夏休みの自由研究のネタに

配線

赤外線センサー　−　IchigoJam
ＶＣＣ　− ＶＣＣ
ＧＮＤ　− ＧＮＤ
ＯＵＴ　− ＢＴＮ(ＩＮ９）

動作確認

10 'SENS01
20 CLS
30 LC 5,5
40 ?IN(9)
50 GOTO 30

何もないと０
センサーの前を遮ると１
しばらくすると０になる
０になってからしばらくは遮っても１にならない
この動作はセンサー基板の回路による。
この基板では感度や時間は調整できない

10 'SENS02
20 CLS
30 LED IN(9)
40 GOTO 30

INの値をそのままLEDコマンドに渡す
LEDの点滅はできたが、センサーの反応が敏感すぎる

10 'SENS03
20 CLS:LED 0
30 IF IN(9)=0 GOTO 30
40 LED 1
50 WAIT60*60
60 IF IN(9)=1 GOTO 50
70 LED 0
80 GOTO 30

点灯して１分たったら、センサーを調べる
センサーが反応していたら１分延長
反応がなかったらLEDを消灯する

タブを閉じる