易语言模拟红绿灯
1、用到的组件:定时器。外形框,按钮。
起始窗口背景图网上找的。
拖三个外形框,填充为灰色。
再拖三个外形框,分别填充为:红,黄,绿。覆盖到前三个外形框。
红色设置为可视,黄,绿设置为不可视。
拖一个定时器到窗口。



2、主要逻辑:
启动窗口创建完毕,打开计时器。
计时器事件里写剩下的逻辑。
数字9每隔1秒减1,添加为按钮标题。
如果红灯可视,等减到0时,红灯设为不可视,黄灯可视,数字回复到9。
如果黄灯可视,重复上一步。绿灯也是如此。
不同的是,当黄灯减到4是,开始闪烁。即当时间为4且黄灯可视时,取反。
3、粘贴代码如下。
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 1000
.子程序 _时钟1_周期事件
按钮1.标题 = “0” + 到文本 (到数值 (按钮1.标题) - 1)
.判断开始 (外形框_红灯.可视 = 真)
.如果真 (到数值 (按钮1.标题) = 0)
外形框_红灯.可视 = 假
外形框_黄.可视 = 真
按钮1.标题 = “09”
.如果真结束
.判断 (外形框_黄.可视 = 真)
.如果真 (到数值 (按钮1.标题) ≤ 4 且 到数值 (按钮1.标题) > 0)
.如果 (外形框_黄.可视 = 真)
外形框_黄.可视 = 假
.否则
外形框_黄.可视 = 真
.如果结束
.如果真结束
.如果真 (到数值 (按钮1.标题) = 0)
外形框_黄.可视 = 假
外形框_绿灯.可视 = 真
按钮1.标题 = “09”
.如果真结束
.判断 (外形框_绿灯.可视 = 真)
.如果真 (到数值 (按钮1.标题) = 0)
外形框_绿灯.可视 = 假
外形框_红灯.可视 = 真
按钮1.标题 = “09”
.如果真结束
.判断 (外形框_黄.可视 = 假 且 到数值 (按钮1.标题) ≤ 4)
.如果 (外形框_黄.可视 = 假)
外形框_黄.可视 = 真
.否则
外形框_黄.可视 = 假
.如果结束
.如果真 (到数值 (按钮1.标题) = 0)
外形框_黄.可视 = 假
外形框_绿灯.可视 = 真
按钮1.标题 = “09”
.如果真结束
