Attribute VB_Name = "Module1"
Public m_cardNO As Long 'pci卡的板卡索引號
Public m_DARange As Long 'DA輸出范圍
Public m_initData(819200) As Integer '臨時緩沖區
Public m_floatData(819200) As Single '申請足夠大的緩沖區，應該是4096的整數倍，并且緩沖區大小至少大于4096
Public m_retCount As Long '讀到的數據個數
'錯誤號說明
Public Enum ZTERR '錯誤號
    ZT_SUCCESS = 0 '無錯誤
    ERR_PARAMETER1 = 1 '參數1錯
    ERR_PARAMETER2 = 2 '參數2錯
    ERR_PARAMETER3 = 3 '參數3錯
    ERR_PARAMETER4 = 4 '參數4錯
    ERR_PARAMETER5 = 5 '參數5錯
    ERR_PARAMETER6 = 6 '參數6錯
    ERR_PARAMETER7 = 7 '參數7錯
    ERR_PARAMETER8 = 8 '參數8錯
    ERR_PARAMETER9 = 9 '參數9錯
    ERR_PARAMETER10 = 10 '參數10錯
    ERR_PARAMETER11 = 11 '參數11錯
    ERR_PARAMETER12 = 12 '參數12錯
    ERR_PARAMETER13 = 13 '參數13錯
    ERR_PARAMETER14 = 14 '參數14錯
    ERR_PARAMETER15 = 15 '參數15錯
    ERR_PARAMETER16 = 16 '參數16錯
    ERR_PARAMETER17 = 17 '參數17錯
    ERR_PARAMETER18 = 18 '參數18錯
    ERR_PARAMETER19 = 19 '參數19錯
    ERR_PARAMETER20 = 20 '參數20錯
    ERR_PARAMETER_BASEADDR = 21 '針對ISA卡，板卡基地址超出范圍，應該在0x100至0x3F0之間未被系統占用的地址
    ERR_PARAMETER_CARDNO = 22 '針對PCI卡，板卡索引號超出范圍，這版驅動中板卡索引號從1開始
    ERR_PARAMETER_CHMODE = 23 '通道方式參數錯誤，通道方式超出范圍，一般只有0--3共4種方式
    ERR_PARAMETER_CH = 24 '通道號參數錯誤，通道號超出范圍
    ERR_PARAMETER_CHIP = 25 '芯片號參數錯誤，芯片號超出范圍
    ERR_PARAMETER_PORT = 26 '口號參數錯誤，口號超出范圍
    ERR_PARAMETER_AI_RANGE = 27 'AD量程參數錯，此卡不支持這種AD輸入量程
    ERR_PARAMETER_AI_AMP = 28 'AD增益參數錯
    ERR_PARAMETER_AI_STARTMODE = 29 'AD啟動方式參數錯
    ERR_PARAMETER_AO_RANGE = 30 'DA量程參數錯，此卡不支持這種DA輸出量程
    ERR_PARAMETER_ADFREQ = 31 'AD采集頻率(或AD分頻系數)參數錯
    ERR_PARAMETER_IRQ = 32 '與中斷相關參數錯，可能是此卡不支持這種中斷方式或中斷號
    ERR_PARAMETER_NULL_POINTER = 33 '空指針錯。原因：緩沖區首地址為空或者用戶傳入的參數導致引用到空指針
    ERR_AD_OVERTIME = 34 'AD超時。對于ISA卡，出錯原因可能是：未插卡或IO地址與板卡上設置不匹配。當用定時啟動AD或外觸發啟動AD時，一般不應檢查AD是否超時
    ERR_OPEN_DEVICE = 35 '打開設備失敗，對于PCI卡，出錯原因可能是：未插卡或未裝驅動
    ERR_CLOSE_DEVICE = 36 '關閉設備失敗
    ERR_TIMING = 37 '定時未到或外觸發脈沖未到
    ERR_IOADDR_DA_OVERTIME = 38 '帶光隔DA寫過程超時
    ERR_OPEN_IRQ = 39 '打開中斷出錯
    ERR_FUNC_CANNT_RUN = 40 '此函數不能在這臺計算機上運行
    ERR_ASYNC_FUNC_FAILED = 41 '異步函數調用失敗
    ERR_FUNC_OPERATE = 42 '在當前的卡的設置狀態下，不應該調用此函數
    ERR_EXCHANGE_DATA = 43 '與底層驅動之間交換數據出錯
