求解决 多线程执行多个任务 串行问题 求修改

吴彦祖wzy

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
调用索引	整数型
线程池	鱼刺类_线程池Ex
鱼刺操作	鱼刺类_线程操作
主线程	整数型

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

调用索引 ＝ 0
主线程 ＝ 线程_启动 (&多线程启动, , )

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

变量名	类 型	静态	数组	备 注
数据	文本型

调用索引 ＝ 调用索引 ＋ 1
数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 2)
超级列表框1.置标题 (调用索引 － 1, 3, 数据)

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

变量名	类 型	静态	数组	备 注
数据	文本型

调用索引 ＝ 调用索引 ＋ 1
数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 1)
超级列表框1.置标题 (调用索引 － 1, 4, 数据)

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

变量名	类 型	静态	数组	备 注
数据	文本型

调用索引 ＝ 调用索引 ＋ 1
数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 1)
超级列表框1.置标题 (调用索引 － 1, 3, 数据)
超级列表框1.置标题 (调用索引 － 1, 4, 数据)

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

变量名	类 型	静态	数组	备 注
已经完成数量	整数型
创建状态	逻辑型
投递次数	整数型
执行数量	整数型
执行线程	整数型
空闲线程	整数型
注册线程	整数型
次数	整数型

鱼刺操作.置CPU亲和性 ()
执行数量 ＝ 到整数 (编辑框2.内容)
执行线程 ＝ 到整数 (编辑框1.内容)
如果真 (执行线程 ＞ 执行数量)
执行线程 ＝ 执行数量

创建状态 ＝ 线程池.创建 (执行线程, 执行线程, , , , , 真)
如果真 (取反 (创建状态))
返回 ()

投递次数 ＝ 0
判断循环首 (注册线程 ＜ 执行数量)
空闲线程 ＝ 线程池.取_空闲线程数 ()
判断循环首 (空闲线程 ＝ 0)
如果真 (线程池.取_状态 () ≠ 1)
返回 ()
程序_延时 (50, )
空闲线程 ＝ 线程池.取_空闲线程数 ()
判断循环尾 ()
计次循环首 (空闲线程, )
线程池.投递任务 (&A, 投递次数, )
线程池.投递任务 (&B, 投递次数, )
原子_递增 (投递次数)
原子_递增 (注册线程)
如果真 (投递次数 ≥ 超级列表框1.取表项数 ())
投递次数 ＝ 0

如果真 (注册线程 ＞ 执行数量)
调试输出 (到文本 (注册线程))
跳出循环 ()

计次循环尾 ()
判断循环尾 ()
判断循环首 (线程池.取_是否有空闲 () ＝ 假)
如果真 (线程池.取_状态 () ≠ 1)
返回 ()
程序_延时 (50, )
判断循环尾 ()
线程池.销毁 (0, 真)
按钮_开始.禁止 ＝ 假
如果真 (线程池.取_状态 () ＝ 3)
按钮_开始.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

