global.bas

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

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 giIntBuf() 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