pepelotte

October 9, 2017

Hello Paul,

thank you for your help. I attached two screenshots. As you can see, the values from left and center are switched. i will test it tomorrow with different airplanes and give you a feedback again.

regards,

pepe

October 9, 2017

Hello Paul,

i found a new bug. The center main and the left main are wrong.

left main contains the value from center main

center main contains the value from left main

Can you fix that and send me a new dll?

EDIT:

hm.....interesting. i took now a kingair which has only left tank and right tank and the values are right. is there maybe only a problem if center tank exists?

greetings

pepe

October 9, 2017

Hi Pete,

so far so good. I get the FuelFlow from Eng 1-4. But if i see that right, it is in punds?

Can you help me to calculate the FuelFlow into ltr.

At the moment i get the following Data´s over from a king air:

Eng1 = 33

Eng2 = 33

Eng3 = 0

Eng4 = 0

    Dim FuelFlowEng1 As Offset(Of Integer) = New FSUIPC.Offset(Of Integer)("FuelFlowEng1", &H8A0)
    Dim FuelFlowEng2 As Offset(Of Integer) = New FSUIPC.Offset(Of Integer)("FuelFlowEng2", &H938)
    Dim FuelFlowEng3 As Offset(Of Integer) = New FSUIPC.Offset(Of Integer)("FuelFlowEng3", &H9D0)
    Dim FuelFlowEng4 As Offset(Of Integer) = New FSUIPC.Offset(Of Integer)("FuelFlowEng4", &HA68)

ok...that means if i saw that right, that i have a complete fuelflow of 66 pounds per hour. if i change that to liter (ltr)

66p * 0,63 = 41,58l / h

My loaded Fuel is ~900l if i start X-Plane. If i calc now my possible flight time

900l / 41,58l = ~21h flight time.

21h flight time can´t be! X-Plane said, that i had a flight time of 3:19:08.

so...what´s wrong?

regards

pepe

October 8, 2017

Hello Pete,

did you know how to get the values of the "Flight Time" or how to calculate it?

See screenshot -> http://www.itdocs.de/flusi/pic_xplane.jpg

If there is no direct offset for that, is there maybe an offset for the fuelflow of all engines that i can calculate it?

regards,

pepe

October 8, 2017

Hello Paul,

first, thank you for the great and fast work!! Where can i make a donation for your dll?

I tried the offset for the elapsed time, but i get a empty string. Can you check my code if everything is right?

Declaration

    Public FuelFlightTime As Offset(Of String) = New FSUIPC.Offset(Of String)("FuelFlightTime", &H4A8, 256)

and the function

    Public Sub GetFuelFlightTime()
        FSUIPCConnection.Process("FuelFlightTime")
        frmMain.lblFlightTime.Text = FuelFlightTime.Value
    End Sub

your two fixes in the dll working now. Thank you again!

regards,

pepe

October 7, 2017

Hi,

i have some questions an maybe found two bugs. Fist, i attached two screenshots.

Screenshot from X-Plane

Screenshot from Software

as we can see, there are two problems.

1. i get only on fueltank

2. the max weight is not right

and now the question

1. how can i get the "flight time"?

My runtime:

- Windows 10

- Visual Studio 2015 / VB.net

- .net DLL 3.0 RC4

- X-Plane 11 with XPUIPC 2.0

