简单的字幕滚动程序例子

易语言 2020-08-25 17:51:59

简单的字幕滚动程序例子

.子程序 初始滚动字幕
.参数 文本, 文本型, , 滚动字幕的文本
.参数 移动间隔时间, 整数型, 可空, 单位毫秒,多少毫秒移动一次,默认为100
.参数 间隔距离, 整数型, 可空, 默认为1,越小越平滑

.如果真 (间隔距离 ≤ 0)
间隔距离 = 1
.如果真结束
.如果真 (移动间隔时间 ≤ 0)
移动间隔时间 = 100
.如果真结束
滚动条.标题 = 文本
间距 = 间隔距离
滚动条.左边 = 背景条.宽度
滚动条.宽度 = 取文本长度 (文本) × 6
输出调试文本 (到文本 (滚动条.宽度))
控制时钟.时钟周期 = 移动间隔时间

修复字幕播放一会儿后自动消失问题。

增加字幕延迟功能(如果在播放字幕完毕的过程中出现一瞬间的闪耀,请把字幕延迟值调整大一些即可)