global.bas

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

Attribute VB_Name = "Module2"
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

Global gwPort As Integer
Global dwDeviceNum As Long
Global lpReadPortWord As PT_ReadPortWord
Global lpWritePortWord As PT_WritePortWord
Global lpReadPortByte As PT_ReadPortByte
Global lpWritePortByte As PT_WritePortByte
Global lpReadPortDword As PT_ReadPortDword
Global lpWritePortDword As PT_WritePortDword