este es el codigo q utilice:
Module 1
Código:
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Formulario
Código:
Private Sub Command1_Click()
Out &H378, 255
End Sub
Private Sub Command2_Click()
Out &H378, 1
End Sub
Private Sub Command2_Click()
Out &H378,
End Sub
la entrada y salida es 0378 - 037F
Este es el error q me da:
Si alguien tiene la solucion aeste problema... ya prove de todo busque de todo...