谁懂易语言，，为什么运行到最后变成0秒就不动了？

谁懂易语言，，为什么运行到最后变成0秒就不动了？

.版本 2

.程序集 窗口程序集1
.程序集变量 t

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

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

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

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

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

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

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

时钟1.时钟周期 ＝ 1000

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

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

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

.如果 (按钮4.标题 ＝ “自动控制”)
按钮4.标题 ＝ “手动控制”
按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 真
按钮3.禁止 ＝ 真
_按钮1_被单击 ()
t ＝ #常量1 ' 不可放到_时钟2_周期事件下方，否则一直为30秒，因为它为循环事件！
时钟2.时钟周期 ＝ 1000
.否则
按钮4.标题 ＝ “自动控制”
按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 假
按钮3.禁止 ＝ 假
标签2.标题 ＝ “手动控制”
时钟2.时钟周期 ＝ 0
时钟3.时钟周期 ＝ 0

.如果结束

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

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

.如果真结束
.如果真 (t ＝ 0)
t ＝ #常量1
时钟3.时钟周期 ＝ 1000 ' 启动时钟3
时钟2.时钟周期 ＝ 0 ' 不等于0,会矛盾
_按钮3_被单击 () ' 绿灯亮
.如果真结束

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

t ＝ t － 1
标签2.标题 ＝ 到文本 (t) ＋ “秒”
.如果真 (t ＝ 5)
外形框3.填充颜色 ＝ #黑色
外形框2.填充颜色 ＝ #黄色
.如果真结束
.如果真 (t ＝ 0)
时钟1.时钟周期 ＝ 1000
t ＝ #常量1
时钟3.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 1000
_按钮1_被单击 ()

.如果真结束

.常量 常量1, "10"

鄙视拿了源码就走人的那一类追问什么意思？追答源码已经给你了。如果满意请选为最佳答案

哈哈好熟悉，红绿灯程序........

看着有点乱，用一个时钟就可以了，

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息