一、源码:
.版本 2
.子程序 画圆进度条, 整数型
.参数 画板, 画板, , 画板名称
.参数 最小位置, 双精度小数型, , 进度条的最小初始值
.参数 当前位置, 双精度小数型, , 返回当前的位置....参数 最大位置, 双精度小数型, , 进度条的最大位置
.参数 进度条宽度, 整数型, , 进度条宽度
.参数 进度条背景色, 整数型, 可空, 进度条背景色
.参数 进度条颜色, 整数型, 可空,...× 100
画板.清除 (, , , )
画板.自动重画 = 真
画板.刷子颜色 = 进度条颜色
画板.画椭圆 (1, 1, 画板.宽度 - 3, 画板.高度 - 3)
画板.刷子颜色 = 进度条背景色...周期事件
.局部变量 i, 整数型, 静态
.如果 (i + 到数值 (编辑框1.内容) < 到数值 (编辑框2.内容))
i = i + 1
.否则
i = 0
.如果结束
标签7.标题 = 到文本 (画圆进度条