Jump to content
The simFlight Network Forums

Frédéric-O DUCHEMIN

Members
  • Content count

    104
  • Joined

  • Last visited

  • Days Won

    1

Frédéric-O DUCHEMIN last won the day on February 27

Frédéric-O DUCHEMIN had the most liked content!

Community Reputation

1 Neutral

About Frédéric-O DUCHEMIN

  • Rank
    Advanced Member
  • Birthday 01/04/1977

Contact Methods

  • Website URL
    http://www.skydream-airlines.com
  • Skype
    dj.fred.d

Profile Information

  • Gender
    Male
  • Location
    : LFTW (FR)
  • Interests
    ATPL Training course

Recent Profile Visitors

1,498 profile views
  1. Vb.NET Closest NAVAIDS SQlite

    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
  2. Hold PMDG Offsets

    Ok Paul Have you a concrete example with this example I can make my functions like mid-AIR refuel, PMDG Offsets, and remove timers Thanks Fred
  3. Hold PMDG Offsets

    Hi, I think you don't have read the link bellow or here: So you would be read I have offsets & function for that And my purpose it's about holding value it's calling at every FSUIPCConnection.Process() Regards Fred
  4. Hold PMDG Offsets

    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
  5. Vb.NET Closest NAVAIDS SQlite

    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
  6. FSUIPC Client DLL for .NET - Version 3 Released

    Hi Paul, Thanks you for all Regards Fred
  7. Vb.NET Closest NAVAIDS SQlite

    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
  8. Vb.NET Closest NAVAIDS SQlite

    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
  9. Vb.NET Closest NAVAIDS SQlite

    Ok Thanks Have you a way to avoid negative number to distance ? Ok Distance not good maybe try an other offset? I will post pictures after Thanks
  10. Vb.NET Closest NAVAIDS SQlite

    Nope I use GTN 750 & 650 return ID but 0NM Yes flight plan it's active into GTN P3DV4.zip
  11. Vb.NET Closest NAVAIDS SQlite

    Shame on me FrmMain.txtSurface.Text = Math.Round(gps_distance.Value() / 1852, 0) return 0
  12. Vb.NET Closest NAVAIDS SQlite

    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é
  13. Vb.NET Closest NAVAIDS SQlite

    Try your conversion table 60EC 8 GPS: Distance to next waypoint, floating point double, in metres 8 (Specified as FLOAT64)System.Double Double Double I Have convert to : Dim gps_distance As Offset(Of Double) = New Offset(Of Double)(&H60EC) So now conversion in NM rounded ?
  14. Vb.NET Closest NAVAIDS SQlite

    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
  15. Vb.NET Closest NAVAIDS SQlite

    Hi Paul, 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()
×