La Red de Conocimientos Pedagógicos - Currículum vitae - Comunicación serie VB

Comunicación serie VB

Agrega controles según la imagen, ¡puedes agregar un botón! Al agregar un botón, coloque 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 9600 bits /s, sin paridad, datos de 8 bits, 1 bit de parada

MSComm1.CommPort?=?1?'Establezca el puerto serie, 1 es comm1

MSComm1.InBufferSize?= ?8?' Establece el tamaño del búfer de recepción de retorno en caracteres.

MSComm1.OutBufferSize?=?2

If?MSComm1.PortOpen?=?True?Then?MSComm1.PortOpen?=?False?'Cerrar el puerto serie

MSComm1.RTreshold?=?4?' Establece y devuelve el número de caracteres que generan eventos oncomm, en caracteres. ¿Rthreshold? es ?1. .

MSComm1.STreshold?=?1?'

MSComm1.InputLen?=?0?' Establece el número de palabras leídas del búfer de recepción y lee todo el búfer en 0

MSComm1.InputMode?=?comInputModeText?' se recibe en modo texto

If?MSComm1.PortOpen?=?False?Then?MSComm1.PortOpen?=?True

MSComm1.InBufferCount?=?0?'Borrar el búfer de recepción

Text1.Text?=?""

End?Sub

Privado ? Sub?MSComm1_OnComm()

Dim?rec?As?String

Select?Case?MSComm1.CommEvent

Case?comEvReceive

rec?=?MSComm1.Input

Text1.Text?=?rec

MSComm1.InBufferCount?=?0?'Borrar el buffer de recepción

Fin ? Seleccionar

¿Fin?Sub