convertion latitude et longitude Résolu/Fermé

Question

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

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

Hxyp · Answer

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

meskasousoubiba · Answer

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

Convertion latitude et longitude

2 réponses

Discussions similaires