Nav1 & 2 OBS and radial required.

[Mark737NG]

Does anyone have any VB6 code for NAV1 OBS or radial

0C4E 2 NAV1 OBS setting (degrees, 0–359)

0C50 2 NAV1 radial ( *360/65536 for degrees)

and

02A0 2 Magnetic variation (signed, –ve = West). For degrees *360/65536. Convert True headings to Magnetic by subtracting this value, Magnetic headings to True by adding this value.

Just being lazy really but Im hard up for time at present

Loads of code to offer in return!

Cheers

Mark

[rickalty]

To convert the FS value from 2A0...

Dim Variation As Long

Call FSUIPC_Read(&H2A0, 2, VarPtr(Variation), dwResult)

Call FSUIPC_Process(dwResult)

Variation = (Variation / 65536) * CLng(360)

For 0C50 it's exactly the same.

For 0C40 the ame but ignore the correction, it reads straight out in degrees.

Richard