Ram bilgilerini öğrenmek

Carizmatic

webmaster.tc
Üye
Katılım
6 Ağu 2012
Mesajlar
1,500
Konum
Webmaster.TC
Kod:
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
Bir adet timer ve 4 adet textbox ekleyin, Timerin intervalini 1000 yapın
 

scorpi0n

webmaster.tc
Üye
Katılım
2 Haz 2013
Mesajlar
14
Teşekkürler hocam kod arşivime alıyorum
 

Üst