进程卡住的问题

不可一世的男人

如图所示，先点击按钮2，再点击按钮1，就会无限卡住，调试状态和编译后都一样，不知道问题出在哪里

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
bool	逻辑型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

按钮1.禁止 ＝ 真
判断循环首 (真)
如果 (bool)
延迟 (500)
跳出循环 ()

判断循环尾 ()
信息框 (123, 0, , _启动窗口)
按钮1.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮2_被单击

按钮2.禁止 ＝ 真
子程序1 ()
延迟 (5000)
子程序2 ()
按钮2.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
子程序1

判断循环首 (真)
如果 (bool)
延迟 (500)
跳出循环 ()

判断循环尾 ()
bool ＝ 真

子程序名	返回值类型	公开	备 注
子程序2

bool ＝ 假

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 bool, 逻辑型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 按钮1.禁止 ＝ 真<br /> .判断循环首 (真)<br />     .如果 (bool)<br />         延迟 (500)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 信息框 (123, 0, , _启动窗口)<br /> 按钮1.禁止 ＝ 假<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 按钮2.禁止 ＝ 真<br /> 子程序1 ()<br /> 延迟 (5000)<br /> 子程序2 ()<br /> 按钮2.禁止 ＝ 假<br /> <br /> .子程序 子程序1<br /> <br /> .判断循环首 (真)<br />     .如果 (bool)<br />         延迟 (500)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> bool ＝ 真<br /> <br /> .子程序 子程序2<br /> <br /> bool ＝ 假

LEOONL

不可一世的男人 发表于 2024-10-14 14:38
如果只点击按钮2，不点击按钮1，一切正常，按钮1只是循环检测变量而已

你的子程序1把bool设为了真，然后又在延迟途中执行了按钮1的无限循环延迟，你的延迟5000并不会结束执行子程序2，要这样写

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
bool	逻辑型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

按钮1.禁止 ＝ 真
判断循环首 (真)
如果 (bool)
延迟 (500)
跳出循环 ()

判断循环尾 ()
信息框 (123, 0, , _启动窗口)
按钮1.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮2_被单击

按钮2.禁止 ＝ 真
子程序1 ()

子程序名	返回值类型	公开	备 注
子程序1

判断循环首 (真)
如果 (bool)
延迟 (500)
跳出循环 ()

判断循环尾 ()
bool ＝ 真
启动线程 (&子程序2, , )

子程序名	返回值类型	公开	备 注
子程序2

延时 (5000)
bool ＝ 假
按钮2.禁止 ＝ 假

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 bool, 逻辑型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 按钮1.禁止 ＝ 真<br /> .判断循环首 (真)<br />     .如果 (bool)<br />         延迟 (500)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 信息框 (123, 0, , _启动窗口)<br /> 按钮1.禁止 ＝ 假<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 按钮2.禁止 ＝ 真<br /> 子程序1 ()<br /> <br /> .子程序 子程序1<br /> <br /> .判断循环首 (真)<br />     .如果 (bool)<br />         延迟 (500)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> bool ＝ 真<br /> 启动线程 (&子程序2, , )<br /> <br /> .子程序 子程序2<br /> <br /> 延时 (5000)<br /> bool ＝ 假<br /> 按钮2.禁止 ＝ 假

LEOONL

你这卡循环的代码写的没毛病啊，不卡才有问题

不可一世的男人

LEOONL 发表于 2024-10-14 14:28
你这卡循环的代码写的没毛病啊，不卡才有问题

如果只点击按钮2，不点击按钮1，一切正常，按钮1只是循环检测变量而已

dnxl

你这是不给线程喘气的机会，

a13149057125

在那个按钮1的事件里的循环还有子程序1的循环里面的那个延迟的箭头下面写个处理事件（）就好了，你现在卡是因为它循环的速度太快了导致的

不可一世的男人

a13149057125 发表于 2024-10-14 14:46
在那个按钮1的事件里的循环还有子程序1的循环里面的那个延迟的箭头下面写个处理事件（）就好了，你现在卡是 ...

不行哦，我说的卡不是卡死，是进程死循环了，出不来，5楼那位朋友方法可以，但是我想不用线程解决

不可一世的男人

LEOONL 发表于 2024-10-14 14:40
你的子程序1把bool设为了真，然后又在延迟途中执行了按钮1的无限循环延迟，你的延迟5000并不会结束执行子 ...

谢谢解答，这个方法确实可以，不过这个延迟5秒是我模拟程序工作过程中的耗时，由于两个程序需要操作同一个文件，有时候怕互相干扰，本来准备用许可证，但我这个不是线程，许可证不能用

补充内容 (2024-10-14 15:50):
说错了，是同一个程序里面不同子程序需要读写同一个文件，这些子程序不是线程方式启动，许可证好像不管用

LEOONL

不可一世的男人 发表于 2024-10-14 15:48
谢谢解答，这个方法确实可以，不过这个延迟5秒是我模拟程序工作过程中的耗时，由于两个程序需要操作同一 ...

就算用线程代码流程也是按你正确思路走的，这不就是你本身想要的效果吗，有啥不同