Convertion latitude et longitude
Résolu
meskasousoubiba
Messages postés
1207
Date d'inscription
Statut
Membre
Dernière intervention
-
meskasousoubiba Messages postés 1207 Date d'inscription Statut Membre Dernière intervention -
meskasousoubiba Messages postés 1207 Date d'inscription Statut Membre Dernière intervention -
Bonsoir
je vous ai ajouté le code de conversion entre le format dms et le format dd,
pouvez vous svp vérifier les anomalies dans ce code; en l'executant et saisissant la valeur de lat et cliquant sur convertir, ça se plante
merci d'avance
je vous ai ajouté le code de conversion entre le format dms et le format dd,
pouvez vous svp vérifier les anomalies dans ce code; en l'executant et saisissant la valeur de lat et cliquant sur convertir, ça se plante
merci d'avance
Private Sub buttonconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonconvert.Click
Dim DD As String
Dim deg As String
Dim min As String
Dim sec As String
Dim dir As String
deg = (gm862lat.Text.Substring(0, 2))
min = (gm862lat.Text.Substring(2, 2))
sec = (gm862lat.Text.Split(".")(1))
dir = (gm862lat.Text.Split(",")(1))
DD.Equals(deg + ',' + min + sec)
'Negative for West
If dir = "W" Then
DD = DD * -1
txtlatitude.Text = DD
Else
'Negative for East
txtlatitude.Text = DD
End If
End Sub
2 réponses
Bonjour, jetez un oeil ici : https://en.wikipedia.org/wiki/Geographic_coordinate_conversion#Putting_it_all_together
c'est parfaitement expliqué comment faire la conversion
c'est parfaitement expliqué comment faire la conversion
c'est bob :)
Private Sub buttonconvertlong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonconvertlong.Click Dim DD, deg, min, sec As Double Dim dir As String deg = CDbl(gm862long.Text.Substring(0, 3)) min = CDbl(gm862long.Text.Substring(3, 7)) sec = min / 60 dir = CStr(gm862long.Text.Substring(11, 1)) DD = deg + sec 'Negative for West If dir = "W" Then DD = DD * -1 txtlongitude.Text = CStr(DD) ElseIf dir = "E" Then 'positive for East txtlongitude.Text = CStr(DD) End If End Sub