Comunicación serie VB
Sigue la imagen para agregar controles, ¡puedes agregar un botón! Si agrega un botón, puede colocar el código From_Load() debajo del código del botón. Puede modificar la velocidad en baudios, etc.
Private?Sub?Form_Load()
MSComm1.Settings?=?"9600,N,8,1"?Velocidad en baudios 9600bit/s, sin paridad, datos de 8 bits, 1 bit de parada
MMSComm1.CommPort?=?1?'Establece el puerto serie, 1 significa comm1
MMSComm1.InBufferSize?=?8?'Establece el retorno para recibir El tamaño de el buffer en caracteres.
MSComm1.OutBufferSize?=?2
Si MSComm1.PortOpen?=?True?Entonces?MSComm1.PortOpen?=?False? 'Cerrar el puerto serie
MSComm1.RTreshold?=?4? Establece y devuelve el número de caracteres (en caracteres) que genera un evento de comunicación. Cuando Rthreshold? es "1", cada carácter recibido en el búfer de recepción hace que el control "MSComm" genere un evento "OnComm".
MSComm1.STreshold?=?1?'
MSComm1.InputLen?=?0?' establece el número de caracteres leídos del búfer de recepción 0 lee todo el búfer / p>
MSComm1.InputMode?=?comInputModeText?' recibe caracteres en formato de texto. InputMode?=?comInputModeText?' se recibe en formato de texto
Si MSComm1.PortOpen?=?False? entonces MSComm1.PortOpen?=?True
MSComm1.InBufferCount?=?0 ? 'Borrar el buffer de recepción
Text1.Text?=?""
End?Sub
Private?Sub?MSComm1_OnComm()
Dim?rec?As?String
Select?Case?MSComm1.CommEvent
Case?comEvReceive
rec?=?MSComm1.Input
Text1.Text?=?rec
MSComm1.InBufferCount?=?0?'¿Vaciar buffer de recepción
Fin?Select
¿Fin sub?