关于串口通信的问题,大家给点帮助

Question

Private Sub Timer4_Timer()
.....
Do
   DoEvents
   Loop Until .InBufferCount = 20.................A
   .InputLen = 20
   btReceive = .Input
.....
Timer4.Enabled = False
Timer5.Enabled = True
End With
End SubPrivate Sub Timer5_Timer()
.....
Do
   DoEvents
   Loop Until .InBufferCount = 8...................B
   .InputLen = 8
   btReceive1 = .Input
.....
Timer4.Enabled =True
Timer5.Enabled = False
End Sub
以上是我做PC和PLC通讯时的代码,发送2帧.
如果PLC先运行,通讯正常.
但是PLC后运行,程序在A 或者B 间循环.
原因是InBufferCount=0,无法满足条件(20 或者8),故无法跳出循环.
请问如何跳出循环?请高手给点建议.在此谢过

Answer 1

考虑下用ONCOMM事件来处理。TIMER与DOEVENTS方法相结合，很容易造成死循环。