Jump to content
The simFlight Network Forums

eilert

Members
  • Posts

    7
  • Joined

  • Last visited

Posts posted by eilert

  1. Hi

    Here is the code.

    Dim dwResult As Long
    Dim fs_speed As Long
    Dim fs_gear As Long
    Dim fs_alt As Double
    Dim alt_tmp As Double
    
    Dim speed_int As Long
    Dim booResult As Boolean
    
    'read gear
       booResult = FSUIPC_Read(&HBE8, 4, VarPtr(fs_gear), dwResult)
    
    'Read Speed
       booResult = FSUIPC_Read(&H2B8, 4, VarPtr(fs_speed), dwResult)
    
     'Read Altitude
    
       booResult = FSUIPC_Read(&HB4C, 4, VarPtr(fs_alt), dwResult)
       booResult = FSUIPC_Process(dwResult)
    
     'Action section
       Label5.Caption = fs_gear   'printer ut Gear statur
       Label4.Caption = fs_speed \ 128
       alt_tmp = fs_alt * 3.2  'gir resultat i feet
       Label6.Caption = alt_tmp
    End Sub

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use. Guidelines Privacy Policy We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.