分享个鱼刺的多线程框架

旧故里草木深

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程池	鱼刺类_线程池Ex
任务数量	整数型
许可证	鱼刺类_临界许可

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

皮肤_加载 ( #皮肤_清新, , )

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

按钮_开始.禁止 ＝ 真
启动线程 (&多线程, , )
任务数量 ＝ 到整数 (编辑框_任务数量.内容)

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

变量名	类 型	静态	数组	备 注
任务总数	整数型
当前任务	整数型
空闲线程数	整数型
线程数量	整数型
状态值	逻辑型

线程池.创建 (到整数 (编辑框_线程数.内容), , , , , , )
当前任务 ＝ 1
任务总数 ＝ 任务数量
判断循环首 (当前任务 ≤ 任务总数)
空闲线程数 ＝ 线程池.取_空闲线程数 ()
如果真 (空闲线程数 ＞ 0)
线程数量 ＝ 空闲线程数
计次循环首 (线程数量, )
线程池.投递任务 (&任务线程, 当前任务)
当前任务 ＝ 当前任务 ＋ 1
计次循环尾 ()
状态值 ＝ 线程池.等待任务动态 (, )
如果真 (状态值 ＝ 真)
返回 ()

判断循环尾 ()
判断循环首 (线程池.取_是否有空闲 () ＝ 假)
如果真 (线程池.取_状态 () ≠ 1)
返回 ()
状态值 ＝ 线程池.等待任务动态 (100, )
判断循环尾 ()
线程池.销毁 (0, )
按钮_开始.禁止 ＝ 假

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

许可证.进入 ()
调试输出 (“工作了”)
许可证.退出 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程池, 鱼刺类_线程池Ex<br /> .程序集变量 任务数量, 整数型<br /> .程序集变量 许可证, 鱼刺类_临界许可<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 皮肤_加载 (#皮肤_清新, , )<br /> <br /> .子程序 _按钮_开始_被单击<br /> <br /> 按钮_开始.禁止 ＝ 真<br /> 启动线程 (&多线程, , )<br /> 任务数量 ＝ 到整数 (编辑框_任务数量.内容)<br /> <br /> .子程序 多线程<br /> .局部变量 任务总数, 整数型<br /> .局部变量 当前任务, 整数型<br /> .局部变量 空闲线程数, 整数型<br /> .局部变量 线程数量, 整数型<br /> .局部变量 状态值, 逻辑型<br /> <br /> 线程池.创建 (到整数 (编辑框_线程数.内容), , , , , , )<br /> 当前任务 ＝ 1<br /> 任务总数 ＝ 任务数量<br /> .判断循环首 (当前任务 ≤ 任务总数)<br />     空闲线程数 ＝ 线程池.取_空闲线程数 ()<br />     .如果真 (空闲线程数 ＞ 0)<br />         线程数量 ＝ 空闲线程数<br /> <br />         .计次循环首 (线程数量, )<br />             线程池.投递任务 (&任务线程, 当前任务)<br />             当前任务 ＝ 当前任务 ＋ 1<br />         .计次循环尾 ()<br />     .如果真结束<br />     状态值 ＝ 线程池.等待任务动态 (, )<br />     .如果真 (状态值 ＝ 真)<br />         返回 ()<br />     .如果真结束<br /> <br /> <br /> .判断循环尾 ()<br /> .判断循环首 (线程池.取_是否有空闲 () ＝ 假)<br />     .如果真 (线程池.取_状态 () ≠ 1)<br />         返回 ()<br /> <br />     .如果真结束<br />     状态值 ＝ 线程池.等待任务动态 (100, )<br /> .判断循环尾 ()<br /> 线程池.销毁 (0, )<br /> 按钮_开始.禁止 ＝ 假<br /> <br /> .子程序 任务线程<br /> <br /> 许可证.进入 ()<br /> <br /> <br /> 调试输出 (“工作了”)<br /> <br /> 许可证.退出 ()

A牧羊人A

如果真 (空闲线程数 ＞ 0)
线程数量 ＝ 空闲线程数

这两句没用，可以省略

a33463

感谢分享

七哥

  

状态值 ＝ _线程池.等待任务动态 (, )
如果真 (状态值 ＝ 假)
返回 ()

.版本 2<br /> <br />     状态值 ＝ _线程池.等待任务动态 (, )<br />     .如果真 (状态值 ＝ 假)<br />         返回 ()

应该是这样吧

skyhx

试了只能生成线程数

小E新手

感谢分享，很给力！

392139335

感谢分享，很给力！

aabo123

让吞吞吐吐吞吞吐吐拖拖沓沓他他他他他他他他他他他他他他他他他他他他他他他他他他他他他他他他他

Dinesh

线程停止和线程挂起呢

dede1