global.bas

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

Attribute VB_Name = "Module2"
Option Explicit
Const MaxEntries = 9        ' This version under windows can use 9 device only
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 lpAIConfig As PT_AIConfig
Global AiVolIn As PT_AIVoltageIn
Global ptAIGetConfig As PT_AIGetConfig
Global AiCtrMode As Integer
Global wGainCode(0 To 15) As Integer
Global iGainIndex(0 To 15) As Integer
Global dfCurDevice As DEVCONFIG_AI
Global lpDEVCONFIG_AI As DEVCONFIG_AI
Global lpAIGetConfig As PT_AIGetConfig
Global gnNumOfSubdevices As Integer
Global Response As Integer
Global lBuffer() As Long
Global ptAiStart As PT_FAIDualDmaScanStart
Global ptDmaBuffer As PT_AllocateDMABuffer
Global lActualBufSize As Long
Global lDmaBufPtr As Long

Public Function ChkErr(ByVal lErrCde As Long) As Long
    If (lErrCde <> 0) Then
        DRV_GetErrorMessage lErrCde, szErrMsg
        Response = MsgBox(szErrMsg, vbOKOnly, "Error!!")
        ChkErr = 1
    Else
        ChkErr = 0
    End If
End Function
Public Function GainCodeFilling()
Dim i As Integer
    For i = 0 To Val(frmSelDev.CombChCount.Text)
        iGainIndex(i) = frmSelDev.ListGain.ListIndex
    Next i
End Function