加速度センサーADXL345を接続してRUNするとヘリコプターがセンサーの傾きに応じて上下左右に移動します。
傾きが大きいと短い間隔でBEEPが鳴ります。
SWITCHかVIDEO3して実行して下さい。
- 1 'カソクト゛センサ モニタ
- 20 POKE #700,#32,#2D,`1011
- 30 A=I2CW(#1D,#701,2)
- 40 A=I2CR(#1D,#700,1,#710,6)
- 50 FORI=0TO4STEP2
- 60 [I/2]=PEEK(#710+I)+PEEK(#711+I)<<8:NEXT
- 70 X=[1]/32:Y=[0]/64
- 80 LCX+8,Y+4:?"(#F3)";:IFRND(6)<(ABS(X)+ABS(Y)*2)BEEP
- 90 WAIT10:LCX+8,Y+4:?" ";:C=C+1:GOTO40