发现一个奇怪的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

Else

If Vars("完成的闪烁灯号") > "" Then

Functions.Execute("灯输出控制",Vars("完成的闪烁灯号").SubString(0,11) & " 00 00")

Vars("完成的闪烁灯号") = Nothing

MyTimers("已经完成的灯闪烁").Enabled = False

End If

以上的代码放在计时器里面，当计时器开始后

如果在这个期间触发异步的语音朗读，

以上的代码会卡住，直到第一次的语音朗读完成再继续，

但是经过第一次后，接下来的几次语音朗读都不会导致代码卡住。

不知道各位有没试过这个情况？

[此贴子已经被作者于2016/6/14 11:45:32编辑过]

测试了，

不是语音朗读问题

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

完全就是这段代码的问题

写入串口缓冲区的时候，设备接收的信号不知道怎么处理！

老是会出现处理缺失，导致灯的开关信号不能收到，

直接导致灯卡住了！

请问袍哥除了这个方法还有没其他的办法做到灯闪烁

[此贴子已经被作者于2016/6/14 12:23:33编辑过]

值没有问题的，单独发送都可以

"01 05 00 07 FF 00" 开

"01 05 00 07 00 00" 关

（数组写入已经进行处理）

用 System.Threading.Thread.Sleep(300)，能够有效间隔开。

请教如何使通过代码让灯发生闪烁，但不会导致系统挂起！

另外开一条线程的行否？

改怎么写呢

[此贴子已经被作者于2016/6/14 13:40:04编辑过]

袍哥

主题：发现一个奇怪的问题