Jump to content
The simFlight Network Forums

Frédéric-O DUCHEMIN

Members
  • Posts

    113
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by Frédéric-O DUCHEMIN

  1. Hello,

    Thanks  for your times  @John Dowson & @Paul Henty

    I can use this version 6.03d or you don't have make changes ?

    Result:

    ********* FSUIPC6, Version 6.0.3d (18th April 2020) by Pete & John Dowson *********
    Prepar3D.exe version = 4.5.13.32097
    Running inside Prepar3D v4
    Module base=7FFC445C0000
    Windows 10 Pro 64 Bit reported as Build 18363, Release ID: 1909 (OS 10.0)
    Reading options from "D:\P3DV4\Modules\FSUIPC6.ini"

    2020-04-20_204819.png.177e16e561ab419336239f1251873bf8.png

    Regards Fred

  2. 4 minutes ago, Paul Henty said:
    
    FSUIPCConnection.FSUIPCVersion.Minor

    is returning 3?

    Paul

    Nope it's the web response

    For your test

    Console.WriteLine(String.Format("Major {0} (Minor {1}, Number {2})", FSUIPCConnection.FSUIPCVersion.Major.ToString, FSUIPCConnection.FSUIPCVersion.Minor.ToString, FSUIPCConnection.FSUIPCVersion.Number.ToString))
    Major 6 (Minor 0, Number 6)

     

  3. Hello Paul,

    Since I have switched to FSUIPC V6.0.3 (payware) but not the Sim (Prepar3D® v4, Version: 4.5.13.32097) H2

    FSUIPCConnection.FSUIPCVersion.ToString()
    Return FSUIPC V6.00000

    @Paul Henty @John Dowson

     ' check fsuipc version
                Dim literal As String = FSUIPCConnection.FSUIPCVersion.ToString()
                Console.WriteLine(literal.ToString)
                Dim substring As String = literal.Substring(0, 1)
                'MessageBox.Show("FSUIPC V: {0}", substring)
                Console.WriteLine("FSUIPC V: {0}", substring)
                Dim version As String = Webrequesttoget(If(My.Settings.VaWebSite & "/fsuipc_version_v2.php?version=" & substring, ""))
                If Operators.CompareString(version, literal, False) > 0 Then
                    Me.RadDesktopAlert1.Popup.Image = SDA.My.Resources.Resources.In_Progress_48px
                    'Me.RadDesktopAlert1.ContentImage = SDA.My.Resources.Resources.In_Progress_48px
                    'Me.radDesktopAlert1.CaptionText = "New E-mail Notification"
                    Me.RadDesktopAlert1.ContentText = "New version of FSUIPC is released. Update FSUIPC to " & version
                    Me.RadDesktopAlert1.Show()
                    If MsgBox("New version of FSUIPC is released. Update FSUIPC to " & version, MsgBoxStyle.OkCancel Or MsgBoxStyle.Question, "Warning") = MsgBoxResult.Cancel Then
                        Return
                    End If
                    If Conversions.ToDouble(substring) = 4.0 Then
                        Process.Start("http://fsuipc.simflight.com/beta/FSUIPC4.zip")
                    End If
                    If Conversions.ToDouble(substring) = 5.0 Then
                        Process.Start("http://fsuipc.simflight.com/beta/FSUIPC5.zip")
                    End If
                    If Conversions.ToDouble(substring) = 6.0 Then
                        Process.Start("http://fsuipc.simflight.com/beta/FSUIPC6.zip")
                    End If
                End If
            Catch ex As Exception
    ********* FSUIPC6, Version 6.0.3 (18th April 2020) by Pete & John Dowson *********
    Prepar3D.exe version = 4.5.13.32097
    Running inside Prepar3D v4
    Module base=7FFFB7FD0000
    Windows 10 Pro 64 Bit reported as Build 18363, Release ID: 1909 (OS 10.0)
    Reading options from "D:\P3DV4\Modules\FSUIPC6.ini"
    Checking the Registrations now ...
    FSUIPC6 Key is provided
    WideFS7 Key is provided
    
    Running in "Lockheed Martin® Prepar3D® v4", Version: 4.5.13.32097 (SimConnect: 4.5.0.0)

    FSUIPC6.ini

    [General]
    UpdatedByVersion=6003

    There are something wrong?

    Fred

  4. Hello Everyone,

    I don't know if I post in the good Forums.
    So I have an app (Windows forms/ VB.Net) using FSUIPC Client DLL for .NET

    The code has been checked by Paul himself.

    So since two years ago, I would like to refactoring codes and interface.
    And looking for a good developer like Paul Henty, to finish this project and turn this page, one more time.

    In French " Tout travail mérite salaire" / "All work deserves payment" 

    If you are interested, send me a PM

    Thanks for take the time to read.

    Regards Fred

     

  5. Hi Noa,

    You can use L:Vars for AEROSOFT AIRBUS A3XX PRO

    FSUIPCConnection.ReadLVar("L:AB_AP_AP1").ToString("F0") = 1 'AP1 set on  
    FSUIPCConnection.ReadLVar("L:AB_AP_AP1").ToString("F0") = 0 'AP1 set off
    FSUIPCConnection.ReadLVar("L:AB_AP_AP2").ToString("F0") = 1 'AP2 set on
    FSUIPCConnection.ReadLVar("L:AB_AP_AP2").ToString("F0") = 0 'AP1 set off

    You can find this L:VARS with Linda Modules
    https://www.avsim.com/forums/topic/539164-new-aerosoft-a3xx-professional-v06-beta-24-jul-18/

    You can retrieve L:VARS using Paul's method (Thanks again Paul wasp your time to teach me that)

    Regards Fred

  6. Hi Paul,

    I don't think so here the code only call when I click on load *.pln

     Private Sub RefreshFlightPlans()
            Me.cbxFlightPlans.Items.Clear()
    
            FSUIPCConnection.Process("plnFolder")
            Dim folder As String = FSUIPCDATA.simDocsPath.Value
    
            Dim flightPlans As String() = IO.Directory.GetFiles(folder, "*.pln")
            For Each flightPlan As String In flightPlans
                Me.cbxFlightPlans.Items.Add(IO.Path.GetFileName(flightPlan))
            Next
        End Sub
        Private Sub LoadplnToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LoadplnToolStripMenuItem.Click
            RefreshFlightPlans()
    
        End Sub

    So I use PMDG aircraft's works fine with PMDG 737-X and ProATC/X and don't need to load pln, I think ProATC/X makes the job in flight planner in Sim

    But with PMDG 777-X works at the beginning return me good ID & Distance after a while return me ICAO & Distance, on approach give me current legs

    No idea why.

    Regards Fred

  7. Hi Paul and everyone can help me,

    I have started this thread here avoid the end of this post

    How I can old return offsets once the value is return ?

    Mean If strobe is 'ON' and nothing is changed the "FSUIPCConnection.Process()" doesn't need to return me value I have already.

    Thanks

    Regards Fred

  8. Hi Paul,

    I have issues with GPS return.

    It's not the GPS the problem, it's how the waypoints are read.

    Even the plane is near the closest navaids after return me the good ID and distance seems it's doesn't where it is and take the first point of pln even this point are already passed.

    There is a way to look the ID index before and after to avoid this situation ?

    Here the code:

    Public gps_next_lat As Offset(Of Double) = New Offset(Of Double)(&H60AC)
    Public gps_next_lon As Offset(Of Double) = New Offset(Of Double)(&H60B4)
    
    Private Sub ShowDistanceToGPS()
            ' Setup info for GPS
            Dim lat As FsLatitude = New FsLatitude(gps_next_lat.Value)
            Dim lon As FsLongitude = New FsLongitude(gps_next_lon.Value)
            GPS = New FsLatLonPoint(lat, lon)
            ' get current plane position 
            lon = New FsLongitude(playerLongitude.Value)
            lat = New FsLatitude(playerLatitude.Value)
            Dim currentPosition As FsLatLonPoint = New FsLatLonPoint(lat, lon)
            ' Get the distance between here and GPS 
            Dim distanceNM = Math.Round(currentPosition.DistanceFromInNauticalMiles(GPS), 0)
            ' Get the bearing (True) 
            'Dim bearing As Double = currentPosition.BearingTo(GPS)
            ' Write the distance to the text box formatting to 2 decimal places 
            '  FrmMain.gps_ident.Text = distance.ToString("N2")
            FrmMain.gps_ident.Text = gps_id.Value.ToString() & ": " & distanceNM.ToString() + "NM"
            ' Display the bearing in whole numbers and tag on a degree symbol 
            'FrmMain.txtBearing.Text = bearing.ToString("F0") & Chr(&HB0)
        End Sub
    
    FSUIPCConnection.Process()
    ShowDistanceToGPS()

    Regards Fred

  9. 29 minutes ago, Paul Henty said:

    Yes the code looks fine, and works for me with FSX.

    Have you checked what values you are getting for these two lines?

    
    Dim lat As FsLatitude = New FsLatitude(gps_next_lat.Value)
    Dim lon As FsLongitude = New FsLongitude(gps_next_lon.Value)

    Is sounds like gps_next_lat and gps_next_lon.Value might be 0.

    If so then it's the same problem as the distance offset. It's not working in P3DV4.

    I've attached a new version of the DLL. This should load your AirportsDatabase now.

    Paul

    FSUIPCClient3.0_RC8.zip

    Thanks for the dll yes I have correct my code give me ID and NM all it's OK. But need a flight plan loaded in p3DV4 to work

    Sad news I would like read for any aircraft using FMC or FMS and not only basic plane...

    There is a way with form to load flight plan ?

    I make a try with the latest version

    Regards Fred

    5a8c4521d6817_2018-02-2016_54_30-SKYDreamTracker.png.cd01f9d74bd52aab1c2e889d087e2787.png

     

  10. Hi Paul,

    here my function

    Public gps_next_lat As Offset(Of Double) = New Offset(Of Double)(&H60AC)
    Public gps_next_lon As Offset(Of Double) = New Offset(Of Double)(&H60B4)
    
    Private Sub ShowDistanceToGPS()
            ' Setup info for GPS
            Dim lat As FsLatitude = New FsLatitude(gps_next_lat.Value)
            Dim lon As FsLongitude = New FsLongitude(gps_next_lon.Value)
            GPS = New FsLatLonPoint(lat, lon)
            ' get current plane position 
            lon = New FsLongitude(playerLongitude.Value)
            lat = New FsLatitude(playerLatitude.Value)
            Dim currentPosition As FsLatLonPoint = New FsLatLonPoint(lat, lon)
            ' Get the distance between here and GPS 
            Dim distanceNM = Math.Round(currentPosition.DistanceFromInNauticalMiles(GPS), 0)
            ' Get the bearing (True) 
            'Dim bearing As Double = currentPosition.BearingTo(GPS)
            ' Write the distance to the text box formatting to 2 decimal places 
            '  FrmMain.gps_ident.Text = distance.ToString("N2")
            FrmMain.gps_ident.Text = gps_id.Value.ToString() & ": " & distanceNM.ToString() + "NM"
            ' Display the bearing in whole numbers and tag on a degree symbol 
            'FrmMain.txtBearing.Text = bearing.ToString("F0") & Chr(&HB0)
        End Sub
    
    FSUIPCConnection.Process()
    ShowDistanceToGPS()

    The code is good :) Thanks

    Regards Fred

  11. 44 minutes ago, Paul Henty said:

    Okay - So does your project compile with the new DLL now?

    If so, I just need the exception details.

    Paul

    System.OverflowException
      HResult=0x80131516
      Message=La valeur était trop grande ou trop petite pour un UInt16.
      Source=FSUIPCClient
      Arborescence des appels de procédure :
       at FSUIPC.AirportsDatabase.Load(String Folder, HashSet`1 AirportList) in C:\Dev\FsuipcClient\fsuipcClient\fsuipcClient\AirportsDatabase.cs:line 674
       at FSUIPC.AirportsDatabase.Load() in C:\Dev\FsuipcClient\fsuipcClient\fsuipcClient\AirportsDatabase.cs:line 77
       at Acars_Sky.Form1.OpenFSUIPC() in M:\Projet ACARS\Applications_2018\Acars_Sky\Acars Sky\Acars Sky\Form1.vb:line 57
       at Acars_Sky.Form1.Button1_Click(Object sender, EventArgs e) in M:\Projet ACARS\Applications_2018\Acars_Sky\Acars Sky\Acars Sky\Form1.vb:line 47
       at System.Windows.Forms.Control.OnClick(EventArgs e)
       at System.Windows.Forms.Button.OnClick(EventArgs e)
       at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       at System.Windows.Forms.Control.WndProc(Message& m)
       at System.Windows.Forms.ButtonBase.WndProc(Message& m)
       at System.Windows.Forms.Button.WndProc(Message& m)
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       at Acars_Sky.My.MyApplication.Main(String[] Args) in :line 81
    >	FSUIPCClient.dll!FSUIPC.AirportsDatabase.Load(string Folder, System.Collections.Generic.HashSet<string> AirportList) Ligne 674	C#	Les symboles ont été chargés.
     	FSUIPCClient.dll!FSUIPC.AirportsDatabase.Load() Ligne 77	C#	Les symboles ont été chargés.
     	Acars Sky.exe!Acars_Sky.Form1.OpenFSUIPC() Ligne 57	Basic	Les symboles ont été chargés.
     	Acars Sky.exe!Acars_Sky.Form1.Button1_Click(Object sender, System.EventArgs e) Ligne 47	Basic	Les symboles ont été chargés.
     	[Code externe]		Frame annoté

     

  12. I have seen look my post

    The same error :

     Message=La valeur était trop grande ou trop petite pour un UInt16.

    and when this message occurs  

    Me.Version.Text = String.Format("SkyDream Tracker {0}", My.Application.Info.Version.ToString) & " | " & "FSUIPC: " & FSUIPCConnection.FSUIPCVersion.ToString

    Doesn't work but my app doesn't crash

     

       Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
            Application.CurrentCulture = New Globalization.CultureInfo("en-US")
    
            Try
                Delete_acars_position()
                Delete_phpvms_acarsdata()
                FSUIPCConnection.Open()
                ' add database
                FSUIPCConnection.AirportsDatabase.Load()
                fsconectionstatus = 1
                DisconnectToolStripMenuItem.Enabled = True
                ConnectToolStripMenuItem.Enabled = False
                Me.Version.Text = String.Format("SkyDream Tracker {0}", My.Application.Info.Version.ToString) & " | " & "FSUIPC: " & FSUIPCConnection.FSUIPCVersion.ToString
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            'FrmWeather.NotifyIcon1.Visible = True
            'Dim limit As String = "06/30/2014"
            'Dim danas As DateTime = DateTime.Now.ToShortDateString
            'If danas > limit Then
            '    MsgBox("This preview version is expired! Program will close now!", MsgBoxStyle.Critical)
            '    Me.Dispose()
            'End If
            FSUIPCConnection.Close()
            'TmrGetDataFromFs.Stop()
            DisconnectToolStripMenuItem.Enabled = False
            FsUipcStatuslbl.Text = "FSUIPC Disconn."
            FsUipcStatuslbl.BackColor = Color.Red
            ConnectToolStripMenuItem.Enabled = True
            Createfolder("reports")
            Createfolder("messages")
            Startup()
            If Checkrunaways() = 0 Then
                Createrunaways()
            End If
            If My.Settings.VaWebSite = vbNullString Then
                FrmSettings.Show()
                Exit Sub
            End If
            Createverify()
            Sendlogin()
            Sendmessage()
            Dim loginstat As String = ""
            Try
                Dim document As XmlReader = New XmlTextReader(path & "\SDAacars\messages\receive.xml")
                While (document.Read())
                    Dim type = document.NodeType
                    If (type = XmlNodeType.Element) Then
                        If (document.Name = "loginStatus") Then
                            loginstat = document.ReadInnerXml.ToString()
                        End If
                        If (document.Name = "showLights") Then
                            showLights = document.ReadInnerXml.ToString()
                        End If
                        If (document.Name = "charter") Then
                            allowCharter = document.ReadInnerXml.ToString()
                            If allowCharter = "0" Then cbCharter.Enabled = False
                        End If
                        If (document.Name = "logPause") Then
                            logPause = document.ReadInnerXml.ToString()
                        End If
                        If (document.Name = "logEngines") Then
                            logEngines = document.ReadInnerXml.ToString()
                        End If
                        If (document.Name = "selectAircraft") Then
                            allowAircraft = document.ReadInnerXml.ToString()
                        End If
                        If (document.Name = "logFuelUnit") Then
                            logFuelUnit = document.ReadInnerXml.ToString()
                        End If
                    End If
                End While
                document.Close()
            Catch ex As Exception
                MsgBox("No file has been selected", vbInformation, "Warning")
            End Try
            If loginstat = "0" Then
                StatusLblPilotId.Text = My.Settings.PilotId
                StatusLblPilotId.BackColor = Color.Red
                ToolStripStatusLabel2.BackColor = Color.Red
                FrmSettings.Show()
                Exit Sub
            End If
            If loginstat = "1" Then
                StatusLblPilotId.Text = My.Settings.PilotId
                StatusLblPilotId.BackColor = Color.GreenYellow
                ToolStripStatusLabel2.BackColor = Color.GreenYellow
                StatusLblPilotId.Font = New Font(StatusLblPilotId.Font, FontStyle.Bold)
            End If
            If allowAircraft = "1" Then
                cbCharter.Checked = True
                cbCharter.Checked = False
                comboCaircraft.Enabled = True
            End If
            'UiFunctions.Startup()
        End Sub

     

  13. Hi Paul,

     

    37 minutes ago, Paul Henty said:

    Sorry Fred, I didn't see your reply. I think you edited the post. I don't get notified of edits, only new posts.

    No problem

     ' This will calculate the distance from the player to the airports
            db.SetReferencePosition()
    Gravité	Code	Description	Projet	Fichier	Ligne	État de la suppression
    Erreur	BC30456	'SetReferencePosition' n'est pas un membre de 'AirportsDatabase'.	SDA13-09-14	M:\Projet ACARS\CAVacars Custom SKYDREAM-2.0.1.4\Forms\FrmMain.vb	515	Actif
    db.SetReferenceLocation()

     

  14. Hi Paul,

    Thanks I need to read again... p6

    issues with

    FSUIPCConnection.Open()
    FSUIPCConnection.AirportsDatabase.Load()

    Seems to lock my app simple form with correct way to connect and watch and catch ex

    Two versions of RC7 in the forums

    1) give me errors

    2) No errors but nothing in db airports

    Regards Fred

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