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:	Views:  1.848
www.bk-software.de	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.