线程内循环有延迟 怎样让线程自己判断跳出自然结束

墨轩

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
是否运行	逻辑型
线程句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮_任务控制_被单击

如果 (按钮_任务控制.标题 ＝ “开始”)
按钮_任务控制.标题 ＝ “停止”
是否运行 ＝ 真
线程句柄 ＝ 线程_启动 (&任务线程, , )
按钮_任务控制.标题 ＝ “开始”
是否运行 ＝ 假
线程_等待 (线程句柄, -1)
线程_销毁 (线程句柄)

子程序名	返回值类型	公开	备 注
任务线程

判断循环首 (是否运行)
程序_延时 (10000, )
调试输出 (“此时应该运行任务1”)
程序_延时 (20000, )
调试输出 (“此时应该运行任务2”)
判断循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 是否运行, 逻辑型<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 _按钮_任务控制_被单击<br /> <br /> .如果 (按钮_任务控制.标题 ＝ “开始”)<br />     按钮_任务控制.标题 ＝ “停止”<br />     是否运行 ＝ 真<br />     线程句柄 ＝ 线程_启动 (&任务线程, , )<br /> .否则<br />     按钮_任务控制.标题 ＝ “开始”<br />     是否运行 ＝ 假<br />     线程_等待 (线程句柄, -1)<br />     线程_销毁 (线程句柄)<br /> .如果结束<br /> <br /> <br /> .子程序 任务线程<br /> <br /> .判断循环首 (是否运行)<br />     程序_延时 (10000, )<br />     调试输出 (“此时应该运行任务1”)<br />     程序_延时 (20000, )<br />     调试输出 (“此时应该运行任务2”)<br /> .判断循环尾 ()

如果强制销毁会有内存泄漏或者资源未释放的问题 有没有方案在线程内判断自行跳出来自然结束呢？

122449100

.版本 2

    .计次循环首 (100, i)
        程序_延时 (100)
        .如果真 (是否运行 ＝ 假)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
把延时10000 分成100个 100毫秒来做 100毫秒检测一次是否跳出循环

b0y

是否运行=假 循环结束

墨轩

b0y 发表于 2025-7-4 13:28
是否运行=假 循环结束

延时过程中不会进行下一条命令，如果按照是否运行=假，在延时的时候点击按钮停止后台也还会继续运行，直到下一次循环判断才会结束。想解决的是这个问题。

尛龍科技

可以写一个线程信号，判断线程信号就行了