Source Code untuk Mengetahui Kapasitas Memory (RAM) yang Terpakai & Tersisa
Berikut ini adalah source code yang teman - teman bisa gunakan untuk mengetahui ukuran jumlah kapasitas total, kapasitas yang sedang terpakai dan kapasitas yang masih tersedia dari memory (RAM) yang ada di dalam sebuah PC atau Laptop. Cara manual untuk melihat hal ini adalah dengan membuka TaskManager dan kemudian pilih tab Performance. Di sana akan terlihat semua informasi yang berhubungan dengan kapasitas memory (RAM). Tetapi bila teman - teman membutuhkan modul yang bisa mendapatkan data mengenai kapasitas memory (RAM) secara otomatis, teman - teman bisa menggunakan source code di bawah ini :
objWMIService = GetObject("winmgmts:\\" + ;
strComputer + "\root\CIMV2")
colCSItems = objWMIService.ExecQuery;
("SELECT * FROM Win32_ComputerSystem")
For Each objCSItem In colCSItems
nTotalRam=VAL(objCSItem.TotalPhysicalMemory)
endfor
colOSItems = objWMIService.ExecQuery;
("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
nFreeRam=VAL(objOSItem.FreePhysicalMemory)*1024
endfor
nUsageRam=nTotalRam-nFreeRam
Dengan menjalankan syntak diatas maka teman - teman tinggal mengakses variable nTotalRam untuk mengetahui kapasitas total dari memory yang ada di PC atau Laptop, variable nFreeRam untuk mengetahui kapasitas memory yang masih tersisa dan bisa digunakan serta variable nUsageRam untuk mengetahui kapasitas memory yang sedang terpakai.
Sebagai catatan semua variable tersebut bertype data numeric dan masih dalam satuan byte. Bila ingin merubah ke dalam Kilobyte, Megabyte atau Gigabyte silahkan kembangkan kreasi teman - teman untuk mengkonversikannya dengan pedoman :
- 1 Kilobyte = 1024 byte
- 1 Megabyte = 1048576 byte
- 1 Gigabyte = 1073741824 byte
SELAMAT MENCOBA...!!
No comments :
Post a Comment