global.bas

天津大学电机试验台程序,可以测试电机启动电流

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 lpCounterEventStart As PT_CounterEventStart
Global lpCounterEventRead As PT_CounterEventRead

Global lpCounterEventStarts As PT_CounterEventStart
Global lpCounterEventReads As PT_CounterEventRead

Global lpCounterEventStartc As PT_CounterEventStart
Global lpCounterEventReadc As PT_CounterEventRead

Global reportdb As Database
Global reportrd

Global eddb As Database
Global edtable As TableDef
Global edrd

Global kzdb As Database
Global kztable As TableDef
Global kzrd

Global qddb As Database
Global qdtable As TableDef
Global qdrd

Global dzdb As Database
Global dztable As TableDef
Global dzrd

Global lddb As Database
Global ldtable As TableDef
Global ldrd

Global reportname As String

Global form2load As Boolean


Global edhavebedone As Boolean
Global qdhavebedone As Boolean
Global kzhavebedone As Boolean
Global dzhavebedone As Boolean