一个多线程zc的小案例

木子心

是不是注册数量比成功数量多>

liu86

七散 发表于 2025-6-17 15:52
[e=1].版本 2

.子程序 鱼刺多线程

这样任务数量比线程数量多的话，就不会继续执行了好像

wh1234567

感谢分享

1184798949

感谢分享

七散

  

子程序名	返回值类型	公开	备 注
鱼刺多线程

变量名	类 型	静态	数组	备 注
任务数量	整数型
线程数量	整数型
投递计次	整数型
投递数量	整数型
创建状态	逻辑型
空闲线程	整数型
投递判断	逻辑型

任务数量 ＝ 到整数 (编辑框1.内容)
线程数量 ＝ 到整数 (编辑框2.内容)
如果真 (鱼刺线程池.取_状态 () ＝ 0)
创建状态 ＝ 鱼刺线程池.创建 (线程数量, 线程数量, , , , 1024 × 128, )
如果真 (取反 (创建状态))
信息框 (“多线程创建失败”, 0, , )
返回 ()
' -----------------------进行投递
判断循环首 (投递数量 ＜ 任务数量)
判断循环首 (空闲线程 ＝ 0)
空闲线程 ＝ 鱼刺线程池.取_空闲线程数 ()
程序_延时 (50, 0)
判断循环尾 ()
如果真 (投递数量 ≥ 空闲线程)
跳出循环 ()
如果真 (空闲线程 ＞ 0)
计次循环首 (空闲线程, )
投递判断 ＝ 鱼刺线程池.投递任务 (&注册, , )
如果真 (投递判断)
投递数量 ＝ 投递数量 ＋ 1
程序_延时 (10, 0)
计次循环尾 ()
如果真 (鱼刺线程池.等待任务动态 (, ) ＝ 假)
跳出循环 ()

判断循环尾 ()
判断循环首 (真)
如果真 (鱼刺线程池.取_是否有空闲 () ＝ 真 且 鱼刺线程池.取_队列任务数 () ＝ 0 且 鱼刺线程池.取_执行线程数 () ＝ 0)
跳出循环 ()
处理事件 ()
程序_延时 (1, 1)
判断循环尾 ()
' -------------------------线程执行结束，有一部分未销毁
鱼刺线程池.销毁 (1, )

.版本 2<br /> <br /> .子程序 鱼刺多线程<br /> .局部变量 任务数量, 整数型<br /> .局部变量 线程数量, 整数型<br /> .局部变量 投递计次, 整数型<br /> .局部变量 投递数量, 整数型<br /> .局部变量 创建状态, 逻辑型<br /> .局部变量 空闲线程, 整数型<br /> .局部变量 投递判断, 逻辑型<br /> <br /> 任务数量 ＝ 到整数 (编辑框1.内容)<br /> 线程数量 ＝ 到整数 (编辑框2.内容)<br /> .如果真 (鱼刺线程池.取_状态 () ＝ 0)<br />     创建状态 ＝ 鱼刺线程池.创建 (线程数量, 线程数量, , , , 1024 × 128, )<br /> .如果真结束<br /> .如果真 (取反 (创建状态))<br />     信息框 (“多线程创建失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> ' -----------------------进行投递<br /> .判断循环首 (投递数量 ＜ 任务数量)<br />     .判断循环首 (空闲线程 ＝ 0)<br />         空闲线程 ＝ 鱼刺线程池.取_空闲线程数 ()<br />         程序_延时 (50, 0)<br />     .判断循环尾 ()<br />     .如果真 (投递数量 ≥ 空闲线程)<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (空闲线程 ＞ 0)<br />         .计次循环首 (空闲线程, )<br />             投递判断 ＝ 鱼刺线程池.投递任务 (&注册, , )<br />             .如果真 (投递判断)<br />                 投递数量 ＝ 投递数量 ＋ 1<br />             .如果真结束<br />             程序_延时 (10, 0)<br />         .计次循环尾 ()<br />     .如果真结束<br />     .如果真 (鱼刺线程池.等待任务动态 (, ) ＝ 假)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> .判断循环首 (真)<br />     .如果真 (鱼刺线程池.取_是否有空闲 () ＝ 真 且 鱼刺线程池.取_队列任务数 () ＝ 0 且 鱼刺线程池.取_执行线程数 () ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br />     处理事件 ()<br />     程序_延时 (1, 1)<br /> .判断循环尾 ()<br /> ' -------------------------线程执行结束，有一部分未销毁<br /> 鱼刺线程池.销毁 (1, )

1184798949

感谢分享

qqmqqg

66666666666666666

ogion

开源精神必须支持~

bianyuan456

已经顶贴，感谢您对论坛的支持！