• Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha fazla bilgi edin.

Ram bilgilerini öğrenmek

Konuyu Okuyan Kişiler (0)

Carizmatic

New member
Katılım
6 Ağu 2012
Mesajlar
1,672
Beğeniler
0
Konum
Webmaster.TC
#1
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