易语言5.8
win7/win10/xp
主要逻辑：启动窗口创建完毕，打开计时器。计时器事件里写剩下的逻辑。数字9每隔1秒减1，添加为按钮标题。如果红灯可视，等减到0时，红灯设为不可视，黄灯可视，数字回复到9。如果黄灯可视，重复上一步。绿灯也是如此。不同的是，当黄灯减到4是，开始闪烁。即当时间为4且黄灯可视时，取反。
粘贴代码如下。.版本 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” .如果真结束
外形框背景色应该跟窗口背景图颜色一致。
动动你发财小手关注一下。