易语言圆形进度条源码

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 50

.子程序 画圆进度条, 整数型
.参数 画板, 画板
.参数 最小位置, 双精度小数型
.参数 当前位置, 双精度小数型
.参数 最大位置, 双精度小数型
.参数 进度条宽度, 整数型
.参数 进度条背景色, 整数型, 可空
.参数 进度条颜色, 整数型, 可空
.参数 中间颜色, 整数型, 可空
.局部变量 变量, 整数型
.局部变量 字体, 字体

当前位置 ＝ 最小位置 ＋ 当前位置
变量 ＝ 到数值 (当前位置 － 最小位置) ÷ 到数值 (最大位置 － 最小位置) × 100
画板.清除 (, , , )
画板.自动重画 ＝ 真
画板.刷子颜色 ＝ 进度条颜色
画板.画椭圆 (1, 1, 画板.宽度 － 3, 画板.高度 － 3)
画板.刷子颜色 ＝ 进度条背景色
画板.画饼 (1, 1, 画板.宽度 － 3, 画板.高度 － 3, 画板.宽度 ÷ 2 － 1 ＋ 到数值 (画板.宽度 ÷ 2 － 3) × 求正弦 (#pi ÷ 50) － 到数值 (画板.宽度 ÷ 2 － 3) × 求正弦 (#pi ÷ 50), 画板.高度 ÷ 2 － 1 － 到数值 (画板.高度 ÷ 2 － 3) × 求余弦 (#pi ÷ 50) － 到数值 (画板.宽度 ÷ 2 － 3) × 求正弦 (#pi ÷ 50), 画板.宽度 ÷ 2 － 1 ＋ 到数值 (画板.宽度 ÷ 2 － 3) × 求正弦 (#pi ÷ 50 × 变量), 画板.高度 ÷ 2 － 1 － 到数值 (画板.高度 ÷ 2 － 3) × 求余弦 (#pi ÷ 50 × 变量))
画板.刷子颜色 ＝ 中间颜色
画板.画椭圆 (1 ＋ 进度条宽度, 1 ＋ 进度条宽度, 画板.宽度 － 3 － 进度条宽度, 画板.高度 － 3 － 进度条宽度)
画板.定位写出 (画板.宽度 ÷ 2 － 字体.字体大小 ÷ 2, 画板.高度 ÷ 2 － 字体.字体大小 ÷ 2, 到文本 (变量) ＋ “%”)
.如果 (当前位置 ≥ 最大位置)
    返回 (最大位置)
.否则
    返回 (当前位置)
.如果结束


.子程序 __启动窗口_创建完毕



.子程序 _时钟1_周期事件
.局部变量 i, 整数型, 静态

.如果 (i ＋ 到数值 (编辑框1.内容) ＜ 到数值 (编辑框2.内容))
    i ＝ i ＋ 1
.否则
    i ＝ 0
.如果结束
标签7.标题 ＝ 到文本 (画圆进度条 (画板1, 到数值 (编辑框1.内容), i, 到数值 (编辑框2.内容), 到数值 (编辑框3.内容), 颜色选择器1.颜色, 颜色选择器2.颜色, 颜色选择器3.颜色))

@易语言学习论坛