按2进制接收来自单片机的12字节数据，根据通信协议的约定处理数据。
可参考：http://www.vbgood.com/thread-83700-1-1.html
注意MsComm控件的RThreshold属性设置为12
建立一个12个元素的字节数组：
Dim b(11) As Byte
然后用这个数组b去接收数据（当然要按二进制方式接收），此略
然后把b(1)到b(10)分别赋值给文本控件即可（b(0)是开头字节A5，b(11)是结束字节B3）：
Text1.Text = b(1) '如果要显示为16进制数则 Text1.Text = Hex(b(1)) ，下同
Text2.Text = b(2)
......
Text10.Text = b(10)
建议文本控件做成控件数组，这样方便得多：
For i = 0 To 9
Text(i).Text = b(i + 1)
Next
不是有 源码 下载 嘛？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024