VB给单片机发数据问题.docVIP

VB给单片机发数据问题 悬赏分：5 - 解决时间：2007-4-23 16:34 用VB的MSCOMM给单片机发十六进制的数11，单片机收到后把11送过来，用VB的text显示，请问高手怎么编写VB的程序，谢谢！ 问题补充： 是一秒钟发送一个数据11 Dim intTime As Integer Private strSendText As String 发送文本数据 Private bytSendByte() As Byte 发送二进制数据 Private blnReceiveFlag As Boolean Private blnAutoSendFlag As Boolean Private intPort As Integer Private strSet As String Private intReceiveLen As Integer Private bytReceiveByte() As Byte Private strAscii As String 设置初值 Private strHex As String Private intHexWidth As Integer Private intLine As Integer Private m As Integer Private strAddress As String 字符表示的十六进制数转化为相应的整数,错误则返回 -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 Dim n As Integer 计数 txtSend = 设初值 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(s