VB串口调试代码 一串口调试精灵为基础的

Public intPort As Integer
Public strSet As String
Public intTime As Integer

Public blnAutoSendFlag As Boolean
Public blnReceiveFlag As Boolean

Public intOutMode As Integer
Public strSendText As String
Public bytSendByte() As Byte

Public intASCIIChk As Integer
Public intHexChk As Integer
Public intAddressChk As Integer
Public intAdd48Chk As Integer


Public strAddress   As String
Public strHex   As String
Public strASCII  As String
Public intHexWidth As Integer
Public intoriginX As Long
Public intoriginY As Integer
Public intline As Integer

Public Const chrwidth = 105
Public Const chrheight = 2 * chrwidth
Public Const borderwidth = 210
Public Const linemax = 16

Public bytreceivebyte() As byte
Public intreceivelen As Integer


Public Sub inputmanage(bytinput() As Byte, intinputlenth As Integer)
Dim n As Integer

ReDim Preserve bytreceivebyte(intreceivelen + intinputlenth)

For n = 1 To intinputlenth Step 1
bytreceivebyte(intreceivelen + n - 1) = bytinput(n - 1)
Next n
intreceivelen = intreceivelen + intinputlenth
End Sub
Public Sub getdisplaytext()
Dim n As Integer
Dim intvalue As Integer
Dim inthighhex As Integer
Dim intlowhex As Integer
Dim strsinglechr As String * 1

Dim intaddress As Integer
Dim intaddressarray(8) As Integer
Dim inthighaddress As Integer

strASCII = ""
strHex = ""
strAddress = ""

For n = 1 To intreceivelen