16進制串口編碼

1、求助!如何用VB6. 0實現(xiàn)串口通信。要求十六進制發(fā)送，十六進制接收!謝謝高手們!7 個*字符表示的十六進制數(shù)轉(zhuǎn)化為相應(yīng)的整數(shù)錯誤則返回-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 遇到非法字符中斷轉(zhuǎn)化 H

3、exDataLen = HexDataLen - 1Exit ForElseHexData = HighHexData * 16 + LowHexData bytByte(HexDataLen) = HexData HexDataLen = HexDataLen + 1End IfNext nIf HexDataLen 0 Then修正最后一次循環(huán)改變的數(shù)值HexDataLen = HexDataLen - 1ReDim Preserve bytByte(HexDataLen)ElseReDim Preserve bytByte(0)End IfIf StringLen = 0 Then如果是

4、空串，則不會進入循環(huán)體strHexToByteArray = 0ElsestrHexToByteArray = HexDataLen + 1End IfEnd Function以十六進制編碼方式進行發(fā)送時候，發(fā)送的應(yīng)該是二進制數(shù)據(jù)流，從textsend文本框中得到的只是String, 應(yīng)該將其轉(zhuǎn)換為Byte Arrey。作為十六進制數(shù)，其中應(yīng)該只包括09這10個數(shù)字以及AF，或者af這6 個字母，為了增強可讀性，我們允許其中插入空格，其他的字符則應(yīng)該視為非法字符。我們約定，從頭開 始，每兩個有效的字符作為一個字節(jié)的內(nèi)容，如果有效字符的總數(shù)是奇數(shù)，則忽略最后一個單獨的字符， 若遇到非法字符，則對其后面的字符均不作處理。上面的函數(shù)是實現(xiàn)這兩個功能的。本人想設(shè)置2個按鈕，其中一個發(fā)送，一個接受，都采取十六進制編碼方式，但是不知道如何