拖放对象1.注册拖放控件 (取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
单行文本	文本型		0	接受到的大文本
分割单行文本	文本型		0	分割接受大文本中的每一行
表项	整数型
次数	整数型
单行计次	整数型

超级列表框1.全部删除 ()
单行文本 ＝ 分割文本 (到文本 (读入文件 (接收到的文件路径)), #换行符, )
计次循环首 (取数组成员数 (单行文本), 次数)
分割单行文本 ＝ 分割文本 (单行文本 [次数], “----”, )
表项 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, 到文本 (表项 ＋ 1))
计次循环首 (取数组成员数 (分割单行文本), 单行计次)
超级列表框1.置标题 (表项, 单行计次, 分割单行文本 [单行计次])
计次循环尾 ()
计次循环尾 ()
编辑框2.内容 ＝ 到文本 (表项 ＋ 1)

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 edroptarget<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 调用索引, 整数型<br /> .程序集变量 线程池, 鱼刺类_线程池Ex<br /> .程序集变量 鱼刺操作, 鱼刺类_线程操作<br /> .程序集变量 主线程, 整数型<br /> <br /> .子程序 _按钮_开始_被单击<br /> <br /> 调用索引 ＝ 0<br /> <br /> 主线程 ＝ 线程_启动 (&多线程启动, , )<br /> <br /> .子程序 A<br /> .局部变量 数据, 文本型<br /> <br /> 调用索引 ＝ 调用索引 ＋ 1<br /> 数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 2)<br /> <br /> 超级列表框1.置标题 (调用索引 － 1, 3, 数据)<br /> <br /> .子程序 B<br /> .局部变量 数据, 文本型<br /> <br /> 调用索引 ＝ 调用索引 ＋ 1<br /> 数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 1)<br /> <br /> 超级列表框1.置标题 (调用索引 － 1, 4, 数据)<br /> <br /> <br /> .子程序 C<br /> .局部变量 数据, 文本型<br /> <br /> 调用索引 ＝ 调用索引 ＋ 1<br /> 数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 1)<br /> 超级列表框1.置标题 (调用索引 － 1, 3, 数据)<br /> 超级列表框1.置标题 (调用索引 － 1, 4, 数据)<br /> <br /> .子程序 多线程启动<br /> .局部变量 已经完成数量, 整数型<br /> .局部变量 创建状态, 逻辑型<br /> .局部变量 投递次数, 整数型<br /> .局部变量 执行数量, 整数型<br /> .局部变量 执行线程, 整数型<br /> .局部变量 空闲线程, 整数型<br /> .局部变量 注册线程, 整数型<br /> .局部变量 次数, 整数型<br /> <br /> <br /> 鱼刺操作.置CPU亲和性 ()<br /> 执行数量 ＝ 到整数 (编辑框2.内容)<br /> 执行线程 ＝ 到整数 (编辑框1.内容)<br /> .如果真 (执行线程 ＞ 执行数量)<br />     执行线程 ＝ 执行数量<br /> .如果真结束<br /> <br /> <br /> 创建状态 ＝ 线程池.创建 (执行线程, 执行线程, , , , , 真)<br /> .如果真 (取反 (创建状态))<br />     返回 ()<br /> .如果真结束<br /> <br /> 投递次数 ＝ 0<br /> .判断循环首 (注册线程 ＜ 执行数量)<br />     空闲线程 ＝ 线程池.取_空闲线程数 ()<br />     .判断循环首 (空闲线程 ＝ 0)<br />         .如果真 (线程池.取_状态 () ≠ 1)<br />             返回 ()<br />         .如果真结束<br />         程序_延时 (50, )<br />         空闲线程 ＝ 线程池.取_空闲线程数 ()<br />     .判断循环尾 ()<br />     .计次循环首 (空闲线程, )<br />         线程池.投递任务 (&A, 投递次数, )<br />         线程池.投递任务 (&B, 投递次数, )<br />         原子_递增 (投递次数)<br />         原子_递增 (注册线程)<br />         .如果真 (投递次数 ≥ 超级列表框1.取表项数 ())<br />             投递次数 ＝ 0<br />         .如果真结束<br /> <br />         .如果真 (注册线程 ＞ 执行数量)<br />             调试输出 (到文本 (注册线程))<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> .判断循环首 (线程池.取_是否有空闲 () ＝ 假)<br />     .如果真 (线程池.取_状态 () ≠ 1)<br />         返回 ()<br />     .如果真结束<br />     程序_延时 (50, )<br /> .判断循环尾 ()<br /> 线程池.销毁 (0, 真)<br /> 按钮_开始.禁止 ＝ 假<br /> .如果真 (线程池.取_状态 () ＝ 3)<br />     按钮_开始.禁止 ＝ 假<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (取窗口句柄 ())<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 单行文本, 文本型, , "0", 接受到的大文本<br /> .局部变量 分割单行文本, 文本型, , "0", 分割接受大文本中的每一行<br /> .局部变量 表项, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 单行计次, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 单行文本 ＝ 分割文本 (到文本 (读入文件 (接收到的文件路径)), #换行符, )<br /> .计次循环首 (取数组成员数 (单行文本), 次数)<br />     分割单行文本 ＝ 分割文本 (单行文本 [次数], “----”, )<br />     表项 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (表项, 0, 到文本 (表项 ＋ 1))<br />     .计次循环首 (取数组成员数 (分割单行文本), 单行计次)<br />         超级列表框1.置标题 (表项, 单行计次, 分割单行文本 [单行计次])<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 到文本 (表项 ＋ 1)

Ls60

吴彦祖wzy 发表于 2022-4-21 00:24
大哥 都发楼下了   感谢

刚刚传的文字要sh，先传两个demo看能不能理解 demo.e (1.18 MB, 下载次数: 15)

2022-4-21 01:05 上传

点击文件名下载附件 demo2.e (1.18 MB, 下载次数: 11)

2022-4-21 01:05 上传

点击文件名下载附件

吴彦祖wzy

求修改一下   多线程执行多任务 就串行了  加过许可证 也没起作用 不知道是不是加错地方了 求大佬解决帮忙修改一下

Ls60

举个例子，什么样子算不串行。。

吴彦祖wzy

Ls60 发表于 2022-4-20 22:25
举个例子，什么样子算不串行。。

这个样子  上面那个 每次隔着一行

吴彦祖wzy

  

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

变量名	类 型	静态	数组	备 注
数据	文本型

调用索引 ＝ 调用索引 ＋ 1
数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 2)
超级列表框1.置标题 (调用索引 － 1, 3, 数据)
超级列表框1.置标题 (调用索引 － 1, 4, “BBBBBB”)

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

变量名	类 型	静态	数组	备 注
数据	文本型

调用索引 ＝ 调用索引 ＋ 1
数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 1)
超级列表框1.置标题 (调用索引 － 1, 4, 数据)

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

变量名	类 型	静态	数组	备 注
数据	文本型

调用索引 ＝ 调用索引 ＋ 1
数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 1)
超级列表框1.置标题 (调用索引 － 1, 3, 数据)
超级列表框1.置标题 (调用索引 － 1, 4, 数据)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 A<br /> .局部变量 数据, 文本型<br /> <br /> 调用索引 ＝ 调用索引 ＋ 1<br /> 数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 2)<br /> 超级列表框1.置标题 (调用索引 － 1, 3, 数据)<br /> 超级列表框1.置标题 (调用索引 － 1, 4, “BBBBBB”)<br /> <br /> .子程序 B<br /> .局部变量 数据, 文本型<br /> <br /> 调用索引 ＝ 调用索引 ＋ 1<br /> 数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 1)<br /> <br /> 超级列表框1.置标题 (调用索引 － 1, 4, 数据)<br /> <br /> .子程序 C<br /> .局部变量 数据, 文本型<br /> <br /> 调用索引 ＝ 调用索引 ＋ 1<br /> 数据 ＝ 超级列表框1.取标题 (调用索引 － 1, 1)<br /> 超级列表框1.置标题 (调用索引 － 1, 3, 数据)<br /> 超级列表框1.置标题 (调用索引 － 1, 4, 数据)

Ls60

你调试的文本发出来吧

吴彦祖wzy

源码发上来了   忘了 尴尬了  大佬们求帮助

吴彦祖wzy

源码  这个是 忘记了  尴尬

吴彦祖wzy

Ls60 发表于 2022-4-20 23:24
你调试的文本发出来吧

大哥 都发楼下了   感谢