Cek Memory Status (RAM) Penggunaan

Didalam sebuah Sistem atau aplikasi jika diproses atau dirun akan menggunakan Memory didalam PC sebagai penunjang proses aplikasi tersebut, apakah kita tahu berapakah yang digunakan dalam menjalankan aplikasi, kali admin akan share sourcode mungil untuk mengetahui status memori (RAM) yang sedang digunakan.

Buka Ms. Visual Basic 6.0 - StandarEXE dan buatlah sebuah form dan module. Untuk form tambahkan 2 buah label dan Timer, yaitu

1. Label1 (name : lblPMem)
2. Label1 (name : lblVMem)
3. Timer1 (name : Timer1)

Copykan syntak dibawah ini ke dalam Module

Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type
Public MEM_STAT As MEMORYSTATUS

Setelah itu double klik Timer yang berada di form lalu pastekan syntak dibawah ini : 

Call GlobalMemoryStatus(MEM_STAT)
lblPMem.Caption = " Physical Memory : " & Format((MEM_STAT.dwAvailPhys / 1024) / 1024, "#,##0.0") & " MB "
lblVMem.Caption = " Virtual Memory : " & Format((MEM_STAT.dwAvailVirtual / 1024) / 1024, "#,##0.0") & " MB "

Untuk interval yang digunakan pada komponen Timer1, bisa sesuai selera agan-agan saja, tetapi disini admin menggunakan 5, setelah semuanya selesai, simpan RUN/F5, akan terlihat Physical Memory dan Virtual Memory.