Para sacar datos por el puerto paralelo, con Visual Basic, necesitas:
1) Cargar el archivo inpout32.dll (hay en la red!) en el directorio C:\WINDOWS\SYSTEM.
2) Ya en VB, se crea un módulo de còdigo donde se llama a la libreria dll, en mención y se crea un alias... Si esto te parece chino, en los sitios donde encuentras la libreria inpout32.dll, viene acompañada de una pequeña aplicación....ahora no tengo a mi alcance, tengo en la oficina....xro si no encuentras escribeme a
jrodriv77@yahoo.com
3) Ya en un objeto de visual. Ejm: un botón de comando, se saca los datos al puerto paralelo, cuya dirección para el registro de salida es 378H
Ej.
dato=10 // dato que se quiere presentar, en binario 00001010
out(&h378,dato) // saca desde el pin 2 al 9 del puerto paralelo, eldato decimal 10 o binario 00001010
4) OJO, si quieres encender solamente leds, se puede hacerlo directamente con las lineas del puerto. Tierra (GND), se obtiene desde los pines 18 al 25. Para manejar corrientes más altas, se debe utilizar un buffer, ejm 74LS244.
Suerte!!
Saludos desde Ecuador (Latitud Cero!)
