Visual Basic - Extraer coordenadas de GPS. con Visual Basic 6.0

Hola:

Necesito hacer una aplicación en VB6.0 para extraer las coordenadas de un GPS. He visto el codigo para NET pero de NET estoy pegado. ¿Alguien puede pasarme un código para ver en pantalla las coordenadas del GPS?

Gracias.

Se me olvidaba comentar que el GPS está conectado al USB.

Saludos.

También se te olvida poner el código NET, yo me pego con NET y con cualquiera que quiera hacer GPS por la FACE.

Pues aquí lo tienes:

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
final de tabla

Para manipulación de cadenas puedes usar las funciones Left$(cadena,longitud), Right$(cadena,longitud), mid$(cadena,inicio,longitud) además de la de split().

El código de NET es similar utilizando string.split o string.substring para manipular cadenas.

Podrías indicar de donde obtienes los datos del GPS?

El texto que mandé es en NET y necesito trabajarlo en VB6.0 pero el objeto que figura en las líneas de código no existe en 6.0.

Los datos de GPS

Los datos del GPS los extraigo de una antena conectada al USB mediante un conversor a puerto serie que mi PC reconoce como COM5

como extraes los datos del gps, yo tengo lo mismo pero en el puerto 27.. y tengo rutinas que no funciona porque dice que el puerto ta denegado..... }

saludos, espero tu respuesta