制作多种类型的滚动字幕教程

殇桀

窗口程序集：窗口程序集1 程序集容器
：a     数据类型：文本型 程序集容器：
b     数据类型：文本型 程序集容器：i     数据类型：整数型 程序集容器：
s     数据类型：整数型    ※备注：分别定义两个文
本型程序集变量，分别用来存储启动窗口和标签1的标题，以供各子程序调用   
※备注：分别定义两个整数型程序集变量，分别用来存储启动窗口和标签1的标题的字符数目，以供各子程序调用 ------------------------------
子程序：__启动窗口_创建完毕
_启动窗口.标题 ＝
“有动画效果的窗体标题”
签1.标题 ＝ “用标签制作滚动显示字幕” a ＝
_启动窗口.标题 b ＝ 标签1.标题
时钟1.时钟周期 ＝ 0 时钟2.时钟周期 ＝ 0   
※备注：将两个定时器设置为无效 ------------------------------ 子
程序：_按钮1_被单击   
部变      量，在这里给出一道作业题，将i和s定义为静态局部变量，然后相应修改程序。 时钟1.时钟周期 ＝ 100 时钟2.时钟周期 ＝ 0 ------------------------------
程序：_按钮2_被单击   
※备注：控制滚动显示效果
_启动窗口.标题 ＝ 取空白文本 (30) ＋ a     
※备注：在窗口标题前加30个空格 标签1.标题 ＝ 取空白文本 (80) ＋ b   
※备注：在标签1标题前加80个空格 时钟2.时钟周期 ＝ 100 时钟1.时钟周期 ＝ 0     ------------------------------
子程序：_时钟1_周期事件 局部容器：t      
数据类型：文本型 局部容器：u   
  数据类型：文本型   
※备注：产生标题的逐字显示效果 t ＝ 取文本左边 (a, i)   
※备注：取得窗口标题的前i个字符 u ＝ 取文本左边 (b, s)  
  ※备注：取得标签1标题的前s个字符 _启动窗口.标题 ＝ t i ＝ i ＋ 1   
备注：重新设置窗口标题 标签1.标题 ＝ u s ＝ s ＋ 1   
备注：重新设置标签1标题 如果真 (i ＞ 取文本长度 (a))    i ＝ 0 如果真结束 如果真 (s ＞ 取文本长度 (b))    s ＝ 0
如果真结束    ※备注：如果标题已显示完毕，则重新逐个显示字符 -----------------------------
- 子程序：_时钟2_周期事件
_启动窗口.标题 ＝ 取文本右边
(_启动窗口.标题, 取文本长度 (_启动窗口.标题) － 1) ＋ 取文本左边 (_启动窗口.标题, 1)
标签1.标题 ＝ 取文本右边 (标签1.标题, 取文本长度 (标签1.标题) － 1) ＋ 取文本左边 (标签1.标题, 1)   
※备注：产生标题循环滚动效果      作业题：将i和s定义为静态局部变量，然后相应修改程序。  

红葡萄

好好好好好好

清歌流觞

带图好一点……

a1368569893

做个沙发 顶一下！！