If Vars("完成的闪烁灯次数") < 60 Then
If Vars("完成的闪烁灯号") > "" Then
If Vars("完成的闪烁灯号").CONTAINS(" FF 00") Then
Functions.Execute("灯输出控制",Vars("完成的闪烁灯号").SubString(0,11) & " 00 00")
Vars("完成的闪烁灯号") = Vars("完成的闪烁灯号").SubString(0,11) & " 00 00"
Vars("完成的闪烁灯次数") = Vars("完成的闪烁灯次数") +1
Else
Functions.Execute("灯输出控制",Vars("完成的闪烁灯号").SubString(0,11) & " FF 00")
Vars("完成的闪烁灯号") = Vars("完成的闪烁灯号").SubString(0,11) & " FF 00"
Vars("完成的闪烁灯次数") = Vars("完成的闪烁灯次数") +1
End If
End If
Else
If Vars("完成的闪烁灯号") > "" Then
Functions.Execute("灯输出控制",Vars("完成的闪烁灯号").SubString(0,11) & " 00 00")
Vars("完成的闪烁灯号") = Nothing
MyTimers("已经完成的灯闪烁").Enabled = False
End If
End If
以上的代码 放在计时器里面，当计时器开始后
如果在这个期间 触发异步的语音朗读，
以上的代码 会卡住， 直到第一次的语音朗读完成再继续，
但是经过第一次后，接下来的几次语音朗读 都不会导致 代码 卡住。
不知道各位有没试过这个情况？
[此贴子已经被作者于2016/6/14 11:45:32编辑过]
加好友 
发短信
Post By：2016/6/14 11:44:00 [只看该作者]
