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