Encendiendo Un Led Con El Puerto Paralelo

Q Encendiendo un led con el puerto paralelo
julio 15, 2009
De acuerdo a lo que se ve en mi video de Youtube, aca presento el tutorial de como hacer que encienda un led conectado al puerto paralelo. Este es el video http://www.youtube.com/watch?v=oV31uB6fJCo
Para comenzar primero debemos tener en cuenta lo siguiente:
1. Asumo que tienes conocimientos en VB6.
2. El conector queconocemos como paralelo, es un DB25 que se consigue en cualquier “Steren”, o bien donde vendan refacciones de electrónica.
3. Este conector tiene 25 pines, numerados del 1 al 25, para hacer que encienda el led conectado a el, se usaran los pines 2 y 25. El pin 2 digamos que “trae correinte”, mientras que el 25 es tierra.
Pues comencemos…
¿Qué es un puerto?
Un puerto se define como la interfazfísica entre un dispositivo de Hardware y la computadora.
Nosotros usanos puertos para comunicarnos con la PC via Módem, impresora, teclado, mouse, etc. Las señales que se envian y reciben en el puerto pueden ser “0″ ó “1″, lo cual sería apagado o encendido respectivamente. Un puerto paralelo puede enviar hasta 8 bits y recibir 5 al mismo tiempo.

Los pines numerados de un puerto paralelo
Paraenviar los datos por el puerto se utilizan los pines 2 al 9, que corresponden a D0-D7. Los puertos 18 al 25 se utiizan como tierra (ver en la figura que corresponden a G0 a G7).
En la aplicaíón que desarrolle utilicé los pines 2 y 25, como habeis podido observar pude haber usado cualquiera del 2 al 9 y del 18 al 25.

El desarrollo.
Lo primero fue conseguir la libreria inpout32.dll, la cual seencarga de comunicarse con los puertos. Como todos sabemos Visual BASIC es un lenguaje de alto nivel y como tal, no le es posible comunicarse directamente con ellos.
Al incluir la libreria, que esta programada en un lenguaje de bajo nivel esta podrá hacer posible que nuestro proyecto funcione, ya que es la que se comunica con los puertos.
Para bajar la libreria via RShttp://rapidshare.com/files/227330402/Tutorial_VB6_Y_PP.rar (ver créditos al final).
Antes de continuar deben de tener en cuanta que el archivo DLL debe estar en la misma carpeta donde guarden el proyecto, de lo contrario no funciona
Lo siguiente sería soldar un cable de red en el pin 2 y otro cable en el pin 25, asimismo los otros extremos del cable van soldados al led, si lo prefieren pueden usar una protoboard. Teneren cunta que el cable que va al pin 2 es que “positivo” por lo tanto iria a la para mas larga del led. Si lo soldan al revés no funcionará.
Ahora si, nos metemos a Visual Basic y pedimos un proyecto de tipo EXE Estandar, cuando aparezca el formulario guardamos el proyecto, y nos salimos de Visual BASIC.

Captura de la carpeta donde tengo guardado el proyecto
En la captura se aprecian losarchivos del proyecto de Visual Basic (*.frm, *.frx, *.vbp, *.vbw, *.bas, *.SCC), la librería (*.dll), y el binario terminado (led.exe). Una vez mas les digo, todo en la misma carpeta.
Si aun no tenemos la DLL en la misma carpeta, la copiamos para que quede como en la figura, y damos 2 clic al archivo .VBP para volvernos a meter a Visual.
Ahora si en el formulario en blanco agregamos:
3 botonescon las siguientes propiedades:
* command1.caption=”Encender”
* command2.caption=”Apagar”
* command3.caption=”Automatico”
3 etiquetas con las siguientes propiedades:
* Label1.caption=”Direccion LPT1″
* label2.caption=”"
* label2.borderStyle=1
* label2,forecolor=Escojan uno de la lista que les aparece….
* label2.font=Escojen una fuente de la lista que aparece….
*label3.caption=”milisegundos”
1 HScroolBar con las siguientes propiedades:
* HScrollBar1.name=”barrita”
* barrita.largechange=50
* barrita.max=2000
* barrita.min=10
* barrita.smallchange=10
* barrita.value=1000
2 TextBox con las siguientes propiedades:
* text1.text=”"
* text2.text=”"
* text2.enabled=false
1 Timer con las siguientes propiedades
*...