recibir un byte por el puerto serie

[nacha4]

hola a todos tengo una gran duda por el puerto serie me tiene que entrar un byte el ual lo tengo que comparar con otro si son iguales hace tal cosa, todabia no compre el pic quisiera saber si esta bien el programa porque yo tengo mis dudas de que ande

Private Sub Timer1_Timer()
Dim datoentrada As String

datoentrada = MSComm1.Input
If datoentrada = "00010001" Then
 Shape8.BackColor = &HC0C0FF
 
 End If
End Sub
desde ya muchas gracias espero respuesta, si no es asi Ayuda entonces

[LordLafebre]

Hola:

Pues si esta bien, el dato que esperas es justamente este : "00010001", el shape cambiara de color

[alex22ra]

Hola

Pues si, en principio funcionaria, pero utilizar un timer no es la major opcion para recibir caracteres por puerto serie, utiliza mejor las interrupciones por recepcion del MScomm.

Saludos

[nacha4]

me podes explicar como es la interrupcion por recepcion del MScomm (un ejemplo si es posible) porque a mi tambien me parece que no va a funcionar asi