global.bas

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

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

'
Global ptPWMStartRead As PT_PWMStartRead
Global gnNumOfDevices As Integer, gnNumOfSubDevices As Integer
Global nDevice As Integer       'device number
Global nSubDevice As Integer    'sub device number
Global nChannel As Integer      'channel
Global dbHiPeriod As Single
Global dbLoPeriod As Single

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