Comunicación serie VB y microcontrolador

El siguiente es un programa de prueba que hice:

'TextReceive =

' Programa de inicialización: completa principalmente la configuración del puerto serie, incluida la selección del puerto serie. puerto y configurar la velocidad de bits, configurar el formato de datos, abrir el puerto serie, etc.

' Nota: Antes de iniciar el programa, se deben borrar los buffers de envío y recepción para evitar errores.

Private Sub Form_Load()

MSComm1.Settings = "9600,n,8,1" 'Establece la velocidad en baudios y el formato de caracteres de envío

MSComm1. CommPort = 1 'Establece el puerto serie de comunicación

MSComm1.InputLen = 0 'Establece o devuelve el número de bytes leídos del búfer de recepción a la vez, 0 significa leer todos los datos a la vez

MSComm1 .InBufferSize = 2 'Establece el búfer de recepción 2Byte

MSComm1.InBufferCount = 0

MSComm1.OutBufferSize = 2 'Establece el búfer de envío 2Byte

MSComm1.OutBufferCount = 0

MSComm1.RTreshold = 1 ' Cada carácter en el búfer de recepción desencadena un evento de recepción

MSComm1.STreshold = 1

MSComm1. InputMode = comInputModeBinary 'Usar transmisión binaria

MSComm1.PortOpen = True 'Abrir el puerto serie

End Sub

Private Sub Command1_Click()

Número atenuado como entero

Dim outbyte(0) como byte

número = Val(170)

outbyte(0) = CByte(número)

MSComm1.Output = outbyte

Etiqueta4 = outbyte(0)

Imprimir outbyte(0)

End Sub