Visual Basic para Aplicaciones - Problemas con un Gps y el puerto serie

Life is soft - evento anual de software empresarial
 
Vista:

Problemas con un Gps y el puerto serie

Publicado por Germán (1 intervención) el 08/03/2007 12:14:58
Hola a tod@s, estoy realizando una aplicacion para monitorizar los datos de un Gps Trimble, a traves del comm1 y utilizo visual basic 6.
El problema es que no recibo los datos que deberia, y no se si estoy haciendo algo mal en cuanto alos tipos de datos se refiere.
Se supone que de los datos que reciba tengo que obtener la latidut, longitud y la hora, y almacenarlos en un archivo de texo.
De momento con el codigo que utilizo, parece que recibo datos en hexadecimal, ¿como los podria "decodificar" para poderlos leer coger los datos que necesito?
Adjunto el codigo.

Private Sub Form_Load()
txtDisplay.Text = "" 'Habilita Port
MSComm1.PortOpen = True 'Abre port
MSComm1.Output = "0" + Chr(13) 'Configura Port Como entrada
End Sub

Private Sub tmrTimer_Timer()

Dim buffer As Variant
Dim Arr() As Byte
Dim i As Integer
Dim iTemp As Integer
Dim sTemp As String
Dim strInput As String

buffer = MSComm1.Input
Arr = buffer
For i = LBound(Arr) To UBound(Arr)
iTemp = Asc(Chr$(Arr(i)))
sTemp = Hex$(iTemp)
If Len(sTemp) = 1 Then
strInput = strInput & "0" & sTemp & ""
Else
strInput = strInput & sTemp & ""
End If
txtDisplay.Text = strInput
Next

End Sub

Saludos y gracias.
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