Arbeitspeicher ermitteln Mit diesem Code kann man sehr einfach herausfinden wieviel Arbeitspeicher gerade in Verwendung ist. Und wieviel im Computer eingebaut ist.
Autor:   Samir Ben Kheder	Bewertung:     [ Jetzt bewerten ]	Views:  603
www.bk-software.de	System:  Vista, Win7, Win8, Win10	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit diesem Code kann man sehr einfach herausfinden wieviel Arbeitspeicher gerade in Verwendung ist. Und wieviel im Computer eingebaut ist.

Private Function VerfügbarerRAM() As Decimal
  Dim ramCounter As PerformanceCounter = _
    New System.Diagnostics.PerformanceCounter("Memory", "Available MBytes")
  Dim RAM As Decimal = CInt((ramCounter.NextValue()))
 
  Return RAM
End Function

Private Function GesamterRAM() As Decimal
  Dim RAM As Decimal = CInt((My.Computer.Info.TotalPhysicalMemory / 1024))
 
  Return RAM
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  Debug.WriteLine(VerfügbarerRAM())
  Debug.WriteLine(GesamterRAM())
End Sub