- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Şu adımları takip edin
Visual basici onerilen bastaki exe ile acin.
Bir timer ekleyin sol bölümde saat var onu sol köşeye ekleyin.
Not arka planı siyah yapmayın yazı gözükmez.
sonra acilan penceremize isim felan veriyoruz.
Ondan sorna programımızn içine tıklayıp
şu kodu yazıyoruz
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
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Sub Form_load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Cls
Dim m As MEMORYSTATUS
GlobalMemoryStatus m
Print "Bellek Kullanımı %:", m.dwMemoryLoad
Print "Toplam RAM:", , m.dwTotalPhys / 1024 / 1024 & " MB"
Print "Boş RAM:", , m.dwAvailPhys / 1024 / 1024 & "MB"
End Sub
Sonra Play'a basiyoruz.Ve sonuc calisiyor.Eğer sayilari göremiyorsanız arka planı gri felan yapın....
Visual basici onerilen bastaki exe ile acin.
Bir timer ekleyin sol bölümde saat var onu sol köşeye ekleyin.
Not arka planı siyah yapmayın yazı gözükmez.
sonra acilan penceremize isim felan veriyoruz.
Ondan sorna programımızn içine tıklayıp
şu kodu yazıyoruz
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
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Sub Form_load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Cls
Dim m As MEMORYSTATUS
GlobalMemoryStatus m
Print "Bellek Kullanımı %:", m.dwMemoryLoad
Print "Toplam RAM:", , m.dwTotalPhys / 1024 / 1024 & " MB"
Print "Boş RAM:", , m.dwAvailPhys / 1024 / 1024 & "MB"
End Sub
Sonra Play'a basiyoruz.Ve sonuc calisiyor.Eğer sayilari göremiyorsanız arka planı gri felan yapın....