Mengetahui Status Memori (VB 6.0)

Ini ada lagi kode program yang ingin saya bagikan kepada teman-teman semua, yaitu kode program untuk mengetahui staus memori kompuer Anda. Ok, langsung saja ke TKP.

Berikut ini contoh cara pembuatannya.

1. Buat Project VB 6.0 baru.
2. Tambahkan 1 Picturebox, 2 Line, 1 Timer dan 5 Label pada Form yang aktif.
3. Atur Properties Picturebox dengan Backcolor=&H00000000& atau warna hitam.
4. Atur Properties masing-masing Label dengan Caption=AVAILABLE FREE MEMORY, Caption=Physical, Caption=Virtual, Name=lblPMem dan Caption=0, Name=lblVMem dan Caption=0.
5. Atur Properties Timer dengan Name=tmrMemStatus.
6. Atur posisi component-nya seperti gambar di bawah ini.

7. Klik 2x Timer dan di atas tmrMemStatus_Timer() copy paste kode di bawah ini.

'For Memory Status
Private Declare Sub GlobalMemoryStatus Lib "kernel32" _
                (lpBuffer As MEMORYSTATUS)
                
Private Type MEMORYSTATUS 'Type variable for memory info
    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

Private MEM_STAT As MEMORYSTATUS

8. Kemudian copy paste kode di bawah ini pada tmrMemStatus_Timer().

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

Untuk contoh programnya Anda bisa mendownloadnya disini.