|
本帖最后由 殇桀 于 2013-3-24 11:08 编辑
窗口程序集:窗口程序集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定义为静态局部变量,然后相应修改程序。
|
|