E语言学习——模拟红绿灯

前几天换了个工作，新的公司有一个测试工具，其实就是一个造数据的工具，是我的前任用易语言写的，所以我也需要学习一下，后期需要对这个工具进行维护和增强，在自学网上找到教程看了两章，感觉不是很难，特别像是把之前VB翻译成中文了。言归正传：

1、下软件：E语言的官网：http://www.dywt.com.cn/pdown.htm进去之后产品下载；这个有些功能（比如编译成exe程序）需要**，我用的是之前那个同事**好的；

2、跟着教程学：http://www.51zxw.net/list.aspx?cid=415，这个讲教程的雨老师讲的有点慢，不过如果是针对零基础的同学可以理解：

3、实例：

模拟红绿灯功能如下：（1）自动控制开关打开，手动控制开关不可用：红灯亮25s,从30s开始倒计时，到5s的时候黄灯亮，到0s的时候绿灯亮,亮灯时25s,30s开始倒计时，到5s的时候黄灯又亮起，到0s的时候红灯再次亮起如此反复。

（2）手动控制，上面的标签不显示倒计时，点哪个按钮，那个按钮对应的灯亮起；

界面：

E语言学习——模拟红绿灯

代码：

.版本 2

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

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

外形框1.填充颜色 ＝ #红色
外形框2.填充颜色 ＝ #黑色
外形框4.填充颜色 ＝ #黑色


.子程序 _按钮2_被单击

外形框2.填充颜色 ＝ #黄色
外形框1.填充颜色 ＝ #黑色
外形框4.填充颜色 ＝ #黑色

.子程序 _按钮3_被单击

外形框1.填充颜色 ＝ #黑色
外形框2.填充颜色 ＝ #黑色
外形框4.填充颜色 ＝ #绿色


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

时钟1.时钟周期 ＝ 1000


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


标签1.标题 ＝ “现在是：” ＋ 到文本 (取现行时间 ())

.子程序 _按钮4_被单击

.如果 (按钮4.标题 ＝ “自动控制”)
    按钮4.标题 ＝ “手动控制”
    按钮1.禁止 ＝ 真
    按钮2.禁止 ＝ 真
    按钮3.禁止 ＝ 真
    _按钮1_被单击 ()

    t ＝ #显示时间
    时钟2.时钟周期 ＝ 1000
.否则
    按钮4.标题 ＝ “自动控制”
    按钮1.禁止 ＝ 假
    按钮2.禁止 ＝ 假
    按钮3.禁止 ＝ 假
    时钟2.时钟周期 ＝ 0
    时钟3.时钟周期 ＝ 0
    标签2.标题 ＝ “手动控制”

.如果结束


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


t ＝ t － 1
标签2.标题 ＝ 到文本 (t) ＋ “秒”
.如果真 (t ＝ 5)
    外形框2.填充颜色 ＝ #黄色

.如果真结束
.如果真 (t ＝ 0)
    t ＝ #显示时间
    时钟3.时钟周期 ＝ 1000  ' 启动时钟3
    时钟2.时钟周期 ＝ 0
    _按钮3_被单击 ()  ' 绿灯亮

.如果真结束


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

t ＝ t － 1
标签2.标题 ＝ 到文本 (t) ＋ “秒”
.如果真 (t ＝ 5)
    外形框2.填充颜色 ＝ #黄色


.如果真结束
.如果真 (t ＝ 0)
    t ＝ #显示时间
    时钟2.时钟周期 ＝ 1000
    时钟3.时钟周期 ＝ 0
    _按钮1_被单击 ()

代码截图如下：

E语言学习——模拟红绿灯

总结一下：这个语言关键字都是通过汉语拼音首字母关联出来的，语法比较简单；

这个系统的难点在于通过两个时钟控制循环；

秒客网

E语言学习——模拟红绿灯

相关文章