Discussion :

[fridrai]

comme je le résume ds le titre j'ai développé une application de géolocalisation avec vb.net, mysql, la géolocalisation est faite via le module gm862-gps grace à la commande $GPSACP qui donne comme résultat l'envoie d'un sms qui contient l'horaire utc sous format hh:mm:ss.sss, la lattitude sous format ddmm.mmmm N/S, la longitude sous format dddmm.mmmm E/W..........
j'ai créé une interface windows form en la divisant en 2 split containers: 1er pour saisir les mots clés de recherche, et le deuxième qui affiche le google map comme réponse à la recherche par lattitude et longitude, et c'est la que je pose ma question:
j'ai défini deux zones de texte pour lat et un bouton convert, deux zones de texte pour long et un bouton convert en visant à convertir les valeur données par gm862-gps de ddmm.mmmm en un nbre réèl puis cliquer sur search pour trouver le mapping des lat et long saisies: si je saisie le format réel sans conversion le mapping marche, alors comment devrais je faire pour convertir ce format en un nombre réel? merci d'avance

[fridrai]

personne ne m'a aidé, mais j'aide d'autres personnes qui poseraient la même question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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