.版本 2
.程序集 窗口程序集1
.程序集变量 记录, 整数型
.子程序 _按钮1_被单击
标签1.宽度 ＝ 1
时钟1.时钟周期 ＝ 10
按钮1.禁止 ＝ 真
按钮3.禁止 ＝ 真
按钮4.禁止 ＝ 真
.子程序 _按钮2_被单击
.如果 (时钟1.时钟周期 ＝ 10)
时钟1.时钟周期 ＝ 0
按钮1.禁止 ＝ 假
按钮3.禁止 ＝ 假
按钮4.禁止 ＝ 假
.否则
时钟1.时钟周期 ＝ 10
按钮1.禁止 ＝ 真
按钮3.禁止 ＝ 真
按钮4.禁止 ＝ 真
.如果结束
.子程序 _时钟1_周期事件
.局部变量 最大位置, 整数型
标签1.宽度 ＝ 标签1.宽度 ＋ 1
标签1.标题 ＝ 到文本 (标签1.宽度 ÷ 500 × 100) ＋ “%”
记录 ＝ 到数值 (标签1.标题)
.如果 (标签1.宽度 ≥ 外形框1.宽度)
按钮2.禁止 ＝ 真
按钮1.禁止 ＝ 假
按钮3.禁止 ＝ 假
按钮4.禁止 ＝ 假
时钟1.时钟周期 ＝ 0
.否则
.如果结束
.子程序 __启动窗口_创建完毕
' XP风格 (3)
标签1.宽度 ＝ 0
标签1.背景颜色 ＝ #绿色
.子程序 _按钮3_被单击
.如果 (记录 ≠ 75)
时钟3.时钟周期 ＝ 10
按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 真
按钮3.禁止 ＝ 真
按钮4.禁止 ＝ 真
.否则
.如果结束
.子程序 _按钮4_被单击
.如果 (记录 ≠ 20)
时钟2.时钟周期 ＝ 10
按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 真
按钮3.禁止 ＝ 真
按钮4.禁止 ＝ 真
.否则
.如果结束
.子程序 _时钟2_周期事件
.如果 (记录 ＜ 20)
标签1.宽度 ＝ 标签1.宽度 ＋ 1
标签1.标题 ＝ 到文本 (标签1.宽度 ÷ 500 × 100) ＋ “%”
记录 ＝ 到数值 (标签1.标题)
.如果真 (记录 ≥ 20)
时钟2.时钟周期 ＝ 0
按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 假
按钮3.禁止 ＝ 假
按钮4.禁止 ＝ 假
返回 ()
.如果真结束
.否则
.如果 (记录 ＞ 20)
标签1.宽度 ＝ 标签1.宽度 － 1
标签1.标题 ＝ 到文本 (标签1.宽度 ÷ 500 × 100) ＋ “%”
记录 ＝ 到数值 (标签1.标题)
.如果真 (记录 ≤ 20)
时钟2.时钟周期 ＝ 0
按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 假
按钮3.禁止 ＝ 假
按钮4.禁止 ＝ 假
返回 ()
.如果真结束
.否则
.如果结束
.如果结束
.子程序 _时钟3_周期事件
.如果 (记录 ＜ 75)
标签1.宽度 ＝ 标签1.宽度 ＋ 1
标签1.标题 ＝ 到文本 (标签1.宽度 ÷ 500 × 100) ＋ “%”
记录 ＝ 到数值 (标签1.标题)
.如果真 (记录 ≥ 75)
时钟3.时钟周期 ＝ 0
按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 假
按
钮3.禁止 ＝ 假
按钮4.禁止 ＝ 假
返回 ()
.如果真结束
.否则
.如果 (记录 ＞ 75)
标签1.宽度 ＝ 标签1.宽度 － 1
标签1.标题 ＝ 到文本 (标签1.宽度 ÷ 500 × 100) ＋ “%”
记录 ＝ 到数值 (标签1.标题)
.如果真 (记录 ≤ 75)
时钟3.时钟周期 ＝ 0
按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 假
按钮3.禁止 ＝ 假
按钮4.禁止 ＝ 假
返回 ()
.如果真结束
.否则
.如果结束