-
- Public Declare Function InitializeElkPort Lib "ElkPortNT.dll" () As Boolean
- Public Declare Sub CloseElkPort Lib "ElkPortNT.dll" ()
- Public Declare Sub RemoveElkPortDriver Lib "ElkPortNT.dll" ()
-
- 'Install le driver pour un Compte administrateur ou limité
- Public Declare Sub InstalElkPortDriver Lib "ElkPortNT.dll" ()
-
- Public Declare Function ReadByte Lib "ElkPortNT.dll" (ByVal Port As Integer) As Byte
- Public Declare Function WriteByte Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Value As Integer) As Boolean
-
-
- Public Declare Function ReadWord Lib "ElkPortNT.dll" _
- (ByVal Port As Integer) As Integer
- Public Declare Function WriteWord Lib "ElkPortNT.dll" _
- (ByVal Port As Integer, ByVal Value As Integer) As Boolean
-
- Public Declare Function ReadLong Lib "ElkPortNT.dll" _
- (ByVal Port As Integer) As Long
- Public Declare Function WriteLong Lib "ElkPortNT.dll" _
- (ByVal Port As Integer, ByVal Value As Integer) As Boolean
-
- '**************************************************
- 'Cas particulier du port parallèle:
-
- Public Enum DataPin
- D0 = 0
- D1 = 1
- D2 = 2
- D3 = 3
- D4 = 4
- D5 = 5
- D6 = 6
- D7 = 7
- End Enum
-
- Public Enum ControlPin
- Strobe = 0
- Autofeed = 1
- Init = 2
- Select_In = 3
- End Enum
-
- Public Enum StatusPin
- Error_ = 3
- Select_ = 4
- Paper = 5
- Ack = 6
- Busy = 7
- End Enum
-
- Public Declare Function PinData_On Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As DataPin) As Boolean
- Public Declare Function PinData_Off Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As DataPin) As Boolean
- Public Declare Function Lire_PinData Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As DataPin) As Byte
-
- Public Declare Function PinControl_On Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As ControlPin) As Boolean
- Public Declare Function PinControl_Off Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As ControlPin) As Boolean
- Public Declare Function Lire_PinControl Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As ControlPin) As Byte
-
- Public Declare Function Lire_PinStatus Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As StatusPin) As Byte
-
- Public Declare Function Enable_bi_directional_ParaPort Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal bidirectional As Boolean) As Boolean
Public Declare Function InitializeElkPort Lib "ElkPortNT.dll" () As Boolean
Public Declare Sub CloseElkPort Lib "ElkPortNT.dll" ()
Public Declare Sub RemoveElkPortDriver Lib "ElkPortNT.dll" ()
'Install le driver pour un Compte administrateur ou limité
Public Declare Sub InstalElkPortDriver Lib "ElkPortNT.dll" ()
Public Declare Function ReadByte Lib "ElkPortNT.dll" (ByVal Port As Integer) As Byte
Public Declare Function WriteByte Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Value As Integer) As Boolean
Public Declare Function ReadWord Lib "ElkPortNT.dll" _
(ByVal Port As Integer) As Integer
Public Declare Function WriteWord Lib "ElkPortNT.dll" _
(ByVal Port As Integer, ByVal Value As Integer) As Boolean
Public Declare Function ReadLong Lib "ElkPortNT.dll" _
(ByVal Port As Integer) As Long
Public Declare Function WriteLong Lib "ElkPortNT.dll" _
(ByVal Port As Integer, ByVal Value As Integer) As Boolean
'**************************************************
'Cas particulier du port parallèle:
Public Enum DataPin
D0 = 0
D1 = 1
D2 = 2
D3 = 3
D4 = 4
D5 = 5
D6 = 6
D7 = 7
End Enum
Public Enum ControlPin
Strobe = 0
Autofeed = 1
Init = 2
Select_In = 3
End Enum
Public Enum StatusPin
Error_ = 3
Select_ = 4
Paper = 5
Ack = 6
Busy = 7
End Enum
Public Declare Function PinData_On Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As DataPin) As Boolean
Public Declare Function PinData_Off Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As DataPin) As Boolean
Public Declare Function Lire_PinData Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As DataPin) As Byte
Public Declare Function PinControl_On Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As ControlPin) As Boolean
Public Declare Function PinControl_Off Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As ControlPin) As Boolean
Public Declare Function Lire_PinControl Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As ControlPin) As Byte
Public Declare Function Lire_PinStatus Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal Pin As StatusPin) As Byte
Public Declare Function Enable_bi_directional_ParaPort Lib "ElkPortNT.dll" (ByVal Port As Integer, ByVal bidirectional As Boolean) As Boolean