多线程会出现卡顿一两秒的情况，求大佬看看哪里有问题

qinfeng0214

这是我的代码，求大佬指点一下哪里有问题，用了鱼刺多线程

  

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

变量名	类 型	静态	数组	备 注
线程数	整数型
执行数量	整数型
创建状态	逻辑型
投递记次	整数型
空闲线程数	整数型
n	整数型

按钮_开始.禁止 ＝ 真
线程数 ＝ 到整数 (编辑框线程数.内容)
执行数量 ＝ 到整数 (编辑框次数.内容)
如果 (线程数 ＞ 执行数量)
线程数 ＝ 执行数量



创建状态 ＝ 线程池.创建 (线程数, , , 真)
如果真 (创建状态 ＝ 假)
信息框 (“创建失败请重试”, 0, , )
按钮_开始.禁止 ＝ 假
按钮_开始.标题 ＝ “开始”
返回 ()
按钮_开始.禁止 ＝ 假
投递记次 ＝ 0
判断循环首 (投递记次 ＜ 执行数量)
空闲线程数 ＝ 线程池.取_空闲线程数 ()
判断循环首 (空闲线程数 ＝ 0)
如果真 (线程池.取_状态 () ≠ 1)
返回 ()
延迟 (50)
空闲线程数 ＝ 线程池.取_空闲线程数 ()
判断循环尾 ()
调试输出 (空闲线程数)
计次循环首 (空闲线程数, )
计次循环首 (超级列表框1.取表项数 (), n)
线程池.投递任务 (&主线程, n － 1, 投递记次)
计次循环尾 ()
原子_递增 (投递记次)
程序_延时 (到整数 (编辑框延时.内容))
计次循环尾 ()
判断循环尾 ()
判断循环首 (线程池.取_是否有空闲 () ＝ 假)
如果真 (线程池.取_状态 () ≠ 1)
返回 ()
延迟 (50)
判断循环尾 ()
线程池.销毁 (2, 真)
按钮_开始.标题 ＝ “开始”

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

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 多线程<br /> .局部变量 线程数, 整数型<br /> .局部变量 执行数量, 整数型<br /> .局部变量 创建状态, 逻辑型<br /> .局部变量 投递记次, 整数型<br /> .局部变量 空闲线程数, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 按钮_开始.禁止 ＝ 真<br /> <br /> 线程数 ＝ 到整数 (编辑框线程数.内容)<br /> 执行数量 ＝ 到整数 (编辑框次数.内容)<br /> <br /> .如果 (线程数 ＞ 执行数量)<br />     线程数 ＝ 执行数量<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> <br /> 创建状态 ＝ 线程池.创建 (线程数, , , 真)<br /> .如果真 (创建状态 ＝ 假)<br />     信息框 (“创建失败请重试”, 0, , )<br />     按钮_开始.禁止 ＝ 假<br />     按钮_开始.标题 ＝ “开始”<br />     返回 ()<br /> .如果真结束<br /> 按钮_开始.禁止 ＝ 假<br /> 投递记次 ＝ 0<br /> .判断循环首 (投递记次 ＜ 执行数量)<br />     空闲线程数 ＝ 线程池.取_空闲线程数 ()<br /> <br />     .判断循环首 (空闲线程数 ＝ 0)<br />         .如果真 (线程池.取_状态 () ≠ 1)<br />             返回 ()<br />         .如果真结束<br />         延迟 (50)<br />         空闲线程数 ＝ 线程池.取_空闲线程数 ()<br />     .判断循环尾 ()<br />     调试输出 (空闲线程数)<br />     .计次循环首 (空闲线程数, )<br /> <br />         .计次循环首 (超级列表框1.取表项数 (), n)<br /> <br />             线程池.投递任务 (&主线程, n － 1, 投递记次)<br /> <br />         .计次循环尾 ()<br /> <br /> <br />         原子_递增 (投递记次)<br /> <br />         程序_延时 (到整数 (编辑框延时.内容))<br /> <br />     .计次循环尾 ()<br /> <br /> .判断循环尾 ()<br /> <br /> .判断循环首 (线程池.取_是否有空闲 () ＝ 假)<br />     .如果真 (线程池.取_状态 () ≠ 1)<br />         返回 ()<br />     .如果真结束<br />     延迟 (50)<br /> <br /> .判断循环尾 ()<br /> 线程池.销毁 (2, 真)<br /> 按钮_开始.标题 ＝ “开始”

风度猫

在投递任务 下面假个延时(1)

独倚斜阳

大手子给我解释下  什么叫  原子_递增 (投递记次)

你送的花开了

计次循环里那个投递任务下面加个 Sleep (10)   

coini

独倚斜阳 发表于 2024-3-6 22:00
大手子给我解释下  什么叫  原子_递增 (投递记次)

原子_递增（） 这个命令 需要传入一个参数  
假设传入的是全局变量 全_Index
每运行一次原子_递增（全_Index）
全_Index就会以此递增  0→1
1→2 2→3…………

补充内容 (2024-3-6 22:08):
在这段代码中的含义 为判断循环首的 判断条件
每执行一次  记录 执行计次+1  当执行计次<需要执行的条数的时候
会判定继续循环 当大于时会跳出循环

荖貢

你没有说卡顿的是那个线程 让我理解 你说的应该是你当前上传的这个
如果说是,那很明显,延时命令,循环导致,因为你这个使用就不对

qinfeng0214

荖貢 发表于 2024-3-9 22:51
你没有说卡顿的是那个线程 让我理解 你说的应该是你当前上传的这个
如果说是,那很明显,延时命令,循环导致, ...

定时后，到点启动多线程任务，会有1-2秒的无响应时间

荖貢

qinfeng0214 发表于 2024-3-11 10:26
定时后，到点启动多线程任务，会有1-2秒的无响应时间

延时 命令导致

qinfeng0214

荖貢 发表于 2024-3-12 22:41
延时 命令导致

延迟全部换程序_延时吗？晚上我试试