End Enum


'與原驅動不同，通道號，芯片號，口號，默認從1開始
Public Declare Function ZT8361_GetBaseAddr Lib "pci8361.dll" (ByVal cardNO As Long) As Long '得到板卡基地址

'打開設備，必須在調用其他函數之前調用。放在程序初始化時調用比較恰當，只調用一次
Public Declare Function ZT8361_OpenDevice Lib "pci8361.dll" (ByVal cardNO As Long) As Long '返回 0 表示打開設備成功，非0 表示失敗
Public Declare Function ZT8361_CloseDevice Lib "pci8361.dll" (ByVal cardNO As Long) As Long '關閉設備，在用戶程序結束時調用一次
Public Declare Function ZT8361_GetLastErr Lib "pci8361.dll" () As Long '得到錯誤號
Public Declare Sub ZT8361_ClearLastErr Lib "pci8361.dll" () '清除錯誤號，一旦產生錯誤，為了使其他函數重新正常運行，必須清除錯誤號
'函數功能：設置板卡索引號，芯片號，口號和通道號從0開始還是從1開始
Public Declare Sub ZT8361_SetBaseNO Lib "pci8361.dll" (ByVal baseNO As Long) '設置芯片號或通道號從0開始還是從1開始
'函數功能：返回當前板卡索引號，芯片號，口號和通道號從0開始還是從1開始
Public Declare Function ZT8361_GetBaseNO Lib "pci8361.dll" () As Long '返回當前芯片號或通道號從0開始還是從1開始

Public Declare Function ZT8361_ReadW Lib "pci8361.dll" (ByVal cardNO As Long, ByVal nOffset As Long) As Long
Public Declare Function ZT8361_WriteW Lib "pci8361.dll" (ByVal cardNO As Long, ByVal nOffset As Long, ByVal dataWord As Long) As Long


Public Declare Function ZT8361_LoadADZeroFull Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByVal AIrange As Long, _
ByVal readFrom As Long, _
ByVal bForceReLoad As Long) As Long
                                                                   
                                                                  
'模入部分
Public Declare Function ZT8361_DisableAD Lib "pci8361.dll" (ByVal cardNO As Long) As Long
Public Declare Function ZT8361_EnableAD Lib "pci8361.dll" (ByVal cardNO As Long) As Long
'設置AD方式控制字，參數說明請看《pci8361.h》
Public Declare Function ZT8361_AIinit Lib "pci8361.dll" (ByVal cardNO As Long, _
                                                           ByVal chMode As Long, _
                                                           ByVal chNO As Long, _
                                                           ByVal AIrange As Long, _
                                                           ByRef AIAmp As Long, _
                                                           ByVal ADstartMode As Long, _
                                                           ByVal ADfreq As Long, _
                                                           ByVal ADctrlWord As Long, _
                                                           ByVal ADoverTime As Long) As Long

Public Declare Function ZT8361_ClearHFifo Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long) As Long
Public Declare Function ZT8361_GetHFifoStatus Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long) As Long
Public Declare Function ZT8361_ClearSFifo Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long) As Long
Public Declare Function ZT8361_SetSFifoSize Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long, ByVal SFifoSize As Long) As Long
Public Declare Function ZT8361_GetSFifoSize Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long) As Long
Public Declare Function ZT8361_DisableSFifo Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long) As Long
Public Declare Function ZT8361_EnableSFifo Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long) As Long
Public Declare Function ZT8361_GetSFifoDataCount Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long) As Long
Public Declare Function ZT8361_SetSFifoThreshold Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long, ByVal SFifoThreshold As Long) As Long
Public Declare Function ZT8361_GetSFifoThreshold Lib "pci8361.dll" (ByVal cardNO As Long, ByVal unitType As Long) As Long
'每次采一批數，參數說明請看《pci8361.h》
Public Declare Function ZT8361_ReadSFifo Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByVal unitType As Long, _
ByVal dataType As Long, _
ByRef pResultArr As Any, _
ByVal wantReadCount As Long) As Long
                                                              
