随机变幻彩色文本

我就我

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文本组	文本型	0
循环次数	整数型
新的循环	整数型
随机

子程序名	返回值类型	公开	备 注
_按钮开始_被单击

置随机数种子 ()
按钮开始.禁止 ＝ 真  ' 禁止是为了防止按钮在未循环之前被错误按下
图片框1.可视 ＝ 假  ' 这个图片按是关闭按钮
随机 ＝ 取随机数 (1, 7)
文本组 ＝ { “三人骑驴过荒山，四腿忙碌六腿闲；皆是世间轮回客，多为自己结善缘” }
计次循环首 (取数组成员数 (文本组), 循环次数)
标签1.标题 ＝ “”
判断 (随机 ＝ 1)
标签1.文本颜色 ＝ #红色
_启动窗口.底色 ＝ #绿色
判断 (随机 ＝ 2)
标签1.文本颜色 ＝ #橙黄
_启动窗口.底色 ＝ # **
判断 (随机 ＝ 3)
标签1.文本颜色 ＝ #黄色
_启动窗口.底色 ＝ #蓝色
判断 (随机 ＝ 4)
标签1.文本颜色 ＝ #绿色
_启动窗口.底色 ＝ #黄色
判断 (随机 ＝ 5)
标签1.文本颜色 ＝ #青蓝
_启动窗口.底色 ＝ #嫩黄
判断 (随机 ＝ 6)
标签1.文本颜色 ＝ #蓝色
_启动窗口.底色 ＝ #紫色
标签1.文本颜色 ＝ #紫色
_启动窗口.底色 ＝ #嫩绿
变量循环首 (1, 取文本长度 (文本组 [循环次数]), 2, 新的循环)  ' 取文本长度， 第四个参数是用来记录循环了多少次，会随着第二个参数递增或递减，易语言本身的解释，有的和天书一样的难以理解，草。
标签1.标题 ＝ 标签1.标题 ＋ 取文本中间 (文本组 [循环次数], 新的循环, 2)
' 取文本中间，用人话来解释就是取出一串文本的中间部分，第一个参数是要取出的部分；第二个参数是开始取出部分的位置，第三个参数是每次取出几个字符。
判断 (新的循环 ＝ 61)  ' 这里用变量就好了，暂时没做，算是瑕疵吧。
按钮开始.禁止 ＝ 假  ' 这里也是这个作用。
图片框1.可视 ＝ 真  ' 只有循环完了退出才可以点击，否则有可能程序会卡死。


延迟 (80)调试输出 (新的循环)
变量循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

销毁 ()
' 欢迎学习易语言的朋友们一起学习，大神勿喷。

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文本组, 文本型, , "0"<br /> .程序集变量 循环次数, 整数型<br /> .程序集变量 新的循环, 整数型<br /> .程序集变量 随机<br /> <br /> .子程序 _按钮开始_被单击<br /> <br /> 置随机数种子 ()<br /> 按钮开始.禁止 ＝ 真  ' 禁止是为了防止按钮在未循环之前被错误按下<br /> 图片框1.可视 ＝ 假  ' 这个图片按是关闭按钮<br /> 随机 ＝ 取随机数 (1, 7)<br /> 文本组 ＝ { “三人骑驴过荒山，四腿忙碌六腿闲；皆是世间轮回客，多为自己结善缘” }<br /> .计次循环首 (取数组成员数 (文本组), 循环次数)<br />     标签1.标题 ＝ “”<br />     .判断开始 (随机 ＝ 1)<br />         标签1.文本颜色 ＝ #红色<br />         _启动窗口.底色 ＝ #绿色<br />     .判断 (随机 ＝ 2)<br />         标签1.文本颜色 ＝ #橙黄<br />         _启动窗口.底色 ＝ #**<br />     .判断 (随机 ＝ 3)<br />         标签1.文本颜色 ＝ #黄色<br />         _启动窗口.底色 ＝ #蓝色<br />     .判断 (随机 ＝ 4)<br />         标签1.文本颜色 ＝ #绿色<br />         _启动窗口.底色 ＝ #黄色<br />     .判断 (随机 ＝ 5)<br />         标签1.文本颜色 ＝ #青蓝<br />         _启动窗口.底色 ＝ #嫩黄<br />     .判断 (随机 ＝ 6)<br />         标签1.文本颜色 ＝ #蓝色<br />         _启动窗口.底色 ＝ #紫色<br />     .默认<br />         标签1.文本颜色 ＝ #紫色<br />         _启动窗口.底色 ＝ #嫩绿<br />     .判断结束<br />     .变量循环首 (1, 取文本长度 (文本组 [循环次数]), 2, 新的循环)  ' 取文本长度， 第四个参数是用来记录循环了多少次，会随着第二个参数递增或递减，易语言本身的解释，有的和天书一样的难以理解，草。<br />         标签1.标题 ＝ 标签1.标题 ＋ 取文本中间 (文本组 [循环次数], 新的循环, 2)<br />         ' 取文本中间，用人话来解释就是取出一串文本的中间部分，第一个参数是要取出的部分；第二个参数是开始取出部分的位置，第三个参数是每次取出几个字符。<br />         .判断开始 (新的循环 ＝ 61)  ' 这里用变量就好了，暂时没做，算是瑕疵吧。<br />             按钮开始.禁止 ＝ 假  ' 这里也是这个作用。<br />             图片框1.可视 ＝ 真  ' 只有循环完了退出才可以点击，否则有可能程序会卡死。<br />         .默认<br /> <br />         .判断结束<br />         延迟 (80)<br />         调试输出 (新的循环)<br />     .变量循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 销毁 ()<br /> ' 欢迎学习易语言的朋友们一起学习，大神勿喷。

我就我

jiuyan660 发表于 2025-3-6 15:20
666牛逼

谢谢

jiuyan660

666牛逼

ghost12

大神，请收下我的膝盖

ghost12

很赞同，谢谢！

趣冉科技

感谢楼主分享，支持一下~~！！！

我就我

jiang7825 发表于 2021-12-21 01:17

jiang7825

我就我

初心i 发表于 2021-12-12 16:12
感谢分享，很给力！~

谢谢

初心i

感谢分享，很给力！~

我就我

讨论一下：有没有大佬可以把新的循环 ＝ 61中的61也替换成变量？让他可以适应任何文本长度？