Attribute VB_Name = "Driver_Module"

'**************************************************************************************************************
' AD硬件參數
Type USB2013_PARA_AD      ' 板卡各參數值
    FirstChannel As Long ' 首通道
    LastChannel As Long  ' 末通道
End Type
'**************************************************************************************************************
'8253計數器控制字
Type USB2013_PARA_COUNTER_CTRL
     OperateType As Byte
     CountMode As Byte
     BCD As Byte
End Type
'**************************************************************************************************************
'USB2013_PARA_COUNTER_CTRL參數結構體各成員使用的選項
'操作類型(OperateType)
Public Const USB2013_OperateType_0 = &H0     '計數器鎖存操作
Public Const USB2013_OperateType_1 = &H1     '只讀/寫低字節
Public Const USB2013_OperateType_2 = &H2     '只讀/寫高字節
Public Const USB2013_OperateType_3 = &H3     '先讀/寫低字節，后讀/寫高字節
'計數方式(CountMode)
Public Const USB2013_CountMode_0 = &H0       '計數方式0，計數器結束中斷方式
Public Const USB2013_CountMode_1 = &H1       '計數方式1，可編程單次脈沖方式
Public Const USB2013_CountMode_2 = &H2       '計數方式2，頻率發生器方式
Public Const USB2013_CountMode_3 = &H3       '計數方式3，方波頻率發生器方式
Public Const USB2013_CountMode_4 = &H4       '計數方式4，軟件觸發選通方式
Public Const USB2013_CountMode_5 = &H5       '計數方式5，硬件觸發選通方式
'計數類型(BCD)
Public Const USB2013_BCD_0 = &H0             '計數類型0，二進制計數
Public Const USB2013_BCD_1 = &H1             '計數類型1，BCD碼計數
'**************************************************************************************************************
'取得8253三個計數器通道的計數值
Type USB2013_PARA_COUNTER_VAL
    CounterValue0 As Long                    '計數器0的計數值
    CounterValue1 As Long                    '計數器1的計數值
    CounterValue2 As Long                    '計數器2的計數值
End Type
'**************************************************************************************************************

' 開關量輸出參數
Type USB2013_PARA_DO
    DO0 As Byte        ' 0通道
    DO1 As Byte        ' 1通道
    DO2 As Byte        ' 2通道
    DO3 As Byte        ' 3通道
    DO4 As Byte        ' 4通道
    DO5 As Byte        ' 5通道
    DO6 As Byte        ' 6通道
    DO7 As Byte        ' 7通道
    DO8 As Byte        ' 8通道
    DO9 As Byte        ' 9通道
    DO10 As Byte       ' 10通道
    DO11 As Byte       ' 11通道
    DO12 As Byte       ' 12通道
    DO13 As Byte       ' 13通道
    DO14 As Byte       ' 14通道
    DO15 As Byte       ' 15通道
End Type
'**************************************************************************************************************
' 開關量輸入參數
Type USB2013_PARA_DI
    DI0 As Byte        ' 0通道
    DI1 As Byte        ' 1通道
    DI2 As Byte        ' 2通道
    DI3 As Byte        ' 3通道
    DI4 As Byte        ' 4通道
    DI5 As Byte        ' 5通道
    DI6 As Byte        ' 6通道
    DI7 As Byte        ' 7通道
    DI8 As Byte        ' 8通道
    DI9 As Byte        ' 9通道
    DI10 As Byte        ' 10通道
    DI11 As Byte        ' 11通道
    DI12 As Byte        ' 12通道
    DI13 As Byte        ' 13通道
    DI14 As Byte        ' 14通道
    DI15 As Byte        ' 15通道
End Type

'**************************************************************************************************************
' CreateFileObject函數中的Mode參數使用的文件操作方式控制字(可通過或指令實現多種方式并行操作)
 Public Const USB2013_modeRead = &H0         ' 只讀文件方式
 Public Const USB2013_modeWrite = &H1        ' 只寫文件方式
 Public Const USB2013_modeReadWrite = &H2    ' 既讀又寫文件方式
 Public Const USB2013_modeCreate = &H1000    ' 如果文件不存可以創建該文件，如果存在，則重建此文件，并清0

