鱼刺多线程 排队 线程1执行完线程2才运行 怎么解决

kjl

  

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

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

计次循环首 (超级列表框2.取表项数 (), i)
鱼刺 .创建 (&任务, i, , , , , 真, , , )
_延迟 (5)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
任务
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型

临界.进入 ()
调试输出 (参数一)
计次循环首 (超级列表框1.取表项数 (), i)
如果真 (超级列表框1.取标题 (i － 1, 0) ＝ “”)
索引 ＝ i － 1
超级列表框1.置标题 (i － 1, 0, “线程” ＋ 到文本 (参数一))
跳出循环 ()

计次循环尾 ()
临界.退出 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框2.取表项数 (), i)<br />     鱼刺 .创建 (&任务, i, , , , , 真, , , )<br />     _延迟 (5)<br /> .计次循环尾 ()<br /> <br /> .子程序 任务<br /> .参数 参数一, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 临界.进入 ()<br /> 调试输出 (参数一)<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .如果真 (超级列表框1.取标题 (i － 1, 0) ＝ “”)<br />         索引 ＝ i － 1<br />         超级列表框1.置标题 (i － 1, 0, “线程” ＋ 到文本 (参数一))<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 临界.退出 ()

老徐的梦想

Lea_OBJECT_ATTRIBUTES

j68832688

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
局部_停止	逻辑型
局部_许可	鱼刺类_临界许可
局部_池塘	鱼刺类_线程池Ex
局部_线程	鱼刺类_线程操作

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

变量名	类 型	静态	数组	备 注
i	整数型
表项	整数型

计次循环首 (30, i)
表项 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, “”)
计次循环尾 ()

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

局部_池塘.创建 (10)
局部_线程.创建 (&线程)
判断循环首 (真)
如果真 (局部_停止 ＝ 真)
跳出循环 ()
程序_延时 (1000)
判断循环尾 ()

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

变量名	类 型	静态	数组	备 注
计次	整数型
空闲	整数型
数量	整数型
页数	整数型
剩余	整数型

数量 ＝ 超级列表框1.取表项数 ()
判断循环首 (真)
空闲 ＝ 局部_池塘.取_空闲线程数 ()
如果真 (空闲 ＞ 0)
如果真 (局部_池塘.取_是否空闲 () ＝ 真 且 页数 ≥ 数量)
跳出循环 ()
如果真 (页数 ≤ 数量)
剩余 ＝ 数量 － 页数
如果真 (剩余 ≥ 空闲)
剩余 ＝ 空闲
计次循环首 (剩余, 计次)
原子_递增 (页数)
局部_池塘.投递任务 (&池塘, 页数)
计次循环尾 ()

局部_池塘.等待任务动态 ()
判断循环尾 ()
连续赋值 (真, 局部_停止)

子程序名	返回值类型	公开	备 注
池塘
参数名	类 型	参考	可空	数组	备 注
参数	整数型

