none
Pregunta Puerto Serie para PepLLuis RRS feed

  • Pregunta

  • Hola, hace tiempo te comoente un problema que tenia con visual basic 6, un Gps Trimble y el puerto serie.

    He conse guido recibir los datos, ya no me aparecen simbolos raros, pero no es lo que deberia de aparecer.

    Utilizo el siguiente codigo, y aparecen numeros pero no se acumulan, es decir, aparecen los primeros y al poco los siguientes, pero en vez de mantenerse los anteriores, son "machacados" por los nuevos.

    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

    'Select

    'Case MSComm1.CommmEvent
    'Case comEvReceive
    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

    ¿Como podria hacer para que se me mantengan todos, pasarlos a decimal y almacenarlos en un archivo de texto?

    Saludos y gracias.

    jueves, 8 de marzo de 2007 11:13

Todas las respuestas

  • Hola German,
    Uff!
    Acabo de ver este post. Al moverlo de forum no llegue a leerlo.

    Si aun necesitas respuesta no dudes en continuar esta conversacion.
    Lo siento :-(
    Pep Lluis,
    MVP - Visual Developer
    miércoles, 26 de agosto de 2009 9:52
    Moderador