global.bas

来自「16 relay output channels and 16 isolated」· BAS 代码 · 共 31 行

Attribute VB_Name = "mdlGlobal"
Global Const MaxEntries = 255
Global DeviceHandle As Long
Global ptDevGetFeatures As PT_DeviceGetFeatures
Global lpDevFeatures As DEVFEATURES
Global devicelist(0 To MaxEntries) As PT_DEVLIST
Global SubDevicelist(0 To MaxEntries) As PT_DEVLIST
Global ErrCde As Long
Global szErrMsg As String * 80
Global bRun As Boolean

Global Const MAX_DEVICES As Integer = 100
Global lpAIConfig As PT_AIConfig
Global AiVolIn As PT_AIVoltageIn
Global AiVolInExp As PT_AIVoltageInExp
Global ptAIGetConfig As PT_AIGetConfig
Global DevConfig As DEVCONFIG_AI
'Global AiCtrMode As Integer
Global nDevice As Integer       'device number
Global nSubDevice As Integer    'sub device
Global nChannel As Integer
Global nExpChan As Integer
Global nBoardID As Integer
Global nGain As Integer
Global gnNumOfDevices As Integer, gnNumOfSubDevices As Integer

Public Function uShowErrMsg() As Integer
    DRV_GetErrorMessage ErrCode, szErrMsg
    uShowErrMsg = MsgBox(szErrMsg, vbOKOnly, "Error!")
End Function