局部_许可.进入 ()
调试输出 (参数, 参数 － 1)
如果真 (超级列表框1.取标题 (参数 － 1, 0) ＝ “”)
超级列表框1.置标题 (参数 － 1, 0, “线程” ＋ 到文本 (参数))
局部_许可.退出 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 局部_停止, 逻辑型<br /> .程序集变量 局部_许可, 鱼刺类_临界许可<br /> .程序集变量 局部_池塘, 鱼刺类_线程池Ex<br /> .程序集变量 局部_线程, 鱼刺类_线程操作<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 表项, 整数型<br /> <br /> .计次循环首 (30, i)<br />     表项 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (表项, 0, “”)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 局部_池塘.创建 (10)<br /> 局部_线程.创建 (&线程)<br /> .判断循环首 (真)<br />     .如果真 (局部_停止 ＝ 真)<br />         跳出循环 ()<br />     .如果真结束<br />     程序_延时 (1000)<br /> .判断循环尾 ()<br /> <br /> .子程序 线程<br /> .局部变量 计次, 整数型<br /> .局部变量 空闲, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 页数, 整数型<br /> .局部变量 剩余, 整数型<br /> <br /> 数量 ＝ 超级列表框1.取表项数 ()<br /> .判断循环首 (真)<br />     空闲 ＝ 局部_池塘.取_空闲线程数 ()<br />     .如果真 (空闲 ＞ 0)<br />         .如果真 (局部_池塘.取_是否空闲 () ＝ 真 且 页数 ≥ 数量)<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (页数 ≤ 数量)<br />             剩余 ＝ 数量 － 页数<br />             .如果真 (剩余 ≥ 空闲)<br />                 剩余 ＝ 空闲<br />             .如果真结束<br />             .计次循环首 (剩余, 计次)<br />                 原子_递增 (页数)<br />                 局部_池塘.投递任务 (&池塘, 页数)<br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br />     局部_池塘.等待任务动态 ()<br /> .判断循环尾 ()<br /> 连续赋值 (真, 局部_停止)<br /> <br /> .子程序 池塘<br /> .参数 参数, 整数型<br /> <br /> 局部_许可.进入 ()<br /> 调试输出 (参数, 参数 － 1)<br /> .如果真 (超级列表框1.取标题 (参数 － 1, 0) ＝ “”)<br />     超级列表框1.置标题 (参数 － 1, 0, “线程” ＋ 到文本 (参数))<br /> .如果真结束<br /> 局部_许可.退出 ()

j68832688

  

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

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

计次循环首 (超级列表框2.取表项数 (), i)
鱼刺 .创建 (&任务, i, , , , , 真, , , )
_延迟 (5)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
任务
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型
表项	整数型
标题	文本型

调试输出 (参数一)
临界.进入 ()
表项 = 超级列表框1.取表项数 ()
临界.退出 ()
计次循环首 (表项, i)
临界.进入 ()
标题 = 超级列表框1.取标题 (i － 1, 0)
临界.退出 ()
如果真 (标题 ＝ “”)
索引 ＝ i － 1
临界.进入 ()
超级列表框1.置标题 (i － 1, 0, “线程” ＋ 到文本 (参数一))
临界.退出 ()
跳出循环 ()

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框2.取表项数 (), i)<br />     鱼刺 .创建 (&任务, i, , , , , 真, , , )<br />     _延迟 (5)<br /> .计次循环尾 ()<br /> <br /> .子程序 任务<br /> .参数 参数一, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 表项, 整数型<br /> .局部变量 标题, 文本型<br /> <br /> 调试输出 (参数一)<br /> 临界.进入 ()<br /> 表项 = 超级列表框1.取表项数 ()<br /> 临界.退出 ()<br /> .计次循环首 (表项, i)<br />     临界.进入 ()<br />     标题 = 超级列表框1.取标题 (i － 1, 0)<br />     临界.退出 ()<br />     .如果真 (标题 ＝ “”)<br />         索引 ＝ i － 1<br />         临界.进入 ()<br />         超级列表框1.置标题 (i － 1, 0, “线程” ＋ 到文本 (参数一))<br />         临界.退出 ()<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

liangfeng988

把这两行代码删掉就好了,这个临界限制你每次只能执行一个线程呢.

临界.进入 ()
临界.退出 ()

pnccm

临界.进入 () 临界.退出 ()去掉 这个就是许可证 在上一个线程没退出前别的线程进不去 任务 这个子程序

zz1318

临界.进入 ()
超级列表框1.置标题 (i － 1, 0, “线程” ＋ 到文本 (参数一))
临界.退出 ()
这样子改

kjl

zz1318 发表于 2024-3-11 17:44
临界区（Critical Section）是指一段代码，同一时间只能被一个线程执行的区域

大哥我没动懂

kjl

文西哥 发表于 2024-3-11 17:52
完成一个线程再到下一个线程 ，那不就是单线程吗？ 直接循环执行就好了，为什么还要弄线程？ ...

我i想要弄多线程啊  不知道咋回事  他排着队来

文西哥

完成一个线程再到下一个线程 ，那不就是单线程吗？ 直接循环执行就好了，为什么还要弄线程？