Red de conocimiento informático - Problemas con los teléfonos móviles - Comunicación por puerto serie entre VB y el microcontrolador

Comunicación por puerto serie entre VB y el 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, la configuración de la velocidad en baudios, configurar el formato de datos y abrir el puerto serie.

' 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 'Configura el puerto serie de comunicación

MSComm1.InputLen = 0 'Configura o cierra el puerto serie. PortOpen = True 'Abre el puerto serie

End Sub

Private Sub Command1_Click( )

Atenuar número como entero

Atenuar outbyte( 0) Como Byte

número = Val(170)

outbyte(0) = CByte(número)

MSComm1.Output = outbyte