多线程问题

gzzsk1

执行数大于线程数时候点击开始没有反应，调试到第二次以后第三次就调试不了，不知道是什么原因，只有执行数等于线程数时候才可以运行，求大佬解决！


代码：

  

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

如果真 (到整数 (编辑框2.内容) ＞ 到整数 (编辑框1.内容))
编辑框2.内容 ＝ 编辑框1.内容

调试输出 (“第一次调试”)
判断 (按钮开始线程.标题 ＝ “开始”)
调试输出 (“第二次调试”)
调试输出 (线程_创建 (&线程操作, , , , , , , 真, , ))
如果真 (线程_创建 (&线程操作, , , , , , , 真, , ) ＝ 假)
调试输出 (“第三次调试”)
按钮开始线程.禁止 ＝ 假
返回 ()
按钮开始线程.标题 ＝ “暂停”
运行状态.执行成功 ＝ 0
工作中 ＝ 真

判断 (按钮开始线程.标题 ＝ “暂停”)
工作线程池.暂停 ()
暂停状态 ＝ 真
按钮开始线程.标题 ＝ “继续”
判断 (按钮开始线程.标题 ＝ “继续”)
工作线程池.继续 ()
暂停状态 ＝ 假
按钮开始线程.标题 ＝ “暂停”

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

变量名	类 型	静态	数组	备 注
bool	逻辑型
列表数	整数型
导入行数	整数型

zhong.线程数 ＝ 到整数 (编辑框2.内容)
线程数 ＝ zhong.线程数
判断 (线程数 ＞ 999)
线程数 ＝ 999



如果真 (工作线程池.取_状态 () ≠ 0)
信息框 (“线程池未初始化！”, 3, , )
返回 ()
如果真 (工作线程池.创建 (线程数, 线程数, , 真, ) ＝ 假)
信息框 (“线程池创建失败！”, 3, , )
返回 ()
总数 ＝ 到整数 (编辑框1.内容)
运行状态.派发任务数量 ＝ 总数
计次循环首 (线程数, )
' 如果真 (运行状态.执行成功 ＝ 总数 或 工作中 ＝ 假)
' 跳出循环 ()
工作线程池.投递任务 (&任务程序)
计次循环尾 ()
判断循环首 (工作线程池.取_执行线程数 () ≠ 0)
_延迟 (2000)
判断循环尾 ()
工作中 ＝ 假
工作线程池.销毁 (2, , 真)
按钮开始线程.禁止 ＝ 假
按钮停止线程.标题 ＝ “停止”
按钮开始线程.标题 ＝ “开始”
按钮停止线程.禁止 ＝ 假
运行状态.执行成功 ＝ 0

子程序名	返回值类型	公开	备 注
任务程序
参数名	类 型	参考	可空	数组	备 注
行数	整数型
导入资料行数	整数型

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

线程_初始化COM库 ()
临界.进入 ()
行数 ＝ 超级列表框注册.插入表项 (, , , , , )
临界.退出 ()
循环判断首 ()
超级列表框注册.保证显示 (行数)
超级列表框注册.置标题 (行数, 0, 到文本 (行数 ＋ 1))
超级列表框注册.置标题 (行数, 1, “正在执行...”)
置随机数种子 ()
程序_延时 (取随机数 (100, 1000))
结果 ＝ 取随机数 (1, 10)
超级列表框注册.置标题 (行数, 2, 到文本 (结果))
如果 (结果 ＞ 5)
超级列表框注册.置标题 (行数, 1, “成功”)
原子_递增_asm (运行状态.执行成功)
调试输出 (运行状态.执行成功)



