请教各位,下面程序执行到Timer2.Enabled = True后,是Timer2和接下来的语句Comm1.InBufferCount = 0同时执行还是Timer2执行完后再执行Comm1.InBufferCount = 0,一下为任意程序片断。
Private Sub TimerBegin_Timer()
If TCOMFu <> 2 Then
'辅温控仪设置为通讯方式
Comm1.Settings = "1200,E,7,1"
SR50_CMD = "F71"
Comm1.OutBufferCount = 0
If Comm1.PortOpen = False Then
Comm1.PortOpen = True
End If
SR50_BC = Right("0" + Hex(SR73_Address), 2) + SR50_CMD + ":"
Call MakeBCC
SR50_cmdstring = "@" + SR50_BC + SR50_BCC + Chr$(13)
Comm1.Output = SR50_cmdstring
'TimerBegin.Enabled = False
Timer2.Enabled = True
Comm1.InBufferCount = 0
Comm1.RThreshold = 1
TCOMFu = 1
Exit Sub
End If
Private Sub TimerBegin_Timer()
If TCOMFu <> 2 Then
'辅温控仪设置为通讯方式
Comm1.Settings = "1200,E,7,1"
SR50_CMD = "F71"
Comm1.OutBufferCount = 0
If Comm1.PortOpen = False Then
Comm1.PortOpen = True
End If
SR50_BC = Right("0" + Hex(SR73_Address), 2) + SR50_CMD + ":"
Call MakeBCC
SR50_cmdstring = "@" + SR50_BC + SR50_BCC + Chr$(13)
Comm1.Output = SR50_cmdstring
'TimerBegin.Enabled = False
Timer2.Enabled = True
Comm1.InBufferCount = 0
Comm1.RThreshold = 1
TCOMFu = 1
Exit Sub
End If
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货