好友
阅读权限10
听众
最后登录1970-1-1
|
本帖最后由 gulang20230313 于 2023-3-27 19:35 编辑
做了一个查看物理内存和虚拟内存的易语言
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
_时钟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.内存使用百分比, 内存使用显示, #绿色, #墨绿)
源码奉上，供大家一起学习研究：https://wwdy.lanzouf.com/ipkIA0r96n6h
|
免费评分
-
查看全部评分
|
发帖前要善用【论坛搜索】功能，那里可能会有你要找的答案或者已经有人发布过相同内容了，请勿重复发帖。 |
|
|
|
|
|
|
发表于 2023-3-27 19:33
