Question

VB中PC机与单片机通信

单片机中的数据是：00 01 02 03 04'每发送一次指令，触发下面事件，返回数据串Private Sub MSComm1_OnComm() Dim Inbyte() As Byte Dim buffer As String Dim max_minstr As String '读取仪表返回数据串 Select Case MSComm1.CommEvent Case comEvReceive Inbyte = MSComm1.Input ’将收到是字符放在 Inbyte中 For i = LBound(Inbyte) To UBound(Inbyte) '将收到的数据以字符形式显示，LBound是第一个字符，UBound是最后一个 buffer = buffer + Hex(Inbyte(i)) + Chr(32) buffer此时的值是16进制数+空格 Next i hhh = 1 Case comEvSend End Select '从右边开始取30个字符 max_minstr = Right(buffer,30) txtFields(1).Text = Val("&H" & Mid(max_minstr, 1) ‘从第一个值开始取，取全部字符 txtFields(2).Text = Val("&H" & Mid(max_minstr, 1, 1) ‘从第一个值开始取，取1个字符 txtFields(3).Text = Val("&H" & Mid(max_minstr, 2, 10) ‘从第2个值开始取，取10个字符 End Sub最后VB返回的值是 txtFields(1).Text 返回 64txtFields(2).Text 返回 4 txtFields(3).Text 返回 0请问为什么会这样？用串口调试精灵都没什么问题啊。

Answer 1

设个断点，看看在退出comEvSend时，
buffer里存了什么数据，
Inbyte()里存了什么数据。
是单片机发送上来的么。

追问

对，我单片机存储器里面的数据是00 01 02 03 04 ，我想这些数字返回到VB的界面里面，txtFields(1).Text 返回的是64。改为 00 01 02 04 05，txtFields(1).Text 返回80，改为00 01 02 05 06，txtFields(1).Text 返回96 。好像每+1，VB里面显示的值就+16。

追答

可否把buffer放到个文本框里显示一下？

追问

在单片机数据是01 02 03 04 的情况下，Buffer中的值是40，这是怎么回事啊？缓存区默认1024，谢谢了。

追答

请检查下MSComm1.InputMode = ComInputModeBinary么？

追问

把这句话buffer = buffer + Hex(Inbyte(i)) 改为 buffer = =Hex(Inbyte(i)) + buffer 就显示04了。感觉只接受到了04这个数据，我把01 02 03 04改为01 02 03 05，最后buffer接收到了是05.前面的01 02 03没接收到，这是怎么回事呢，我前面有一句MSComm1.InputLen:=0‘一次读取所有数据。

追答

MSComm1.RThreshold = 1,
接收缓冲区收到每一个字符都会使MSComm控件产生OnComm事件。
所以，你的最后的显示都是最后一个字节的数。
你把Dim buffer As String放在函数外声明成全局变量试试。

追问

谢谢，已经解决了，问题在于MSComm1.RThreshold = 1,改为3就可以了，但是01 依旧接收不到，采纳你了。