VB串口通信如何对接收到的一组数据进行处理？

dh243210877 2012-09-05 05:33:37

用VB接收一串数据，是16进制的，每位数两个字节，如何把接收到的数据计算后分别存储

...全文

1302 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

贝隆 2012-09-07

打赏
举报

http://topic.csdn.net/u/20120905/17/847e2a2d-75f9-4556-9423-963beaf1d09b.html?1264

dh243210877 2012-09-07

打赏
举报

太谢谢了！不好意思 Call RecvBufAdd(dd, i%)里边(dd, i%)怎么解释？问题可能很弱智，不过我确实还只不明白，麻烦再解释下，不胜感激！！！

dh243210877 2012-09-07

打赏
举报

哦，太谢谢了！

sosoben 2012-09-07

打赏
举报

[Quote=引用 5 楼的回复:]

太谢谢了！不好意思 Call RecvBufAdd(dd, i%)里边(dd, i%)怎么解释？问题可能很弱智，不过我确实还只不明白，麻烦再解释下，不胜感激！！！
[/Quote]

这个是自己定义的函数（那人可能自己编的没把那函数代码贴出来）啊，括号里面的参数就是把dd这个数组和它的数据个数传到函数里面处理啊，怎么处理看你自己编程啊，你可以加到数据库，也可先按照规律运算一下

http://download.csdn.net/detail/sosoben/4473038 这是我自己编的，简陋且没什么计算，只是把它显示出来

dh243210877 2012-09-06

打赏
举报

秋天的树，麻烦注释下程序，我不太能看懂！谢谢。

dh243210877 2012-09-06

打赏
举报

我VB刚起步，麻烦详细解释一下，不胜感激！

sosoben 2012-09-06

打赏
举报



Private Sub MSComm1_OnComm() '这是串口触发的事件

Dim dd() As Byte, i%   ' 定义变量

Dim iTime As Double    ' 定义变量



  Select Case MSComm1.CommEvent      

  Case comEvReceive ' 收到 RThreshold # ofchars(收到你定义的字符数时触发事件)

  i% = MSComm1.InBufferCount    ' 收到多少个字符

  ReDim dd(i% + 1)               '重定义数组的下界

  dd = MSComm1.Input             '获取串口缓存里的数据

  Call RecvBufAdd(dd, i%) '处理接收串口数据   (这个是你自己写的处理数据的过程)

  end select

xxfly 2012-09-05

打赏
举报

Private Sub MSComm1_OnComm()
Dim dd() As Byte, i%
Dim iTime As Double

Select Case MSComm1.CommEvent
Case comEvReceive ' 收到 RThreshold # ofchars.

i% = MSComm1.InBufferCount
ReDim dd(i% + 1)
dd = MSComm1.Input
Call RecvBufAdd(dd, i%) '处理接收串口数据
end select