Como gobernar puerto paralelo?

[mos]

Hola compañeros, estoy empezando en vb y una de las cosas por las que me gustaria empezar es programando el puerto paralelo, utilizo el editor vb 5.0 y me gustaria saber como mandar un digito  ( 0 a 255 ) y tambien como leerlo, he visitado una pagina aqui que habla del tema pero los enlances no funcionan, no se descarga el archivo, desearia si alguien tiene esa parte del programa haber si me lo puede poner y tambien la libreria del puerto que  necesita vb o saber donde encontrarlo. Un saludo a todos los compañeros del foro. 

[LordLafebre]

Hola:

mos, en el otro post te puse ya el ejemplo y el link para que te descargues la libreria, revisalo.

[LordLafebre]

Hola:

Se me olvidaba, la dll te la adjunto aqui, descomprimela y pegala en el system32 del SSOO.

Suerte...!!! 

[mos]

Hola compañero, me he descargado inpout32 y el iot  pero no se que hacer con esto, donde lo tengo que poner
utilizo la version 5.0 que es la que me he podido descargar de internet, el programa que he visto es muy sencillito
pero no me funciona nada, seguro que es por la libreria que no se donde lo tengo que poner. Una ayudita y un saludo
compañero.

[atlasdelcarinakeel]

Bueno deberia ser en la carpeta system32 de windows.

[mos]

Hola compañeros, ya he puesto las dll en la carpeta correspondiente , gracias compañeros, he probado el programita simple pero no me funciona tal y como esta aqui

Option Explicit
Alias "Inp32" (ByVal PortAddress As Integer) As Byte
Public Declare Sub Escribir Lib "Inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Byte)
Public Declare Sub Sleep Lib "Kernel32.dll" (ByVal PortAddress As Integer)
Escribir &H378, 0
Dim dato As Integer

Private Sub Command1_Click()
dato = Val(txt)
 If dato > 255 Or dato < 0 Then
MsgBox "Ingrese numeros entre 0 - 255"
txt = 0
Else
Escribir &H378, dato
End If

Private Sub Form_Unload(Cancel As Integer)_
Public Declare Function Leer Lib "Inpout32.dll" ()
End Sub

le he dado nombre a los botones, por ejmplo en vb me sale text1, aqui lo he cambiado por txt
pero nada , no me funciona
no se que hago mal, un saludo compañeros foristas.

[LordLafebre]

Hola:

mos, probaste el ejemplo que te puse en el oto post???

[BrunoF]

Hola, proba asi:

Código: Visual Basic

1. Option Explicit
2. Private Declare Function Leer Lib "Inpout32.dll" _
3. Alias "Inp32" (ByVal PortAddress As Integer) As Byte
4.  
5. Private Declare Sub Escribir Lib "Inpout32.dll" _
6. Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Byte)
7.  
8. Private Declare Sub Sleep Lib "Kernel32.dll" (ByVal PortAddress As Integer)
9.  
10. Dim dato As Byte
11.  
12. Private Sub Command1_Click()
13. If IsNumeric(txt) Then dato = CByte(txt) Else GoTo Erroneo
14. If dato > 255 Or dato < 0 Then
15. Erroneo:
16.     MsgBox "Ingrese numeros entre 0 - 255"
17.     txt = 0
18. Else
19.     Escribir &H378, dato
20. End If
21. End Sub
22.  
23. Private Sub Form_Load()
24.     Escribir &H378, 0
25. End Sub

Exitos!

[mos]

Siiiiii yaaa me funcionaaaa, era el archivo bas que no sabia donde tenia que ponerlo, gracias compañeros.