多线程是否全部执行完毕

milk09

一个简单的方法，判断全部线程是否全部执行完毕

直接上源码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程计数	整数型

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

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

计次循环首 (10, i)
启动线程 (&子程序1, , )
计次循环尾 ()

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

线程计数 ＝ 线程计数 ＋ 1
调试输出 (线程计数)
如果真 (线程计数 ＝ 10)
调试输出 (到文本 (线程计数) ＋ “线程全部执行完毕”)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程计数, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (10, i)<br />     启动线程 (&子程序1, , )<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序1<br /> <br /> 线程计数 ＝ 线程计数 ＋ 1<br /> 调试输出 (线程计数)<br /> .如果真 (线程计数 ＝ 10)<br />     调试输出 (到文本 (线程计数) ＋ “线程全部执行完毕”)<br /> .如果真结束

线程全部执行完毕.e (2.57 KB, 下载次数: 17)

2023-5-23 14:42 上传

点击文件名下载附件

hexuanyi

dfsdfsfsfsdfasdfsdfsd

opq123

感谢分享，很给力！~

太阳GG

6666666666666666666666666

冰炎by

感谢分享，很给力！~

笨来无一悟

笨来无一悟 发表于 2023-5-29 04:51
[e=1].版本 2
.支持库 spec
.支持库 EThread

工作状态 双精度小数型 统计_算术平均数 数学支持库

笨来无一悟

  

子程序名	返回值类型	公开	备 注
_线程是否全部完成_被单击

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

重定义数组 (工作状态, 假, 10)
调试输出 (工作状态, “状态清零”)
计次循环首 (10, N)
启动线程 (&线程, N, )
计次循环尾 ()
循环判断首 ()
延迟 (100)  ' 避免太频繁的统计平均数
处理事件 ()  ' 避免假死 窗口卡住
循环判断尾 (统计_算术平均数 (工作状态, , 1) ≠ 1)
调试输出 (工作状态, “恭喜主人 执行完毕”)

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

调试输出 (组别, “执行线程”)  ' 主体代码写这儿
工作状态 [组别] ＝ 1  ' 用数组就可以不用许可区

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库
sxzck	(未知支持库)

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> .支持库 sxzck<br /> <br /> .子程序 _线程是否全部完成_被单击<br /> .局部变量 N, 整数型<br /> <br /> 重定义数组 (工作状态, 假, 10)<br /> 调试输出 (工作状态, “状态清零”)<br /> .计次循环首 (10, N)<br />     启动线程 (&线程, N, )<br /> .计次循环尾 ()<br /> .循环判断首 ()<br />     延迟 (100)  ' 避免太频繁的统计平均数<br />     处理事件 ()  ' 避免假死 窗口卡住<br /> .循环判断尾 (统计_算术平均数 (工作状态, , 1) ≠ 1)<br /> 调试输出 (工作状态, “恭喜主人 执行完毕”)<br /> <br /> .子程序 线程<br /> .参数 组别, 整数型<br /> <br /> 调试输出 (组别, “执行线程”)  ' 主体代码写这儿<br /> 工作状态 [组别] ＝ 1  ' 用数组就可以不用许可区

笨来无一悟

爱爆头 发表于 2023-5-25 07:10
这个计数需要原子递增 原子增加 或者加锁

不需要 许可区加锁 那样浪费效率 直接用整数型的数组 初始化0 执行完毕赋值1 完事判断数组里面还有没有0 没有0了就说明执行完毕了

笨来无一悟

这个写法不严谨  判断线程计数 应该写在 按钮被单击下面 线程计数+1 没有用许可区 也是很容易报错的 应该用数组 比如十个数组 你就先十个数组都初始化一个0的值 子程序传1到10 线程的最后面就给这个数组对应的成员赋值1 这样写就不用许可区了 速度快很多 按钮1的下面循环判断一下数组里面存不存在0 不存在0 就说明运行完毕了 你的线程+1 写前面 只能证明线程开始了 起不到判断结束的作用

ppppzj

不错，感谢分享！

Tckya

感谢