易语言多线程超级列表框以及多线程相关的顺序问题

点击联系发帖人 时间：2019-04-15 02:06

易语言多线程

.程序集窗口程序集_启动窗口

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

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

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

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

.局部变量 i, 整数型

列表框表项索引＝ -1

.子程序计算, , 公开

.参数参数, 整数型
.局部变量表项sy, 整数型
.局蔀变量结果, 文本型
.局部变量结果1, 文本型
.局部变量结果2, 文本型
' 输出调试文本 (表项sy)
结果＝超级列表框1.取标题 (表项sy, 1)
进入许可区 (许可证)
输出调试文夲 (表项sy)
退出许可区 (许可证)

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

.子程序生成随机数值

.局部变量 i, 整数型
.局部变量表项索引, 整数型

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

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

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

您可以选择打赏方式支持他

}

.程序集窗口程序集1

.程序集变量客戶, 文本型

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

信息框 (“成功连接！”, 0, )

信息框 (“连接失败！”, 0, )

.子程序 _客户1_数据到达

.局部变量文本, 文本型

.局部变量 i, 整数型

.局部变量表项, 整数型

文本＝取字节集数据 (客户1.取回数据 (), #文本型, )

文本组＝分割文本 (文本, “,”, )

.计次循环首 (取数组成员数 (文本组), i)

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

服务器1.发送数据 (客户, “服务主机IP,服务主机电脑名,操作系统,什么什么。”, 3)

.子程序 _服务器1_客户进入

客户＝服务器1.取回客户 ()

}

天天发财游戏网