global.bas

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

Attribute VB_Name = "global"
Option Explicit

Global Const giMaxEntries = 255

Global ghDev As Long
Global gDevFeature As DEVFEATURES    'Current device's features
Global gDevCfgAi As DEVCONFIG_AI

Global giMaxChl As Integer
Global giConvCount As Integer
Global giGainCode(0 To 15) As Integer
Global giCondition(0 To 15) As Integer
Global gTrigLevel(0 To 15) As TRIGLEVEL
Global gWatchdogCfg As PT_FAIWatchdogConfig

Global glDmaBufPtr As Long

Function DoesErr(lErrCde As Long) As Integer

Dim szErrMsg As String * 100
Dim iRet As Integer
        
    If lErrCde <> 0 Then
        DRV_GetErrorMessage lErrCde, szErrMsg
        iRet = MsgBox(szErrMsg, vbOKOnly, "Error!!")
        DoesErr = 1
    Else
        DoesErr = 0
    End If
    
End Function