75 lines
4.3 KiB
VB.net
75 lines
4.3 KiB
VB.net
Module PCI2312
|
||
|
||
|
||
'######################## 常量定义 #################################
|
||
' CreateFileObject所用的文件操作方式控制字(可通过或指令实现多种方式并操作)
|
||
Public Const PCI2312_modeRead = &H0 ' 只读文件方式
|
||
Public Const PCI2312_modeWrite = &H1 ' 只写文件方式
|
||
Public Const PCI2312_modeReadWrite = &H2 ' 既读又写文件方式
|
||
Public Const PCI2312_modeCreate = &H3 ' 如果文件不存可以创建该文件，如果存在，则重建此文件，并清0
|
||
Public Const PCI2312_typeText = &H4 ' 以文本方式操作文件
|
||
|
||
|
||
|
||
'######################## 常规通用函数 #################################
|
||
' 适用于本设备的最基本操作
|
||
Declare Function PCI2312_CreateDevice Lib "PCI2312_32" (ByVal DeviceID As Int32) As IntPtr ' create device object
|
||
Declare Function PCI2312_GetDeviceCount Lib "PCI2312_32" (ByVal hDevice As IntPtr) As Int32 ' get the amount of this kind of device from this system
|
||
Declare Function PCI2312_GetDeviceCurrentID Lib "PCI2312_32" (ByVal hDevice As IntPtr, ByRef DeviceLgcID As Int32, ByRef DevicePhysID As Int32) As Boolean
|
||
Declare Function PCI2312_ListDeviceDlg Lib "PCI2312_32" (ByVal hDevice As IntPtr) As Boolean ' list all PCI devices in the system
|
||
Declare Function PCI2312_ReleaseDevice Lib "PCI2312_32" (ByVal hDevice As IntPtr) As Boolean ' reset the whole PCI device
|
||
|
||
'####################### 数字I/O输入输出函数 #################################
|
||
' Applicable to the equipment control that is more direct and specific, low-level, more complex.
|
||
' For example, if it needs special control process and control efficiency in accordance with the special control object , users can achieve by using these interfaces.
|
||
Declare Function PCI2312_SetDeviceDO Lib "PCI2312_32" ( _
|
||
ByVal hDevice As IntPtr, _
|
||
ByVal bDOSts() As Byte) As IntPtr ' Get on/off status
|
||
|
||
Declare Function PCI2312_GetDeviceDI Lib "PCI2312_32" ( _
|
||
ByVal hDevice As IntPtr, _
|
||
ByVal bDISts() As Byte) As IntPtr ' Get on/off status
|
||
|
||
'####################### 中断函数 #################################
|
||
' 它由硬件信号的状态变化引起CPU产生中断事件hEventInt。
|
||
Declare Function PCI2312_InitDeviceInt Lib "PCI2312_32" ( _
|
||
ByVal hDevice As IntPtr, _
|
||
ByVal hEventInt As IntPtr) As Boolean
|
||
|
||
|
||
Declare Function PCI2312_GetDeviceIntCount Lib "PCI2312_32" (ByVal hDevice As IntPtr) As Int32 ' In interrupt is initialized, using it to get the interrupt service routine produce number of times
|
||
|
||
Declare Function PCI2312_ReleaseDeviceInt Lib "PCI2312_32" (ByVal hDevice As IntPtr) As Boolean ' Release interruption resource
|
||
|
||
' ################# 内存映射寄存器直接操作及读写函数 ########################
|
||
' 适用于用户对本设备更直接、更特殊、更低层、更复杂的控制。比如根据特殊的
|
||
' 控制对象需要特殊的控制流程和控制效率时，则用户可以使用这些接口予以实现。
|
||
|
||
Declare Function PCI2312_GetDeviceBar Lib "PCI2312_32" ( _
|
||
ByVal hDevice As IntPtr, _
|
||
ByVal pbPCIBar() As Int64) As Boolean ' 取得指定的指定设备寄存器组BAR地址
|
||
|
||
Declare Function PCI2312_WritePortByte Lib "PCI2312_32" (ByVal hDevice As IntPtr, ByVal pPort As Int64, ByVal Value As Byte) As Boolean
|
||
Declare Function PCI2312_WritePortWord Lib "PCI2312_32" (ByVal hDevice As IntPtr, ByVal pPort As Int64, ByVal Value As UInt16) As Boolean
|
||
Declare Function PCI2312_WritePortULong Lib "PCI2312_32" (ByVal hDevice As IntPtr, ByVal pPort As Int64, ByVal Value As UInt32) As Boolean
|
||
|
||
Declare Function PCI2312_ReadPortByte Lib "PCI2312_32" (ByVal hDevice As IntPtr, ByVal pPort As Int64) As Byte
|
||
Declare Function PCI2312_ReadPortWord Lib "PCI2312_32" (ByVal hDevice As IntPtr, ByVal pPort As Int64) As UInt16
|
||
Declare Function PCI2312_ReadPortULong Lib "PCI2312_32" (ByVal hDevice As IntPtr, ByVal pPort As Int64) As UInt32
|
||
|
||
'########################### Thread operation function ######################################
|
||
Declare Function PCI2312_CreateSystemEvent Lib "PCI2312_32" () As IntPtr ' create the (kernel) system event object
|
||
Declare Function PCI2312_ReleaseSystemEvent Lib "PCI2312_32" (ByVal hEvent As IntPtr) As Boolean ' release (kernel) system event object
|
||
|
||
End Module
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|