内存使用查看器v1.0
本帖最后由 gulang20230313 于 2023-3-27 19:35 编辑做了一个查看物理内存和虚拟内存的易语言
https://static.52pojie.cn/static/image/hrline/2.gifhttps://static.52pojie.cn/static/image/hrline/2.gif
https://static.52pojie.cn/static/image/hrline/4.gifhttps://static.52pojie.cn/static/image/hrline/4.gif
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
_时钟1_周期事件 ()
.子程序 显示内存进度
.参数 百分比, 整数型
.参数 显示画板, 画板
.参数 前景色, 整数型
.参数 背景色, 整数型
.局部变量 a, 整数型, , "2"
.局部变量 b, 整数型
显示画板.清除 (, , , )
显示画板.画笔颜色 ＝ 背景色
显示画板.刷子颜色 ＝ 背景色
显示画板.画出方式 ＝ 12
a ＝ 显示画板.高度 － 10 － 14
.变量循环首 (1, 10, 1, b)
显示画板.画矩形 (10, 5 ＋ 取整 (a ÷ 10) × (b － 1), 显示画板.宽度 － 14, 取整 (a ÷ 10) × (b － 1) ＋ 取整 (a ÷ 10))
.变量循环尾 ()
百分比 ＝ 取整 (百分比 ÷ 10)
b ＝ 10
显示画板.画笔颜色 ＝ 前景色
显示画板.刷子颜色 ＝ 前景色
.变量循环首 (10, 10 － 百分比 ＋ 1, -1, b)
显示画板.画矩形 (10, 5 ＋ 取整 (a ÷ 10) × (b － 1), 显示画板.宽度 － 14, 取整 (a ÷ 10) × (b － 1) ＋ 取整 (a ÷ 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.内存使用百分比, 内存使用显示, #绿色, #墨绿)
https://static.52pojie.cn/static/image/hrline/line7.pnghttps://static.52pojie.cn/static/image/hrline/line7.pnghttps://static.52pojie.cn/static/image/hrline/line7.pnghttps://static.52pojie.cn/static/image/hrline/line7.pnghttps://static.52pojie.cn/static/image/hrline/line7.pnghttps://static.52pojie.cn/static/image/hrline/line7.png
源码奉上，供大家一起学习研究：https://wwdy.lanzouf.com/ipkIA0r96n6h
感谢分享 感谢大佬 好用，感谢大佬分享 单一工具现在不如聚合工具，大小差不多
感谢大佬制作。 很不错，支持一下大佬。 感谢大佬 挺好的，赞一个 感激不尽{:1_893:}