Well, atleast i got it to read something.
But my heading is 224, but my code reads -117,735343845561
What am i doing wrong? :?
Imports FSUIPC
Public Class Form1
Dim hdg As Offset(Of Integer) = New FSUIPC.Offset(Of Integer)(&H580)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
' Attempt to open a connection to FSUIPC (running on any version of Flight Sim)
FSUIPCConnection.Open()
' Opened OK
Timer1.Enabled = True
Catch ex As Exception
' Badness occurred - show the error message
MessageBox.Show(ex.Message, "skyCARS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
FSUIPCConnection.Process()
Dim hdg2 As Double = hdg.Value * 360.0 / (65536.0 * 65536.0)
Label1.Text = hdg2
End Sub
End Class