<< 向前        下一页 >>

ID : 7318

GetAccelometer

功能

获取施加在COBOTTA的加速度累计信息。

该指令对Ver.2.7.*以上的版本有效。

格式

GetAccelometer

返回值

通过变体(Variant)型返回施加在COBOTTA的超出阈值的加速度（以下称为超出阈值的加速度）累计信息。

要素编号 内容
0 1秒以内施加的超出阈值的加速度次数存储为整数型。
1 1秒以内施加的超出阈值的加速度中，最大的加速度(G[重力加速度])存储为双精度实数型。

解说

获取施加在COBOTTA的加速度累计信息。

超出阈值的加速度施加在COBOTTA的次数

0.5G以上的加速度施加到COBOTTA后，计数1秒以内再次向COBOTTA施加0.5G以上的加速度的次数。

但是，施加阈值以上的加速度后再次在0.05秒以内施加阈值以上的加速度，则不计数。

例如，下图情况下判定为3次。

此外，1秒以内施加加速度后，再次在1秒以内施加加速度，则之后会覆盖施加的加速度累计信息。

例如，在下图时机执行GetAccelometer，则次数为4。

超出阈值的加速度施加在COBOTTA时的最大加速度

1秒以内施加的超出阈值的加速度中，返回最大的加速度(G[重力加速度])。

例如，在下图时机1执行GetAccelometer，则最大加速度为0.8G。

此外，和加速度次数一样，之后会覆盖施加的加速度累计信息。

例如，在上图时机2执行GetAccelometer，则最大加速度为0.7G。

相关项目

ClearAccelometer

注意事项

该指令的功能本身并不包含于安全功能中。

使用时请进行风险评估并采取可安全运行的对策。

应用示例

'!TITLE "将施加3次以上超出阈值的加速度时的最大加速度(G)放入D0"
 
Sub Main 
  Dim sensorValue As Variant

  Do While 1
    ClearAccelometer                  '将加速度的累计信息清空为0
    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 : 7318

<< 向前        下一页 >>