易语言软件
打开易语言，创建启动窗口。在启动窗口分别加入画板、按钮、时钟各一个，如下图
由于走马灯颜色是随机变化的，我们用数组来编。双击“启动窗口”跳至程序集，按图示定义数组，先把数组的取值确定下来，如图
接下来编程时钟的动作，这里面定义的“子程序1”别丢掉。具体如下图
编写完成，调试运行，如图所示，要是没问题，保存编译即可，结果图展示如下
以下是源码，自己复制到易语言里试试，自行修改需要的结果：.版本 2.程序集 窗口程序集1.程序集变量 颜色数组, 整数型, , '30'.子程序 __启动窗口_创建完毕.局部变量 A, 整数型置随机数种子 ().计次循环首 (30, A) 颜色数组 [A] ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)).计次循环尾 ()时钟1.时钟周期 ＝ 330.子程序 _时钟1_周期事件.局部变量 A, 整数型时钟1.时钟周期 ＝ 0.计次循环首 (29, A) 颜色数组 [A] ＝ 颜色数组 [A ＋ 1].计次循环尾 ()颜色数组 [30] ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)).计次循环首 (30, A) .如果 (A ＝ 30) 子程序1 (A, 颜色数组 [A], 颜色数组 [A]) .否则 子程序1 (A, 颜色数组 [A], 颜色数组 [A ＋ 1]) .如果结束.计次循环尾 ()画板1.定位写出 ((画板1.宽度 － 画板1.取宽度 (“轻轻地你走了，正如你轻轻地来...”)) ÷ 2, (画板1.高度 － 画板1.取高度 (“轻轻地你走了，正如你轻轻地来...”)) ÷ 2, “轻轻地你走了，正如你轻轻地来...”)时钟1.时钟周期 ＝ 330.子程序 子程序1.参数 索引, 整数型.参数 颜色1, 整数型.参数 颜色2, 整数型画板1.画渐变矩形 ((索引 － 1) × 画板1.宽度 ÷ 30, 0, 画板1.宽度 ÷ 30, 画板1.高度, 2, 颜色1, 颜色2)