Search
Forum Home | Login
Jaramia
Jaramia
Join Date 03/2006
0

Lets all help me make some Dxmetres!

August 4, 2006 10:03:42 AM from WinCustomize ForumsWinCustomize Forums
Well i would like to make some simple Dxmetres (Memory, C drive and RAM) I know how to make the basic Performance metres but i dont know how to make the Percentage on the side...and does anyone have anyother additional features i could add to this? (i am using this for my personal use)
desktopx
Locked Post
Search this post
Advanced Search
Subscription Options
Reason for Karma (Optional)
Successfully updated karma reason!
Jaramia
thomassen
Join Date 01/2003
+10
Reply #1 August 4, 2006 12:14:04 PM
from WinCustomize ForumsWinCustomize Forums
You want some text to go along side the meter to display the percentage value? I'm pretty sure there's examples of that in the gallery. Have a look at them and see how they are made.
Reason for Karma (Optional)
Successfully updated karma reason!
Jaramia
Jaramia
Join Date 03/2006
0
Reply #2 August 4, 2006 11:19:47 PM
from WinCustomize ForumsWinCustomize Forums
k thanks!
Reason for Karma (Optional)
Successfully updated karma reason!
Jaramia
Cyberium
Join Date 04/2006
0
Reply #3 August 6, 2006 2:47:41 PM
from WinCustomize ForumsWinCustomize Forums
I actually made a little object displaying the amount of Free RAM and a percentage next to it using WMI - drawback is currently you have to manually code the amout of RAM there is for it to work out the percentage... I will post the code for it when I get home from work for ya
Reason for Karma (Optional)
Successfully updated karma reason!

Sign Up or Login and this ad disappears!
There are many great features available to you once you register. Sign Up for a free account and browse the forums without ads.

Jaramia
Cyberium
Join Date 04/2006
0
Reply #4 August 6, 2006 7:24:31 PM
from WinCustomize ForumsWinCustomize Forums
Okidokes! Ready for the Code?!

Dim WMI, CI, x2

Sub Object_OnScriptEnter
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
x2 = DesktopX.Object("TotalRAM").Text 'This is a seperate object using DesktopX System Information plugin to get the amount of System Memory, you can replace x2 with the actual amount of RAM (i.e. 512, 256, etc etc)
Object.SetTimer 1, 1000
Object_OnTimer1
End Sub

Sub Object_OnTimer1
Set CI = WMI.ExecQuery("Select * From Win32_PerfFormattedData_PerfOS_Memory",,48)
For Each OI In CI
x = OI.AvailableMBytes/x2 * 100 ' This sorts the percentage bit out
Object.Text = "Free RAM: " & OI.AvailableMBytes & "MB" & " (" & Round(x,0) & "%)" 'The Round function just rounds the percentage to 0 Decimal places, to give a whole percentage
Next
End Sub

Sub Object_OnScriptExit
Set WMI = Nothing
Object.KillTimer 1
End Sub

And there we have it a Free RAM display with Percentage
Reason for Karma (Optional)
Successfully updated karma reason!
View all recent posts
Mark all posts as read Delete cookies created by the forum Return to Top
Stardock Forums v        Server Load Time:   Page Render Time: