易语言多线程操作源码

.版本 2
.支持库 iext

.程序集 启动
.程序集变量 任务, 任务
.程序集变量 任务数, 整数型
.程序集变量 线程数, 整数型
.程序集变量 t, 整数型

.子程序 __启动窗口_创建完毕



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

任务数 ＝ 到整数 (编辑框_任务.内容)
线程数 ＝ 到整数 (编辑框_线程.内容)
任务.创建 (任务数)
生成数据 ()
t ＝ 取启动时间 ()
任务.执行 (&计算, 线程数)

.子程序 计算
.参数 ID, 整数型
.参数 剩余数量, 整数型
.参数 当前线程, 整数型
.参数 循环ID, 整数型

超级列表框1.置标题 (ID, 3, 到文本 (到整数 (超级列表框1.取标题 (ID, 1)) ＋ 到整数 (超级列表框1.取标题 (ID, 2))))
.判断开始 (剩余数量 ＝ 0)
    标题 ＝ “计算完毕 耗时:” ＋ 到文本 (取启动时间 () － t)
.默认
    标题 ＝ “当前线程:” ＋ 到文本 (当前线程) ＋ “ 当前任务:” ＋ 到文本 (ID) ＋ “ 剩余任务:” ＋ 到文本 (剩余数量)
.判断结束


.子程序 生成数据
.局部变量 ID, 整数型
.局部变量 i, 整数型

处理事件 ()
标题 ＝ “正在生成数据...”
超级列表框1.表项 ＝ {  }
超级列表框1.禁止 ＝ 真
超级列表框1.禁止重画 ()
.计次循环首 (任务数, i)
    ID ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (ID, 0, 到文本 (ID ＋ 1))
    超级列表框1.置标题 (ID, 1, 到文本 (取随机数 (1, 100)))
    超级列表框1.置标题 (ID, 2, 到文本 (取随机数 (1, 100)))
    任务.加入 (ID)
.计次循环尾 ()
标题 ＝ “生成完毕 数量” ＋ 到文本 (任务.数量 ())
超级列表框1.允许重画 ()
超级列表框1.重画 ()
超级列表框1.禁止 ＝ 假

@woxl