人数カウンターOLED

これまで何度か作ってきた「赤外線人数カウンター」ですが、秋月電子のIchigoROMキットと有機EL（OLED）を使って小型化してみました。

IchigoROM基板に赤外線センサー（Panasonic AMN33111）とOLEDを搭載。IchigoJamへ亀の子に差せば、人数カウンターの完成です。

センサー部分の回路図。

情報センターの入口に設置してみました。しばらく試してみます。

プログラム

• 起動するとOLEDに「START」と表示され、カウントが始まります。
• 1時間ごとにカウント数を表示します。スタート時刻は9時になっています。変更したい場合は2行目の「H=9」を変えてください。

1 '*Counter OLED
2 CLV:H=9
3 CLS:?"START":GSB18
4 '@TIMELOOPINIT
5 C=0:M=0:CLT
6 '@TIMELOOP
7 IF IN(4) GSB 14
8 IF TICK()>3609 CLT:M=M+1
9 IF M<60 GOTO 6
10 '*HOUR PASS
11 ?H;"=";C:GSB 23
12 H=H+1:IF H>23 H=0
13 GOTO 4
14 '@COUNT
15 C=C+1
16 LED 1:WAIT 180:LED 0
17 RTN
18 '@OLEDINIT
19 let[64],#b5f0,#1840,#2380,#11b,#18cb,#2410,#7806,#f6
20 let[72],#18b6,#cea0,#c3a0,#3020,#3c01,#d1f7,#bdf0
21 let[84],#4000,#D5AE,#8D80,#2014,#DA00,#8112,#D9CF,#DBF1,#A440,#AFA6
22 ifi2cw(60,#8A8,1,#8AA,18)E
23 '@OLED
24 for[98]=0to7:ifusr(#880,#907-[98])&0|i2cw(60,#8A9,1,#800,128)E
25 next:rtn

IchigoROMは512kバイト分のフリー領域があるので、時刻とカウント数を記録していくのもありだと思います。今回のプログラムではやっていませんが、今後の課題です。