多线程投递任务求助

wohenhao123

  

子程序名	返回值类型	公开	备 注
多线程			多线程执行逻辑

变量名	类 型	静态	数组	备 注
线程数量	整数型
空闲线程数量	整数型
总任务数量	整数型
单次投递数量	整数型
已投递数量	整数型
i	整数型

线程数量 ＝ 到整数 (超级列表框1.取表项数 ())
如果真 (鱼刺线程池.创建 (线程数量, 线程数量, ) ＝ 假)
信息框 (“线程池启动失败！”, 0, , )
返回 ()

总任务数量 ＝ 到整数 (超级列表框1.取表项数 ())
已投递数量 ＝ 0
判断循环首 (已投递数量 ＜ 总任务数量)
空闲线程数量 ＝ 鱼刺线程池.取_空闲线程数 ()
单次投递数量 ＝ 空闲线程数量
如果真 (空闲线程数量 ＞ 0)
计次循环首 (总任务数量, i)
鱼刺线程池.投递任务 (&单号流程, i － 1, )
已投递数量 ＝ 已投递数量 ＋ 1
程序_延时 (100, )
计次循环尾 ()

如果真 (鱼刺线程池.等待任务动态 () ＝ 假)
跳出循环 ()

判断循环尾 ()
判断循环首 (鱼刺线程池.取_是否有空闲 () ＝ 假)
如果真 (鱼刺线程池.取_状态 () ＝ #线程池_正在销毁 )
跳出循环 ()
程序_延时 (100)
判断循环尾 ()
状态 ＝ 鱼刺线程池.销毁 (1, )
日志 (“抽奖结束”)
返回 ()

子程序名	返回值类型	公开	备 注
单号流程
参数名	类 型	参考	可空	数组	备 注
行	整数型
token	文本型

变量名	类 型	静态	数组	备 注
邀请码	文本型
余额	文本型

如果真 (超级列表框1.取当前状态图片 (行) ＝ 1)
token ＝ 登录 (行)
超级列表框1.置标题 (行, 3, token)
延迟 (1000)
超级列表框1.置标题 (行, 3, 抽奖 (行, token))
邀请码 ＝ 获取邀请码 (token)
余额 ＝ 获取余额 (token)
超级列表框1.置状态图片 (行, 0)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 多线程, , 公开, 多线程执行逻辑<br /> .局部变量 线程数量, 整数型<br /> .局部变量 空闲线程数量, 整数型<br /> .局部变量 总任务数量, 整数型<br /> .局部变量 单次投递数量, 整数型<br /> .局部变量 已投递数量, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 线程数量 ＝ 到整数 (超级列表框1.取表项数 ())<br /> .如果真 (鱼刺线程池.创建 (线程数量, 线程数量, ) ＝ 假)<br />     信息框 (“线程池启动失败！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 总任务数量 ＝ 到整数 (超级列表框1.取表项数 ())<br /> 已投递数量 ＝ 0<br /> .判断循环首 (已投递数量 ＜ 总任务数量)<br />     空闲线程数量 ＝ 鱼刺线程池.取_空闲线程数 ()<br />     单次投递数量 ＝ 空闲线程数量<br />     .如果真 (空闲线程数量 ＞ 0)<br /> <br />         .计次循环首 (总任务数量, i)<br />             鱼刺线程池.投递任务 (&单号流程, i － 1, )<br />             已投递数量 ＝ 已投递数量 ＋ 1<br />             程序_延时 (100, )<br />         .计次循环尾 ()<br /> <br />     .如果真结束<br /> <br />     .如果真 (鱼刺线程池.等待任务动态 () ＝ 假)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> <br /> .判断循环首 (鱼刺线程池.取_是否有空闲 () ＝ 假)<br />     .如果真 (鱼刺线程池.取_状态 () ＝ #线程池_正在销毁)<br />         跳出循环 ()<br />     .如果真结束<br />     程序_延时 (100)<br /> .判断循环尾 ()<br /> 状态 ＝ 鱼刺线程池.销毁 (1, )<br /> 日志 (“抽奖结束”)<br /> 返回 ()<br /> <br /> .子程序 单号流程<br /> .参数 行, 整数型<br /> .参数 token, 文本型<br /> .局部变量 邀请码, 文本型<br /> .局部变量 余额, 文本型<br /> <br /> .如果真 (超级列表框1.取当前状态图片 (行) ＝ 1)<br />     token ＝ 登录 (行)<br />     超级列表框1.置标题 (行, 3, token)<br />     延迟 (1000)<br />     超级列表框1.置标题 (行, 3, 抽奖 (行, token))<br />     邀请码 ＝ 获取邀请码 (token)<br />     余额 ＝ 获取余额 (token)<br />     超级列表框1.置状态图片 (行, 0)<br /> .如果真结束

上传不了附件不知道怎么了，请求各位大佬，假如导入超级列表框十个数据，多线程正在3线程运行中，运行的中途中我再增加10条数据，怎么样写加的10条也能运行，不是只运行里面最开始的十个，或者不用超级列表框。投递任务的时候把参数投递进去也行（用超级列表框是能取这些数据）

E小菜鸟

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
任务队列	整数型
正在运行	逻辑型

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

变量名	类 型	静态	数组	备 注
线程数量	整数型
空闲线程数量	整数型
总任务数量	整数型
单次投递数量	整数型
已投递数量	整数型
i	整数型

线程数量 ＝ 到整数 (超级列表框1.取表项数 ())
如果真 (鱼刺线程池.创建 (线程数量, 线程数量, ) ＝ 假)
信息框 (“线程池启动失败！”, 0, , )
返回 ()

正在运行 ＝ 真
任务队列 ＝ 取所有待处理行 ()
判断循环首 (正在运行)
空闲线程数量 ＝ 鱼刺线程池.取_空闲线程数 ()
总任务数量 ＝ 取数组成员数 (任务队列)
' 动态检测是否有新任务加入
如果真 (总任务数量 ＜ 超级列表框1.取表项数 ())
任务队列 ＝ 取所有待处理行 ()
总任务数量 ＝ 取数组成员数 (任务队列)

如果真 (空闲线程数量 ＞ 0 且 总任务数量 ＞ 0)
单次投递数量 ＝ 取最小值 (空闲线程数量, 总任务数量)
计次循环首 (单次投递数量, )
' 从队列中取出任务
i ＝ 任务队列 [1]
删除成员 (任务队列, 1, 1)
鱼刺线程池.投递任务 (&单号流程, i, )
已投递数量 ＝ 已投递数量 ＋ 1
程序_延时 (100, )
计次循环尾 ()

如果真 (鱼刺线程池.等待任务动态 () ＝ 假)
跳出循环 ()

如果真 (总任务数量 ＝ 0)
程序_延时 (500)

判断循环尾 ()
判断循环首 (鱼刺线程池.取_是否有空闲 () ＝ 假)
如果真 (鱼刺线程池.取_状态 () ＝ #线程池_正在销毁 )
跳出循环 ()
程序_延时 (100)
判断循环尾 ()
状态 ＝ 鱼刺线程池.销毁 (1, )
正在运行 ＝ 假
日志 ("抽奖结束")
返回 ()

子程序名	返回值类型	公开	备 注
取所有待处理行	整数型

变量名	类 型	静态	数组	备 注
行数	整数型
i	整数型
结果	整数型		0

行数 ＝ 超级列表框1.取表项数 ()
计次循环首 (行数, i)
如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
加入成员 (结果, i － 1)

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
取最小值	整数型
参数名	类 型	参考	可空	数组	备 注
值1	整数型
值2	整数型

如果 (值1 ＜ 值2)
返回 (值1)
返回 (值2)

子程序名	返回值类型	公开	备 注
添加新任务
参数名	类 型	参考	可空	数组	备 注
新数据	文本型

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型

' 添加新数据到超级列表框
' 这里假设新数据是文本数组，需要根据实际情况修改
计次循环首 (取数组成员数 (新数据), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 新数据 [i])
超级列表框1.置状态图片 (索引, 1)  ' 标记为待处理
计次循环尾 ()
' 如果线程池正在运行，则更新任务队列
如果真 (正在运行)
任务队列 ＝ 取所有待处理行 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 任务队列, 整数型<br /> .程序集变量 正在运行, 逻辑型<br /> <br /> .子程序 多线程, , 公开<br /> .局部变量 线程数量, 整数型<br /> .局部变量 空闲线程数量, 整数型<br /> .局部变量 总任务数量, 整数型<br /> .局部变量 单次投递数量, 整数型<br /> .局部变量 已投递数量, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 线程数量 ＝ 到整数 (超级列表框1.取表项数 ())<br /> <br /> .如果真 (鱼刺线程池.创建 (线程数量, 线程数量, ) ＝ 假)<br />     信息框 (“线程池启动失败！”, 0, , )<br /> <br />     返回 ()<br /> .如果真结束<br /> <br /> 正在运行 ＝ 真<br /> <br /> <br /> 任务队列 ＝ 取所有待处理行 ()<br /> <br /> .判断循环首 (正在运行)<br />     空闲线程数量 ＝ 鱼刺线程池.取_空闲线程数 ()<br />     总任务数量 ＝ 取数组成员数 (任务队列)<br /> <br />     ' 动态检测是否有新任务加入<br />     .如果真 (总任务数量 ＜ 超级列表框1.取表项数 ())<br />         任务队列 ＝ 取所有待处理行 ()<br />         总任务数量 ＝ 取数组成员数 (任务队列)<br /> <br />     .如果真结束<br /> <br />     .如果真 (空闲线程数量 ＞ 0 且 总任务数量 ＞ 0)<br />         单次投递数量 ＝ 取最小值 (空闲线程数量, 总任务数量)<br /> <br />         .计次循环首 (单次投递数量, )<br />             ' 从队列中取出任务<br />             i ＝ 任务队列 [1]<br />             删除成员 (任务队列, 1, 1)<br /> <br />             鱼刺线程池.投递任务 (&单号流程, i, )<br />             已投递数量 ＝ 已投递数量 ＋ 1<br />             程序_延时 (100, )<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br />     .如果真 (鱼刺线程池.等待任务动态 () ＝ 假)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (总任务数量 ＝ 0)<br />         程序_延时 (500)<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .判断循环首 (鱼刺线程池.取_是否有空闲 () ＝ 假)<br />     .如果真 (鱼刺线程池.取_状态 () ＝ #线程池_正在销毁)<br />         跳出循环 ()<br />     .如果真结束<br />     程序_延时 (100)<br /> .判断循环尾 ()<br /> 状态 ＝ 鱼刺线程池.销毁 (1, )<br /> 正在运行 ＝ 假<br /> 日志 ("抽奖结束")<br /> 返回 ()<br /> <br /> .子程序 取所有待处理行, 整数型, 公开<br /> .局部变量 行数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 整数型, , "0"<br /> <br /> 行数 ＝ 超级列表框1.取表项数 ()<br /> .计次循环首 (行数, i)<br />     .如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)<br />         加入成员 (结果, i － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 取最小值, 整数型<br /> .参数 值1, 整数型<br /> .参数 值2, 整数型<br /> <br /> .如果 (值1 ＜ 值2)<br />     返回 (值1)<br /> .否则<br />     返回 (值2)<br /> .如果结束<br /> <br /> <br /> .子程序 添加新任务, , 公开<br /> .参数 新数据, 文本型, 数组<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> ' 添加新数据到超级列表框<br /> ' 这里假设新数据是文本数组，需要根据实际情况修改<br /> <br /> .计次循环首 (取数组成员数 (新数据), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 新数据 <i>)<br />     超级列表框1.置状态图片 (索引, 1)  ' 标记为待处理<br /> .计次循环尾 ()<br /> <br /> ' 如果线程池正在运行，则更新任务队列<br /> .如果真 (正在运行)<br />     任务队列 ＝ 取所有待处理行 ()<br /> .如果真结束