易语言-红绿灯项目教程展示

.版本 2
.支持库 iext

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

.子程序 _红灯_被选择

外形框1.填充颜色 ＝ #红色
外形框2.填充颜色 ＝ #灰色
外形框3.填充颜色 ＝ #灰色

.子程序 _黄灯_被选择

外形框1.填充颜色 ＝ #灰色
外形框2.填充颜色 ＝ #灰色
外形框3.填充颜色 ＝ #黄色

.子程序 _绿灯_被选择

外形框1.填充颜色 ＝ #灰色
外形框2.填充颜色 ＝ #绿色
外形框3.填充颜色 ＝ #灰色

.子程序 _自动控制_被选择

t ＝ 36
_红灯_被选择 ()
时钟1.时钟周期 ＝ 1000

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

时钟3.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件

t ＝ t － 1
标签1.标题 ＝ 到文本 (t)
.如果真 (t ＝ 3)
    外形框3.填充颜色 ＝ #黄色

.如果真结束
.如果真 (t ＝ 0)
    t ＝ 31
    时钟1.时钟周期 ＝ 0
    时钟2.时钟周期 ＝ 1000
    _绿灯_被选择 ()

.如果真结束


.子程序 _时钟2_周期事件

t ＝ t － 1
标签1.标题 ＝ 到文本 (t)
.如果真 (t ＝ 3)
    外形框3.填充颜色 ＝ #黄色
.如果真结束
.如果真 (t ＝ 0)
    t ＝ 90
    时钟2.时钟周期 ＝ 0
    时钟1.时钟周期 ＝ 1000
    _红灯_被选择 ()

.如果真结束


.子程序 _关于_被选择

信息框 (“本程序仅为学习交流所用” ＋ #换行符 ＋ “欢迎更多的小伙伴加入易语言家族！” ＋ #换行符 ＋ #换行符 ＋ “                                     伊藤柒海” ＋ #换行符 ＋ “                                  2020年5月30日”, #信息图标, “红绿灯”, )


.子程序 _时钟3_周期事件

状态条1.置文本 (0, “北京时间：” ＋ 到文本 (取现行时间 ()) ＋ “  伊藤柒海”)


.子程序 _退出_被选择

销毁 ()

 源码链接

 程序链接