Programación VB6.0 ¿Entrenamiento en comunicación serial RS-232?
Esto se puede lograr con un control MSComm.
La siguiente es una implementación de programa para la comunicación serial entre una computadora y un módulo de adquisición inteligente usando el control MSComm de VB6.0 bajo Win2000. En el campo del control industrial, el módulo de adquisición inteligente juega un papel muy importante. Puede conectarse a la PC a través del protocolo de comunicación en serie (RS232, RS485, etc.) u otros protocolos de comunicación, y conectarse directamente al externo. señales del sitio o al mundo externo convertidas por el sensor. Las señales están conectadas y controladas por el programa en la PC para recopilar señales analógicas en el sitio, procesar las señales en el sitio recopiladas y emitir señales de control analógicas, cambiar la entrada y la salida y. otras funciones. Por tanto, los módulos de adquisición inteligentes tienen aplicaciones extremadamente amplias en el campo del control industrial. Cuando el módulo de adquisición inteligente en este ejemplo se comunica con la computadora, utiliza un bit de inicio, un bit de parada, 7 bits de datos, modo de verificación uniforme y la velocidad en baudios es de 9600 bps.
(1) Agregue un Control MSComm denominado MyComm en el formulario y establezca las propiedades del espacio de la siguiente manera:
.CommPort=2 'Usar COM2
.Setting="9600,e,7,1" 'Velocidad de baudios 9600, paridad par, 7 bits de datos, 1 bit de parada
.InBufferSize=40 'Establece el búfer de recepción MyComm en 40 bytes
.OutBufferSize=2 'Establece MyComm búfer de envío a 2 bytes
.InputMode=comInputModeBinary
'Establece el modo de recepción de datos en modo binario
InputLen=1 'Establece el número de bytes leídos. desde el buffer de recepción a la vez a 1
.Sthreshold=1 'Establece el número de bytes leídos del buffer de envío a la vez a 1
PortOpen=True 'Abre el. puerto de comunicación
' Se omiten otras configuraciones de atributos
(2) El siguiente es el controlador que responde al evento Mycomm_OnComm. El controlador para la recopilación de bases de datos adopta el método controlado por eventos MSComm.
Sub privada MyComm_OnComm()
Con MyComm
Seleccionar caso .CommEvent
Caso .comEvReceive
' Recibir datos
'Procesar datos
caso .comEVSend
'Enviar datos
caso .comEventRxParity
' Manejar errores de paridad
end select
end with
end sub