HOME
ID : 7319
ClearAccelometer
功能
将施加在COBOTTA的超出阈值的加速度（以下称为超出阈值的加速度）累计信息清空为0。
该指令对Ver.2.7.*以上的版本有效。
格式
ClearAccelometer
解说
将超出阈值的加速度次数和最大的超出阈值的加速度清空为0。
ClearAccelometer后，不向COBOTTA施加加速度，，而是执行GetAccelometer后超出阈值的加速度次数和最大的超出阈值的加速度为0并获取值。
关于超出阈值的加速度次数和最大的超出阈值的加速度详情，请参照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 SubID : 7319