Control puerto paralelo Gambas

Control puerto paralelo Gambas: Es un programa para encender y apagar los 8 LEDs conectados al registro de datos del puerto paralelo.

Para utilizar la placa de control del puerto paralelo que presenté en Controladora Puerto Paralelo voy a utilizar Gambas 3. Este programa permite encender y apagar diodos LED conectados a través de la controladora del puerto paralelo del ordenador.Programa Control Puerto ParaleloVoy a utilizar un control básico con dos botones, uno “ON” que activa el diodo LED y otro “OFF” que apaga el LED. Este control básico lo voy a repetir hasta poder controlar los 8 bits de la tarjeta controladora.

Tengo que situar una serie de controles, dos botones, una etiqueta  Label1 y una imagen PictureBox1. Voy a necesitar dos imágenes una de un LED apagado “LEDOFF1.png” y otra de un LED encendido “LEDON1.png“. Las recorto con un programa de dibujo y las guardo en la carpeta del proyecto. Controles básicos para un bitA los botones les voy a cambiar los nombre y el aspecto. Selecciono cada elemento y en el menú de propiedades cambio los siguientes elementos.

  • En el Button1 cambio,  name= BotonOnD0, Text= ON.
  • En el Button2 cambio,  name= BotonOffD0, Text= OFF.
  • A la etiqueta Label1 le cambio, name= LabelD0, Font= Abyssinica SIL,+5, Text= D0
  • A la imagen PictureBox1 (1) le cambio la propiedad “Picture” (2) escojo la imagen del diodo apagado. (3) “LEDOFF1.png

Elegir imagen para diodo LEDUna vez preparados los botones y la imagen inicial del diodo D0, pulso dos veces en cada botón e introduzco las siguientes instrucciones para que cambie la imagen al pulsar. Codigo_cambiar_ImagenPuedo probar ya el programa para el primer diodo. Una vez probado el funcionamiento, selecciono y copio los dos pulsadores, la etiqueta y la caja de imagen, las copio siete veces más hasta tener 8 diodos y 16 botones.

Ahora llega el momento de escribir los códigos para acceder al puerto paralelo. Para hacer esto debemos ejecutar Gambas 3 como superusuario.

Abrimos un terminal y escribimos: sudo Gambas3 e introducimos la contraseña de administrador.Terminal ejecutar Gambas como SUEn el código del botón introducimos las órdenes:

Public Sub Button1_Click()
puerto = Open “/dev/port” For Write   ‘Abre el puerto paralelo como escritura
Seek #puerto, &H378   ‘Asigna H378 que es la Direccion del registro de datos del puerto paralelo del ordenador a la variable PuertoParalelo
dato = &HFF  ‘Todo 1 en binario 11111111=255 en decimal
Write #puerto, dato    ‘Escribe el dato (255) en la direccion del puerto paralelo
Close puerto
End

 

Para acceder al puerto paralelo del PC vamos a escribir en el registro de salida dirección &H378 (888 en decimal) conectado a los Pin 2 a 9. Los pines (bits) de salida corresponden al bus de datos no se pueden escribir de forma independiente. Cada vez que queramos modificar un bit hay que escribir el registro (8bits) completo.

El pin 2 del puerto estará conectado al dato D0 de nuestro programa BotonOnD0 y el  pin 9 conectado al dato D7 BotonOnD7.

Para Pines y registros del puerto paralelo

En mi caso voy a utilizar una placa que dispone de 8 diodos LED y 4 pulsadores, para poder hacer pruebas.

Placa de pruebas puerto paralelo