<< 前へ        次へ >>

ID : 7319

ClearAccelometer

機能

COBOTTAに加わった閾値以上の加速度(以下、閾値以上の加速度)の累積情報を0でクリアします。

このコマンドはVer.2.7.*から有効です。

構文

ClearAccelometer

解説

閾値以上の加速度の回数と、一番大きな閾値以上の加速度を0でクリアします。

ClearAccelometer後、COBOTTAに加速度を加えずに、GetAccelometerを実行した場合、閾値以上の加速度の回数と、一番大きな閾値以上の加速度は0で値が取得されます。

閾値以上の加速度の回数と、一番大きな閾値以上の加速度の詳細については、GetAccelometerを参照してください。

関連項目

GetAccelometer

注意事項

-

用例

'!TITLE "閾値以上の加速度が3回以上加わった時の最大の加速度(G)をD0に入れる"
 
Sub Main
  Do While 1
    ClearAccelometer                '加速度の累計情報を0にクリア
	   Dim sensorValue As Variant
    Do While 1
      sensorValue = GetAccelometer  '加速度の累計情報を取得
      If sensorValue( 0 ) > 2 Then  '2回より多く閾値以上の加速度が加わった場合
        D0 = sensorValue( 1 )       '加わった閾値以上の加速度の中で、最大の加速度
        Exit Do
      End If
    Loop
    Delay 1
  Loop
End Sub

ID : 7319

<< 前へ        次へ >>