Hola..
hola!...mira lo primero que debes hacer es bajarte el inpout32.dll y copiarlo en tu carpeta system o system32 de windows..lo puedes hacer de esta página ..ya que aquí los dll no están defectuosos y yo ya los he bajado antes ..
http://www.davphantom.net/ocx.htm..
luego ..en google hay muchos codigos que te pueden ayudar ..pero si quieres uno en visual basic aqui te pongo el mío....
[CODE]
Option Explicit
#If Win32 Then
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (byvalPortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal portaddress As Integer, ByVal value As Integer)
#End If
Private Sub Command1_Click()
Out &H378, 1
End Sub
Private Sub Command10_Click()
Out &H378, 0
Out &H378, 0
Out &H378, 0
Out &H378, 0
Out &H378, 0
Out &H378, 0
Out &H378, 0
Out &H378, 0
End Sub
Private Sub Command2_Click()
Out &H378, 2
End Sub
Private Sub Command3_Click()
Out &H378, 4
End Sub
Private Sub Command4_Click()
Out &H378, 8
End Sub
Private Sub Command5_Click()
Out &H378, 16
End Sub
Private Sub Command6_Click()
Out &H378, 32
End Sub
Private Sub Command7_Click()
Out &H378, 64
End Sub
Private Sub Command8_Click()
Out &H378, 128
End Sub
Private Sub Command9_Click()
Out &H378, 1
Out &H378, 2
Out &H378, 4
Out &H378, 8
Out &H378, 16
Out &H378, 32
Out &H378, 64
Out &H378, 128
End Sub
Private Sub Form_Load()
Dim a As Double
a = Inp(&H378)
Print a
End Sub
para probarlo...pudes comprar unconector db25 macho, 8 resistencias de 680 y 8 leds....
http://www.pablin.com.ar/electron/circu ... /index.htmespero que te sirva
cualquier cosa me puedes escribir..bye...