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

时间:2026-02-12 15:30:53

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)

© 2026 一点资料
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com