常用多线程模板与鱼刺类多线程线程池应用小例子

部分代码：

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

.程序集 窗口程序集_启动窗口
.程序集变量 已计算数量, 整数型
.程序集变量 列表框表项索引, 整数型
.程序集变量 线程数, 整数型
.程序集变量 许可证, 整数型

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

许可证 ＝ 创建进入许可证 ()


.子程序 子_多线程循环判断

列表框表项索引 ＝ -1
.判断循环首 (已计算数量 ≠ 超级列表框1.取表项数 ())
    .如果真 (线程数 ＜ 到整数 (编辑框_线程数.内容))
        线程数 ＝ 线程数 ＋ 1
        列表框表项索引 ＝ 列表框表项索引 ＋ 1
        启动线程 (&计算, , )
    .如果真结束

.判断循环尾 ()

.子程序 计算
.局部变量 表项sy, 整数型
.局部变量 结果, 文本型

进入许可区 (许可证)  ' 操作程序集变量的时候加一下许可区，不然会导致置标题为空的情况！！！！
表项sy ＝ 列表框表项索引 － 1
退出许可区 (许可证)
结果 ＝ 到文本 (到数值 (超级列表框1.取标题 (表项sy, 1)) ＋ 到数值 (超级列表框1.取标题 (表项sy, 2)))
超级列表框1.置标题 (表项sy, 3, 结果)
已计算数量 ＝ 已计算数量 ＋ 1
线程数 ＝ 线程数 － 1
超级列表框1.保证显示 (表项sy)


.子程序 _按钮计算_被单击

启动线程 (&子_多线程循环判断, , )

.子程序 生成随机数值
.局部变量 i, 整数型
.局部变量 表项索引, 整数型

置随机数种子 ()
.计次循环首 (到整数 (编辑框生成数.内容), i)
    表项索引 ＝ 超级列表框1.插入表项 (-1, 到文本 (i), , , , )
    超级列表框1.置标题 (表项索引, 1, 到文本 (取随机数 (1, 99)))
    超级列表框1.置标题 (表项索引, 2, 到文本 (取随机数 (1, 99)))
.计次循环尾 ()


.子程序 _按钮生成_被单击

启动线程 (&生成随机数值, , )

.子程序 __启动窗口_将被销毁

删除进入许可证 (许可证)

@1157374899