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