易语言多线程控制线程数量源码

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

.程序集 窗口程序集_启动窗口
.程序集变量 集_队列, 鱼刺类_队列
.程序集变量 文件号, 整数型
.程序集变量 许可证, 整数型
.程序集变量 线程数量, 整数型

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

文件号 ＝ 打开文件 (取运行目录 () ＋ “	est.txt”, #读入, )
移到文件首 (文件号)
.判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
    集_队列.压入文本 (读入一行 (文件号))
.判断循环尾 ()
关闭文件 (文件号)
信息框 (“ok”, 0, , )

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

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

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

启动线程 (&开始工作, , )

.子程序 开始工作
.局部变量 线程句柄, 整数型

.判断循环首 (集_队列.取队列长度 () ＞ 0)
    .判断循环首 (线程数量 ≥ 到整数 (编辑框线程数量.内容))
        _延迟 (50)
    .判断循环尾 ()
    启动线程 (&多线程导入, , 线程句柄)
    进入许可区 (许可证)
    线程数量 ＝ 线程数量 ＋ 1
    退出许可区 (许可证)
    关闭线程句柄 (线程句柄)
    _延迟 (60)
.判断循环尾 ()

.子程序 多线程导入
.局部变量 文本数据, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 账号, 文本型
.局部变量 数字1, 文本型
.局部变量 数字2, 文本型
.局部变量 索引, 整数型

' 进入许可区 (许可证)
集_队列.弹出文本 (文本数据)
' 退出许可区 (许可证)
文本数组 ＝ 分割文本 (文本数据, “----”, )
.如果真 (取数组成员数 (文本数组) ＝ 2)
    数字1 ＝ 文本数组 [1]
    数字2 ＝ 文本数组 [2]
    进入许可区 (许可证)

    索引 ＝ 超级列表框1.插入表项 (, , , , , )

    退出许可区 (许可证)
    超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))

    超级列表框1.置标题 (索引, 1, 数字1)
    超级列表框1.置标题 (索引, 2, 数字2)
    _延迟 (500)
    超级列表框1.置标题 (索引, 3, 到文本 (到整数 (数字1) ＋ 到整数 (数字2)))

    进入许可区 (许可证)
    线程数量 ＝ 线程数量 － 1
    退出许可区 (许可证)

.如果真结束


.子程序 _按钮3_被单击
.局部变量 随机文本, 文本型

.计次循环首 (300, )
    置随机数种子 ()
    随机文本 ＝ 随机文本 ＋ 到文本 (取随机数 (5, 100)) ＋ “----” ＋ 到文本 (取随机数 (100, 300)) ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “	est.txt”, 到字节集 (随机文本))
信息框 (“ok”, 0, , )

@波段神行