Question

VB 关于串口中断Oncomm接收事件的方式

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive '接收中断
gRecNum = MSComm1.InBufferCount
If gRecNum = 10 Then '一帧接收完毕
ReDim gRecInfo(0 To 9) As Byte
gRecInfo = MSComm1.Input '读取数据
MSComm1.InBufferCount = 0 '清空缓冲区
数据处理。。。。。。
End If
End Select
End Sub 接收10个字节数据触发一个oncomm接收事件，把接收缓冲区的字节数给grecNum，再把缓冲器的字节数赋给gRecInfo，再清空缓冲区，进行数据处理，处理完了又要进行中断，如果这时缓冲区的字节数大于10 的话怎么搞，到底计算机处理的速度有多快（波特率57600）？ 上面中断的处理很容易导致死机，所以就换了下面的一种方式（我想问的是下面这种方式是不是运行只进行一次oncomm中断）
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive '接收中断
gRecByte = MSComm1.Input
gRecInfo(0) = gRecByte(0)
If gRecInfo(0) = &HFF Then
MSComm1.RThreshold = 0 '关闭中断
'接收其余9个字节
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 9

For gRecnum = 1 To 9
gRecByte = MSComm1.Input
gRecInfo(gRecnum) = gRecByte(0)
Next gRecnum

If gRecInfo(0) = &HFF And gRecInfo(1) = &HFF Then
。。。。。。进行数据处理

Answer 1

MSComm1.RThreshold =10 改成10就是每10个字节产生oncomm接收事件，10个数据处理一处理，速度快多了，波特率一般对计算机没有限制，主要看下位机所能处理的速度。

追问

处理完了，是不是等待缓冲区到10个字节又要执行一次oncomm事件呢，因为我数据处理的代码很多，我以为等我处理一次数据之后，缓冲区已经不止10个字节数据了

追答

可以先关闭oncomm接收事件，然后等到处理完成数据在打开接收

Answer 2

现在的计算机芯片速度快的多了，处理数据的速度远远快于COM口接收的速度，LZ的担忧是多余的。

Answer 3

为什么不有数据就接收呢？

推荐看书
Visual_Basic与_RS-232_串行通信控制

追问

串口调试助手看过，肯定有数据啥，