private.txt

vc下串口通讯开发程序

Private Sub Command1_Click()
Dim L1 As Integer, r1 As Integer
Dim sHex As String
Dim i As Integer
Dim InputStr As String
For i = 1 To Len(Text1.Text)
InputStr = Mid(Text1.Text, i, 1)
Select Case InputStr

Case Chr(0) To Chr(128)

Text2.Text = Text2.Text & InputStr

Case Else
sHex = Hex(Asc(Mid(Text1.Text, i, 1)))
L1 = CInt("&H" & Mid(sHex, 1, 2)) - 160

r1 = CInt("&H" & Mid(sHex, 3, 2)) - 160

Text2.Text = Text2.Text & InputStr & IIf(L1 < 10, "0" & L1, L1) & IIf(r1 < 10, "0" & r1, r1) & " "
End Select
Next

End Sub