convertion latitude et longitude Résolu

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

Newsletters