易语言鱼刺线程池

admin

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 b, 整数型
.程序集变量 集_线程池句柄, 整数型

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

集_线程池句柄 ＝ 线程池_创建 (10, , )
b ＝ 0


.子程序 _按钮1_被单击
.局部变量 i, 整数型

' 超级列表框_账户.全部删除 ()

时钟1.时钟周期 ＝ 500

输出调试文本 (集_线程池句柄)
.计次循环首 (到整数 (编辑框_线程数.内容), i)
    b ＝ b ＋ 1
    线程池_投递任务 (集_线程池句柄, &线程子程序, b)
.计次循环尾 ()


.子程序 线程子程序
.参数 参_, 整数型
.局部变量 索引, 整数型
.局部变量 局_延时, 整数型

置随机数种子 ()
超级列表框_账户.插入表项 (, , , , , )
局_延时 ＝ 取随机数 (1000, 2000)
延时 (局_延时)
输出调试文本 (到文本 (参_) ＋ “ ” ＋ 到文本 (局_延时))

超级列表框_账户.置标题 (参_ － 1, 0, 到文本 (参_))
超级列表框_账户.置标题 (参_ － 1, 1, “执行完成！”)
超级列表框_账户.保证显示 (参_ － 1)


.子程序 _时钟1_周期事件

编辑框_线程池容量.内容 ＝ 到文本 (线程池_取_线程池容量 (集_线程池句柄))
编辑框_执行线程数.内容 ＝ 到文本 (线程池_取_执行线程数 (集_线程池句柄))
编辑框_列队任务数.内容 ＝ 到文本 (线程池_取_队列任务数 (集_线程池句柄))
.如果真 (线程池_取_是否空闲 (集_线程池句柄) ＝ 真)
    时钟1.时钟周期 ＝ 0
    ' 线程池_销毁 (集_线程池句柄)

.如果真结束