+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Ram Bilgilerini Aldıralım (/konu-ram-bilgilerini-aldiralim.html)
Ram Bilgilerini Aldıralım - chopper07 - 29/11/2008
Formumuza sadece 1 tane timer ekliyoruz ve kodları yapıştırıyoruz.
Kod:
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"
Print "ACCESSTR.net - ERKAN"
End SubCvp: Ram Bilgilerini Aldıralım - ozanakkaya - 29/11/2008
Kod için teşekkürler