controlar puerto paralelo con visual basic


Puerto paralelo
El desarrollo.
Lo primero será conseguir la librería inpout32.dll, la cual se encarga de comunicarse con los puertos. Ya que Visual BASIC es un lenguaje de alto nivel y comotal, no le es posible comunicarse directamente con ellos.
Para bajar la librería  http://rapidshare.com/files/227330402/Tutorial_VB6_Y_PP.rar 
Antes de continuar deben de tener en cuenta que elarchivo 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 otrosextremos del cable van soldados al led, si lo prefieren pueden usar una protoboard. Tener en cuenta que el cable que va al pin 2 es “positivo” por lo tanto iría a la terminal más larga del led.
Ahora enVisual Basic, pedimos un proyecto de tipo EXE Estándar, cuando aparezca el formulario guardamos el proyecto, y salimos de Visual BASIC.


En la captura se aprecian los archivos del proyecto deVisual Basic (*.frm, *.frx, *.vbp, *.vbw, *.bas, *.SCC), la librería (*.dll), y el binario terminado (led.exe) todo en la misma carpeta.

Si aún no tenemos la DLL en la misma carpeta, la copiamospara que quede como en la figura, y damos doble clic al archivo .VBP para volver a ingresar a Visual.
Ahora si en el formulario en blanco agregamos:
3 botones con las siguientes propiedades:command1.caption=”Encender”
command2.caption=”Apagar”
command3.caption=”Automático”
3 etiquetas con las siguientes propiedades:
Label1.caption=”Direccion LPT1″
label2.caption=”"
label2.borderStyle=1label2,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=”"...