16进制串口编码.pdfVIP

求助 ~ ！！！如何用 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