ac6112decl.bas

北京双诺公司的AC6112数据采集卡的开发源代码

Attribute VB_Name = "ac6112decl"
    
Type AC6112_INI_BYTE
    ad_mode As Long
    start_end_chn As Long
    ad_timer As Long
    da_mode As Long
    kFifo_Notify_Length As Long
    Irq_Enable As Long
    Event_Enable As Long
    Event As Long
    EventFifoFull As Long
End Type

Type AC6112_STATE
    HardwareState As Long
    Irq_Enable As Long
    Event_Enable As Long
    SoftFifoCapacity As Long
    SoftFifoItemForRead As Long
    SoftFifoItemForWrite As Long
End Type

Global hDevice As Long
Global InitWord As AC6112_INI_BYTE
Global ErrorOfDriver As Long
Global WaveErr As Long
Global StateOf6112 As AC6112_STATE
Global kBuffer(1000000) As Long

Public Const INVALID_HANDLE_VALUE = -1

Public Declare Function AC6112_CreateDevice Lib "ac6112.dll" (ByVal CardNo As Long, Error As Long) As Long
Public Declare Function AC6112_CloseDevice Lib "ac6112.dll" (ByVal hDevice As Long) As Long
Public Declare Function AC6112_Version Lib "ac6112.dll" (ByVal hDevice As Long, Version As Byte) As Long

Public Declare Function AC6112_INI Lib "ac6112.dll" (ByVal hDevice As Long, InitWord As AC6112_INI_BYTE) As Long
Public Declare Function AC6112_STATE Lib "ac6112.dll" (ByVal hDevice As Long, State As AC6112_STATE) As Long
Public Declare Function AC6112_CHN Lib "ac6112.dll" (ByVal hDevice As Long, ByVal chn_no As Long) As Long
Public Declare Function AC6112_AD_MODE Lib "ac6112.dll" (ByVal hDevice As Long, ByVal ad_mode As Long) As Long
Public Declare Function AC6112_RUN Lib "ac6112.dll" (ByVal hDevice As Long) As Long
Public Declare Function AC6112_STOP Lib "ac6112.dll" (ByVal hDevice As Long) As Long
Public Declare Function AC6112_REW Lib "ac6112.dll" (ByVal hDevice As Long) As Long
Public Declare Function AC6112_READ_HARD_FIFO Lib "ac6112.dll" (ByVal hDevice As Long, fifo_data As Long, ByVal length As Long) As Long
Public Declare Function AC6112_READ_KFIFO Lib "ac6112.dll" (ByVal hDevice As Long, fifo_data As Long, ByVal length As Long) As Long
Public Declare Function AC6112_AD_TIMER Lib "ac6112.dll" (ByVal hDevice As Long, ByVal adTimer As Long) As Long

Public Declare Function AC6112_DA_MODE Lib "ac6112.dll" (ByVal hDevice As Long, ByVal DAMode As Long) As Long
Public Declare Function AC6112_DA0 Lib "ac6112.dll" (ByVal hDevice As Long, ByVal DAData0 As Long) As Long
Public Declare Function AC6112_DA1 Lib "ac6112.dll" (ByVal hDevice As Long, ByVal DAData1 As Long) As Long

Public Declare Function AC6112_IO_MODE Lib "ac6112.dll" (ByVal hDevice As Long, ByVal IOMode As Long) As Long


Public Declare Function AC6112_DI Lib "ac6112.dll" (ByVal hDevice As Long, DIData As Long) As Long
Public Declare Function AC6112_DO Lib "ac6112.dll" (ByVal hDevice As Long, ByVal DOData As Long) As Long

Public Declare Function AC6112_RCOUNTER Lib "ac6112.dll" (ByVal hDevice As Long, CounterData As Long) As Long
Public Declare Function AC6112_WCOUNTER Lib "ac6112.dll" (ByVal hDevice As Long, ByVal CounterData As Long) As Long
Public Declare Function AC6112_RTIMER Lib "ac6112.dll" (ByVal hDevice As Long, TimerData As Long) As Long

Public Declare Function AC6112_TEST_HARDWARE Lib "ac6112.dll" (ByVal hDevice As Long) As Long
Public Declare Function AC6112_PROGRAM_TEST Lib "ac6112.dll" (ByVal hDevice As Long) As Long