新人线程停止 问题

火炮兰

为什么线程停止后，还会继续执行 死循环里的内容，我现在是把a改成程序集变量，在停止按钮点击后把a=0 来停止死循环
这种方法对吗，还是怎么改循环条件


版本 2
.支持库 spec
.支持库 EThread

.程序集 窗口程序集_启动窗口
.程序集变量 线程句柄, 整数型

.子程序 _按钮1_被单击

线程句柄 ＝ 线程_启动 (&子程序1, , )


.子程序 子程序1
.局部变量 a, 整数型

a ＝ 1
.判断循环首 (a ＝ 1)
    调试输出 (取现行时间 ())
    程序_延时 (1000, )
.判断循环尾 ()

.子程序 _按钮2_被单击



.如果 (按钮2.标题 ＝ “暂停”)
    按钮2.标题 ＝ “恢复”
    线程_挂起 (线程句柄)
.否则
    线程_恢复 (线程句柄)
    按钮2.标题 ＝ “暂停”
.如果结束


.子程序 _按钮3_被单击

按钮2.标题 ＝ “暂停”
线程_销毁 (线程句柄)
调试输出 (“销毁线程”)
关闭线程句柄 (线程句柄)

火炮兰

对了，上面的问题是线程启动按钮点击2到3次以上才会出现，正常点击一次运行，在停止，是能结束的

zainex

每次调用 线程_启动，都会产生一个新的句柄。
所以，你要保留之前的句柄：

  

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

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

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

句柄 ＝ 线程_启动 (&子程序1, , )
加入成员 (数组, 句柄)

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

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

数 ＝ 1
判断循环首 (数 ＝ 1)
调试输出 (取现行时间 ())
程序_延时 (1000, )
判断循环尾 ()

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

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

如果 (按钮2.标题 ＝ “暂停”)
按钮2.标题 ＝ “恢复”
计次循环首 (取数组成员数 (数组), 数)
线程_挂起 (数组 [数])
计次循环尾 ()
计次循环首 (取数组成员数 (数组), 数)
线程_恢复 (数组 [数])
计次循环尾 ()
按钮2.标题 ＝ “暂停”

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

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

按钮2.标题 ＝ “暂停”
计次循环首 (取数组成员数 (数组), 数)
线程_销毁 (数组 [数])
关闭线程句柄 (数组 [数])
计次循环尾 ()
清除数组 (数组)
调试输出 (“销毁线程”)

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

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数组, 整数型, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 句柄, 整数型<br /> <br /> 句柄 ＝ 线程_启动 (&子程序1, , )<br /> 加入成员 (数组, 句柄)<br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 数, 整数型<br /> <br /> 数 ＝ 1<br /> .判断循环首 (数 ＝ 1)<br />     调试输出 (取现行时间 ())<br />     程序_延时 (1000, )<br /> .判断循环尾 ()<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 数, 整数型<br /> <br /> .如果 (按钮2.标题 ＝ “暂停”)<br />     按钮2.标题 ＝ “恢复”<br />     .计次循环首 (取数组成员数 (数组), 数)<br />         线程_挂起 (数组 [数])<br />     .计次循环尾 ()<br /> .否则<br />     .计次循环首 (取数组成员数 (数组), 数)<br />         线程_恢复 (数组 [数])<br />     .计次循环尾 ()<br />     按钮2.标题 ＝ “暂停”<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 数, 整数型<br /> <br /> 按钮2.标题 ＝ “暂停”<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     线程_销毁 (数组 [数])<br />     关闭线程句柄 (数组 [数])<br /> .计次循环尾 ()<br /> 清除数组 (数组)<br /> 调试输出 (“销毁线程”)

例子.zip (279.88 KB, 下载次数: 1)

2026-1-8 21:13 上传

点击文件名下载附件

du0518

最简单的办法，你启动点了一次过后把他禁止改成真，点了停止在把静止改成假，我是这么处理的

火炮兰

zainex 发表于 2026-1-8 21:13
每次调用 线程_启动，都会产生一个新的句柄。
所以，你要保留之前的句柄：
[e=1].版本 2

还有一个问题，定义个a默认初始是0 对吧，
启动2个线程的时候，先是运行第二个线程对把，他刚进来循环的时候不是0+1吗？为什么等于2
并且，第二个线程循环3次如果等于4，跳回第一个线程的时候a不是等于4进入循环吗，
那4加循环3次的a 应该等于7吧，哪里出错了呢，。
* 0
* 0
* “子程序2” | 2
* “子程序2” | 3
* “子程序2” | 4
* “子程序1” | 4
* “子程序1” | 5
* “子程序1” | 6



.版本 2
.支持库 EThread
.支持库 spec

启动线程 (&子程序1, , )
启动线程 (&子程序2, , )

.子程序 子程序1

调试输出 (a)
.计次循环首 (3, )
    a ＝ a ＋ 1
    延时 (1000)
    调试输出 (“子程序1”, a)

.计次循环尾 ()


.子程序 子程序2

调试输出 (a)
.计次循环首 (3, )
    a ＝ a ＋ 1
    调试输出 (“子程序2”, a)

.计次循环尾 ()

zainex

多个线程共用同一个全局变量，需要加许可证：

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

许可证 ＝ 创建进入许可证 ()
启动线程 (&子程序1, , )
启动线程 (&子程序2, , )

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

调试输出 (a)
计次循环首 (3, )
进入许可区 (许可证)
a ＝ a ＋ 1
调试输出 (“子程序1”, a)
退出许可区 (许可证)
延时 (1000)
计次循环尾 ()

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

调试输出 (a)
计次循环首 (3, )
进入许可区 (许可证)
a ＝ a ＋ 1
调试输出 (“子程序2”, a)
退出许可区 (许可证)
计次循环尾 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 a, 整数型<br /> .程序集变量 许可证, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 许可证 ＝ 创建进入许可证 ()<br /> 启动线程 (&子程序1, , )<br /> 启动线程 (&子程序2, , )<br /> <br /> <br /> .子程序 子程序1<br /> <br /> 调试输出 (a)<br /> .计次循环首 (3, )<br />     进入许可区 (许可证)<br />     a ＝ a ＋ 1<br />     调试输出 (“子程序1”, a)<br />     退出许可区 (许可证)<br />     延时 (1000)<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序2<br /> <br /> 调试输出 (a)<br /> .计次循环首 (3, )<br />     进入许可区 (许可证)<br />     a ＝ a ＋ 1<br />     调试输出 (“子程序2”, a)<br />     退出许可区 (许可证)<br /> .计次循环尾 ()

开始运行被调试程序
* 0
* 0
* “子程序2” | 1
* “子程序2” | 2
* “子程序2” | 3
* “子程序1” | 4
* “子程序1” | 5
* “子程序1” | 6
被调试易程序运行完毕