module1.bas

多功能数据采集卡上位机完整代码

Attribute VB_Name = "Module1"
Option Explicit

'错误号说明
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 '与底层驱动之间交换数据出错
    ERR_EEPROM_ID = 44 'EEPROM标识不正确。可能的原因：1. EEPROM未初始化 2. EEPROM不存在；3. EEPROM损坏
    ERR_EEPROM_VERSION = 45 '未知EEPROM数据格式版本
    ERR_EEPROM_REC_FORMAT = 46 '数据格式不正确
    ERR_EEPROM_CRC = 47 'CRC检验错
    ERR_EEPROM_REC_DATA = 48 '记录中包含的数据错，从EEPROM中包含非法数据
    ERR_EEPROM_REC_NOTFOUND = 49 '未找到指定记录
    ERR_EEPROM_REC_ADDR = 50 '未找到数据地址错
    ERR_EEPROM_READ = 51 'EEPROM读操作失败
    ERR_EEPROM_WRITE = 52 'EEPROM写操作失败
    ERR_SW_MODE_COLLISION = 53 '开关量操作与先前设置的开关量方式冲突
End Enum


'通道号，芯片号，口号，默认从1开始
Public Declare Function ZT8361_GetCardStatus Lib "pci8361.dll" (ByVal cardNO As Long) As Long
Public Declare Function ZT8361_GetCardCount Lib "pci8361.dll" () As Long '得到当前此类板卡的数量
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" () '清除错误号，一旦产生错误，为了使其他函数重新正常运行，必须清除错误号
'16读端口
Public Declare Function ZT8361_ReadW Lib "pci8361.dll" (ByVal cardNO As Long, ByVal nOffset As Long) As Long
'16写端口
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
                                                                  
'AD单次采集
Public Declare Function ZT8361_AIonce Lib "pci8361.dll" (ByVal cardNO As Long, _
                                                         ByVal chMode As Long, _
                                                         ByVal chNO As Long, _
                                                         ByVal AIrange As Long, _
                                                         ByVal ampInx As Long, _
                                                         ByVal ADoverTime 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


'建议用枚举类型指定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 Declare Function K_mVtoTemp Lib "thermo.dll" (ByVal Vt As Single) As Single
Public Declare Function K_tempTomV Lib "thermo.dll" (ByVal T As Single) As Single
'把电阻值转化为温度值
Public Declare Function PT100_ohmToTemp Lib "thermo.dll" (ByVal ohm As Single) As Single