易语言模拟生命进度条

小泽 2020-05-11 21:54 1条评论

image.png

.版本 2

.程序集 窗口程序集1
.程序集变量 最大, 整数型
.程序集变量 当前, 整数型
.程序集变量 当前1, 整数型

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

时钟1.时钟周期 = 500
最大 = 50000

.子程序 _时钟1_周期事件

当前 = 取随机数 (0, 最大)
当前1 = 取随机数 (0, 最大)
模拟进度条 (画板1, 最大, 当前, 最大, 当前1)

.子程序 模拟进度条
.参数 画板, 画板
.参数 最大位置, 整数型
.参数 当前位置, 整数型
.参数 最大位置1, 整数型
.参数 当前位置1, 整数型
.局部变量 横变量, 双精度小数型
.局部变量 h变量1, 双精度小数型

画板.清除 (, , , )
画板.自动重画 = 真
' 第一个进度条…………………………………………………………
横变量 = 到数值 (当前位置 ÷ 最大位置) × 画板.宽度
画板.刷子颜色 = #红色
画板.填充矩形 (画板.画笔粗细 + 1, 画板.高度 \ 2, 横变量 - 3, 画板.高度 \ 4)
画板.定位写出 (到数值 (画板.字体.字体大小), 到数值 (1), “生命值:” +
 到文本 (当前位置) + “/” + 到文本 (最大位置) + “ 百分比:” +
 到文本 (取整 (当前位置 ÷ 最大位置 × 100)) + “%”)
' 第二个进度条…………………………………………………………
h变量1 = 到数值 (当前位置1 ÷ 最大位置1) × 画板.宽度
画板.刷子颜色 = #蓝色
画板.填充矩形 (画板.画笔粗细 + 1, 画板.高度 \ 2 + 10, h变量1 - 3, 画板.高度 - 3)
画板.定位写出 (到数值 (画板.字体.字体大小), 到数值 (画板.高度 \ 2) + 2, “内力值:”
 + 到文本 (当前位置1) + “/” + 到文本 (最大位置1) + “ 百分比:” 
+ 到文本 (取整 (当前位置1 ÷ 最大位置1 × 100)) + “%”)
本文标签: 易语言进度条, 生命进度条
相关文章
0.0

说点什么吧
  • 全部评论(0