如何多个线程同时运行，并时刻判断这些线程都运行完毕

wjy123

如何多个线程同时运行，并时刻判断这些线程都运行完毕

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
bool1	逻辑型
bool2	逻辑型
bool3	逻辑型

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

bool1 ＝ 假
bool2 ＝ 假
bool3 ＝ 假
启动线程 (&子程序1, , )
启动线程 (&子程序2, , )
启动线程 (&子程序3, , )
判断循环首 (真)
如果真 (bool1 且 bool2 且 bool3)
调试输出 (“可行”)
跳出循环 ()
程序_延时 (1000)
调试输出 (“等待”)
判断循环尾 ()

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

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

计次循环首 (200, i)
调试输出 (i)
处理事件 ()
计次循环尾 ()
调试输出 (“a”)
bool1 ＝ 真

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

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

计次循环首 (200, i)
调试输出 (i)
处理事件 ()
计次循环尾 ()
调试输出 (“b”)
bool2 ＝ 真

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

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

计次循环首 (200, i)
调试输出 (i)
处理事件 ()
计次循环尾 ()
调试输出 (“c”)
bool3 ＝ 真

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 bool1, 逻辑型<br /> .程序集变量 bool2, 逻辑型<br /> .程序集变量 bool3, 逻辑型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> bool1 ＝ 假<br /> bool2 ＝ 假<br /> bool3 ＝ 假<br /> 启动线程 (&子程序1, , )<br /> 启动线程 (&子程序2, , )<br /> 启动线程 (&子程序3, , )<br /> .判断循环首 (真)<br />     .如果真 (bool1 且 bool2 且 bool3)<br />         调试输出 (“可行”)<br />         跳出循环 ()<br />     .如果真结束<br />     程序_延时 (1000)<br />     调试输出 (“等待”)<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (200, i)<br />     调试输出 (i)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 调试输出 (“a”)<br /> bool1 ＝ 真<br /> <br /> <br /> .子程序 子程序2<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (200, i)<br />     调试输出 (i)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 调试输出 (“b”)<br /> bool2 ＝ 真<br /> <br /> <br /> <br /> .子程序 子程序3<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (200, i)<br />     调试输出 (i)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 调试输出 (“c”)<br /> bool3 ＝ 真

补充内容 (2017-1-2 11:32):
这样写对吗？有什么好办法吗

web11234

新建 易程序 (3).rar

[易]晴空

你这样也可以达到这目的
或者 用 多线程句柄 判断多线程状态 是否在运行

wjy123

qw200971913 发表于 2017-1-2 11:35
你这样也可以达到这目的
或者 用 多线程句柄 判断多线程状态 是否在运行

如何写啊大神

nddb

我也是这样弄的！呵呵！

web11234

CreateThread()有个回调函数ThreadProc 有个返回值 你等回调执行完最后返回个数字    用GetExitCodeThread（）可以获取你返回的数字  如果数字成功返回说明线程回调已经执行完毕  

wjy123

web11234 发表于 2017-1-2 11:43
CreateThread()有个回调函数ThreadProc 有个返回值 你等回调执行完最后返回个数字    用GetExitCodeThread ...

能帮忙写个示例么  大神

[易]晴空

wjy123 发表于 2017-1-2 11:37
如何写啊大神

判断线程句柄的话要用精易模块 线程_取状态 ()
其实跟你这代码 没太大区别
也是循环判断 线程句柄的状态
所以用这就行呗

呵呵仙

你这样可以.最好判断循环首 (真),也用一个多线程执行就不会卡了.