Adquisición De Datos En Un Puerto Serie

Adquisición de datos en un puerto serie (RS232)

Usted no encontrará aquí ninguna teoría sobre este modo de comunicación. Simplemente se listan las tareas que ir acompañada de un programa de ejemplo en VBA5.

Objetivo: Recoger directamente en una hoja de cálculo de Excel los valores producidos por un dispositivo externo Los métodos utilizados en el ejemplo:

• Excel97 o superior (sólo para Windows)

• VBA5 o superior

• ActiveX MSComm32.ocx (*)

• un equilibrio con salida RS232 con la documentación

• un programa de VB pequeña o VBA

(*) Este ActiveX no se proporciona con Office 2000 o una versión anterior, pero sólo con Visual Basic. Mira por primera vez en los archivos de la carpeta de sistema "EMCOM *. OCX". Si están presentes, continúe con el siguiente párrafo, o puede guardar mediante la instalación del programa ActiveX XL_RS232 (una copia gratis) La distribución contiene el archivo "pesees.xls" con el siguiente ejemplo.

Uso:

- descargar el archivo XL_RS232.ZIP

- descomprimirlo

- ejecute SETUP.EXE

- abrir el archivo "pesees.xls"

- ejecutar la macro para probar el funcionamiento

- para adaptar el programa de VBA para comunicarse con el puerto serie en el archivo "pesees.xls"

El siguiente ejemplo utiliza el puerto Com1. Es posible comunicarse con el puerto paralelo (no documentado aquí) utilizando el control ActiveXIOport.ocx (shareware) para win98 o controlar NTport.ocx NT.

________________________________________

Ejecución del programa

Es fundamental contar con la documentación para el dispositivo para conectarse a conocer la configuración del puerto serie.

programa puede ser adaptado a cualquier MS-Office97 o Visual Basic.

Desde Excel, seleccione el editor de VBA ( ALT + F11).

• Inserte un módulo

• insertar un userform

• en la ventana "Caja de herramientas", busque el icono de MSComm simbolizado por teléfono. Si no lo tiene, haga clic en el cuadro de herramientas con el botón derecho del ratón y luego haga clic en "Controles adicionales y compruebe" Control de Comunicaciones de Microsoft. "

• colocar el control en el MSComm userform

• coloque un CommandButton en el formulario de usuario

• ETIQUETA colocar un control en el formulario de usuario

• Objeto, haga doble clic CommandButton y escriba el siguiente código:

Private Sub CommandButton1_Click ()

'Limpia el buffer

MSComm1.InBufferCount = 0

'selecciona un puerto serie

MSComm1.CommPort = 1 '1 es el número de puerto que se puede cambiar 'configuración de puerto, los valores son proporcionados por el fabricante del unidad. 'Estos valores se pueden

...