| 6 |
kaklik |
1 |
Attribute VB_Name = "inpout"
|
|
|
2 |
|
|
|
3 |
'Inp and Out declarations for direct port I/O
|
|
|
4 |
'in 32-bit Visual Basic 4 programs.
|
|
|
5 |
|
|
|
6 |
Public Declare Function Input32 Lib "inpout32.dll" _
|
|
|
7 |
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
|
|
|
8 |
Public Declare Sub Output Lib "inpout32.dll" _
|
|
|
9 |
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
|
|
|
10 |
Sub out(ByVal Value As Integer)
|
|
|
11 |
Output &H3BC, Value
|
|
|
12 |
End Sub
|
|
|
13 |
Function inp() As Integer
|
|
|
14 |
inp = Input32(&H3BD)
|
|
|
15 |
End Function
|
|
|
16 |
|
|
|
17 |
Function inp11() As Boolean
|
|
|
18 |
inp11 = ((inp And &H80) = 0)
|
|
|
19 |
End Function
|
|
|
20 |
Function inp10() As Boolean
|
|
|
21 |
inp10 = Not ((inp And &H40) = 0)
|
|
|
22 |
End Function
|
|
|
23 |
Function inp12() As Boolean
|
|
|
24 |
inp12 = Not ((inp And &H20) = 0)
|
|
|
25 |
End Function
|
|
|
26 |
Function inp13() As Boolean
|
|
|
27 |
inp13 = Not ((inp And &H10) = 0)
|
|
|
28 |
End Function
|
|
|
29 |
|