如何利用易语言做“走马灯”效果

1、打开易语言，创建启动窗口。在启动窗口分别加入画板、按钮、时钟各一个，如下图

2、由于走马灯颜色是随机变化的，我们用数组来编。双击“启动窗口”跳至程序集，按图示定义数组，先把数组的取值确定下来，如图

3、接下来编程时钟的动作，这里面定义的“子程序1”别丢掉。具体如下图

4、编写完成，调试运行，如图所示，要是没问题，保存编译即可，结果图展示如下

5、以下是源码，自己复制到易语言里试试，自行修改需要的结果：

.版本 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)