skino

Thank you very much. That helps me a lot. I am always enthusiastic about your DLL and your great support for us hobby programmers

Thanks for your quick reply The code runs perfectly. I use it with X-Plane 11/Xuipc and there it is possible to disable wind and clouds in the manual weather setting. For purely visual reasons, I would like to have a short text there. For example, "No data" or "No cloud layer". I had hoped that I could do this with the line If layerText = "" Then layerText = "No Clouds" as I assume that the LayerTXT is empty or has a lenght of zero, as it is nothing transferred to the listbox. I wanted to take advantage of this by entering my own text in the listbox, but this line is not displayed and I don't understand why. That is the whole point of my question. Another question about the clouds The cloud types from 0 to 9 I believe, is there a documentaion what these type numbers mean? Like type_0 = cumulus or similar?

In a small program I read out the weather data including the cloud layers, as explained in your demo project. This also works very well and reliably. But there's one thing I can't get to work: an entry in the cloud grid when there are no clouds. For example, it should say "No data" or something like that and the control should not simply be empty. I have tried that. Once via the length of LayerTEXT and currently via the content, but the control remains empty if there are no clouds. What am I doing wrong? Me.lstClouds.Items.Clear() For Each layer As FsCloudLayer In weather.CloudLayers Dim cover As FsCloudCoverage = layer.CoverageOctas ' Gets the description of the coverage (e.g. Few, Broken etc) Dim coverDescription As String = cover.ToString().Substring(0, cover.ToString().Length - 2) ' add the number of Octars coverDescription += " (" & CInt(cover).ToString() & "/8)" ' Get the precipitation (rain/snow) Dim precipitation As String = "" If layer.PrecipitationType <> FsPrecipitationType.None Then precipitation = " - " & layer.PrecipitationRate.ToString() & " " & layer.PrecipitationType.ToString() End If Dim layerText As String = "-" & layer.LowerAltitudeFeet & "ft" & " " & coverDescription & precipitation If layerText = "" Then layerText = "No Clouds" Me.lstClouds.Items.Add(layerText) Next

Perfect. Thanks very much. When I get home I will try it and give you feedback.😃

Works perfect. An absolutely perfect piece of software. Thank you so much.

Many Thanks. Good news for all Sim programmers.

Thank you for the fast answer. You mean the broadcast entry in the Options.Ini? He is active. The entries for both FMCs are also in the Ini.

The thread is already old but my question goes in the same direction. How can I read the content of the CDU screen? In the FSUIPC documents stands "This is the raw matrix provided by PMDG, in offsets 0x5400-0x57FF (for CDU 0) and 0x5800-0x5BFF (for CDU1). " But I get no or meaningless data. How can I do that in VB? I'm grateful for any help.

I want to play in VB NET over the offset 4200 five sound files, but have no idea how I can realize this. The trigger should be a joystick button or a key. The file should only be played once. How can I call the WAV file? Is it also possible directly via the FSUIPC module in the simulator? Am grateful for any help.

Found the error. The code can not run in a timer. Have now put it in a button and there is no more error. I also get no tanks displayed (in P3Dv3), no matter which aircraft I choose.

Hello Paul, If I use this code I always get an error message Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim ps As PayloadServices = FSUIPCConnection.PayloadServices If ps.FuelTanks(FSFuelTanks.Centre_Main).CapacityUSGallons = 0 Then CheckBox6.Checked = True End If Label3.Text = ps.FuelTanks(FSFuelTanks.Centre_Main).LevelUSGallons & " Gal" If ps.FuelTanks(FSFuelTanks.Centre_2).CapacityUSGallons = 0 Then CheckBox7.Checked = True End If If ps.FuelTanks(FSFuelTanks.Centre_3).CapacityUSGallons = 0 Then CheckBox8.Checked = True End If If ps.FuelTanks(FSFuelTanks.Left_Aux).CapacityUSGallons = 0 Then CheckBox11.Checked = True End If If ps.FuelTanks(FSFuelTanks.Left_Main).CapacityUSGallons = 0 Then CheckBox10.Checked = True End If If ps.FuelTanks(FSFuelTanks.Left_Tip).CapacityUSGallons = 0 Then CheckBox9.Checked = True End If If ps.FuelTanks(FSFuelTanks.Right_Aux).CapacityUSGallons = 0 Then CheckBox13.Checked = True End If If ps.FuelTanks(FSFuelTanks.Right_Main).CapacityUSGallons = 0 Then CheckBox12.Checked = True End If If ps.FuelTanks(FSFuelTanks.Right_Tip).CapacityUSGallons = 0 Then CheckBox3.Checked = True End If ps.RefreshData() If My.Settings.NoPanel = 1 Then Form1.Hide() Tank34.Hide() Else Form1.Show() Tank34.Show() End If FSUIPCConnection.Process("AircraftInfo") Label2.Text = aircraftType.Value End Sub

Thanks for the comprehensive explanation. That helps a lot. Peter

I want to fill the standard aircraft in the FSX and P3D with a small VB tool. A value is to be written into a text field and transferred as gallons into the simulator. The necessary functions and declarations, I have not found in the client Dll. How exactly do I get the tanks filled? I am grateful for every note. Of course also for VB code examples.

Thanks Pete, the code I need to analyze and understand first. Peter

That's what I wanted to hear. Thanks for the good news and as always excellent support. :)