觅风论坛

标题: 易语言多线程控制 [打印本页]

作者: dahaidao    时间: 2020-4-13 13:52
标题: 易语言多线程控制
.版本 2
.支持库 EThread

.程序集 启动窗口程序集
.程序集变量 许可证号, 整数型
.程序集变量 随机数变量, 整数型
.程序集变量 启动线程句柄, 整数型

.子程序 _启动线程按钮_被单击

启动线程 (&取数子程序1, 1, 启动线程句柄)
' 第二个参数是给取数子程序1的参数。
启动线程 (&取数子程序2, , )
等待线程 (启动线程句柄, 1000)  ' 等待的时间

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

许可证号 = 创建进入许可证 ()

.子程序 取数子程序1
.参数 延时时间, 整数型

置随机数种子 ()
.计次循环首 (100, )
    进入许可区 (许可证号)
    ' 在没有退出许可区之前,其他线程是不可能操作“随机数变量的”
    随机数变量 = 取随机数 (10, 99)
    延时 (延时时间)
    ' 这里用延时是为了和第二个县城的运算速度有差别。这样更容易出错,就更容易看出许可证的作用。
    十位编辑框.内容 = 十位编辑框.内容 + 到文本 (随机数变量) + #换行符
    退出许可区 (许可证号)
    ' 这样其它线程就可以操作“随机数变量”了。
.计次循环尾 ()

.子程序 取数子程序2

置随机数种子 ()
.计次循环首 (100, )
    进入许可区 (许可证号)
    ' 由于2个线程同时操作“随机数变量”,如果不用进入许可区,就会出现变量内容出错,下面的编辑框读出的内容就可能出错。
    随机数变量 = 取随机数 (101, 199)
    百位编辑框.内容 = 百位编辑框.内容 + 到文本 (随机数变量) + #换行符
    退出许可区 (许可证号)
.计次循环尾 ()


.子程序 __启动窗口_可否被关闭, 逻辑型

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

.子程序 _强制结束线程_被单击

强制结束线程 (启动线程句柄)

.子程序 _关闭线程句柄_被单击

关闭线程句柄 (启动线程句柄)



作者: 图样图森破丶    时间: 2020-4-13 14:03
学习一下!十分感谢
作者: 特拉斯●狗蛋儿    时间: 2020-4-13 14:14
学习了,这就去试试
作者: 莫天浩    时间: 2020-4-13 14:26
期待中......
作者: zxcasd123c1    时间: 2020-4-13 14:37
路过还不错
作者: 莫天浩    时间: 2020-4-13 14:49
非常不错,感谢分享!
作者: 刘小凯    时间: 2020-4-13 15:35
学习了!!!!
作者: 565562216    时间: 2020-4-13 16:21
很给力。。。。很喜欢
作者: 徐少    时间: 2020-4-13 17:08
非常不错,感谢分享!
作者: 几滴雨珠    时间: 2020-4-13 17:54
支持!!!!前排!!!!
作者: 张杰    时间: 2020-4-13 18:40
感觉不错
作者: 2549051527    时间: 2020-4-13 18:42
提示: 作者被禁止或删除 内容自动屏蔽
作者: 雨点    时间: 2020-4-13 18:44
感谢您的无私精神...
作者: a466911461    时间: 2020-4-13 18:46
这个不错,谢谢共享
作者: yu1616    时间: 2020-4-13 18:49
碉堡了!
作者: 542134120.    时间: 2020-4-13 18:51
提示: 作者被禁止或删除 内容自动屏蔽
作者: 光光    时间: 2020-4-13 19:34
还是看不懂,复杂
作者: 的含税单价    时间: 2020-4-13 20:18
不错!顶LZ
作者: 何海银    时间: 2020-4-13 21:02
学习了,这就去试试
作者: asd26297    时间: 2020-4-13 21:46
这个不错,谢谢共享
作者: 光光    时间: 2020-4-13 22:29
碉堡了!
作者: 星梦无痕    时间: 2020-4-13 22:49
谢谢楼主的辛苦分享
作者: 1791703110    时间: 2020-4-13 23:10
支持,赞
作者: 慌什么!    时间: 2020-4-13 23:30
支持你们一下下哈
作者: zzq6689@qq.com    时间: 2020-4-13 23:50
提示: 作者被禁止或删除 内容自动屏蔽
作者: 我去前面探探路    时间: 2020-4-14 00:10
顶起  很好的帖
作者: 小麦555    时间: 2020-4-14 00:32
还是看不懂,复杂
作者: lsz    时间: 2020-4-14 00:53
不错哦  喜欢 嘿嘿
作者: 啦啦啦啦啦啦    时间: 2020-4-14 01:14
感谢您的无私精神...
作者: csw96781    时间: 2020-4-14 01:35
抢楼了,前排第一次啊
作者: hy507669673    时间: 2020-4-14 01:56
感觉不错
作者: 我才    时间: 2020-4-14 03:20
谢谢楼主,,,收藏ing
作者: 我叫很钢    时间: 2020-4-14 04:44
学习一下!十分感谢
作者: a491198538    时间: 2020-4-14 06:08
好像还不错!
作者: 443651433..    时间: 2020-4-14 07:32
感谢您的无私精神...
作者: a466911461    时间: 2020-4-14 08:56
支持!!!!前排!!!!
作者: 呵呵    时间: 2020-4-14 09:56
不错不错 支持下
作者: 黑崎一宇    时间: 2020-4-14 10:55
学习了,这就去试试
作者: 封偌丶    时间: 2020-4-14 11:55
不错哦  喜欢 嘿嘿
作者: li123    时间: 2020-4-14 12:54
这个不错,谢谢共享
作者: 好吧你又赢了    时间: 2020-4-14 13:54
我表示压力很大
作者: 555    时间: 2020-4-14 19:32
非常不错,感谢分享!
作者: 养猪大户    时间: 2020-4-14 19:38
感谢您的无私精神...
作者: 啥啥啥    时间: 2020-4-14 19:44
提示: 作者被禁止或删除 内容自动屏蔽
作者: 卧槽你妹    时间: 2020-4-14 19:50
非常不错,感谢分享!
作者: 图样图森破丶    时间: 2020-4-14 19:56
看帖子的要发表下看法
作者: lhq19880526    时间: 2020-4-14 20:02
藕是来打酱油滴...
作者: 我才    时间: 2020-4-14 20:33
学习了!!!!
作者: 2549051527    时间: 2020-4-14 21:04
提示: 作者被禁止或删除 内容自动屏蔽
作者: 霸王喝粥    时间: 2020-4-14 21:35
支持!!!!前排!!!!
作者: 霸王喝粥    时间: 2020-4-14 22:06
必须支持。。。。。。。
作者: q13129841235    时间: 2020-4-14 22:36
感觉不错




欢迎光临 觅风论坛 (https://www.eyyba.com/) Powered by Discuz! X3.4