内存监控显示源码

内存监控显示，源码是神2写的例程。

@易语言入门教程-神2也教你学E

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕, , , ' 本源码来自三叶资源网(www.sanye.cx)

_时钟1_周期事件 ()

.子程序 显示内存进度
.参数 百分比, 整数型
.参数 显示画板, 画板
.参数 前景色, 整数型
.参数 背景色, 整数型
.局部变量 a, 整数型, , "2"
.局部变量 b, 整数型

显示画板.清除 (, , , )
显示画板.画笔颜色 ＝ 背景色
显示画板.刷子颜色 ＝ 背景色
显示画板.画出方式 ＝ 12
a [1] ＝ 显示画板.高度 － 10 － 14
.变量循环首 (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, 显示画板.高度)

.子程序 _时钟1_周期事件
.局部变量 a, 内存参数

GlobalMemoryStatus (a)
内存百分.标题 ＝ 到文本 (a.内存使用百分比) ＋ “ %”
总数显示.标题 ＝ 到文本 (取整 (a.实际内存总字节数 ÷ 1024))
可用数显示.标题 ＝ 到文本 (取整 (a.可用的实际内存字节数 ÷ 1024))
虚拟总数显示.标题 ＝ 到文本 (取整 (a.虚拟内存的总字节数 ÷ 1024))
虚拟可用数显示.标题 ＝ 到文本 (取整 (a.可用的虚拟内存字节数 ÷ 1024))
分页数显示.标题 ＝ 到文本 (取整 (a.分页文件总字节数 ÷ 1024))
未分页显示.标题 ＝ 到文本 (取整 (a.分页文件可用字节数 ÷ 1024))
显示内存进度 (a.内存使用百分比, 内存使用显示, #绿色, #墨绿)