module1.bas

pci8360v jiemianchengxu jimokuai

Attribute VB_Name = "Module1"
Public m_cardNO As Long 'pci卡的板卡索引号
Public m_saveData(819200) As Integer '申请足够大的缓冲区，应该是4096的整数倍，并且缓冲区大小至少大于4096
Public m_showMode As Long '显示方式
Public m_AIrange 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 '通道号参数错误，通道号超出范围，调用GetCountFrom检查当前通道号从0开始还是从1开始
    ERR_PARAMETER_CHIP = 25 '芯片号参数错误，芯片号超出范围，调用GetCountFrom检查当前芯片号从0开始还是从1开始
    ERR_PARAMETER_PORT = 26 '口号参数错误，口号超出范围，调用GetCountFrom检查当前口号从0开始还是从1开始
    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


Public Declare Function ZT8360V_GetCardStatus Lib "pci8360.dll" (ByVal cardNO As Long) As Long
'打开设备，必须在调用其他函数之前调用。放在程序初始化时调用比较恰当，只调用一次
Public Declare Function ZT8360V_GetCardCount Lib "pci8360.dll" () As Long '得到当前此类板卡的数量
Public Declare Function ZT8360V_GetBaseAddr Lib "pci8360.dll" (ByVal cardNO As Long) As Long '得到板卡基地址


'函数功能：打开设备，必须在调用其他函数之前调用。
'          放在程序初始化时调用比较恰当，只调用一次即可
'入口参数：
'          cardNO 板卡索引号，注意索引号从1算起，与1.0版的驱动不同
'返回值：  0  表成功
'         -1  表失败，应该进一步调用 ZT8360V_GetLastErr 判断出错原因
Public Declare Function ZT8360V_OpenDevice Lib "pci8360.dll" (ByVal cardNO As Long) As Long
'函数功能：关闭设备
'入口参数：
'          cardNO 板卡索引号，注意索引号从1算起，与1.0版的驱动不同
'返回值：  0  表成功
'         -1  表失败，应该进一步调用 ZT8360V_GetLastErr 判断出错原因
Public Declare Function ZT8360V_CloseDevice Lib "pci8360.dll" (ByVal cardNO As Long) As Long
'函数功能：得到错误号
'返回值：错误代码，错误代码含义请看宏定义
Public Declare Function ZT8360V_GetLastErr Lib "pci8360.dll" () As Long '得到错误号
'函数功能：清除错误号，一旦产生错误，为了使函数重新正常执行，必须清除错误号
Public Declare Sub ZT8360V_ClearLastErr Lib "pci8360.dll" () '清除错误号，一旦产生错误，为了使其他函数重新正常运行，必须清除错误号
'函数功能：设置板卡索引号，芯片号，口号和通道号从0开始还是从1开始
Public Declare Sub ZT8360V_SetBaseNO Lib "pci8360.dll" (ByVal baseNO As Long) '设置芯片号或通道号从0开始还是从1开始
'函数功能：返回当前板卡索引号，芯片号，口号和通道号从0开始还是从1开始
Public Declare Function ZT8360V_GetBaseNO Lib "pci8360.dll" () As Long '返回当前芯片号或通道号从0开始还是从1开始
'函数功能：16位读端口
'入口参数：
'          cardNO 板卡索引号，注意索引号从1算起，与1.0版的驱动不同
'          nOffset   寄存器偏移地址
'返回值：  从端口读出的值
'          若返回 0xFFFF(-1)，应该进一步调用 ZT8360V_GetLastErr 判断是否产生了错误
Public Declare Function ZT8360V_ReadW Lib "pci8360.dll" (ByVal cardNO As Long, ByVal nOffset As Long) As Long
'函数功能：16位写端口
'入口参数：
'          cardNO 板卡索引号，注意索引号从1算起，与1.0版的驱动不同
'          nOffset   寄存器偏移地址
'          dataWord  要写入端口的值
'返回值：  0  表成功
'         -1  表失败，应该进一步调用 ZT8360V_GetLastErr 判断出错原因
Public Declare Function ZT8360V_WriteW Lib "pci8360.dll" (ByVal cardNO As Long, ByVal nOffset As Long, ByVal dataWord As Long) As Long
'模入部分
'设置AD方式控制字，参数说明请看《pci8360V.h》
Public Declare Function ZT8360V_AIinit Lib "pci8360.dll" (ByVal cardNO As Long, _
                                                         ByVal chMode As Long, _
                                                         ByVal chNO As Long, _
                                                         ByVal AIrange As Long, _
                                                         ByVal AIAmp As Long, _
                                                         ByVal ADstartMode As Long, _
                                                         ByVal ADfreq As Long, _
                                                         ByVal nIrqType As Long, _
                                                         ByVal ADctrlWord As Long, _
                                                         ByVal ADoverTime As Long) As Long
                                                         
'每次采一批数，参数说明请看《pci8360V.H》
Public Declare Function ZT8360V_AI Lib "pci8360.dll" (ByVal cardNO As Long, _
                                                      ByRef pResultArr As Integer, _
                                                      ByVal wantReadCount As Long) As Long
'每次采一个数，参数说明请看《pci8360V.H》
Public Declare Function ZT8360V_AIonce Lib "pci8360.dll" (ByVal cardNO As Long, _
                                                         ByVal chNO As Long, _
                                                         ByVal AIrange As Long, _
                                                         ByVal ADstartMode As Long, _
                                                         ByVal ADcount As Long, _
                                                         ByVal ADoverTime As Long) As Double
                                                              
'开关量部分
Public Declare Function ZT8360V_DIBit Lib "pci8360.dll" (ByVal cardNO As Long, ByVal chNO As Long) As Long
Public Declare Function ZT8360V_DIAll Lib "pci8360.dll" (ByVal cardNO As Long) As Long
Public Declare Function ZT8360V_DOBit Lib "pci8360.dll" (ByVal cardNO As Long, ByVal chNO As Long, ByVal nState As Long) As Long
Public Declare Function ZT8360V_DOAll Lib "pci8360.dll" (ByVal cardNO As Long, ByVal nStateAll As Long) As Long

'计数器部分
Public Declare Function ZT8360V_CTStart Lib "pci8360.dll" (ByVal cardNO As Long, ByVal chNO As Long, ByVal nCTMode As Long, ByVal nCTinitVal As Long) As Long
Public Declare Function ZT8360V_CTRead Lib "pci8360.dll" (ByVal cardNO As Long, ByVal chNO As Long, ByVal lockBeforeRead As Long) As Long
Public Declare Function ZT8360V_CTStop Lib "pci8360.dll" (ByVal cardNO As Long, ByVal chNO As Long) As Long


'建议用枚举类型指定AD量程或DA输出范围，可增加程序的可读性
Public Enum AI
    'AI方式
    Range_initCode = 0 '原码方式
    Range_0__10000mV = 2
    Range_N5000__P5000mV = 5 ' -5000 -- 5000mV
End Enum