main.bas

来自「监控类的开发」· BAS 代码 · 共 26 行

Attribute VB_Name = "Main"
Option Explicit
' timerCommStartMark can be used as COM ReadBusy,
' at this time, you cannot write COM!
Public TimerCommStartMark As Boolean
Public strRecHex As String 'received hex chars
Public bSwitch As Boolean
Public bStatus As Byte
Public SoundMark As Boolean
Public strSoundPath As String
Public strSoundOut1 As String
Public nMaxChars As Long
Public Const EOT = "04"
Public Const RD = "52"
Public Const STX = "02"
Public Const WD = "57"
Public strADDress As String
Public nReadLen As Integer
Public nWriteLen As Integer
Public nBlockParity As Integer '0=none, 1=xor, 2=add
Public nEndMark As Integer     '0=none, 1=cr, 2=crlf