global.bas

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

Attribute VB_Name = "Global"
    Global m_ErrCde As Long           'Return error code
    Global m_DriverHandle As Long     'driver handle
    Global m_ptDioReadPortByte As PT_DioReadPortByte
    Global m_szErrMsg As String * 80  'Use for MESSAGEBOX function
    Global m_bHiPriority As Boolean   'Evnt thread's priority
    Global m_ulDevNum As Long
    Global m_bDI0Flag As Boolean
    Global m_bDI1Flag As Boolean
    Global m_bIDI0Flag As Boolean
    Global m_bIDI1Flag As Boolean
    Global m_StartFlag As Boolean     'Start button pressed flag
    Global ptCheckEvent As PT_CheckEvent
    Global usStartFlag As Single