Public Declare Function ZT8361_AISFifo Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByVal dataType As Long, _
ByRef pFloatResultArr As Single, _
ByVal wantReadCount As Long) As Long

Public Declare Function ZT8361_OpenIRQ Lib "pci8361.dll" (ByVal cardNO As Long, _
                                                            ByVal hEventSFifo As Long, _
                                                            ByVal hEventHFifoFewData As Long, _
                                                            ByVal hEventHFifoHalf As Long, _
                                                            ByVal hEventEI As Long, _
                                                            ByVal hEventADFinish As Long) As Long
Public Declare Function ZT8361_CloseIRQ Lib "pci8361.dll" (ByVal cardNO As Long) As Long
'開關量部分
Public Declare Function ZT8361_DIBit Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByVal groupNO As Long, _
ByVal chNO As Long) As Long

Public Declare Function ZT8361_DIAll Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByVal groupNO As Long) As Long

Public Declare Function ZT8361_DOBit Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByVal groupNO As Long, _
ByVal chNO As Long, _
ByVal nState As Long) As Long

Public Declare Function ZT8361_DOAll Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByVal groupNO As Long, _
ByVal nStateAll As Long) As Long



'計數器部分
Public Declare Function ZT8361_CTStart Lib "pci8361.dll" (ByVal cardNO As Long, _
                                                            ByVal chNO As Long, _
                                                            ByVal CTMode As Long, _
                                                            ByVal CTinitVal As Long) As Long
Public Declare Function ZT8361_CTRead Lib "pci8361.dll" (ByVal cardNO As Long, _
                                                           ByVal chNO As Long, _
                                                           ByVal lockBeforeRead As Long) As Long
Public Declare Function ZT8361_CTStop Lib "pci8361.dll" (ByVal cardNO As Long, _
                                                           ByVal chNO As Long, _
                                                           ByVal CTMode As Long) As Long


Public Declare Function ZT8361_InitIRQ Lib "pci8361.dll" (ByVal cardNO As Long, _
                                ByVal irqSource As Long) As Long

Public Declare Function ZT8361_SetAIresultTrans Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByRef pNeedTrans As Long, _
ByRef pMeasureDown As Single, _
ByRef pMeasureUp As Single, _
ByRef pEngiDown As Single, _
ByRef pEngiUp As Single, _
ByRef pReviseK As Single, _
ByRef pReviseB As Single) As Long


Public Declare Function ZT8361_GetAIresultTrans Lib "pci8361.dll" ( _
ByVal cardNO As Long, _
ByRef pNeedTrans As Long, _
ByRef pMeasureDown As Single, _
ByRef pMeasureUp As Single, _
ByRef pEngiDown As Single, _
ByRef pEngiUp As Single, _
ByRef pReviseK As Single, _
ByRef pReviseB As Single) As Long


'建議用枚舉類型指定AD量程或DA輸出范圍，可增加程序的可讀性
Public Enum AI
    'AI方式
    Range_initCode = 0 '原碼方式
    Range_0__5000mV = 1
    Range_0__10000mV = 2
    'Range_1000__5000mV = 3
    'Range_N2500__P2500mV = 4
    Range_N5000__P5000mV = 5
    Range_N10000__P10000mV = 6
    Range_0__4000mV = 7
    Range_N3330__P3330mV = 8
    Range_0__10000uA = 9
    Range_0__20000uA = 10
    Range_4000__20000uA = 11
End Enum

Public Enum AO
    'AO方式
    Range_initCode = 0 '原碼方式
    'Range_0__5000mV = 1
    Range_0__10000mV = 2
    'Range_1000__5000mV = 3
    'Range_N2500__P2500mV = 4
    'Range_N5000__P5000mV = 5
    Range_N10000__P10000mV = 6
    'Range_0__2500mV = 7
    'Range_0__10000uA = 8
    'Range_4000__20000uA = 9
End Enum