Recepción del puerto serie VB

Private Sub MSComm 1_on com()

Rec = StrReverse(MSComm1.input)

i = instrumento(registro, "G")

Si tengo gt0 entonces Resp = Mid(Rec, i 1, 6): Ir aaa

j = Instrument(Rec, "M")

Si j lt gt0 entonces Resp = Mid(Rec ,j 1,6)

aaa:

Etiqueta1. Caption = Val(StrReverse(Resp))

Conector final