接收数据处理问题

13:52:12.000 01 01 02 00 00 B9 FC
13:52:12.996 01 01 02 00 00 B9 FC
13:52:13.990 01 01 02 00 00 B9 FC
13:52:14.996 7E 05 A1 30 33 E9 01 01 02 10 40 B5 CC
13:52:15.995 01 01 02 10 40 B5 CC
13:52:16.988 01 01 02 10 40 B5 CC
当我接收到7E的数据时，我想清除这条记录不显示

Select Case MSComm1.CommEvent
Case comEvReceive '接收十六进制数据。并以十六进制显示
MSComm1.InputLen = 0
buffer = MSComm1.Input '接收数据至字符串中
BytesReceived() = buffer '将数据转入Byte数组中
For i = 0 To UBound(BytesReceived) '显示结果以十六进制显示
MSComm1.RThreshold = 7 Or MSComm1.RThreshold = 8
If Len(Hex(BytesReceived(i))) = 1 Then
HData = HData & "0" & Hex(BytesReceived(i))
Else
HData = HData & Hex(BytesReceived(i))
End If
txtreceive.Text = HData '最后将结果后入Text1中
MSComm1.OutBufferCount = 0 '清除发送缓冲区
MSComm1.InBufferCount = 0 '清除接收缓冲区
Next
End Select

08:36:51.488 7E 05 A1 30 33 01 01 02 10 00 B4 3C
08:36:52.031 7E 05 A1 30 33 09 EF
08:36:52.497 01 01 02 00 00 B9 FC
08:36:57.498 7E 05 A1 30 33 09 EF 01 01 02 10 00 B4 3C
有个问题，7e开始的数据是排除了，但是由于MSComm1.RThreshold = 7，只能屏蔽8位，后面的数据还是会接收，影响后面的逻辑判断。大佬这个问题咋处理呢。

解决了，想的复杂了，加个 Else
MSComm1.OutBufferCount = 0 '清除发送缓冲区
MSComm1.InBufferCount = 0 '清除接收缓冲区

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

3回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六