Visual Basic Ram ölçer yapımı /Yorum yazan herkeze +rep en gec 24 saat içinde/

[yusoreis]

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch HEMEN TIKLA!

Yorum yazan herkeze rep vereceğim en geç 24 saat içinde vereceğim.
Ş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....
YORUM YAZANA +REP VERİLECEKDİR.

 

[ßyMesMes]

visaul basic'e tasındı tesekkurler..

 

[yusoreis]

öyle bir yeri ben bulamadım şimdi buldum +repi verdim =)

 

[ßyMesMes]

öyle bir yeri ben bulamadım şimdi buldum +repi verdim =)

sağol rep için

 

[Niko36]

aga bn hackerim TurkHackTeam Ve Ayyıldız Team Da görev yapıyorum Programı Yaptım oldu kod için teşekkürler