Visual Basic para Aplicaciones - Extraer las coordenadas de un GPS

Life is soft - evento anual de software empresarial
   
Vista:

Extraer las coordenadas de un GPS

Publicado por Juanka Moga (1 intervención) el 15/03/2008 22:52:38
Hola a tod@s, necesitaría saber como puedo extraer las coordenadas de un GPS instalado en la misma maquina, en visual basic 6 o .net indiferente. para un software relacionado. y de paso poder introducirlas.
saludos a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Extraer las coordenadas de un GPS

Publicado por alberto (3 intervenciones) el 20/03/2008 08:52:36
Supongo que el GPS se comunica por un puerto com, si es así una vez abierto correctamente el puerto, el siguiente codigo en VBNet, a mí me funciona correctamente.

tmrGPS es un control timer.

Private s As String

Private Sub tmrGPS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrGPS.Tick
If s = "" Then Exit Sub

Dim LastSt As String = s

Dim Fields() As String

Dim Lecturas() As String
Dim Lectura As String

'Sumamos uno para asegurarnos que tenemos al menos un $
LastSt = LastSt.Substring(0, LastSt.LastIndexOf("$"))
'vaciamos la cadena original quedandonos con el último $
'TODO:
'Comprobar que s contiene lo que debería contener.
s = s.Substring(LastSt.Length)

'Cojemos las lecturas en un Array
Lecturas = LastSt.Split(search)
For Each Lectura In Lecturas
'Procesamos cada una de las lecturas
Fields = Lectura.Split(",")
Select Case Fields(0)
Case "GPGGA"
'Los indices que nos interesan, de momento son:
'1.- Hora (hhmmss.ss)
'2.- Latitud (dddmm.mmm) grados y minutos
'3.- N o S (latitud)
'4.- Longitud (dddmm.mmm) grados y minutos
'5.- E o W (longitud)
'7.- Numero de Satelites.
'9.- Altitud sobre el nivel del mar
'10.- Unidades de la altitud, deberían ser M
Me.lblTime.Text = Formatos.strTime(Fields(1))
Me.lblLatitud.Text = Fields(2)
Me.lblLat.Text = Fields(3) 'Norte (N) o Sur (S)
Me.lblLongitud.Text = Fields(4)
Me.LblLong.Text = Fields(5) 'Este (E) u Oeste (W)
Me.lblSatelites.Text = Fields(7)
Me.lblAltitud.Text = Fields(9)
Me.lblUnits.Text = Fields(10)
Conversion.ToUTM(Me.lblLatitud.Text, Me.lblLongitud.Text)

Case Else
'De momento ignoramos el resto de lecturas.
'Es posible que en un futuro queramos hacer algo con otras lecturas
'Por eso de momento usamos un SELECT CASE en ve de un IF.
End Select

Next Lectura
Me.txtLed.Visible = Not Me.txtLed.Visible

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Extraer las coordenadas de un GPS

Publicado por Carlos Azabache  (1 intervención) el 27/08/2008 01:28:24
Excelente justo lo que busco, ojala sirva de antemano gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Extraer las coordenadas de un GPS

Publicado por Alicia acantero@datamex.com.py (1 intervención) el 19/07/2011 16:21:08
Buenas, estoy buscando códigos que me sirvan para levantar las señales de gps (motorola mc75), por si acaso no saben algo de eso?
Gracias desde ya!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar