多线程停不下来的问题

henengyan

  

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

变量名	类 型	静态	数组	备 注
局_任务线程	整数型
i	整数型
局_当前任务数	整数型
局_线程信息	线程_子任务信息

局_任务线程 ＝ 到整数 (编辑框_任务数.内容)
集_并发 ＝ 到整数 (编辑框_并发数.内容)
如果真 (取反 (线程池_鱼刺.创建 (局_任务线程 × 集_并发, 1500, , , , , )))
信息框 (“线程池创建失败！”, 0, , )
返回 ()

日志 (“=====================[线程池创建成功]==========================”, )
重定义数组 (集_线程组, 假, 0)
判断循环首 (真)
如果真 (超级列表框_工作表单.取表项数 () ＞ 局_当前任务数)
计次循环首 (超级列表框_工作表单.取表项数 (), i)
如果真 (超级列表框_工作表单.取标题 (i － 1, 10) ＝ “等待执行”)
加入成员 (集_线程组, 局_线程信息)
超级列表框_工作表单.置标题 (i － 1, 10, “Doing...”)
启动线程 (&线程_子线程, i, )
局_当前任务数 ＝ 局_当前任务数 ＋ 1

系统_处理事件 ()
计次循环尾 ()
程序_延时 (100, )
判断循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 主线程<br /> .局部变量 局_任务线程, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 局_当前任务数, 整数型<br /> .局部变量 局_线程信息, 线程_子任务信息<br /> <br /> <br /> 局_任务线程 ＝ 到整数 (编辑框_任务数.内容)<br /> <br /> 集_并发 ＝ 到整数 (编辑框_并发数.内容)<br /> <br /> .如果真 (取反 (线程池_鱼刺.创建 (局_任务线程 × 集_并发, 1500, , , , , )))<br /> <br />     信息框 (“线程池创建失败！”, 0, , )<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> 日志 (“=====================[线程池创建成功]==========================”, )<br /> <br /> <br /> 重定义数组 (集_线程组, 假, 0)<br /> .判断循环首 (真)<br />     .如果真 (超级列表框_工作表单.取表项数 () ＞ 局_当前任务数)<br />         .计次循环首 (超级列表框_工作表单.取表项数 (), i)<br />             .如果真 (超级列表框_工作表单.取标题 (i － 1, 10) ＝ “等待执行”)<br />                 加入成员 (集_线程组, 局_线程信息)<br />                 超级列表框_工作表单.置标题 (i － 1, 10, “Doing...”)<br />                 启动线程 (&线程_子线程, i, )<br />                 局_当前任务数 ＝ 局_当前任务数 ＋ 1<br />             .如果真结束<br /> <br />             系统_处理事件 ()<br />         .计次循环尾 ()<br />     .如果真结束<br />     程序_延时 (100, )<br /> .判断循环尾 ()

  

子程序名	返回值类型	公开	备 注
线程_子线程
参数名	类 型	参考	可空	数组	备 注
i

变量名	类 型	静态	数组	备 注
空闲线程	整数型
单次投递	整数型
执行线程数	整数型
并发	双精度小数型

' 置入代码 (#SP_Begin_7)
调试输出 (“线程子任务开始：”, i)
集_线程组 [i].子任务id ＝ i  ' 主线程
集_线程组 [i].任务线程运行中数量 ＝ 0  ' 子线程执行数量
集_线程组 [i].任务线程总运行次数 ＝ 0  ' 运行次数
集_线程组 [i].结束判断 ＝ 0  ' 结束判断
判断循环首 (真)
' 检查是否收到结束信号
如果真 (集_线程组 [i].结束判断 ＝ 1)
日志 (“线程 ” ＋ 到文本 (i) ＋ “ 收到停止信号，退出”, )
跳出循环 ()

如果真 (集_并发 － 集_线程组 [i].任务线程运行中数量 ＞ 0)
单次投递 ＝ 集_并发 － 集_线程组 [i].任务线程运行中数量
计次循环首 (单次投递, )
判断 (组合框_捡漏类型.现行选中项 ＝ 1)  ' 快捷下单
线程池_鱼刺.投递任务 (&任务_快捷下单, i, )



