Jump to content
The simFlight Network Forums

pepelotte

Members
  • Content count

    6
  • Joined

  • Last visited

  • Days Won

    1

pepelotte last won the day on October 9

pepelotte had the most liked content!

Community Reputation

1 Neutral

1 Follower

About pepelotte

  • Rank
    Newbie

Profile Information

  • Gender
    Male
  • Location
    Germany
  1. Some questions...and a bug?

    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
  2. Some questions...and a bug?

    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
  3. Offset FlightTime

    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
  4. 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
  5. Some questions...and a bug?

    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
  6. 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
×