初学鱼刺多线程，请问我代码哪里有问题

初秋の落叶

照着城南的视频教程敲得，没有100%照着敲，看了视频自己敲。能运行但是效果很奇怪。不管线程数设置几都好像是按照单线程跑得，看了半天没觉得哪里有问题。大佬们帮忙看看。用到了精易模块8.2和鱼刺多线程应用
通用工具模板.e (1.87 MB, 下载次数: 11)

2020-5-25 17:22 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
提交数量	整数型
并发数量	整数型
提交延时	整数型
创建状态	逻辑型
投递计次	整数型
可用线程	整数型

并发提交_启动按钮.禁止 ＝ 真
提交数量 ＝ 到整数 (并发提交_提交数量.内容)
并发数量 ＝ 到整数 (并发提交_并发数量.内容)
提交延时 ＝ 到整数 (并发提交_提交延时.内容)
如果真 (并发数量 ＞ 提交数量)
并发数量 ＝ 提交数量
创建状态 ＝ 线程池.创建 (并发数量, 并发数量, , 真, )
如果真 (取反 (创建状态))
并发提交_启动按钮.标题 ＝ “启动”
信息框2 (“线程创建失败”, , , , 5000)
返回 ()
并发提交_启动按钮.禁止 ＝ 假
投递计次 ＝ 0
判断循环首 (投递计次 ≤ 提交数量)
可用线程 ＝ 线程池.取_空闲线程数 ()
判断循环首 (可用线程 ＝ 0)
如果真 (线程池.取_状态 () ≠ 1)
返回 ()
可用线程 ＝ 线程池.取_空闲线程数 ()
判断循环尾 ()
计次循环首 (可用线程, )
线程池.投递任务 (&并发提交事件, 投递计次, )
原子_递增 (投递计次)
程序_延时 (到整数 (并发提交_提交延时.内容), )
计次循环尾 ()
判断循环尾 ()
判断循环首 (取反 (线程池.取_是否空闲 ()))
如果真 (线程池.取_状态 () ≠ -1)
返回 ()
程序_延时 (1000, )
判断循环尾 ()
并发提交_启动按钮.标题 ＝ “启动”
线程池.销毁 (0, , 真)

.版本 2<br /> <br /> .子程序 线程事件<br /> .局部变量 提交数量, 整数型<br /> .局部变量 并发数量, 整数型<br /> .局部变量 提交延时, 整数型<br /> .局部变量 创建状态, 逻辑型<br /> .局部变量 投递计次, 整数型<br /> .局部变量 可用线程, 整数型<br /> <br /> 并发提交_启动按钮.禁止 ＝ 真<br /> 提交数量 ＝ 到整数 (并发提交_提交数量.内容)<br /> 并发数量 ＝ 到整数 (并发提交_并发数量.内容)<br /> 提交延时 ＝ 到整数 (并发提交_提交延时.内容)<br /> .如果真 (并发数量 ＞ 提交数量)<br />     并发数量 ＝ 提交数量<br /> .如果真结束<br /> 创建状态 ＝ 线程池.创建 (并发数量, 并发数量, , 真, )<br /> .如果真 (取反 (创建状态))<br />     并发提交_启动按钮.标题 ＝ “启动”<br />     信息框2 (“线程创建失败”, , , , 5000)<br />     返回 ()<br /> .如果真结束<br /> 并发提交_启动按钮.禁止 ＝ 假<br /> 投递计次 ＝ 0<br /> .判断循环首 (投递计次 ≤ 提交数量)<br />     可用线程 ＝ 线程池.取_空闲线程数 ()<br />     .判断循环首 (可用线程 ＝ 0)<br />         .如果真 (线程池.取_状态 () ≠ 1)<br />             返回 ()<br />         .如果真结束<br />         可用线程 ＝ 线程池.取_空闲线程数 ()<br />     .判断循环尾 ()<br />     .计次循环首 (可用线程, )<br />         线程池.投递任务 (&并发提交事件, 投递计次, )<br />         原子_递增 (投递计次)<br />         程序_延时 (到整数 (并发提交_提交延时.内容), )<br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> .判断循环首 (取反 (线程池.取_是否空闲 ()))<br />     .如果真 (线程池.取_状态 () ≠ -1)<br />         返回 ()<br />     .如果真结束<br />     程序_延时 (1000, )<br /> .判断循环尾 ()<br /> 并发提交_启动按钮.标题 ＝ “启动”<br /> 线程池.销毁 (0, , 真)

shandmail

计次循环首 (可用线程, )
线程池.投递任务 (&并发提交事件, 投递计次, )
原子_递增 (投递计次)
计次循环尾 ()
程序_延时 (到整数 (并发提交_提交延时.内容), )

改成这样  把 延时 放到外边

没有你的夜

为什么好多人都喜欢弄个检测到空闲线程才投递进去，这不是脱裤子放屁吗。

要执行的全部一次性投递进去就行了，线程池内部有空闲线程自然会自动执行

我是个帅哥

一个线程运行完了再运行下一个，可不就是单线程吗？

初秋の落叶

我是个帅哥 发表于 2020-5-25 18:07
一个线程运行完了再运行下一个，可不就是单线程吗？

为什么会是单线程的样子呀？我创建线程池的时候填的都不是1，都是≥2得数。看不懂哪里有问题

shandmail

1  可能  程序_延时 (到整数 (并发提交_提交延时.内容), )  这里延时 过长

2 并发提交事件  这里本身执行代码很少 速度非常快 基本投递里立即就执行了

所以看不出啥区别来  你可以试着 执行代码复杂点  提交延时 时间短点 或者直接不延时

初秋の落叶

shandmail 发表于 2020-5-25 19:03
1  可能  程序_延时 (到整数 (并发提交_提交延时.内容), )  这里延时 过长

2 并发提交事件  这里本身执 ...

谢谢回答。主要是。比方我设置线程数为2.延迟5秒。他依旧是5秒执行一次事件。不会是两次两次的执行。不管执行的内容多少

shandmail

初秋の落叶 发表于 2020-5-25 20:06
谢谢回答。主要是。比方我设置线程数为2.延迟5秒。他依旧是5秒执行一次事件。不会是两次两次的执行。不管 ...

计次循环首 (可用线程, )
线程池.投递任务 (&并发提交事件, 投递计次, )
原子_递增 (投递计次)
程序_延时 (到整数 (并发提交_提交延时.内容), )
计次循环尾 ()
那是因为你  没投递一次任务就 延迟 5秒 当然是5秒执行一次了