多线程投递索引乱

jjj2016888

多线程投递，正常使用无问题，当我开始之后线程没运行完毕，直接结束，然后在开始，这时候多线程的任务索引就乱了。

没事瞎琢磨

不用变量控制的话，把这个放死循环里应该可以

    .如果真 (鱼刺多线程.取_状态 () ＝ 0)
        跳出循环 ()

850536360

主线程的死循环还在执行，加个停止条件让它结束循环

jjj2016888

850536360 发表于 2024-12-5 12:41
主线程的死循环还在执行，加个停止条件让它结束循环

确实可以，但是这样就多了个全局变量  有没有简单写法

没事瞎琢磨

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
鱼刺多线程	鱼刺类_线程池
集_临界	鱼刺类_临界许可
开关	逻辑型

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

变量名	类 型	静态	数组	备 注
集_线程句柄	整数型

' 启动主线程
开关 ＝ 真
集_线程句柄 ＝ 线程_启动 (&主线程, , )

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

变量名	类 型	静态	数组	备 注
局部_线程数	整数型
局部_任务数量	整数型
已执行任务数	整数型
线程池	逻辑型

' 线程_置处理器关系 (集_线程句柄, )
工作表单_超级列表框.全部删除 ()
局部_线程数 ＝ 到整数 (注册线程_编辑框.内容)
局部_任务数量 ＝ 到整数 (注册数量_编辑框.内容)
原子_赋值 (已执行任务数, 0)
线程池 ＝ 鱼刺多线程.创建 (局部_线程数)
如果真 (线程池 ＝ 假)
调试输出 (“线程池创建失败|请重新打开！”, 0, , )
返回 ()

调试输出 (“线程池创建成功|当前最大线程数为：” ＋ 到文本 (局部_线程数))
判断循环首 (开关)
如果真 (鱼刺多线程.取_空闲线程数 () ＞ 0)
鱼刺多线程.投递任务 (&任务线程, 已执行任务数, )
原子_递增 (已执行任务数)
如果真 (已执行任务数 ≥ 局部_任务数量)
调试输出 (“任务投递完成，请稍等任务执行完成！”)
跳出循环 ()

程序_延时 (50)
判断循环尾 ()
鱼刺多线程.销毁 (2)
程序_延时 (500)
调试输出 (“任务已完成！”)

子程序名	返回值类型	公开	备 注
任务线程
参数名	类 型	参考	可空	数组	备 注
任务索引	整数型

变量名	类 型	静态	数组	备 注
手机号	文本型

置随机数种子 ()
手机号 ＝ 到文本 (取随机数 (10000000000, 19999999999))
测例Demo1 (任务索引, 手机号)

子程序名	返回值类型	公开	备 注
测例Demo1
参数名	类 型	参考	可空	数组	备 注
任务索引	整数型
手机号	文本型

变量名	类 型	静态	数组	备 注
列	整数型

集_临界.进入 ()
列 ＝ _启动窗口.工作表单_超级列表框.插入表项 (, , , , , )
_启动窗口.工作表单_超级列表框.置标题 (列, 0, 到文本 (列 ＋ 1))
_启动窗口.工作表单_超级列表框.置标题 (列, 1, 手机号)
_启动窗口.工作表单_超级列表框.置标题 (列, 2, “当前任务索引：” ＋ 到文本 (任务索引))
_启动窗口.工作表单_超级列表框.置标题 (列, 4, 到文本 (取随机数 (0, 9999)))
集_临界.退出 ()
返回 ()

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

变量名	类 型	静态	数组	备 注
状态	逻辑型

开关 ＝ 假
状态 ＝ 鱼刺多线程.销毁 (1, 真)
如果 (状态)
调试输出 (“程序结束完毕”)
调试输出 (“程序结束失败”)

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 鱼刺多线程, 鱼刺类_线程池<br /> .程序集变量 集_临界, 鱼刺类_临界许可<br /> .程序集变量 开关, 逻辑型<br /> <br /> .子程序 _开始_按钮_被单击<br /> .局部变量 集_线程句柄, 整数型<br /> <br /> ' 启动主线程<br /> 开关 ＝ 真<br /> 集_线程句柄 ＝ 线程_启动 (&主线程, , )<br /> <br /> <br /> .子程序 主线程<br /> .局部变量 局部_线程数, 整数型<br /> .局部变量 局部_任务数量, 整数型<br /> .局部变量 已执行任务数, 整数型<br /> .局部变量 线程池, 逻辑型<br /> <br /> ' 线程_置处理器关系 (集_线程句柄, )<br /> <br /> 工作表单_超级列表框.全部删除 ()<br /> <br /> 局部_线程数 ＝ 到整数 (注册线程_编辑框.内容)<br /> 局部_任务数量 ＝ 到整数 (注册数量_编辑框.内容)<br /> <br /> 原子_赋值 (已执行任务数, 0)<br /> <br /> 线程池 ＝ 鱼刺多线程.创建 (局部_线程数)<br /> <br /> .如果真 (线程池 ＝ 假)<br />     调试输出 (“线程池创建失败|请重新打开！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 调试输出 (“线程池创建成功|当前最大线程数为：” ＋ 到文本 (局部_线程数))<br /> <br /> .判断循环首 (开关)<br /> <br /> <br />     .如果真 (鱼刺多线程.取_空闲线程数 () ＞ 0)<br /> <br />         鱼刺多线程.投递任务 (&任务线程, 已执行任务数, )<br />         原子_递增 (已执行任务数)<br /> <br />     .如果真结束<br />     .如果真 (已执行任务数 ≥ 局部_任务数量)<br />         调试输出 (“任务投递完成，请稍等任务执行完成！”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     程序_延时 (50)<br /> <br /> .判断循环尾 ()<br /> <br /> 鱼刺多线程.销毁 (2)<br /> <br /> 程序_延时 (500)<br /> <br /> 调试输出 (“任务已完成！”)<br /> <br /> <br /> <br /> <br /> .子程序 任务线程<br /> .参数 任务索引, 整数型<br /> .局部变量 手机号, 文本型<br /> <br /> 置随机数种子 ()<br /> 手机号 ＝ 到文本 (取随机数 (10000000000, 19999999999))<br /> 测例Demo1 (任务索引, 手机号)<br /> <br /> <br /> .子程序 测例Demo1<br /> .参数 任务索引, 整数型<br /> .参数 手机号, 文本型<br /> .局部变量 列, 整数型<br /> <br /> 集_临界.进入 ()<br /> 列 ＝ _启动窗口.工作表单_超级列表框.插入表项 (, , , , , )<br /> _启动窗口.工作表单_超级列表框.置标题 (列, 0, 到文本 (列 ＋ 1))<br /> _启动窗口.工作表单_超级列表框.置标题 (列, 1, 手机号)<br /> _启动窗口.工作表单_超级列表框.置标题 (列, 2, “当前任务索引：” ＋ 到文本 (任务索引))<br /> _启动窗口.工作表单_超级列表框.置标题 (列, 4, 到文本 (取随机数 (0, 9999)))<br /> 集_临界.退出 ()<br /> 返回 ()<br /> <br /> <br /> .子程序 _结束_按钮_被单击<br /> .局部变量 状态, 逻辑型<br /> <br /> 开关 ＝ 假<br /> 状态 ＝ 鱼刺多线程.销毁 (1, 真)<br /> <br /> .如果 (状态)<br />     调试输出 (“程序结束完毕”)<br /> .否则<br />     调试输出 (“程序结束失败”)<br /> .如果结束