易语言多线程控制
.版本 2.支持库 EThread
.程序集 启动窗口程序集
.程序集变量 许可证号, 整数型
.程序集变量 随机数变量, 整数型
.程序集变量 启动线程句柄, 整数型
.子程序 _启动线程按钮_被单击
启动线程 (&取数子程序1, 1, 启动线程句柄)
' 第二个参数是给取数子程序1的参数。
启动线程 (&取数子程序2, , )
等待线程 (启动线程句柄, 1000)' 等待的时间
.子程序 __启动窗口_创建完毕
许可证号 ＝ 创建进入许可证 ()
.子程序 取数子程序1
.参数 延时时间, 整数型
置随机数种子 ()
.计次循环首 (100, )
进入许可区 (许可证号)
' 在没有退出许可区之前，其他线程是不可能操作“随机数变量的”
随机数变量 ＝ 取随机数 (10, 99)
延时 (延时时间)
' 这里用延时是为了和第二个县城的运算速度有差别。这样更容易出错，就更容易看出许可证的作用。
十位编辑框.内容 ＝ 十位编辑框.内容 ＋ 到文本 (随机数变量) ＋ #换行符
退出许可区 (许可证号)
' 这样其它线程就可以操作“随机数变量”了。
.计次循环尾 ()
.子程序 取数子程序2
置随机数种子 ()
.计次循环首 (100, )
进入许可区 (许可证号)
' 由于2个线程同时操作“随机数变量”，如果不用进入许可区，就会出现变量内容出错，下面的编辑框读出的内容就可能出错。
随机数变量 ＝ 取随机数 (101, 199)
百位编辑框.内容 ＝ 百位编辑框.内容 ＋ 到文本 (随机数变量) ＋ #换行符
退出许可区 (许可证号)
.计次循环尾 ()
.子程序 __启动窗口_可否被关闭, 逻辑型
删除进入许可证 (许可证号)
.子程序 _强制结束线程_被单击
强制结束线程 (启动线程句柄)
.子程序 _关闭线程句柄_被单击
关闭线程句柄 (启动线程句柄)
学习一下！十分感谢 学习了，这就去试试 期待中...... 路过还不错 非常不错，感谢分享！ 学习了！！！！ 很给力。。。。很喜欢 非常不错，感谢分享！ 支持！！！！前排！！！！