易语言中在一定时间内从1加到100就停止的代码

这个问题我自己已经搞定了，代码

如下：（注：按钮1和按钮2是重叠摆放的，按钮1到在顶部。标签1.标题为空，标签2.标题“读取进度>>>”,图片框1图片像进度条运行的GIF格式图片。）

.版本 2.支持库 xplib.程序集 窗口程序集1.子程序 __启动窗口_创建完毕XP风格 (2)连续赋值 (假, 标签2.可视, 图片框1.可视, 图片框1.播放动画).子程序 _按钮1_被单击.局部变量 到整数, 整数型读取进度 ()连续赋值 (真, 图片框1.可视, 图片框1.播放动画, 按钮2.可视, 标签2.可视)按钮1.可视 ＝ 假.子程序 读取进度时钟2.时钟周期 ＝ 6.子程序 _按钮2_被单击按钮1.可视 ＝ 真标签1.标题 ＝ “”连续赋值 (假, 标签2.可视, 按钮2.可视, 图片框1.可视).子程序 _时钟1_周期事件时钟1.时钟周期 ＝ 0连续赋值 (假, 标签1.可视, 图片框1.播放动画)时钟1.时钟周期 ＝ 1600.子程序 _时钟2_周期事件标签1.标题 ＝ 到文本 (到整数 (标签1.标题) ＋ 到整数 (1)) ＋ “%”.如果真 (标签1.标题 ＝ “100%”) 时钟2.时钟周期 ＝ 0 图片框1.播放动画 ＝ 假