*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->


Join the forum, it's quick and easy


*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->

Would you like to react to this message? Create an account in a few clicks or log in to continue.

● En Güncel Paylaşım Platformu ●

---Misafir--- Hos Geldiniz Daha iyi Bir Hizmet İçin Üye olunuz.ÜyeLer Link GörebiLir

    Vb Kod Ram Gösterme

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


    <b>Doğum tarihi</b> Doğum tarihi : 20/06/90
    • Post n°1

    Vb Kod Ram Gösterme Empty Vb Kod Ram Gösterme

    Mesaj tarafından MnyTirith Cuma Mart 12, 2010 9:41 pm

    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
    • Sayfa başına dön

      Forum Saati Paz Mayıs 19, 2024 6:47 pm