main.bas

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

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 nWorkMode As Integer
Public Const MODE_MANUAL = 0
Public Const MODE_AUTO = 1

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 nReplyLen As Integer

Public nBlockParity As Integer '0=none, 1=xor, 2=add
Public nEndMark As Integer     '0=none, 1=cr, 2=crlf