pcmod.bas

基于数据采集卡的测试程序

Attribute VB_Name = "PcMod"


Declare Function pci7483check Lib "pci7483.dll" (ByVal dwVendorID%, ByVal dwDeviceID%, ByVal fUseInt As Boolean, ByVal cardNO%) As Long

Declare Function pci7483ad Lib "pci7483.dll" (ByVal hplx As Long, ByVal addr As Boolean, ByVal ch%) As Integer
 
Declare Sub pci7483da Lib "pci7483.dll" (ByVal hplx As Long, ByVal addr As Boolean, ByVal data%, ByVal ch%)

Declare Function pci7483di Lib "pci7483.dll" (ByVal hplx As Long, ByVal addr As Boolean, ByVal ch%) As Integer

Declare Sub pci7483do Lib "pci7483.dll" (ByVal hplx As Long, ByVal addr As Boolean, ByVal ch%, ByVal data%)

Declare Sub pci7483jsset Lib "pci7483.dll" (ByVal hplx As Long, ByVal addr As Boolean, ByRef sd As Byte)

Declare Sub pci7483js Lib "pci7483.dll" (ByVal hplx As Long, ByVal addr As Boolean, ByRef jsd As Long)

Declare Function pci7483close Lib "pci7483.dll" (ByVal hplx As Long) As Integer

Declare Sub pci7483IntClkSet Lib "pci7483.dll" (ByVal hplx As Long, ByVal clk%)

Declare Sub pci7483EnableInt Lib "pci7483.dll" (ByVal hplx As Long)

Declare Sub pci7483DisableInt Lib "pci7483.dll" (ByVal hplx As Long)


'ch(16)为AD通道判断，=True表示择通，=False表示屏蔽
Public ch(16) As Boolean

Public hplx As Long
Public addr As Boolean
Public dwVendorID As Integer
Public dwDeviceID As Integer
Public fUseInt As Boolean