global.bas

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

Attribute VB_Name = "mdlGlobal"
Option Explicit
Global Const MaxEntries = 255
Global DeviceHandle As Long
Global gdwBoardID 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          'if counter is runing

'
Global ptQCounterConfig As PT_QCounterConfig
Global ptQCounterStart As PT_QCounterStart
Global ptQCounterRead As PT_QCounterRead
Global nDevice As Integer       'device number
Global nInputMode As Integer    'input mode
Global nChannel As Integer      'channel
Global nLatchSource As Integer  'latch source
Global bResetAfterlatch As Integer
Global bFreeRun As Integer
Global bResetValue As Boolean   'FALSE for reset to 0x000000, TRUE for 0x800000


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