Cool内存监控显示

易语言 2021-03-26 10:41:07

Cool内存监控显示

.变量循环首 (1, 10, 1, b)
显示画板.画矩形 (10, 5 + 取整 (a [1] ÷ 10) × (b - 1), 显示画板.宽度 - 14, 取整 (a [1] ÷ 10) × (b - 1) + 取整 (a [1] ÷ 10))
.变量循环尾 ()
百分比 = 取整 (百分比 ÷ 10)
b = 10
显示画板.画笔颜色 = 前景色
显示画板.刷子颜色 = 前景色
.变量循环首 (10, 10 - 百分比 + 1, -1, b)
显示画板.画矩形 (10, 5 + 取整 (a [1] ÷ 10) × (b - 1), 显示画板.宽度 - 14, 取整 (a [1] ÷ 10) × (b - 1) + 取整 (a [1] ÷ 10))
.变量循环尾 ()
显示画板.画出方式 = 2
显示画板.画矩形 (取整 (显示画板.宽度 ÷ 2) - 2, 0, 取整 (显示画板.宽度 ÷ 2) + 1, 显示画板.高度)