main.bas

这是一本学习串口编程喝计算机监控的好书里面是用VB开发的源代码

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 Const EOT = "04"
Public Const RD = "52"
Public Const STX = "02"
Public Const WD = "57"
Public strADDress As String

Public RemoteHost As String
Public RemotePort As Integer

Public nReplyLen As Integer

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