global.bas

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

Attribute VB_Name = "Module2"
Option Explicit
Global DeviceHandle As Long
Global ptDevGetFeatures As PT_DeviceGetFeatures
Global lpDevFeatures As DEVFEATURES
Global ptTimerCountSetting As PT_TimerCountSetting


Global ErrCde As Long
Global szErrMsg As String * 80
Global nChannel As Integer

Global ptEnableEvent As PT_EnableEvent
Global ptFDITransfer As PT_FDITransfer
Global ptCheckEvent As PT_CheckEvent

Global gInterruptCount As Long
Global gReturnData As Long
Global gEventCount As Single
Global lpDioReadPort As PT_DioReadPortByte

Global gbRun As Boolean

Global gCounter As Long