16进制串口编码

1、求助!如何用VB6. 0实现串口通信。要求十六进制发送，十六进制接收!谢谢高手们!7 个*字符表示的十六进制数转化为相应的整数错误则返回-1, 个*Function ConvertHexChr(str As String) As IntegerDim test As Integertest = Asc(str)If test = Asc(0”) And test = Asc(a) And test = Asc(A) And test StringLen ThenHexDataLen = HexDataLen - 1Exit ForEnd IfLoop While hstr =DoIstr =

2、Mid(strText, n, 1)n = n + 1If (n - 1) StringLen ThenHexDataLen = HexDataLen - 1Exit ForEnd IfLoop While Istr =n = n - 1If n StringLen ThenHexDataLen = HexDataLen - 1Exit ForEnd IfHighHexData = ConvertHexChr(hstr)LowHexData = ConvertHexChr(lstr)If HighHexData = -1 Or LowHexData = -1 Then 遇到非法字符中断转化 H

3、exDataLen = HexDataLen - 1Exit ForElseHexData = HighHexData * 16 + LowHexData bytByte(HexDataLen) = HexData HexDataLen = HexDataLen + 1End IfNext nIf HexDataLen 0 Then修正最后一次循环改变的数值HexDataLen = HexDataLen - 1ReDim Preserve bytByte(HexDataLen)ElseReDim Preserve bytByte(0)End IfIf StringLen = 0 Then如果是

4、空串，则不会进入循环体strHexToByteArray = 0ElsestrHexToByteArray = HexDataLen + 1End IfEnd Function以十六进制编码方式进行发送时候，发送的应该是二进制数据流，从textsend文本框中得到的只是String, 应该将其转换为Byte Arrey。作为十六进制数，其中应该只包括09这10个数字以及AF，或者af这6 个字母，为了增强可读性，我们允许其中插入空格，其他的字符则应该视为非法字符。我们约定，从头开 始，每两个有效的字符作为一个字节的内容，如果有效字符的总数是奇数，则忽略最后一个单独的字符， 若遇到非法字符，则对其后面的字符均不作处理。上面的函数是实现这两个功能的。本人想设置2个按钮，其中一个发送，一个接受，都采取十六进制编码方式，但是不知道如何