'**************************************************************************************************************
' 設備對象操作函數
Declare Function USB2013_CreateDevice Lib "USB2013" (ByVal DeviceID As Long) As Long
Declare Function USB2013_ReleaseDevice Lib "USB2013" (ByVal hDevice As Long) As Long

'**************************************************************************************************************
' AD采集函數
Declare Function USB2013_InitDeviceAD Lib "USB2013" (ByVal hDevice As Long, ByRef pADPara As USB2013_PARA_AD) As Long
Declare Function USB2013_ReadDeviceAD Lib "USB2013" (ByVal hDevice As Long, ByRef pADBuffer As Integer, ByVal ReadSizeWords As Long) As Long    ' 批量讀取USB設備上的AD數據
Declare Function USB2013_ReleaseDeviceAD Lib "USB2013" (ByVal hDevice As Long) As Boolean

'**************************************************************************************************************
' 對硬件AD參數的操作函數
Declare Function USB2013_SaveParaAD Lib "USB2013" (ByVal hDevice As Long, ByRef pADPara As USB2013_PARA_AD) As Long
Declare Function USB2013_LoadParaAD Lib "USB2013" (ByVal hDevice As Long, ByRef pADPara As USB2013_PARA_AD) As Long

'**************************************************************************************************************
'DA輸出操作函數
Declare Function USB2013_WriteDeviceDA Lib "USB2013" (ByVal hDevice As Long, ByVal nDAData As Integer, ByVal nDAChannel As Long) As Long

'**************************************************************************************************************
'計數器控制函數
Declare Function USB2013_InitDevCounter Lib "USB2013" (ByVal hDevice As Long, ByRef pCntrCtrlPara As USB2013_PARA_COUNTER_CTRL, ByVal CounterValue As Long, ByVal CounterChannel As Long) As Long
                                                                                                                                                                                                                         
Declare Function USB2013_GetDevCounterVal Lib "USB2013" (ByVal hDevice As Long, ByRef pConterPara As USB2013_PARA_COUNTER_VAL) As Long

'**************************************************************************************************************

  '對開關量函數的操作
Declare Function USB2013_SetDeviceDO Lib "USB2013" (ByVal hDevice As Long, ByRef pDOPara As USB2013_PARA_DO) As Boolean
Declare Function USB2013_GetDeviceDI Lib "USB2013" (ByVal hDevice As Long, ByRef pDIPara As USB2013_PARA_DI) As Boolean
     
'**************************************************************************************************************
 '對文件函數的操作
Declare Function USB2013_CreateFileObject Lib "USB2013" (ByVal hDevice As Long, ByVal NewFileName As String, ByVal Mode As Long) As Long
Declare Function USB2013_WriteFile Lib "USB2013" (ByVal hFileObject As Long, ByRef pDataBuffer As Integer, ByVal nWriteSizeBytes As Long) As Long   '保存用戶空間中數據
Declare Function USB2013_ReadFile Lib "USB2013" (ByVal hFileObject As Long, ByRef pDataBuffer As Integer, ByVal OffsetBytes As Long, ByVal ReadSizeBytes As Long) As Long  '讀數據
Declare Function USB2013_GetFileLength Lib "USB2013" (ByVal hFileObject As Long) As Long
Declare Function USB2013_SetFileOffset Lib "USB2013" (ByVal hFileObject As Long, ByVal nFileOffset As Long) As Long
Declare Function USB2013_ReleaseFile Lib "USB2013" (ByVal hFileObject As Long) As Long
Declare Function USB2013_GetDiskFreeBytes Lib "USB2013" (ByVal DiskName As String) As Currency     '獲得指定盤符的磁盤空間盤符名,如C盤為"C:\", D盤為"D:\"

'**************************************************************************************************************
' 子線程操作函數
Declare Function USB2013_CreateVBThread Lib "USB2013" (hThread As Long, ByVal pStartThread As Long) As Long
Declare Function USB2013_TerminateVBThread Lib "USB2013" (ByVal hThreadHandle As Long) As Long
Declare Function USB2013_CreateSystemEvent Lib "USB2013" () As Long
Declare Function USB2013_ReleaseSystemEvent Lib "USB2013" (ByVal hEvent As Long) As Long

'**************************************************************************************************************
' 是否讓驅動程序自動彈出錯誤信息提示對話框
Declare Function USB2016_EnableShowMessage Lib "USB2013" (ByVal bShowMessage As Long) As Long