Ok, I will refer to the standard code later.
I have tested out some issues last night.
'GND-SKY
Dim strGND As Integer
dwOffset = (&H366)
dwSize = 2
If FSUIPC_Read(dwOffset, dwSize, VarPtr(strGND), dwResult) Then
If FSUIPC_Process(dwResult) Then
GND = strGND
End If
End If
'VS on Touchdown
Dim strLDGVS As Long
dwOffset = (&H30C)
dwSize = 4
If FSUIPC_Read(dwOffset, dwSize, VarPtr(strLDGVS), dwResult) Then
If FSUIPC_Process(dwResult) Then
LDGVS = strLDGVS * 60# * 3.28084 / 256#
End If
End If
'G-Force on Touchdown
Dim strLDGGF As Double
dwOffset = (&H11B8)
dwSize = 2
If FSUIPC_Read(dwOffset, dwSize, VarPtr(strLDGGF), dwResult) Then
If FSUIPC_Process(dwResult) Then
LDGGF = strLDGGF / 625
LDGGF = Format(LDGGF, "0.00")
End If
End If
'Timer1 is enabled by other code, and interval is 100ms
Private Sub Timer1_Timer()
If LDGVS <> "0" And GND = 1 Then 'When touchdown
Debug.Print "VS:" & LDGVS & " GForce:" & LDGGF
End If
End Sub
Here is a part of my code, the VS is always accurate but not G-Force, in fact, G-Force sometimes will be 0.