Comunicación por puerto serie entre VB y el microcontrolador
'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