读书人

VB串口通信怎么对接收到的一组数据进行

发布时间: 2012-09-16 17:33:16 作者: rapoo

VB串口通信如何对接收到的一组数据进行处理?
用VB接收一串数据,是16进制的,每位数两个字节,如何把接收到的数据计算后分别存储

[解决办法]
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
[解决办法]

VB code
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 

读书人网 >VB

热点推荐