【蠢新学汇编】多线程是否全部执行完毕 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
是否完毕	逻辑型	0

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

' 应用场景:需要等待多个线程全部执行完毕之后再执行接下来的其他操作
' 只要不是同时写入同一个数组成员多线程不加许可证并不会导致报错或者出错可放心食用
' 省去了进出许可区的耗时和用线程句柄判断线程状态的耗时用程序集或者全局逻辑型数组进行判断速度更快

子程序名	返回值类型	公开	备注
执行完毕	逻辑型		全真返回真
参数名	类型	参考	可空	数组	备注
任务状态	逻辑型				真假

置入代码 ({ 54, 139, 117, 8, 62, 139, 54, 131, 198, 4, 62, 139, 14, 133, 201, 116, 13, 62, 139, 4, 142, 133, 192, 116, 5, 73, 227, 2, 235, 243, 201, 194, 4, 0 })
返回 (假) ' 全真返回真否则返回假
' MOV ESI, DWORD PTR SS:[EBP+8]
' MOV ESI, DWORD PTR DS:[ESI]
' ADD ESI, 4
' MOV ECX, DWORD PTR DS:[ESI]
' TEST ECX, ECX
' JE END
' XH:
' MOV EAX, DWORD PTR DS:[ESI+ECX*4]
' TEST EAX, EAX
' JE END
' DEC ECX
' JECXZ END
' JMP XH
' END:
' LEAVE
' RET 4

子程序名	返回值类型	公开	备注
_启动_被单击

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

如果真 (执行完毕 (是否完毕) ＝假)

调试输出 (“急什么急上一车砖头还没搬完”)

返回 () ' 可以在执行之前判断上次执行的任务有没有完成避免冲突返回之前要进行哪些操作自己决定
数量＝ 12345 ' 为了照顾小白方便理解最后一个参数是啥
重定义数组 (是否完毕, 假, 数量)

计次循环首 (取数组成员数 (是否完毕), 计次)

处理事件 () ' 避免卡界面

启动线程 (&线程, 计次, )

计次循环尾 ()

循环判断首 ()

处理事件 () ' 避免卡界面

延迟 (500) ' 检测间隔时长根据任务强度灵活修改

循环判断尾 (执行完毕 (是否完毕) ＝假)
调试输出 (是否完毕, “砖头搬完了工钱结一下”)
' 这儿写所有线程全部执行完毕之后再进行的某些操作

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

延迟 (取随机数 (10, 80)) ' 模仿线程执行某些操作造成的耗时
是否完毕 [编号] ＝真 ' 每条线程执行完毕之后赋值为真

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

.版本 2<br />
.支持库 spec<br />
.支持库 EThread<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 是否完毕, 逻辑型, , "0"<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
' 应用场景:需要等待多个线程全部执行完毕之后再执行接下来的其他操作<br />
' 只要不是同时写入同一个数组成员 多线程不加许可证并不会导致报错或者出错 可放心食用<br />
' 省去了进出许可区的耗时和用线程句柄判断线程状态的耗时 用程序集或者全局逻辑型数组进行判断速度更快<br />
<br />
.子程序 执行完毕, 逻辑型, , 全真 返回真<br />
.参数 任务状态, 逻辑型, 数组, 真 假<br />
<br />
置入代码 ({ 54, 139, 117, 8, 62, 139, 54, 131, 198, 4, 62, 139, 14, 133, 201, 116, 13, 62, 139, 4, 142, 133, 192, 116, 5, 73, 227, 2, 235, 243, 201, 194, 4, 0 })<br />
返回 (假)  ' 全真 返回真 否则 返回假<br />
' MOV ESI, DWORD PTR SS:[EBP+8]<br />
' MOV ESI, DWORD PTR DS:[ESI]<br />
' ADD ESI, 4<br />
' MOV ECX, DWORD PTR DS:[ESI]<br />
' TEST ECX, ECX<br />
' JE END<br />
' XH:<br />
' MOV EAX, DWORD PTR DS:[ESI+ECX*4]<br />
' TEST EAX, EAX<br />
' JE END<br />
' DEC ECX<br />
' JECXZ END<br />
' JMP XH<br />
' END:<br />
' LEAVE<br />
' RET 4<br />
<br />
.子程序 _启动_被单击<br />
.局部变量 计次, 整数型<br />
.局部变量 数量, 整数型<br />
<br />
.如果真 (执行完毕 (是否完毕) ＝ 假)<br />
    调试输出 (“急什么急 上一车砖头还没搬完”)<br />
    返回 ()  ' 可以在执行之前 判断上次执行的任务有没有完成 避免冲突 返回之前 要进行哪些操作 自己决定<br />
.如果真结束<br />
数量 ＝ 12345  ' 为了照顾小白 方便理解最后一个参数是啥<br />
重定义数组 (是否完毕, 假, 数量)<br />
.计次循环首 (取数组成员数 (是否完毕), 计次)<br />
    处理事件 ()  ' 避免卡界面<br />
    启动线程 (&线程, 计次, )<br />
.计次循环尾 ()<br />
.循环判断首 ()<br />
    处理事件 ()  ' 避免卡界面<br />
    延迟 (500)  ' 检测间隔时长根据任务强度灵活修改<br />
.循环判断尾 (执行完毕 (是否完毕) ＝ 假)<br />
调试输出 (是否完毕, “砖头搬完了 工钱结一下”)<br />
' 这儿写所有线程全部执行完毕之后再进行的某些操作<br />
<br />
.子程序 线程<br />
.参数 编号, 整数型<br />
<br />
延迟 (取随机数 (10, 80))  ' 模仿线程执行某些操作造成的耗时<br />
是否完毕 [编号] ＝ 真  ' 每条线程执行完毕之后赋值为真