易语言TV网学习的课堂作业红绿灯

guan52099

本人小白刚刚开始学习易语言，看了课程自己凭感觉写的，代码写的又臭又长，望大佬指导，帮忙精简优化一下！谢谢！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
编辑框红	整数型
编辑框黄	整数型
编辑框绿	整数型
重置编辑框红	整数型
重置编辑框黄	整数型
重置编辑框绿	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

外形框_黄.可视 ＝ 假
外形框_绿.可视 ＝ 假
外形框_红.可视 ＝ 假
编辑框红 ＝ 10
编辑框黄 ＝ 3
编辑框绿 ＝ 10
重置编辑框红 ＝ 10
重置编辑框黄 ＝ 3
重置编辑框绿 ＝ 10

子程序名	返回值类型	公开	备 注
_时钟_红_周期事件

编辑框_绿.内容 ＝ 到文本 (编辑框绿)
外形框_红.可视 ＝ 真
编辑框_红.内容 ＝ 到文本 (编辑框红)
编辑框红 ＝ 编辑框红 － 1
判断 (编辑框_红.内容 ＝ “0”)
时钟_红.时钟周期 ＝ 0
外形框_红.可视 ＝ 假
外形框_黄.可视 ＝ 真
编辑框红 ＝ 重置编辑框红
时钟_黄.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_按钮_开始_被单击

编辑框_红.内容 ＝ 到文本 (重置编辑框红)
编辑框_黄.内容 ＝ 到文本 (重置编辑框黄)
编辑框_绿.内容 ＝ 到文本 (重置编辑框绿)
时钟_红.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_时钟_黄_周期事件

编辑框_红.内容 ＝ 到文本 (编辑框红)
编辑框_黄.内容 ＝ 到文本 (编辑框黄)
编辑框黄 ＝ 编辑框黄 － 1
判断 (编辑框_黄.内容 ＝ “0”)
时钟_黄.时钟周期 ＝ 0
外形框_黄.可视 ＝ 假
外形框_绿.可视 ＝ 真
编辑框黄 ＝ 重置编辑框黄
时钟_绿.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_时钟_绿_周期事件

编辑框_黄.内容 ＝ 到文本 (编辑框黄)
编辑框_绿.内容 ＝ 到文本 (编辑框绿)
编辑框绿 ＝ 编辑框绿 － 1
' 如果真 (编辑框_绿.内容 ≤ “5”)'这个判断是让绿灯在最后几秒闪烁！没有搞定！
' 外形框_绿.可视 ＝ 取反 (外形框_绿.可视)
判断 (编辑框_绿.内容 ＝ “6”)
外形框_绿.可视 ＝ 假
判断 (编辑框_绿.内容 ＝ “5”)
外形框_绿.可视 ＝ 真
判断 (编辑框_绿.内容 ＝ “4”)
外形框_绿.可视 ＝ 假
判断 (编辑框_绿.内容 ＝ “3”)
外形框_绿.可视 ＝ 真
判断 (编辑框_绿.内容 ＝ “2”)
外形框_绿.可视 ＝ 假
判断 (编辑框_绿.内容 ＝ “1”)
外形框_绿.可视 ＝ 真
判断 (编辑框_绿.内容 ＝ “0”)
时钟_绿.时钟周期 ＝ 0
外形框_绿.可视 ＝ 假
外形框_红.可视 ＝ 真
编辑框绿 ＝ 重置编辑框绿
时钟_红.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_按钮_停止_被单击

时钟_红.时钟周期 ＝ 0
时钟_黄.时钟周期 ＝ 0
时钟_绿.时钟周期 ＝ 0
编辑框_红.内容 ＝ “”
编辑框_黄.内容 ＝ “”
编辑框_绿.内容 ＝ “”
外形框_黄.可视 ＝ 假
外形框_绿.可视 ＝ 假
外形框_红.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮_重置_被单击

