16进制串口编码

求助~！！！如何用VB6.0实现串口通信。要求十六进制发送，十六进制接收~！！谢谢高手们~！！！'**********************************

'字符表示的十六进制数转化为相应的整数

'错误则返回 -1

'**********************************

Function ConvertHexChr(str As String) As Integer

Dim test As Integer

test = Asc(str)

If test >= Asc("0") And test <= Asc("9") Then

test = test - Asc("0")

ElseIf test >= Asc("a") And test <= Asc("f") Then

test = test - Asc("a") + 10

ElseIf test >= Asc("A") And test <= Asc("F") Then

test = test - Asc("A") + 10

Else

test = -1 '出错信息

End If

ConvertHexChr = test

End Function

'**********************************

'字符串表示的十六进制数据转化为相应的字节串

'返回转化后的字节数

'**********************************

Function strHexToByteArray(strText As String, bytByte() As Byte) As Integer

Dim HexData As Integer '十六进制(二进制)数据字节对应值

Dim hstr As String * 1 '高位字符

Dim lstr As String * 1 '低位字符

Dim HighHexData As Integer '高位数值

Dim LowHexData As Integer '低位数值

Dim HexDataLen As Integer '字节数

Dim StringLen As Integer '字符串长度

Dim Account As Integer '计数

strTestn = "" '设初值

HexDataLen = 0

strHexToByteArray = 0

StringLen = Len(strText)

Account = StringLen \ 2

ReDim bytByte(Account)

For n = 1 To StringLen

Do '清除空格

hstr = Mid(strText, n, 1)

n = n + 1

If (n - 1) > StringLen Then

HexDataLen = HexDataLen - 1

Exit For

End If

Loop While hstr = " "

Do

lstr = Mid(strText, n, 1)

n = n + 1

If (n - 1) > StringLen Then

HexDataLen = HexDataLen - 1

Exit For

End If

Loop While lstr = " "

n = n - 1

If n > StringLen Then

HexDataLen = HexDataLen - 1

Exit For

End If

HighHexData = ConvertHexChr(hstr)

LowHexData = ConvertHexChr(lstr)

If HighHexData = -1 Or LowHexData = -1 Then '遇到非法字符中断转化 HexDataLen = HexDataLen - 1

Exit For

Else

HexData = HighHexData * 16 + LowHexData

bytByte(HexDataLen) = HexData

HexDataLen = HexDataLen + 1

End If

Next n

If HexDataLen > 0 Then '修正最后一次循环改变的数值

HexDataLen = HexDataLen - 1

ReDim Preserve bytByte(HexDataLen)

Else

ReDim Preserve bytByte(0)

End If

If StringLen = 0 Then '如果是空串,则不会进入循环体

strHexToByteArray = 0

Else

strHexToByteArray = HexDataLen + 1

End If

End Function

以十六进制编码方式进行发送时候，发送的应该是二进制数据流，从textsend文本框中得到的只是String,应该将其转换为Byte Arrey。作为十六进制数，其中应该只包括0~9这10个数字以及A~F，或者a~f这6个字母，为了增强可读性，我们允许其中插入空格，其他的字符则应该视为非法字符。我们约定，从头开始，每两个有效的字符作为一个字节的内容，如果有效字符的总数是奇数，则忽略最后一个单独的字符，若遇到非法字符，则对其后面的字符均不作处理。

上面的函数是实现这两个功能的。

本人想设置2个按钮，其中一个发送，一个接受，都采取十六进制编码方式，但是不知道如何将以上的函数运用进去，求高人指点~！！！本人新手，全班积分送上。

实现的功能非常简单，就希望能够发送和接受十六进制编码方式的字符串，谢谢~！！！！！！！