here my code to get the fuel tanks:

    Public Sub GetTanks()
        ps.RefreshData()

        If ps.FuelTanks(FSFuelTanks.Centre_Main).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Center Main")
            frmMain.lvTanks.Items(0).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(0).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Center Main")
            frmMain.lvTanks.Items(0).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_Main).CapacityLitres))
            frmMain.lvTanks.Items(0).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_Main).LevelLitres))
            frmMain.lvTanks.Items(0).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_Main).WeightKgs))
        End If

        If ps.FuelTanks(FSFuelTanks.Centre_2).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Center 2")
            frmMain.lvTanks.Items(1).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(1).SubItems.Add("0")
            frmMain.lvTanks.Items(1).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Center 2")
            frmMain.lvTanks.Items(1).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_2).CapacityLitres))
            frmMain.lvTanks.Items(1).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_2).LevelLitres))
            frmMain.lvTanks.Items(1).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_2).WeightKgs))
        End If

        If ps.FuelTanks(FSFuelTanks.Centre_3).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Center 3")
            frmMain.lvTanks.Items(2).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(2).SubItems.Add("0")
            frmMain.lvTanks.Items(2).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Center 3")
            frmMain.lvTanks.Items(2).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_3).CapacityLitres))
            frmMain.lvTanks.Items(2).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_3).LevelLitres))
            frmMain.lvTanks.Items(2).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Centre_3).WeightKgs))
        End If

        If ps.FuelTanks(FSFuelTanks.Left_Main).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Left Main")
            frmMain.lvTanks.Items(3).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(3).SubItems.Add("0")
            frmMain.lvTanks.Items(3).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Left Main")
            frmMain.lvTanks.Items(3).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Main).CapacityLitres))
            frmMain.lvTanks.Items(3).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Main).LevelLitres))
            frmMain.lvTanks.Items(3).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Main).WeightKgs))
        End If

        If ps.FuelTanks(FSFuelTanks.Left_Aux).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Left Aux")
            frmMain.lvTanks.Items(4).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(4).SubItems.Add("0")
            frmMain.lvTanks.Items(4).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Left Aux")
            frmMain.lvTanks.Items(4).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Aux).CapacityLitres))
            frmMain.lvTanks.Items(4).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Aux).LevelLitres))
            frmMain.lvTanks.Items(4).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Aux).WeightKgs))
        End If

        If ps.FuelTanks(FSFuelTanks.Left_Tip).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Left Tip")
            frmMain.lvTanks.Items(5).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(5).SubItems.Add("0")
            frmMain.lvTanks.Items(5).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Left Tip")
            frmMain.lvTanks.Items(5).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Tip).CapacityLitres))
            frmMain.lvTanks.Items(5).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Tip).LevelLitres))
            frmMain.lvTanks.Items(5).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Left_Tip).WeightKgs))
        End If

        If ps.FuelTanks(FSFuelTanks.Right_Main).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Right Main")
            frmMain.lvTanks.Items(6).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(6).SubItems.Add("0")
            frmMain.lvTanks.Items(6).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Right Main")
            frmMain.lvTanks.Items(6).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Main).CapacityLitres))
            frmMain.lvTanks.Items(6).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Main).LevelLitres))
            frmMain.lvTanks.Items(6).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Main).WeightKgs))
        End If

        If ps.FuelTanks(FSFuelTanks.Right_Aux).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Right Aux")
            frmMain.lvTanks.Items(7).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(7).SubItems.Add("0")
            frmMain.lvTanks.Items(7).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Right Aux")
            frmMain.lvTanks.Items(7).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Aux).CapacityLitres))
            frmMain.lvTanks.Items(7).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Aux).LevelLitres))
            frmMain.lvTanks.Items(7).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Aux).WeightKgs))
        End If

        If ps.FuelTanks(FSFuelTanks.Right_Tip).CapacityLitres = 0 Then
            frmMain.lvTanks.Items.Add("Right Tip")
            frmMain.lvTanks.Items(8).SubItems.Add("Not availible")
            frmMain.lvTanks.Items(8).SubItems.Add("0")
            frmMain.lvTanks.Items(8).SubItems.Add("0")
        Else
            frmMain.lvTanks.Items.Add("Right Tip")
            frmMain.lvTanks.Items(8).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Tip).CapacityLitres))
            frmMain.lvTanks.Items(8).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Tip).LevelLitres))
            frmMain.lvTanks.Items(8).SubItems.Add(CInt(ps.FuelTanks(FSFuelTanks.Right_Tip).WeightKgs))
        End If
    End Sub

and my code to get the weight

    Public Sub GetPayLoad()
        ps.RefreshData()
        frmMain.lblGesamtgewicht.Text = CInt(ps.AircraftWeightKgs) & " kg"
        frmMain.lblLeergewicht.Text = (CInt(ps.AircraftZeroFuelWeightKgs) - CInt(ps.PayloadWeightKgs)) & " kg"
        frmMain.lblMTOW.Text = CInt(ps.MaxGrossWeightKgs) & " kg"
    End Sub

and in

FSUIPCConnection.Open(FlightSim.Any)

there is as "FlightSim" no xplane. so i used any

regards,

pepe

Sign In

pepelotte

Posts

Joined

Last visited

Days Won

Content Type

Profiles

Forums

Events

Gallery

Downloads

Posts posted by pepelotte

Some questions...and a bug?

Some questions...and a bug?

Offset FlightTime

Offset FlightTime

Some questions...and a bug?

Some questions...and a bug?

Browse

Activity

Important Information