易语言圆形进度条源码
发表回复
易语言圆形进度条源码
.版本 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.颜色))
易语言进度条
易语言圆形进度条
易语言环形进度条
易语言三角函数圆形进度条
易语言进度条一边走一边出来信息
圆形易语言
易语言进度条源码
易语言最简单的圆形进度条
易语言三角函数
易语言怎么做进度条圈
易语言+圆形+进度条
易语言+环形进度条
易语言+环形/圆形