| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_开始操作_被单击 | |||||
多线程.创建 (&线程执行, , 线程句柄, , , , , , )
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 线程执行 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 许可证_线程执行 | 鱼刺类_临界许可 | |||||
| 局_任务数量 | 整数型 | |||||
| 局_线程数量 | 整数型 | |||||
| 局_投递数量 | 整数型 | |||||
| 局_索引数量 | 整数型 | |||||
局_任务数量 ＝ 到整数 (编辑框_注册数量.内容)
局_线程数量 ＝ 到整数 (编辑框_注册线程.内容)
如果真 (局_任务数量 ＜ 局_线程数量)
局_任务数量 ＝ 局_线程数量
如果真 (线程池.创建 (局_线程数量, 局_线程数量, 1000, , ) ＝ 假)生成日志 (“线程池-创建失败”, #红色 )强制结束线程 (线程句柄)返回 ()生成日志 (“线程池-开始工作...”, )
如果真 (选择框_以成功为主.选中 ＝ 假)
判断循环首 (局_投递数量 ＞ 局_任务数量)如果真 (线程池.取_空闲线程数 () ＜ 0) ' 判断线程是否有空如果真 (线程池.投递任务 (&工作线程, , )) ' 如果真 (线程池.等待任务动态 (, ))原子_递增 (局_投递数量)
程序_延时 (1, )
判断循环尾 ()如果真 (选择框_以成功为主.选中 ＝ 真)判断循环首 (局_任务数量 ＝ 集_执行成功)如果真 (线程池.取_空闲线程数 () ≠ 0) ' 判断线程是否有空如果真 (线程池.投递任务 (&主线程, , )) ' 如果真 (线程池.等待任务动态 (, ))原子_递增 (局_投递数量)程序_延时 (1, )判断循环尾 ()系统_处理事件 ()
生成日志 (“线程池-正在销毁...”, )
判断循环首 (线程池.取_是否空闲 () ＝ 假) ' 如果不空闲 就说明工作全部执行完毕了可以销毁如果真 (线程池.取_状态 () ＝ #线程池_未启动 )跳出循环 ()程序_延时 (10, ) ' 加个延时 防止CPU占用过高 和防止卡死判断循环尾 ()如果真 (线程池.取_状态 () ＝ #线程池_正在工作 )线程池.销毁 (, , )
判断循环首 (线程池.取_状态 () ≠ #线程池_正在工作 )程序_延时 (10, )判断循环尾 ()生成日志 (“线程池-工作结束”, )
强制结束线程 (线程句柄)
| i支持库列表 | 支持库注释 |
| iext | 扩展界面支持库一 |
| EThread | 多线程支持库 |