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 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