我现在是用的,传送后延时,延时代码如下:
'*************************************
Public Sub MyDelay(WaitTime As Single)
'*************************************
Dim Wait As Single
Wait = Timer + WaitTime
Do
DoEvents
Loop Until (Timer > Wait)
DoEvents
End Sub
不知道是不是上面程序的问题,我试着用ONCOMM事件,代码如下,
Private Sub MSC1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
...........
End If
End Sub
我在"Private Sub MSC1_OnComm()"设置了断点,
可是在接收到串口信息时没有触发这个事件