原子_递增 (集_线程组 [i].任务线程运行中数量)
原子_递增 (集_线程组 [i].任务线程总运行次数)
系统_处理事件 ()
程序_延时 (到整数 (编辑框_任务延迟.内容), )
计次循环尾 ()
如果真 (线程池_鱼刺.等待任务动态 (, ) ＝ 假)  ' 当用户点击停止线程  返回假  超时也是返回假
跳出循环 ()
如果真 (线程池_鱼刺.取_状态 () ＝ 3)
跳出循环 ()
如果真 (集_线程组 [i].结束判断 ＝ 1)
跳出循环 ()
系统_处理事件 ()
' 原有的线程投递逻辑...
判断循环尾 ()
调试输出 (“子线程结束”, i)
' 置入代码 (#SP_End)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 线程_子线程<br /> .参数 i<br /> .局部变量 空闲线程, 整数型<br /> .局部变量 单次投递, 整数型<br /> .局部变量 执行线程数, 整数型<br /> .局部变量 并发, 双精度小数型<br /> <br /> ' 置入代码 (#SP_Begin_7)<br /> <br /> <br /> 调试输出 (“线程子任务开始：”, i)<br /> <br /> <br /> 集_线程组 <i>.子任务id ＝ i  ' 主线程<br /> 集_线程组 <i>.任务线程运行中数量 ＝ 0  ' 子线程执行数量<br /> 集_线程组 <i>.任务线程总运行次数 ＝ 0  ' 运行次数<br /> 集_线程组 <i>.结束判断 ＝ 0  ' 结束判断<br /> <br /> .判断循环首 (真)<br />     ' 检查是否收到结束信号<br />     .如果真 (集_线程组 <i>.结束判断 ＝ 1)<br />         日志 (“线程 ” ＋ 到文本 (i) ＋ “ 收到停止信号，退出”, )<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (集_并发 － 集_线程组 <i>.任务线程运行中数量 ＞ 0)<br />         单次投递 ＝ 集_并发 － 集_线程组 <i>.任务线程运行中数量<br />         .计次循环首 (单次投递, )<br />             .判断开始 (组合框_捡漏类型.现行选中项 ＝ 1)  ' 快捷下单<br />                 线程池_鱼刺.投递任务 (&任务_快捷下单, i, )<br />             .默认<br /> <br />             .判断结束<br /> <br />             原子_递增 (集_线程组 <i>.任务线程运行中数量)<br />             原子_递增 (集_线程组 <i>.任务线程总运行次数)<br />             系统_处理事件 ()<br />             程序_延时 (到整数 (编辑框_任务延迟.内容), )<br />         .计次循环尾 ()<br /> <br />     .如果真结束<br />     .如果真 (线程池_鱼刺.等待任务动态 (, ) ＝ 假)  ' 当用户点击停止线程  返回假  超时也是返回假<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (线程池_鱼刺.取_状态 () ＝ 3)<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (集_线程组 <i>.结束判断 ＝ 1)<br />         跳出循环 ()<br />     .如果真结束<br />     系统_处理事件 ()<br />     ' 原有的线程投递逻辑...<br /> .判断循环尾 ()<br /> <br /> <br /> 调试输出 (“子线程结束”, i)<br /> ' 置入代码 (#SP_End)

  

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

变量名	类 型	静态	数组	备 注
i	整数型
index	整数型
ii	整数型
掉线	文本型

线程_销毁 (集_主线程句柄)
线程池_鱼刺.销毁 (0, )
日志 (“=====================[线程池销毁成功!!!]==========================”, )
index ＝ 超级列表框_工作表单.现行选中项
如果真 (index ≠ -1)
临界.进入 ()
超级列表框_工作表单.置标题 (index, 10, “已掉线”)
集_线程组 [index ＋ 1].结束判断 ＝ 1
临界.退出 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_结束任务_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 掉线, 文本型<br /> <br /> <br /> <br /> 线程_销毁 (集_主线程句柄)<br /> <br /> 线程池_鱼刺.销毁 (0, )<br /> <br /> 日志 (“=====================[线程池销毁成功!!!]==========================”, )<br /> <br /> <br /> index ＝ 超级列表框_工作表单.现行选中项<br /> .如果真 (index ≠ -1)<br />     临界.进入 ()<br />     超级列表框_工作表单.置标题 (index, 10, “已掉线”)<br />     集_线程组 [index ＋ 1].结束判断 ＝ 1<br />     临界.退出 ()<br /> .如果真结束

  现在是掉线的会自动停掉线的线程，没有掉线的继续运行，但是呢点停止任务呢，死活停不下来，一直嗷嗷运行

coini

.支持库 spec


集_线程池.创建 (100, 100, , 真, 1024 × 128)

集_任务工作中 ＝ 真
' =====在需要终止线程的时候 将该变量 = 假


.判断循环首 (集_任务工作中)
    .如果真 (集_注册数量 ≥ 100)  ' =====此处可以写注册数量限制  例如 注册成功100个跳出循环
        跳出循环 ()
    .如果真结束


    .如果真 (集_线程池.取_空闲线程数 () ＞ 0)
        集_线程池.投递任务 (&子程序_工作任务, , )
    .如果真结束

    程序_延时1 (10)
.判断循环尾 ()

调试输出 (“任务执行完毕 或主动终止线程 正在执行销毁线程....”)
集_线程池.销毁 (1, , )
调试输出 (“线程池销毁完毕”)

集_任务工作中 ＝ 假

[/e]

a45167039

在子线程里停止的地方加个调试输出你看看停止成功没有

补充内容 (2025-5-10 05:01):
还有就是你说的停不下来是线程一直在创建新的还是 没创建了但是在跑的线程没停下？

没事瞎琢磨

主线程死循环 一直在创建

Ruang

停下的条件不触发，无法停下

萧楚楠

根本停不下来~~~！

lyie15

程序里加个全局变量，用于进行循环的判断。子程序和主程序都可能根据判断来修改这个变量，这样就能实现对于多线程时的结束。

循环中加个判断。如果达成，则跳出循环

努力的小菜鸟

跳出循环不就可以了

henengyan

a45167039 发表于 2025-5-10 04:58
在子线程里停止的地方加个调试输出你看看停止成功没有

补充内容 (2025-5-10 05:01):

线程一直在创建

henengyan

lyie15 发表于 2025-5-10 11:11
程序里加个全局变量，用于进行循环的判断。子程序和主程序都可能根据判断来修改这个变量，这样就能实现对于 ...

教教，有点笨