文本轮播例子源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 临时文本, 文本型
.局部变量 次数, 整数型
.局部变量 临时, 文本型

临时文本 ＝ 编辑框1.内容
文本_逐字分割 (临时文本, 文本)
次数 ＝ 取数组成员数 (文本)
.循环判断首 ()
    临时文本 ＝ “”
    .计次循环首 (次数, i)
        临时 ＝ 文本 [i]  ' 1 2 3
        临时文本 ＝ 临时文本 ＋ 临时
    .计次循环尾 ()
    编辑框1.内容 ＝ 临时文本
    临时 ＝ 文本 [1]
    删除成员 (文本, 1, 1)
    加入成员 (文本, 临时)
    延迟 (500)
.循环判断尾 (真)

@350246356