加速度センサーを利用して大きく動いたらブザーを鳴らす

IchigoJam + FaBo Starter Kitで加速度センサーを利用して大きく動いたらブザーを鳴らせてみましょう。地震計としては使えませんが、手をゆっくり動かしたりする何らかの訓練には使えるかもしれません。センサーは以下のように接続します。加速度センサーはI2Cに、ブザーはSOUNDに接続します。



IchigoJamの電源を入れ以下のようにプログラムを入力します。

10 CLS:CLV
20 POKE #800,#31,0,#2D,8
30 POKE #810,#32,6
40 N=I2CW(#53,#800,1,#801,1)
50 N=I2CW(#53,#802,1,#803,1)
60 N=I2CW(#53,#810,1,#811,1)
70 N=I2CR(#53,#810,1,#820,6)
80 X=PEEK(#820)+PEEK(#821)*256
90 Y=PEEK(#822)+PEEK(#823)*256
100 Z=PEEK(#824)+PEEK(#825)*256
110 IF ABS(X-A)>20 OR ABS(Y-B)>20 OR ABS(Z-C)>20 THEN BEEP 10,100
120 A=X:B=Y:C=Z
130 LOCATE 0,0
140 ?"X:";PEEK(#820)+PEEK(#821)*256;" "
150 ?"Y:";PEEK(#822)+PEEK(#823)*256;" "
160 ?"Z:";PEEK(#824)+PEEK(#825)*256;" "
170 WAIT 30
180 GOTO 60

RUNと入力しプログラムを実行します。最初はブザーが鳴ります（プログラムの都合上）。加速度センサーを動かします。大きく動かすとブザーが鳴ります。ゆっくり動かせばブザーはなりません。