pcmod.bas

ISAbankaqudong henhaoyongdeshigehaoruanjian

Attribute VB_Name = "Module1"
'pc7423b.dll 为动态链接库，是VC编写
'ad()为AD采集函数
'返回参数为通道ch采集的数据
'ch为采集通道号
'port为板口基地址
'delay 为I/O操作延时
'Declare Function pc7423ad Lib "pc7423bn.dll" (ByVal port As Integer, ByVal ch As Integer, ByVal dly As Integer) As Integer
'ts()测试DLL存在，仅供发声
Declare Sub ts Lib "ht-pc.dll" ()
Declare Sub pcreg Lib "ht-pc.dll" ()
Declare Function pcin Lib "ht-pc.dll" (ByVal port As Integer, ByVal dly As Integer) As Integer
Declare Sub pcout Lib "ht-pc.dll" (ByVal port As Integer, ByVal data As Integer, ByVal dly As Integer)

'ch(16)为AD通道判断，=True表示择通，=False表示屏蔽
Public ch(16) As Boolean
Public delay As Integer
'port为板口基地址
Public port As Integer