易语言屏幕渐渐写字软件

.子程序 持续写字
.局部变量 计次, 整数型
.局部变量 Y, 整数型
.局部变量 X, 整数型
.局部变量 字节集, 字节集
.局部变量 temp, 字节集
.局部变量 写出的文本, 文本型
.局部变量 跳, 逻辑型

Y ＝ 10
字节集 ＝ 到字节集 (文本)
置随机数种子 ()
延迟 (500)
.计次循环首 (取字节集长度 (字节集), 计次)
X ＝ X ＋ 1
.如果真 (计次 ％ 45 ＝ 0)
X ＝ 0
Y ＝ Y ＋ 50
.如果真结束
.判断开始 (字节集 [计次] ＞ 125)
.如果真 (跳 ＝ 真)
跳 ＝ 假
到循环尾 ()
.如果真结束
temp ＝ { 0, 0 }
temp [1] ＝ 字节集 [计次]
temp [2] ＝ 字节集 [计次 ＋ 1]
写出的文本 ＝ 到文本 (temp)
跳 ＝ 真
.默认
temp ＝ { 0 }
temp [1] ＝ 字节集 [计次]
写出的文本 ＝ 到文本 (temp)
.判断结束
.如果真 (是否已创建 (窗口1) ＝ 假)
返回 ()
.如果真结束
画板1.文本颜色 ＝ 取随机数 (0, 16777215)
画板1.定位写出 (X × 30, Y, 写出的文本)
延时 (取随机数 (100, 500))
.计次循环尾 ()