|
发表于 2021-11-6 13:09:08
|
显示全部楼层
浙江省温州市
.版本 2
.支持库 iext
.局部变量 线程状态, 逻辑型
.局部变量 计次, 整数型
.局部变量 局_队列数, 整数型
.局部变量 行数, 整数型
.局部变量 延时时间, 文本型
.局部变量 执行数量, 整数型
.局部变量 创建状态, 逻辑型
.局部变量 投递计次, 整数型
.局部变量 可用线程, 整数型
.局部变量 int, 整数型
.局部变量 局_索引, 整数型
.局部变量 线程数, 整数型
.局部变量 标记数量, 整数型
开始.禁止 = 真
结束.禁止 = 假
线程数 = 到整数 (线程数量.内容)
执行数量 = 超级列表框1.取表项数 ()
.如果真 (线程数 > 执行数量)
线程数 = 执行数量
.如果真结束
创建状态 = 线程池.创建 (线程数, 线程数, )
.如果真 (取反 (创建状态))
信息框 (“线程创建失败,请重试!”, 0, , )
开始.标题 = “开始”
返回 ()
.如果真结束
投递计次 = 0
.判断循环首 (投递计次 < 执行数量)
可用线程 = 线程池.取_空闲线程数 ()
.如果真 (可用线程 > 0)
int = 执行数量 - 投递计次
.如果真结束
.如果真 (int > 可用线程)
int = 可用线程
.如果真结束
.计次循环首 (int, )
线程池.投递任务 (&返利, 标记数量, )
标记数量 = 标记数量 + 1
投递计次 = 投递计次 + 1
程序_延时 (20, )
.计次循环尾 ()
处理事件 ()
.如果真 (线程池.等待任务动态 () = 假)
跳出循环 ()
.如果真结束
.判断循环尾 ()
.判断循环首 (线程池.取_是否空闲 () = 假)
处理事件 ()
.如果真 (线程池.取_状态 () = 0)
跳出循环 ()
.如果真结束
程序_延时 (20, )
.判断循环尾 ()
.如果真 (线程池.销毁 (0, ))
.如果真结束
开始.禁止 = 假
|
|