Discussion :

[fridrai]

Bonjour
je suis entrain de developper une application de geolocalisation dont voici le code:
Imports System.Text
Imports Microsoft.VisualBasic
Imports System.Timers





Public Class Tracking_Theft

Private Sub butnsrchmap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butnsrchmap.Click
Try

Dim Street As String = String.Empty
Dim City As String = String.Empty
Dim Zip As String = String.Empty
Dim IMEI As Decimal = Decimal.Zero
Dim Lattitude As Decimal = Decimal.Zero
Dim Longitude As Decimal = Decimal.Zero
Dim Number_Of_Satellites As Integer = Integer.MinValue
Dim queryAdress As New StringBuilder()
queryAdress.Append("https://maps.google.com/mapps?q=")

'build street part query
If txtstreet.text <> String.Empty Then
Street = txtstreet.Text.Replace(" ", "+")
queryAdress.Append(Street + "," & "+")
End If

'build city part query
If cmbxcity.Text <> String.Empty Then
City = cmbxcity.Text.Replace(" ", "+")
queryAdress.Append(City + "," & "+")
End If

'build zip part query
If txtzip.Text <> String.Empty Then
Zip = txtzip.Text.Replace(" ", "+")
queryAdress.Append(Zip + "," & "+")
End If

'build IMEI part query
If txtimei.Text <> String.Empty Then
IMEI = txtimei.Text.Replace(" ", "+")
queryAdress.Append(IMEI + "," & "+")
End If

'build latitude part query
If txtlatitude.Text <> String.Empty Then
Lattitude = txtlatitude.Text.Replace(" ", "+")
queryAdress.Append(Lattitude + "," & "+")
End If

'build longitude part query
If txtlongitude.Text <> String.Empty Then
Longitude = txtlongitude.Text.Replace(" ", "+")
queryAdress.Append(Longitude + "," & "+")
End If

'build Number of Stellites part query
If txtnumbsat.Text <> String.Empty Then
Number_Of_Satellites = txtnumbsat.Text.Replace(" ", "+")
queryAdress.Append(Number_Of_Satellites + "," & "+")
End If

WebBrowser1.Navigate(queryAdress.ToString())


Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Unable to load the map")

End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

daylab.Text = " " & Now.ToShortDateString
timelab.Text = "" & Now.ToShortTimeString

End Sub

End Class

en l'executant je trouve un problème: ça ne me permet que d'ouvrir le navigateur gmaps sur le second splitwindow, et pour rechercher, je ne peux pas utiliser mon propre moteur de recherche: en saissant un zip code ou un nom de ville ds le split 1, ça ne mène à aucune recherche, uniquement l'ouverture du google map sur lequel je dois ajouter un mot clè
merci pour votre aide

[fridrai]

'build longitude part query

If txtlongitude.Text <> String.Empty Then
Longitude = txtlongitude.Text.Replace(" ", "+")
queryAdress.Append(Longitude & "+")
End If
deuxième suppression de virgule a mené. A un prob résolu, je me suis autoresolu, méthode

[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 [B]ddmm.mmmm/B N/S, la longitude sous format [B]dddmm.mmmm/B 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