TrackBufferIndexes

用例

Sub Main  

  ' 全てのデータのインデックス番号を抽出
  Dim vIndex as Variant    
  vIndex = TrackBufferIndexes(1, -1) 
 
  Dim idx as long    
  For idx = LBound(vIndex) To UBound(vIndex)
    
    ' インデックス番号を用いて、トラッキングバッファより指定されたデータを取得
    Dim vVal as Variant
    vVal = TrackBufferRead(1, vIndex(idx), -1)                            

    ' データ出力  
    PrintDbg "enc=" & vVal(0), _
             "x=" & vVal(1), _
             "y=" & vVal(2), _
             "z=" & vVal(3), _
             "rx=" & vVal(4), _
             "ry=" & vVal(5), _
             "rz=" & vVal(6)
    
  Next
      
End sub

下に要素が空かどうかで処理を分ける例を示します。

#include "variant.h"

Sub Main

  ' 全てのデータのインデックス番号を抽出
　Dim vIndex as Variant
　vIndex = TrackBufferIndexes(1, -1)

  If VarType(vIndex) = VT_EMPTY then
    ' 要素が空の場合の処理

'･･･
  ElseIf VarType(vIndex) And VT_ARRAY then
    ' 要素が空でない(要素が配列になっている)場合の処理
    If ( UBound( vIndex ) <> -1 ) then
      ' 要素の数がゼロでないことを確認してデータ読み出し
      ' インデックス番号を用いて、トラッキングバッファより指定されたデータを取得
      Dim vVal as Variant
      vVal = TrackBufferRead(1, UBound( vIndex ), -1)
'･･･
    End If
'･･･
  End If

End Sub