0,0 → 1,29 |
Attribute VB_Name = "inpout" |
|
'Inp and Out declarations for direct port I/O |
'in 32-bit Visual Basic 4 programs. |
|
Public Declare Function Input32 Lib "inpout32.dll" _ |
Alias "Inp32" (ByVal PortAddress As Integer) As Integer |
Public Declare Sub Output Lib "inpout32.dll" _ |
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) |
Sub out(ByVal Value As Integer) |
Output &H3BC, Value |
End Sub |
Function inp() As Integer |
inp = Input32(&H3BD) |
End Function |
|
Function inp11() As Boolean |
inp11 = ((inp And &H80) = 0) |
End Function |
Function inp10() As Boolean |
inp10 = Not ((inp And &H40) = 0) |
End Function |
Function inp12() As Boolean |
inp12 = Not ((inp And &H20) = 0) |
End Function |
Function inp13() As Boolean |
inp13 = Not ((inp And &H10) = 0) |
End Function |
|