超级列表框注册.置标题 (行数, 3, “失败”)
调试输出 (“结果” ＋ 到文本 (结果))
超级列表框注册.置标题 (行数, 3, 到文本 (结果))
循环判断尾 (结果 ＜ 5)
线程_取消COM库 ()
如果真 (工作线程池.取_执行线程数 () ＜ 总数 － 运行状态.执行成功)
启动线程 (&任务程序, , )
如果真 (工作线程池.取_状态 () ＝ 0)
按钮开始线程.标题 ＝ “运行完毕”

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮开始线程_被单击, , , 开始线程<br /> <br /> <br /> .如果真 (到整数 (编辑框2.内容) ＞ 到整数 (编辑框1.内容))<br /> <br />     编辑框2.内容 ＝ 编辑框1.内容<br /> <br /> .如果真结束<br /> <br /> 调试输出 (“第一次调试”)<br /> <br /> .判断开始 (按钮开始线程.标题 ＝ “开始”)<br />     调试输出 (“第二次调试”)<br />     调试输出 (线程_创建 (&线程操作, , , , , , , 真, , ))<br /> <br />     .如果真 (线程_创建 (&线程操作, , , , , , , 真, , ) ＝ 假)<br />         调试输出 (“第三次调试”)<br /> <br />         按钮开始线程.禁止 ＝ 假<br />         返回 ()<br />     .如果真结束<br />     按钮开始线程.标题 ＝ “暂停”<br />     运行状态.执行成功 ＝ 0<br />     工作中 ＝ 真<br /> <br /> .判断 (按钮开始线程.标题 ＝ “暂停”)<br />     工作线程池.暂停 ()<br />     暂停状态 ＝ 真<br />     按钮开始线程.标题 ＝ “继续”<br /> .判断 (按钮开始线程.标题 ＝ “继续”)<br />     工作线程池.继续 ()<br />     暂停状态 ＝ 假<br />     按钮开始线程.标题 ＝ “暂停”<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .版本 2<br /> <br /> .子程序 线程操作<br /> .局部变量 bool, 逻辑型<br /> .局部变量 列表数, 整数型<br /> .局部变量 导入行数, 整数型<br /> <br /> zhong.线程数 ＝ 到整数 (编辑框2.内容)<br /> 线程数 ＝ zhong.线程数<br /> .判断开始 (线程数 ＞ 999)<br />     线程数 ＝ 999<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果真 (工作线程池.取_状态 () ≠ 0)<br />     信息框 (“线程池未初始化！”, 3, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (工作线程池.创建 (线程数, 线程数, , 真, ) ＝ 假)<br />     信息框 (“线程池创建失败！”, 3, , )<br />     返回 ()<br /> .如果真结束<br /> 总数 ＝ 到整数 (编辑框1.内容)<br /> 运行状态.派发任务数量 ＝ 总数<br /> .计次循环首 (线程数, )<br />     ' 如果真 (运行状态.执行成功 ＝ 总数 或 工作中 ＝ 假)<br />     ' 跳出循环 ()<br />     工作线程池.投递任务 (&任务程序)<br /> .计次循环尾 ()<br /> .判断循环首 (工作线程池.取_执行线程数 () ≠ 0)<br />     _延迟 (2000)<br /> .判断循环尾 ()<br /> 工作中 ＝ 假<br /> 工作线程池.销毁 (2, , 真)<br /> 按钮开始线程.禁止 ＝ 假<br /> 按钮停止线程.标题 ＝ “停止”<br /> 按钮开始线程.标题 ＝ “开始”<br /> 按钮停止线程.禁止 ＝ 假<br /> 运行状态.执行成功 ＝ 0<br /> .版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 任务程序<br /> .参数 行数, 整数型<br /> .参数 导入资料行数, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> 线程_初始化COM库 ()<br /> 临界.进入 ()<br /> 行数 ＝ 超级列表框注册.插入表项 (, , , , , )<br /> 临界.退出 ()<br /> .循环判断首 ()<br />     超级列表框注册.保证显示 (行数)<br />     超级列表框注册.置标题 (行数, 0, 到文本 (行数 ＋ 1))<br />     超级列表框注册.置标题 (行数, 1, “正在执行...”)<br /> <br />     置随机数种子 ()<br /> <br />     程序_延时 (取随机数 (100, 1000))<br /> <br />     结果 ＝ 取随机数 (1, 10)<br />     超级列表框注册.置标题 (行数, 2, 到文本 (结果))<br />     .如果 (结果 ＞ 5)<br />         超级列表框注册.置标题 (行数, 1, “成功”)<br />         原子_递增_asm (运行状态.执行成功)<br />         调试输出 (运行状态.执行成功)<br /> <br />     .否则<br /> <br />         超级列表框注册.置标题 (行数, 3, “失败”)<br />     .如果结束<br />     调试输出 (“结果” ＋ 到文本 (结果))<br />     超级列表框注册.置标题 (行数, 3, 到文本 (结果))<br /> <br /> .循环判断尾 (结果 ＜ 5)<br /> <br /> 线程_取消COM库 ()<br /> .如果真 (工作线程池.取_执行线程数 () ＜ 总数 － 运行状态.执行成功)<br />     启动线程 (&任务程序, , )<br /> .如果真结束<br /> .如果真 (工作线程池.取_状态 () ＝ 0)<br />     按钮开始线程.标题 ＝ “运行完毕”<br /> .如果真结束

没事瞎琢磨

  

调试输出 (线程_创建 (&线程操作, , , , , , , 真, , ))
如果真 (线程_创建 (&线程操作, , , , , , , 真, , ) ＝ 假)

调试输出 (线程_创建 (&线程操作, , , , , , , 真, , ))<br /> 如果真 (线程_创建 (&线程操作, , , , , , , 真, , ) ＝ 假)

重复了 给第一个赋值个变量  第二步用变量判断

没事瞎琢磨

谁是编辑框1 谁是2啊

gzzsk1

没事瞎琢磨 发表于 2024-3-7 10:47
谁是编辑框1 谁是2啊

1是数量 2是线程

没事瞎琢磨

线程池.创建（线程数，线程数）这个命令别用相同的数量 听说相同不能正常执行

gzzsk1

没事瞎琢磨 发表于 2024-3-7 10:55
线程池.创建（线程数，线程数）这个命令别用相同的数量 听说相同不能正常执行 ...

更换了数量还不行，工作线程池.创建 (1, 线程数, , 真, )
依旧是创建失败

没事瞎琢磨

工作线程池.创建（，，，，） 都留空 你看看能执行吗

gzzsk1

没事瞎琢磨 发表于 2024-3-7 11:11
工作线程池.创建（，，，，） 都留空 你看看能执行吗

依旧失败

sphinxes

我是新手 我是这么想的   多线程 最好久套用 已经写好的那些列子   不要自己动手从零开始写

gzzsk1

sphinxes 发表于 2024-3-7 11:41
我是新手 我是这么想的   多线程 最好久套用 已经写好的那些列子   不要自己动手从零开始写 ...

功能特殊没办法套用 只能自己写