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

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?