Procesamiento de recepción de comunicación serie VB. Gracias.

Para crear un nuevo proyecto de VB, seleccione el elemento Componentes del menú Proyecto y selecciónelo frente al componente Microsoft Comm Control 6.0. Hay un control MSCOMM en la caja de herramientas de VB, que se agrega al formulario. El siguiente código puede recibir datos binarios y tratarlos como una cadena binaria de 16 para mostrar los datos.

Opción explícita

Dim inData como cadena

Dim () como bytes

Subformulario privado_Load ()

MSComm1. Configuración = "9600, n, 8, 1 "

MSComm1. RTreshold = 1

MSComm1. Recepción binaria "InputMode=cominputModebinary"

MSComm1. PortOpen = True

Conector final

Private Sub MSComm 1 _ on com()

Dim intInputLen es un número entero

Marcar I como Entero

Seleccione el caso MSComm1. CommEvent

Aceptación de casos

Agregue código para manejar recibos aquí.

intInputLen = MSComm1. En el búfer

ReDim a(intInputLen)

a = MSComm1. Entrada

Para i = 0 al límite inferior (a)

Si Len(Hex(a(i))) = 1, entonces

inData = inData amp0 amp; hexadecimal (uno)

Otro

inData = inData amp hexadecimal (uno)

Terminará si...

Entonces

Text2 = inData

Finalizar selección

Finalizar conector