易语言 字幕左右来回滚动源码 怎样写

Question

左右滚动的会写
左右来回滚动的怎样写，也就是说从左往右，挨到边边又往回走，循环左右来回滚动

Answer 1

.版本 2

.支持库 spec

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

.程序集变量 左右, 逻辑型

.程序集变量 计次, 整数型

.程序集变量 来回宽, 整数型

.子程序 _按钮1_被单击

标签1.字体.字体大小 ＝ 20

标签1.高度 ＝ 25

标签1.宽度 ＝ 取文本长度 (编辑框1.内容) × 15

标签1.左边 ＝ 0

标签1.标题 ＝ 编辑框1.内容

左右 ＝ 真

来回宽 ＝ _启动窗口.宽度 － 标签1.宽度 － 1

滚动 ()

.子程序 滚动

.如果 (左右)

.计次循环首 (来回宽, 计次)

标签1.左边 ＝ 计次

延迟 (50)

.计次循环尾 ()

.否则

.计次循环首 (来回宽, 计次)

标签1.左边 ＝ 来回宽 － 计次

延迟 (50)

.计次循环尾 ()

.如果结束

左右 ＝ 取反 (左右)

滚动 ()

Answer 2

用标签 在时钟里设置标签.左边

追问

等于没说

追答

易语言资源网有例子

Answer 3

.版本 2
.支持库 iext

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

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

宽度 ＝ 300
透明标签1.宽度 ＝ 65
透明标签1.文本颜色 ＝ #品红
透明标签1.左边 ＝ 宽度 － 透明标签1.宽度
透明标签1.标题 ＝ “我得意地笑”
时钟1.时钟周期 ＝ 50

.子程序 _时钟1_周期事件

.如果 (透明标签1.左边 ＝ 0)
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 50
透明标签1.左边 ＝ 宽度 － 透明标签1.宽度
透明标签1.左边 ＝ 0
.否则
透明标签1.左边 ＝ 透明标签1.左边 － 1
.如果结束

.子程序 _时钟2_周期事件

.如果 (透明标签1.左边 ＝ 宽度 － 透明标签1.宽度)
时钟2.时钟周期 ＝ 0
时钟1.时钟周期 ＝ 50
透明标签1.左边 ＝ 0
透明标签1.左边 ＝ 宽度 － 透明标签1.宽度
.否则
透明标签1.左边 ＝ 透明标签1.左边 ＋ 1
.如果结束

追问

这个好，能加我扣号码？307124802 多多指教

追答

加了，可以的话，望采纳

Answer 4

呵呵,用时钟判断,
.版本 2
.支持库 spec

.子程序 _时钟1_周期事件

标签1.左边 ＝ 标签1.左边 － 1
调试输出 (标签1.左边)
.如果真 (标签1.左边 ＜ 0)
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 1
.如果真结束

.子程序 _时钟2_周期事件

标签1.左边 ＝ 标签1.左边 ＋ 1
.如果真 (标签1.左边 ＞ 取用户区宽度 ())
时钟2.时钟周期 ＝ 0
时钟1.时钟周期 ＝ 1

看看是不是这样！

追问

一动不动的，不行