Kodlar

Bir adet timer ve 4 adet textbox ekleyin, Timerin intervalini 1000 yapın

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As RamBilgileri)
Private Type RamBilgileri
boyut As Long
yuzderam As Long
toplamram As Long
bosram As Long
End Type
Private Sub Timer1_Timer()
Dim bilgiler As RamBilgileri
GlobalMemoryStatus bilgiler
Text1.Text = "% " & bilgiler.yuzderam 'yüzde ram kullanımı
Text2.Text = bilgiler.toplamram / 1024 / 1024 & " MB" 'toplam ram
Text3.Text = bilgiler.toplamram / 1024 / 1024 - bilgiler.bosram / 1024 / 1024 & " MB" 'kullanılan ram
Text4.Text = bilgiler.bosram / 1024 / 1024 & " MB" ' boş ram
End Sub