易语言多线程学习源码

.版本 2
.支持库 iext
.支持库 EThread
.支持库 spec

.程序集 窗口程序集1
.程序集变量 返回的线程, 整数型
.程序集变量 返回的线程2, 整数型
.程序集变量 线程数量, 整数型
.程序集变量 处理表项记录, 整数型
.程序集变量 是否关闭, 逻辑型

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 表项数, 整数型

.计次循环首 (500, i)
    表项数 ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
    ' 本源码来自三叶资源网(www.sanye.cx)
    超级列表框1.置标题 (表项数, 0, 到文本 (i))
    置随机数种子 ()
    超级列表框1.置标题 (表项数, 1, 到文本 (取随机数 (100, 9999)) ＋ “+” ＋ 到文本 (取随机数 (100, 9999)) ＋ “=”)

.计次循环尾 ()
是否关闭 ＝ 假

.子程序 _按钮1_被单击

启动线程 (&开始, , 返回的线程)

.子程序 开始
.局部变量 ID表项记录

.判断循环首 (是否关闭 ＝ 假)
    .如果 (线程数量 ＜ 到整数 (编辑框1.内容))
        启动线程 (&线程运行, , 返回的线程2)
        ID表项记录 ＝ ID表项记录 ＋ 1  ' 这个变量用来记录ID的表项 ，必须
        线程数量 ＝ 线程数量 ＋ 1  ' 创建一次就+1  用来判断线程数量  于上面的如果对应
        ' 本源码来自三叶资源网(www.sanye.cx)

    .否则

    .如果结束

.判断循环尾 ()
处理表项记录 ＝ 0

.子程序 线程运行
.局部变量 局部记录, 整数型

处理表项记录 ＝ 处理表项记录 ＋ 1
局部记录 ＝ 处理表项记录 － 1
' 超级列表框1.置标题 (局部记录, , “a+” ＋ 到文本 (局部记录))
线程数量 ＝ 线程数量 － 1
调试输出 (处理表项记录, 局部记录, 线程数量)

.子程序 _按钮2_被单击

是否关闭 ＝ 真
关闭线程句柄 (返回的线程)
关闭线程句柄 (返回的线程2)

@lmm520322