多个子程序执行 超级列表框置入后 串行 跳行

吴彦祖wzy

都是取超级列表框内同一个位置的数值    执行多个子程序时 无论是并发 还是顺序执行  多个子程序执行完成后置入超级列表框 会串行    执行单个的话 就不会出现这种情况    每个里面都写了程序集变量（调用索引=调用索引+1）
多个子程序执行 是索引乱了的问题  有没有大佬赐教一下  许可证加过没起作用  求指教   



补充内容 (2022-4-16 23:36):
.版本 2
.支持库 iext

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

每个子程序都是这样写的   


补充内容 (2022-4-17 17:31):
其他补充的源代码  图片 都在楼下  大佬们辛苦了

单排练心态

创建一个程序集的许可证，然后每个子程序用许可证操作就可以了。

吴彦祖wzy

多个子程序都是调用超级列表框内同一个位置的数值   我测试了一下 是索引乱了  求指教 求指教

驿动商务

使用许可证

Ls60

这边建议把代码发全，将与这个调用索引相关的子程序都发一下

吴彦祖wzy

驿动商务 发表于 2022-4-17 00:13
使用许可证

许可证用了  没起作用啊

吴彦祖wzy

Ls60 发表于 2022-4-17 02:04
这边建议把代码发全，将与这个调用索引相关的子程序都发一下

就是多个子程序执行  但是多个子程序都是调用超级列表框内同一个位置的数值   
启动线程(A)
超级列表框.置标题(调用索引-1，1，A)
启动线程(B)
超级列表框.置标题(调用索引-1，2，B)
启动线程(C)
超级列表框.置标题(调用索引-1，3，C)
这样超级列表框就会串行

单独执行的话 不会的

吴彦祖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)

吴彦祖wzy

C:\Users\77281\Desktop\23.png

吴彦祖wzy

吴彦祖wzy 发表于 2022-4-17 15:50
[e=0].版本 2
.支持库 iext
.支持库 spec

就是这样的