判断 (时钟_红.时钟周期 ＝ 0 且 时钟_黄.时钟周期 ＝ 0 且 时钟_绿.时钟周期 ＝ 0 且 编辑框_红.内容 ≠ “” 且 编辑框_黄.内容 ≠ “” 且 编辑框_绿.内容 ≠ “”)
重置编辑框红 ＝ 到整数 (编辑框_红.内容)
重置编辑框黄 ＝ 到整数 (编辑框_黄.内容)
重置编辑框绿 ＝ 到整数 (编辑框_绿.内容)
编辑框红 ＝ 重置编辑框红
编辑框黄 ＝ 重置编辑框黄
编辑框绿 ＝ 重置编辑框绿
信息框 (“时间重置成功！”, 0, , )
信息框 (“请在停止后在编辑框内输入有效的时间后重置！”, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 编辑框红, 整数型<br /> .程序集变量 编辑框黄, 整数型<br /> .程序集变量 编辑框绿, 整数型<br /> .程序集变量 重置编辑框红, 整数型<br /> .程序集变量 重置编辑框黄, 整数型<br /> .程序集变量 重置编辑框绿, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 外形框_黄.可视 ＝ 假<br /> 外形框_绿.可视 ＝ 假<br /> 外形框_红.可视 ＝ 假<br /> 编辑框红 ＝ 10<br /> 编辑框黄 ＝ 3<br /> 编辑框绿 ＝ 10<br /> 重置编辑框红 ＝ 10<br /> 重置编辑框黄 ＝ 3<br /> 重置编辑框绿 ＝ 10<br /> <br /> .子程序 _时钟_红_周期事件<br /> <br /> 编辑框_绿.内容 ＝ 到文本 (编辑框绿)<br /> 外形框_红.可视 ＝ 真<br /> 编辑框_红.内容 ＝ 到文本 (编辑框红)<br /> 编辑框红 ＝ 编辑框红 － 1<br /> .判断开始 (编辑框_红.内容 ＝ “0”)<br />     时钟_红.时钟周期 ＝ 0<br />     外形框_红.可视 ＝ 假<br />     外形框_黄.可视 ＝ 真<br />     编辑框红 ＝ 重置编辑框红<br />     时钟_黄.时钟周期 ＝ 1000<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮_开始_被单击<br /> <br /> 编辑框_红.内容 ＝ 到文本 (重置编辑框红)<br /> 编辑框_黄.内容 ＝ 到文本 (重置编辑框黄)<br /> 编辑框_绿.内容 ＝ 到文本 (重置编辑框绿)<br /> 时钟_红.时钟周期 ＝ 1000<br /> <br /> .子程序 _时钟_黄_周期事件<br /> <br /> 编辑框_红.内容 ＝ 到文本 (编辑框红)<br /> 编辑框_黄.内容 ＝ 到文本 (编辑框黄)<br /> 编辑框黄 ＝ 编辑框黄 － 1<br /> .判断开始 (编辑框_黄.内容 ＝ “0”)<br />     时钟_黄.时钟周期 ＝ 0<br />     外形框_黄.可视 ＝ 假<br />     外形框_绿.可视 ＝ 真<br />     编辑框黄 ＝ 重置编辑框黄<br />     时钟_绿.时钟周期 ＝ 1000<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _时钟_绿_周期事件<br /> <br /> 编辑框_黄.内容 ＝ 到文本 (编辑框黄)<br /> 编辑框_绿.内容 ＝ 到文本 (编辑框绿)<br /> 编辑框绿 ＝ 编辑框绿 － 1<br /> ' 如果真 (编辑框_绿.内容 ≤ “5”)'这个判断是让绿灯在最后几秒闪烁！没有搞定！<br /> ' 外形框_绿.可视 ＝ 取反 (外形框_绿.可视)<br /> .判断开始 (编辑框_绿.内容 ＝ “6”)<br />     外形框_绿.可视 ＝ 假<br /> .判断 (编辑框_绿.内容 ＝ “5”)<br />     外形框_绿.可视 ＝ 真<br /> .判断 (编辑框_绿.内容 ＝ “4”)<br />     外形框_绿.可视 ＝ 假<br /> .判断 (编辑框_绿.内容 ＝ “3”)<br />     外形框_绿.可视 ＝ 真<br /> .判断 (编辑框_绿.内容 ＝ “2”)<br />     外形框_绿.可视 ＝ 假<br /> .判断 (编辑框_绿.内容 ＝ “1”)<br />     外形框_绿.可视 ＝ 真<br /> .判断 (编辑框_绿.内容 ＝ “0”)<br />     时钟_绿.时钟周期 ＝ 0<br />     外形框_绿.可视 ＝ 假<br />     外形框_红.可视 ＝ 真<br />     编辑框绿 ＝ 重置编辑框绿<br />     时钟_红.时钟周期 ＝ 1000<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮_停止_被单击<br /> <br /> 时钟_红.时钟周期 ＝ 0<br /> 时钟_黄.时钟周期 ＝ 0<br /> 时钟_绿.时钟周期 ＝ 0<br /> 编辑框_红.内容 ＝ “”<br /> 编辑框_黄.内容 ＝ “”<br /> 编辑框_绿.内容 ＝ “”<br /> 外形框_黄.可视 ＝ 假<br /> 外形框_绿.可视 ＝ 假<br /> 外形框_红.可视 ＝ 假<br /> <br /> .子程序 _按钮_重置_被单击<br /> <br /> .判断开始 (时钟_红.时钟周期 ＝ 0 且 时钟_黄.时钟周期 ＝ 0 且 时钟_绿.时钟周期 ＝ 0 且 编辑框_红.内容 ≠ “” 且 编辑框_黄.内容 ≠ “” 且 编辑框_绿.内容 ≠ “”)<br />     重置编辑框红 ＝ 到整数 (编辑框_红.内容)<br />     重置编辑框黄 ＝ 到整数 (编辑框_黄.内容)<br />     重置编辑框绿 ＝ 到整数 (编辑框_绿.内容)<br />     编辑框红 ＝ 重置编辑框红<br />     编辑框黄 ＝ 重置编辑框黄<br />     编辑框绿 ＝ 重置编辑框绿<br />     信息框 (“时间重置成功！”, 0, , )<br /> .默认<br />     信息框 (“请在停止后在编辑框内输入有效的时间后重置！”, 0, , )<br /> .判断结束

徐嘉豪5025

感谢分享，很给力！~

FUYUEPC

感谢分享，很给力！~

KL丶小马

谢谢分享，学习

1003395366

当事人提供鹅鹅鹅鹅鹅鹅

124149449

很好很强悍，坚持下去哦~

孤城已故

FUYUEPC

孩子，你很成功啦

aaa88888

lgbc

给以鼓励