Load DTC data from text

[Colmillo]

Hi everyone
There is an excellent MOD created to load data into the F-16:

https://www.digitalcombatsimulator.com/en/files/3314974/

I've tried to modify it to use it on the JF-17, but I end up with this script that I have no idea how to modify:

Spoiler

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Web.Script.Serialization
Imports System.Xml
Imports System.Xml.Serialization

Public Class VAInline

    Public Sub Main()
    
        ' Set the directory locations that we want to search in
        Dim dir_locations = {
        Environ$("USERPROFILE")+"\Saved Games\DCS.openbeta\Datatape", 
        Environ$("USERPROFILE")+"\Saved Games\DCS\Datatape", 
        "C:\Program Files (x86)\VoiceAttack\Datatape"
        }
        
        ' directory and file related variables
        Dim dir_found as Boolean = false
        Dim datatape_dir as String    
        Dim dir_loc as integer = 0
        
        Dim file_found as Boolean = false
        Dim xml_file_found as Boolean = false
        Dim datatape_file as string
        
        Dim file_code as string
        
        Dim pos as integer = 2
        Dim current_pos as string
        
        ' Clear all variabls firs
        while pos < 101
            VA.SetText("waypoint_"+pos.toString(), nothing)
            VA.SetText("latitude_"+pos.toString(), nothing)
            VA.SetText("longitude_"+pos.toString(), nothing)
            VA.SetText("altitude_"+pos.toString(), nothing)
            pos = pos + 1
        end while
        
        pos = 2
        
        
        ' Look for the available directories and pick the one that works the best based on the order within the list
        while dir_found = false and dir_loc < dir_locations.length
            
            If Directory.Exists(dir_locations(dir_loc)) Then
                dir_found = true
                datatape_dir = dir_locations(dir_loc)
                VA.WriteToLog("Reading data from directory: "+datatape_dir, "blue")
            End If
            dir_loc = dir_loc + 1
            
        end while
        
        ' If no directory was found, then it needs to be created/fixed. Output some insturctions on how to do so.
        If dir_found = false then
            If file_code <> nothing then
                VA.WriteToLog("Advanced File Format: datatape_"+file_code+"_<ANYTHING_YOU_WANT_HERE>.txt", "red")
            Else
                VA.WriteToLog("Advanced File Format: datatape_alpha_<ANYTHING_YOU_WANT_HERE>.txt", "red")
            End If
            VA.WriteToLog("Basic File Format: datatape.txt", "red")
            VA.WriteToLog("File name must match one of the following formats:", "red")
            VA.WriteToLog(dir_locations(2), "red")
            VA.WriteToLog(dir_locations(1), "red")
            VA.WriteToLog(dir_locations(0), "red")    
            VA.WriteToLog("In order for datatape to run, you need to create a datatape file in one of the following locations:", "red")    
            VA.WriteToLog("Could not locate data file in directory: "+datatape_dir, "red")
            return
        End If
        
        ' If there is a file code like alpha, bravo, etc then we need to load it in now and flush the variable after
        file_code = VA.GetText("file_code")
        VA.SetText("file_code", nothing)
        
        ' If there is no file code then just load the old style datatape.txt file. Otherwise load one of the new style
        ' Prefer XML files and fall back to TXT files
        If file_code = "" then
            If File.exists(datatape_dir + "\datatape.xml") then
                datatape_file = datatape_dir + "\datatape.xml"
                file_found = true
                xml_file_found = true
            Else
                If File.exists(datatape_dir + "\datatape.txt") then
                    datatape_file = datatape_dir + "\datatape.txt"
                    file_found = true
                End If
            End If
        Else
            datatape_file = Dir(datatape_dir + "\datatape_" + file_code + "*.xml")
            If datatape_file <> "" then
                datatape_file = datatape_dir + "\" + datatape_file
                file_found = true
                xml_file_found = true
            Else 
                datatape_file = Dir(datatape_dir + "\datatape_" + file_code + "*.txt")
                If datatape_file <> "" then
                    datatape_file = datatape_dir + "\" + datatape_file
                    file_found = true
                End If
            End If 
        End If
        
        ' No files were found and this is bad. Show instructions on what to do. 
        If file_found = false then
            If file_code <> nothing then
                VA.WriteToLog("Advanced File Format: datatape_"+file_code+"_<ANYTHING_YOU_WANT_HERE>.txt", "red")
            Else
                VA.WriteToLog("Advanced File Format: datatape_alpha_<ANYTHING_YOU_WANT_HERE>.txt", "red")
            End If
            VA.WriteToLog("Basic File Format: datatape.txt", "red")
            VA.WriteToLog("File name must match one of the following formats:", "red")
            VA.WriteToLog("Could not locate compatible datatape file", "red")
            return
        End If
            
        ' Main loop. Read the file, trim some fat, and get it plugged into vars    
        VA.WriteToLog("Reading from datatape file: "+ datatape_file, "blue")
        
        ' Run a dIfferent loop for XML files.
        
        If xml_file_found = true then
        
            Dim doc As New XmlDocument()
            doc.Load(datatape_file)
            Dim xml As String = File.ReadAllText(datatape_file)
        
            Dim stpt as integer = 1
            
            Dim sSerialize As Serializer = New Serializer()
            
            Dim objects As Objects = sSerialize.Deserialize(Of Objects)(xml)
            
            
            
            For Each xml_waypoint As Waypoint In objects.Waypoints
                If stpt > 1 then                                            
                        Dim formatted_lat as decimal = Math.Round(xml_waypoint.position.latitude, 6, MidpointRounding.AwayFromZero)
                        Dim formatted_lng as decimal = Math.Round(xml_waypoint.position.longitude, 6, MidpointRounding.AwayFromZero)
                                    
                        Dim latitude as string = ConvertLatToDM(formatted_lat)
                        Dim longitude as string = ConvertLongToDM(formatted_lng)
                        Dim waypoint as string = stpt
                        Dim altitude as string = ConvertMetersToFeet(xml_waypoint.position.altitude)
                        ' Write to logs and set the variables
                        VA.WriteToLog("loading waypoint from file: "+ waypoint + " " + latitude + " " + longitude + " " + altitude, "blue")
                        VA.SetText("waypoint_"+waypoint, waypoint)
                        VA.SetText("latitude_"+waypoint, latitude)
                        VA.SetText("longitude_"+waypoint, longitude)
                        VA.SetText("altitude_"+waypoint, altitude)
                End if
                stpt = stpt + 1
            Next
                

                                                
            'For Each item As Dictionary(Of String, Object) In data("drawings")
            '
            '    If item("type") = "circle" then
            '        If stpt > 1 then 
            '            VA.WriteToLog("Auto Loading Steerpoint "+stpt.toString()+"- " + item("name"), "green")
            '            
            '            Dim lat as decimal = item("center_y")
            '            Dim formatted_lat as decimal = Math.Round(lat, 6, MidpointRounding.AwayFromZero)
            '            
            '            Dim lng as decimal = item("center_x")
            '            Dim formatted_lng as decimal = Math.Round(lng, 6, MidpointRounding.AwayFromZero)
            '                        
            '            Dim latitude as string = ConvertLatToDM(formatted_lat)
            '            Dim longitude as string = ConvertLongToDM(formatted_lng)
            '            Dim waypoint as string = stpt
            '            Dim altitude as string = "0"
            '            ' Write to logs and set the variables
            '            VA.SetText("waypoint_"+waypoint, waypoint)
            '            VA.SetText("latitude_"+waypoint, latitude)
            '            VA.SetText("longitude_"+waypoint, longitude)
            '            VA.SetText("altitude_"+waypoint, altitude)
            '        End If
            '        stpt = stpt + 1
            '        
            '    End If
            '
            'Next
            
        
        Else 
            for each line as string in File.ReadLines(datatape_file)
            
                ' We can comment out lines by prepending a # 
                If line.contains("#") = false then
                
                    ' Trim out any comments within [BRACKETS] 
                    line = Regex.replace(line, "\s?\[(.*)\]", "")
            
                    Dim rowdata As String() = line.Split(New Char() {":"c})

                    If rowdata(0) <> "1" Then
                    
                        ' Just in case there are typos, trim them out 
                        line = trim(line)
                        
                        line = Regex.Replace(line, " {2,}", " ")
                        line = line.replace("'","").replace(":","").replace("""", "").replace("FT","").replace("/", " ").replace("\", " ")
                    
                        Dim values As String() = line.Split(New Char() {" "c})
                        If values.length = 4 Then
                        
                            ' Lots of sanity checking going on here
                            Dim waypoint as string = values(0)
                            Dim latitude as string = values(1)
                            Dim longitude as string = values(2)
                            Dim altitude as string = values(3)
                            
                            Dim latitude_parts As String() = latitude.Split(New Char() {"."c})
                            Dim longitude_parts As String() = longitude.Split(New Char() {"."c})
                            
                            Dim latitude_hm as String = latitude_parts(0)
                            Dim latitude_sec as String = latitude_parts(1)
                            
                            Dim longitude_hm as String = longitude_parts(0)
                            Dim longitude_sec as String = longitude_parts(1)
                            
                            ' We need to verIfy the right data is in the E/W coordinates
                            If longitude_parts.contains("E0") = False And longitude_parts.contains("W0") = False And longitude_hm.length <> 6 Then
                                longitude = longitude.replace("E", "E0").replace("W","W0")
                            End If
                            
                            ' Replace NSEW with numbers 
                            latitude = latitude.replace("N","2").replace("S","8").replace(".", "")
                            longitude = longitude.replace("E","6").replace("W","4").replace(".", "")
                            altitude = altitude.replace(",","")
                            
                            ' Append zeroes to any values shorter than required
                            while latitude.length < 8
                                latitude = latitude + "0"
                            end while
                            
                            while longitude.length < 9
                                longitude = longitude + "0"
                            end while
                            
                            ' Write to logs and set the variables
                            VA.WriteToLog("loading waypoint from file: "+ waypoint + " " + latitude + " " + longitude + " " + altitude, "blue")
                            VA.SetText("waypoint_"+waypoint, waypoint)
                            VA.SetText("latitude_"+waypoint, latitude)
                            VA.SetText("longitude_"+waypoint, longitude)
                            VA.SetText("altitude_"+waypoint, altitude)
                        End If
                        
                        ' increment position for later
                        pos = pos + 1
                        
                    End If
                End If
            Next
        End If
    End Sub
    
    Function ConvertMetersToFeet(ByVal mm As decimal) As string
    
        
        Dim result as decimal = Math.Round(mm * 3.28084)        
        Dim feet as integer = Math.Truncate(result)
        
        ConvertMetersToFeet = feet.toString
        
    End Function
        
    
    Function ConvertLatToDM(ByVal dd As decimal) As string
        
        Dim result as string = ""
        Dim deg as integer = Math.Truncate(dd)
        Dim fraction as decimal = Math.Abs(dd) - Math.Abs(deg)        
        
        If deg > 0 then
                result = "2"
        Else    
                deg = Math.Abs(deg)
                result = "8"
                
        End If
        
        result = result + deg.toString()
        
        Dim minutes as decimal = fraction * 60
        minutes = Math.Round(minutes, 3, MidpointRounding.AwayFromZero)
        If minutes < 10 then
            result = result + "0"
        End If
        
        minutes = Math.Round(minutes*1000, 0, MidpointRounding.AwayFromZero)
        
        ConvertLatToDM = result + minutes.toString()
    End Function
    
    Function ConvertLongToDM(ByVal dd As decimal) As string
    
        Dim result as string = ""
        Dim deg as integer = Math.Truncate(dd)
        Dim fraction as decimal = Math.Abs(dd) - Math.Abs(deg)    
    
        If deg > 0 then
                result = "6"
        Else    
                deg = Math.Abs(deg)
                result = "4"
        End If    
        
        If deg < 100 then
            result = result + "0"
        End If
                
        result = result + deg.toString()
        
        Dim minutes as decimal = fraction * 60
        minutes = Math.Round(minutes, 3, MidpointRounding.AwayFromZero)
        If minutes < 10 then
            result = result + "0"
        End If
        
        minutes = Math.Round(minutes*1000, 0, MidpointRounding.AwayFromZero)
        
        ConvertLongToDM = result + minutes.toString()
    End Function

End Class

Public Class Objects
 
   Public Property Waypoints As List(Of Waypoint)
 
End Class

Public Class Waypoint
 
   Public Property Name As String
   Public Property Position As Position
 
End Class

Public Class Position
 
   Public Property Latitude As decimal
   Public Property Longitude As decimal
   Public Property Altitude As decimal
 
End Class

Public Class Serializer
   Public Function Deserialize(Of T As Class) _
         (ByVal input As String) As T
 
      Dim ser As XmlSerializer = New XmlSerializer(GetType(T))
 
      Using sr As StringReader = New StringReader(input)
 
         Return CType(ser.Deserialize(sr), T)
 
      End Using
 
   End Function
 
   Public Function Serialize(Of T)(ByVal ObjectToSerialize As T) _ 
   As String
 
      Dim xmlSerializer As XmlSerializer = New XmlSerializer(ObjectToSerialize.[GetType]())
 
      Using textWriter As StringWriter = New StringWriter()
 
         xmlSerializer.Serialize(textWriter, ObjectToSerialize)
 
         Return textWriter.ToString()
 
      End Using
 
   End Function
 
End Class

 

There is probably an experienced user who understands it and we can use it on the Jeff. (After consultation with the creator of the original)

Cheers

[Pede]

On 11/12/2022 at 8:51 AM, Colmillo said:

Hi everyone
There is an excellent MOD created to load data into the F-16:

https://www.digitalcombatsimulator.com/en/files/3314974/

I've tried to modify it to use it on the JF-17, but I end up with this script that I have no idea how to modify:

  Reveal hidden contents

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Web.Script.Serialization
Imports System.Xml
Imports System.Xml.Serialization

Public Class VAInline

    Public Sub Main()
    
        ' Set the directory locations that we want to search in
        Dim dir_locations = {
        Environ$("USERPROFILE")+"\Saved Games\DCS.openbeta\Datatape", 
        Environ$("USERPROFILE")+"\Saved Games\DCS\Datatape", 
        "C:\Program Files (x86)\VoiceAttack\Datatape"
        }
        
        ' directory and file related variables
        Dim dir_found as Boolean = false
        Dim datatape_dir as String    
        Dim dir_loc as integer = 0
        
        Dim file_found as Boolean = false
        Dim xml_file_found as Boolean = false
        Dim datatape_file as string
        
        Dim file_code as string
        
        Dim pos as integer = 2
        Dim current_pos as string
        
        ' Clear all variabls firs
        while pos < 101
            VA.SetText("waypoint_"+pos.toString(), nothing)
            VA.SetText("latitude_"+pos.toString(), nothing)
            VA.SetText("longitude_"+pos.toString(), nothing)
            VA.SetText("altitude_"+pos.toString(), nothing)
            pos = pos + 1
        end while
        
        pos = 2
        
        
        ' Look for the available directories and pick the one that works the best based on the order within the list
        while dir_found = false and dir_loc < dir_locations.length
            
            If Directory.Exists(dir_locations(dir_loc)) Then
                dir_found = true
                datatape_dir = dir_locations(dir_loc)
                VA.WriteToLog("Reading data from directory: "+datatape_dir, "blue")
            End If
            dir_loc = dir_loc + 1
            
        end while
        
        ' If no directory was found, then it needs to be created/fixed. Output some insturctions on how to do so.
        If dir_found = false then
            If file_code <> nothing then
                VA.WriteToLog("Advanced File Format: datatape_"+file_code+"_<ANYTHING_YOU_WANT_HERE>.txt", "red")
            Else
                VA.WriteToLog("Advanced File Format: datatape_alpha_<ANYTHING_YOU_WANT_HERE>.txt", "red")
            End If
            VA.WriteToLog("Basic File Format: datatape.txt", "red")
            VA.WriteToLog("File name must match one of the following formats:", "red")
            VA.WriteToLog(dir_locations(2), "red")
            VA.WriteToLog(dir_locations(1), "red")
            VA.WriteToLog(dir_locations(0), "red")    
            VA.WriteToLog("In order for datatape to run, you need to create a datatape file in one of the following locations:", "red")    
            VA.WriteToLog("Could not locate data file in directory: "+datatape_dir, "red")
            return
        End If
        
        ' If there is a file code like alpha, bravo, etc then we need to load it in now and flush the variable after
        file_code = VA.GetText("file_code")
        VA.SetText("file_code", nothing)
        
        ' If there is no file code then just load the old style datatape.txt file. Otherwise load one of the new style
        ' Prefer XML files and fall back to TXT files
        If file_code = "" then
            If File.exists(datatape_dir + "\datatape.xml") then
                datatape_file = datatape_dir + "\datatape.xml"
                file_found = true
                xml_file_found = true
            Else
                If File.exists(datatape_dir + "\datatape.txt") then
                    datatape_file = datatape_dir + "\datatape.txt"
                    file_found = true
                End If
            End If
        Else
            datatape_file = Dir(datatape_dir + "\datatape_" + file_code + "*.xml")
            If datatape_file <> "" then
                datatape_file = datatape_dir + "\" + datatape_file
                file_found = true
                xml_file_found = true
            Else 
                datatape_file = Dir(datatape_dir + "\datatape_" + file_code + "*.txt")
                If datatape_file <> "" then
                    datatape_file = datatape_dir + "\" + datatape_file
                    file_found = true
                End If
            End If 
        End If
        
        ' No files were found and this is bad. Show instructions on what to do. 
        If file_found = false then
            If file_code <> nothing then
                VA.WriteToLog("Advanced File Format: datatape_"+file_code+"_<ANYTHING_YOU_WANT_HERE>.txt", "red")
            Else
                VA.WriteToLog("Advanced File Format: datatape_alpha_<ANYTHING_YOU_WANT_HERE>.txt", "red")
            End If
            VA.WriteToLog("Basic File Format: datatape.txt", "red")
            VA.WriteToLog("File name must match one of the following formats:", "red")
            VA.WriteToLog("Could not locate compatible datatape file", "red")
            return
        End If
            
        ' Main loop. Read the file, trim some fat, and get it plugged into vars    
        VA.WriteToLog("Reading from datatape file: "+ datatape_file, "blue")
        
        ' Run a dIfferent loop for XML files.
        
        If xml_file_found = true then
        
            Dim doc As New XmlDocument()
            doc.Load(datatape_file)
            Dim xml As String = File.ReadAllText(datatape_file)
        
            Dim stpt as integer = 1
            
            Dim sSerialize As Serializer = New Serializer()
            
            Dim objects As Objects = sSerialize.Deserialize(Of Objects)(xml)
            
            
            
            For Each xml_waypoint As Waypoint In objects.Waypoints
                If stpt > 1 then                                            
                        Dim formatted_lat as decimal = Math.Round(xml_waypoint.position.latitude, 6, MidpointRounding.AwayFromZero)
                        Dim formatted_lng as decimal = Math.Round(xml_waypoint.position.longitude, 6, MidpointRounding.AwayFromZero)
                                    
                        Dim latitude as string = ConvertLatToDM(formatted_lat)
                        Dim longitude as string = ConvertLongToDM(formatted_lng)
                        Dim waypoint as string = stpt
                        Dim altitude as string = ConvertMetersToFeet(xml_waypoint.position.altitude)
                        ' Write to logs and set the variables
                        VA.WriteToLog("loading waypoint from file: "+ waypoint + " " + latitude + " " + longitude + " " + altitude, "blue")
                        VA.SetText("waypoint_"+waypoint, waypoint)
                        VA.SetText("latitude_"+waypoint, latitude)
                        VA.SetText("longitude_"+waypoint, longitude)
                        VA.SetText("altitude_"+waypoint, altitude)
                End if
                stpt = stpt + 1
            Next
                

                                                
            'For Each item As Dictionary(Of String, Object) In data("drawings")
            '
            '    If item("type") = "circle" then
            '        If stpt > 1 then 
            '            VA.WriteToLog("Auto Loading Steerpoint "+stpt.toString()+"- " + item("name"), "green")
            '            
            '            Dim lat as decimal = item("center_y")
            '            Dim formatted_lat as decimal = Math.Round(lat, 6, MidpointRounding.AwayFromZero)
            '            
            '            Dim lng as decimal = item("center_x")
            '            Dim formatted_lng as decimal = Math.Round(lng, 6, MidpointRounding.AwayFromZero)
            '                        
            '            Dim latitude as string = ConvertLatToDM(formatted_lat)
            '            Dim longitude as string = ConvertLongToDM(formatted_lng)
            '            Dim waypoint as string = stpt
            '            Dim altitude as string = "0"
            '            ' Write to logs and set the variables
            '            VA.SetText("waypoint_"+waypoint, waypoint)
            '            VA.SetText("latitude_"+waypoint, latitude)
            '            VA.SetText("longitude_"+waypoint, longitude)
            '            VA.SetText("altitude_"+waypoint, altitude)
            '        End If
            '        stpt = stpt + 1
            '        
            '    End If
            '
            'Next
            
        
        Else 
            for each line as string in File.ReadLines(datatape_file)
            
                ' We can comment out lines by prepending a # 
                If line.contains("#") = false then
                
                    ' Trim out any comments within [BRACKETS] 
                    line = Regex.replace(line, "\s?\[(.*)\]", "")
            
                    Dim rowdata As String() = line.Split(New Char() {":"c})

                    If rowdata(0) <> "1" Then
                    
                        ' Just in case there are typos, trim them out 
                        line = trim(line)
                        
                        line = Regex.Replace(line, " {2,}", " ")
                        line = line.replace("'","").replace(":","").replace("""", "").replace("FT","").replace("/", " ").replace("\", " ")
                    
                        Dim values As String() = line.Split(New Char() {" "c})
                        If values.length = 4 Then
                        
                            ' Lots of sanity checking going on here
                            Dim waypoint as string = values(0)
                            Dim latitude as string = values(1)
                            Dim longitude as string = values(2)
                            Dim altitude as string = values(3)
                            
                            Dim latitude_parts As String() = latitude.Split(New Char() {"."c})
                            Dim longitude_parts As String() = longitude.Split(New Char() {"."c})
                            
                            Dim latitude_hm as String = latitude_parts(0)
                            Dim latitude_sec as String = latitude_parts(1)
                            
                            Dim longitude_hm as String = longitude_parts(0)
                            Dim longitude_sec as String = longitude_parts(1)
                            
                            ' We need to verIfy the right data is in the E/W coordinates
                            If longitude_parts.contains("E0") = False And longitude_parts.contains("W0") = False And longitude_hm.length <> 6 Then
                                longitude = longitude.replace("E", "E0").replace("W","W0")
                            End If
                            
                            ' Replace NSEW with numbers 
                            latitude = latitude.replace("N","2").replace("S","8").replace(".", "")
                            longitude = longitude.replace("E","6").replace("W","4").replace(".", "")
                            altitude = altitude.replace(",","")
                            
                            ' Append zeroes to any values shorter than required
                            while latitude.length < 8
                                latitude = latitude + "0"
                            end while
                            
                            while longitude.length < 9
                                longitude = longitude + "0"
                            end while
                            
                            ' Write to logs and set the variables
                            VA.WriteToLog("loading waypoint from file: "+ waypoint + " " + latitude + " " + longitude + " " + altitude, "blue")
                            VA.SetText("waypoint_"+waypoint, waypoint)
                            VA.SetText("latitude_"+waypoint, latitude)
                            VA.SetText("longitude_"+waypoint, longitude)
                            VA.SetText("altitude_"+waypoint, altitude)
                        End If
                        
                        ' increment position for later
                        pos = pos + 1
                        
                    End If
                End If
            Next
        End If
    End Sub
    
    Function ConvertMetersToFeet(ByVal mm As decimal) As string
    
        
        Dim result as decimal = Math.Round(mm * 3.28084)        
        Dim feet as integer = Math.Truncate(result)
        
        ConvertMetersToFeet = feet.toString
        
    End Function
        
    
    Function ConvertLatToDM(ByVal dd As decimal) As string
        
        Dim result as string = ""
        Dim deg as integer = Math.Truncate(dd)
        Dim fraction as decimal = Math.Abs(dd) - Math.Abs(deg)        
        
        If deg > 0 then
                result = "2"
        Else    
                deg = Math.Abs(deg)
                result = "8"
                
        End If
        
        result = result + deg.toString()
        
        Dim minutes as decimal = fraction * 60
        minutes = Math.Round(minutes, 3, MidpointRounding.AwayFromZero)
        If minutes < 10 then
            result = result + "0"
        End If
        
        minutes = Math.Round(minutes*1000, 0, MidpointRounding.AwayFromZero)
        
        ConvertLatToDM = result + minutes.toString()
    End Function
    
    Function ConvertLongToDM(ByVal dd As decimal) As string
    
        Dim result as string = ""
        Dim deg as integer = Math.Truncate(dd)
        Dim fraction as decimal = Math.Abs(dd) - Math.Abs(deg)    
    
        If deg > 0 then
                result = "6"
        Else    
                deg = Math.Abs(deg)
                result = "4"
        End If    
        
        If deg < 100 then
            result = result + "0"
        End If
                
        result = result + deg.toString()
        
        Dim minutes as decimal = fraction * 60
        minutes = Math.Round(minutes, 3, MidpointRounding.AwayFromZero)
        If minutes < 10 then
            result = result + "0"
        End If
        
        minutes = Math.Round(minutes*1000, 0, MidpointRounding.AwayFromZero)
        
        ConvertLongToDM = result + minutes.toString()
    End Function

End Class

Public Class Objects
 
   Public Property Waypoints As List(Of Waypoint)
 
End Class

Public Class Waypoint
 
   Public Property Name As String
   Public Property Position As Position
 
End Class

Public Class Position
 
   Public Property Latitude As decimal
   Public Property Longitude As decimal
   Public Property Altitude As decimal
 
End Class

Public Class Serializer
   Public Function Deserialize(Of T As Class) _
         (ByVal input As String) As T
 
      Dim ser As XmlSerializer = New XmlSerializer(GetType(T))
 
      Using sr As StringReader = New StringReader(input)
 
         Return CType(ser.Deserialize(sr), T)
 
      End Using
 
   End Function
 
   Public Function Serialize(Of T)(ByVal ObjectToSerialize As T) _ 
   As String
 
      Dim xmlSerializer As XmlSerializer = New XmlSerializer(ObjectToSerialize.[GetType]())
 
      Using textWriter As StringWriter = New StringWriter()
 
         xmlSerializer.Serialize(textWriter, ObjectToSerialize)
 
         Return textWriter.ToString()
 
      End Using
 
   End Function
 
End Class

 

There is probably an experienced user who understands it and we can use it on the Jeff. (After consultation with the creator of the original)

Cheers

Out of curiosity why would you need this? The Jf17's DTM can load data directly from the F10 map which imo is dramatically simpler than manually entering the coordinates?

[Napillo]

8 hours ago, Pede said:

Out of curiosity why would you need this? The Jf17's DTM can load data directly from the F10 map which imo is dramatically simpler than manually entering the coordinates?

some servers, you don't see all the enemy ground units, so having someone plan a mission for you, giving you a DTC with the coordinates pre-loaded helps. It can also be used like the viggen where you can pinpoint ground radars by collecting the data from flybys and end up intersecting the lines.

[Floydii]

On 11/15/2022 at 5:38 AM, Pede said:

Out of curiosity why would you need this? The Jf17's DTM can load data directly from the F10 map which imo is dramatically simpler than manually entering the coordinates?

If you're staring from scratch, that's a fair assumption, however the DCS DTC allows you to save the coord and other settings that can be reloaded and shared with a couple of mouse clicks. 

[Colmillo]

I found this:

https://github.com/KaruptsockTheRealOne/DCS-DTC-JF17

It works perfectly, only to load waypoints, don't try for the rest of the functions, I'm looking at the way to improve it.

cheers!!