VB 串口接收16进制数据的问题
Private Sub hexReceive()

On Error GoTo Err
Dim ReceiveArr() As Byte ' 接收数据数组
Dim receiveData As String ' 数据暂存
Dim Counter As Integer ' 接收数据个数计数器
Dim i As Integer ' 循环变量

If (MSComm.InBufferCount > 0) Then
Counter = MSComm.InBufferCount ' 读取接收数据个数
receiveData = "" ' 清缓冲

ReceiveArr = MSComm.Input ' 数据放入数组

For i = 0 To (Counter - 1) Step 1 ' 数据格式处理

If (ReceiveArr(i) < 16) Then
receiveData = receiveData & "0" + Hex(ReceiveArr(i)) '
Else

receiveData = receiveData & Hex(ReceiveArr(i))
End If

Next i

TxtReceive.Text = TxtReceive.Text + receiveData ' 显示接收的十六进制数据，能正常显示的
Print Mid(receiveData, 13, 8) ' 取接受到的字符串的13位开始的8个字符，为什么这句就不行呢
End If


Err:

End Sub


就最后 不能取 receiveData 的13位开始的8个字符呢???
[解决办法]
你的代码有问题，参阅一下这个：
http://download.csdn.net/detail/veron_04/1262066
[解决办法]
你的代码有问题，参阅一下这个：
http://download.csdn.net/detail/veron_04/1262066
[解决办法]
有什么 问题啊
谢谢 你说明下啊
你发的 连接 没有下载 提示的