Puerto Paralelo

[davincci]

Hola a todos. En el cole me han dejado un trabajo de electrónica, del cual no tengo gran idea, debo de hacerlo en Visual Basic. el trabajo es el siguiente:

1.Capturar por medio del puerto paralelo la pulsacion de 2 botones.
2.Leer y mostrar 1 si el boton azul ha sido presionado y leer y mostrar 2 si el boton rojo ha sido presionado.
2.Contar cuantas veces ha sido presionado cada boton.

Debo soldar en el cable del puerto paralelo ( el de la impresora) dos botones, es decir de esos pulsadores que se oprimen, como los del computador donde se enciende o reinicia.

Luego crear la interface en VB y programar.

Quisiera que me empezaran ayudar con la parte de programación, ya he bajado algunos manuales del puerto paralelo...muchas gracias por sus ayudas.

[JonathanB]

Saludos, te recomiendo el siguiente dll para la comunicación con el puerto paralelo:
http://logix4u.net/Legacy_Ports/Parallel_Port/Inpout32.dll_for_Windows_98/2000/NT/XP.html

Es una libreria bastante útil, y tiene ejemplos de como puedes utilizarla.

Deber leer del puerto 379 (hexadecimal), tambien hay que aplicar una máscara creo que es AND 10111000 (estoy algo oxidado y mi laptop no tiene puerto paralelo).

Recuerda aislar tu pc de tu circuito.

Para utilizar la dll utilizas el siguiente código:

Código vb:

Public Declare Function LeerPuerto Lib "inpout32.dll" Alias "Inp32" _
 
       (ByVal NoPuerto As Short) As Short
 
Public Declare Sub EscribirPuerto Lib "inpout32.dll" Alias "Out32" _
 
       (ByVal NoPuerto As Short, ByVal Valor As Short)
 

Por ejemplo para leer un puerto:

Código vb:

MessageBox.Show(LeerPuerto(&H379))
 

Espero que te sea de utilidad