程序_延时后如何结束该线程

奇诺

有个判断循环的子程序，比如执行一次需要延时一分钟，但是如果我点击按钮2开关=0的情况下，需要一分钟后才判断，如果我在这一分钟内重新点击按钮1开关=1的话，后台就会有两个子程序1的现在在进行，会重复，有什么方法能直接停止掉

qcby

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
开关	整数型
a	整数型

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

开关 ＝ 1
启动线程 (&子程序1, , )

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

开关 ＝ 0
调试输出 (“停止循环判断”)

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

变量名	类 型	静态	数组	备 注
i	整数型

判断循环首 (开关 ≠ 0)
调试输出 (“进入循环判断”)
如果 (a ＝ 0)
a ＝ 1
计次循环首 (60, i)  ' 60就相当于延迟60秒
如果 (开关 ＝ 0)
a ＝ 0
调试输出 (“循环判断被中断”)
返回 ()
调试输出 (i)
程序_延时 (1, 1)
计次循环尾 ()
a ＝ 0
调试输出 (“循环判断结束”)
返回 ()  ' 不需要继续循环就返回。需要继续循环60就把这个删掉

如果 (a ＝ 1)
调试输出 (“已进入循环判断！”)
返回 ()




判断循环尾 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 开关, 整数型<br /> .程序集变量 a, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 开关 ＝ 1<br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 开关 ＝ 0<br /> 调试输出 (“停止循环判断”)<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> <br /> .判断循环首 (开关 ≠ 0)<br />     调试输出 (“进入循环判断”)<br />     .如果 (a ＝ 0)<br />         a ＝ 1<br />         .计次循环首 (60, i)  ' 60就相当于延迟60秒<br />             .如果 (开关 ＝ 0)<br />                 a ＝ 0<br />                 调试输出 (“循环判断被中断”)<br />                 返回 ()<br />             .否则<br />                 调试输出 (i)<br />             .如果结束<br />             程序_延时 (1, 1)<br />         .计次循环尾 ()<br />         a ＝ 0<br />         调试输出 (“循环判断结束”)<br />         返回 ()  ' 不需要继续循环就返回。需要继续循环60就把这个删掉<br /> <br />     .否则<br />         .如果 (a ＝ 1)<br />             调试输出 (“已进入循环判断！”)<br />             返回 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .判断循环尾 ()

这样你应该好理解点

[14:20:08] * “进入循环判断”
[14:20:08] * 1
[14:20:09] * 2
[14:20:10] * 3
[14:20:11] * 4
[14:20:12] * 5
[14:20:13] * 6
[14:20:13] * “进入循环判断”
[14:20:13] * “已进入循环判断！”
[14:20:14] * 7
[14:20:15] * 8
[14:20:16] * 9
[14:20:17] * 10
[14:20:17] * “停止循环判断”
[14:20:18] * “循环判断被中断”

补充内容 (2025-10-4 14:22):
多次点击按钮1不会重复执行循环。

baitso

程序_延时(1000*60) 就是一分钟，把它写成一个自己的等待子程序

.版本 2

.子程序 等待
.参数 delay

.计次循环首 (delay, )
    .如果真 (开关 ＝ 0)
        返回 ()
    .如果真结束
    程序_延时(1000)
.计次循环尾 ()

右手胜过左手

第一种：把延时60妙改为1000毫秒一次。你要判断开关、写成60秒没实际意义了。第二种：接收线程句柄。启动线程前判断句柄有效就结束线程(结束后要把句柄归零)、再次启动。推荐你用第一种方法

xf702

延迟（），自动结束吧。。

qcby

  

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

开关 ＝ 1
启动线程 (&子程序1, , )

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

开关 ＝ 0
调试输出 (3)

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

变量名	类 型	静态	数组	备 注
a	整数型

判断循环首 (开关 ≠ 0)
调试输出 (1)
a ＝ 1
如果真 (a ＝ 1)
a ＝ 2
计次循环首 (60, )  ' 60就相当于延迟60秒
调试输出 (2)
如果真 (开关 ＝ 0)
返回 ()
程序_延时 (1, 1)
计次循环尾 ()

判断循环尾 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 开关 ＝ 1<br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 开关 ＝ 0<br /> 调试输出 (3)<br /> <br /> .子程序 子程序1<br /> .局部变量 a, 整数型<br /> <br /> .判断循环首 (开关 ≠ 0)<br />     调试输出 (1)<br />     a ＝ 1<br />     .如果真 (a ＝ 1)<br />         a ＝ 2<br />         .计次循环首 (60, )  ' 60就相当于延迟60秒<br />             调试输出 (2)<br />             .如果真 (开关 ＝ 0)<br />                 返回 ()<br />             .如果真结束<br />             程序_延时 (1, 1)<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

补充内容 (2025-10-4 14:07):
[14:07:13] * 1
[14:07:13] * 2
[14:07:14] * 2
[14:07:15] * 2
[14:07:16] * 3
[14:07:16] * 2

yuzhong

用线程销毁命令 ，来结束线程。

帅气与大侠

打开精易模块源码，找到程序延时命令，自己封装一个，将定时器句柄暴露出来，需要强制退出的时候，用该定时器句柄将时间设置为零，再销毁该定时器句柄，就可以立即退出

nha30

强制销毁线程即可，调用 这个 线程_销毁 ()  命令。不过不建议这么做

奇诺

qcby 发表于 2025-10-4 14:21
[e=0].版本 2
.支持库 EThread
.支持库 spec

哥，我没理解错的话是这样吧，把程序_延时这个改为这个框里全部