HDG

[pasavino]

Hi , how to set Autopilot HDG ?

I use fsuipc vb.net 2010

 

 

[friedrich]

'declare it only once on top - class/form level

Dim APHeadingValue As Offset(Of UInteger) = New FSUIPC.Offset(Of UInteger)(&H7CC)

-------------------------------------------------------------

'could be done in a shorter and or different way

Dim APHaeding As Integer

APHeading = 350 (assign heading)

'whatever you calculate before, p.e. Hdg + a Wind-Drift-Value

If APHeading > 360 Then

APHeading = APHeading - 360

ElseIf APHeading < 0 Then

APHeading = 360 + APHeading

End If

'AP Heading Value in ° 16384 = 90°

APHeading = APHeading * 182

If APHeading > 65536.0 Then APHeading = 65536.0

APHeadingValue.Value = APHeading 'set Hdg to AP

[pasavino]

Tank you friedrich , my HDG is working

regards