|
- .版本 2
- .程序集 窗口程序集_启动窗口
- .子程序 __启动窗口_创建完毕
- 移位.时钟周期 = 100
- 编辑框1.内容 = “易语言编辑框仿LED显示屏循环左右移走马灯走字特效支持中英文混合 Hello World!”
- .子程序 _移位_周期事件
- .局部变量 文本, 文本型
- .局部变量 字节集, 字节集
- .局部变量 移出的字, 文本型
- .局部变量 字长, 整数型
- .局部变量 左右移, 逻辑型, 静态
- .局部变量 总长, 整数型
- .局部变量 计数, 整数型, 静态
- 计数 = 计数 + 1
- .如果真 (计数 ≥ 200)
- 计数 = 0
- 左右移 = 取反 (左右移)
- .如果真结束
- 字节集 = 到字节集 (编辑框1.内容)
- 总长 = 取字节集长度 (字节集)
- .如果真 (左右移)
- 字长 = 选择 (字节集 [1] ≥ 128, 2, 1)
- 移出的字 = 取文本左边 (编辑框1.内容, 字长)
- 编辑框1.内容 = 取文本右边 (编辑框1.内容, 总长 - 字长) + 移出的字
- 返回 ()
- .如果真结束
- 字长 = 选择 (字节集 [总长] ≥ 128, 2, 1)
- 移出的字 = 取文本右边 (编辑框1.内容, 字长)
- 编辑框1.内容 = 移出的字 + 取文本左边 (编辑框1.内容, 总长 - 字长)
复制代码
|
|