关于一个R232数据传送代码的修改

Question

本帖最后由 aqq886_88 于 2013-05-06 22:46:17 编辑

Answer 1

       If Len(Hex(BytReceived(I))) = 1 Then
         strData = strData & "0" & Hex(BytReceived(I)) & " " '如果只有一个字符，则前补0，如F显示0F，最后补空格
        Else                                                  '方便显示观察如： 00 0F FE
         strData = strData & Hex(BytReceived(I)) & " "
        End If
这里每一字节都需要两次转十六进制字符串。我一般这样做：
strData = strData & Right("0" & Hex(BytReceived(I)), 2) & " "

Answer 2

我的意思是TEXTBOX有多行数据，发送的时候可以处理多行数据，并在数据接收区也是同样多行显示

Answer 3

http://download.csdn.net/detail/veron_04/4037248