Speicherstatus

    • VB.NET

      Speicherstatus

      hier ist ein code zum abfragen des speicherstatus in einer konsolenanwendung:

      VB.NET-Quellcode

      1. Module Module1
      3. Sub Main()
      4. Dim s As String ' Zeichenfolge für die Ausgabe
      5. Dim strTPM, strAPM As String ' Total/Available Physical Memory
      6. Dim strTVM, strAVM As String ' Total/Available Virtual Memory
      7. Dim widthTotal As Integer ' Hilfsariable für die Ausrichtung der Ausgabe
      9. ' Speicherausstaung und - belegung ermitteln
      10. With My.Computer.Info
      11. strTPM = String.Format("{0:#,##0}", .TotalPhysicalMemory / 1024)
      12. strAPM = String.Format("{0:#,##0}", .AvailablePhysicalMemory / 1024)
      13. strTVM = String.Format("{0:#,##0}", .TotalVirtualMemory / 1024)
      14. strAVM = String.Format("{0:#,##0}", .AvailableVirtualMemory / 1024)
      15. End With
      17. 'Benötigte Spaltenbreite ermittlen
      18. If strTPM.Length > strTVM.Length Then
      19. widthTotal = strTPM.Length
      20. Else
      21. widthTotal = strTVM.Length
      23. End If
      26. 'Zeichenfolge für die Ausgabe zusammenstellen
      27. s = "Aktueller Speicherstatus (in KByte):" & vbCrLf & vbCrLf 'Titelzeile
      29. s &= " physikalisch: " & strTPM.PadLeft(widthTotal) ' Physikalischer Speicher
      30. s &= " (" & strAPM & " frei)" & vbCrLf
      32. s &= " virtuell :" & strTVM.PadLeft(widthTotal) ' Virtueller Speicher
      33. s &= " (" & strAVM & "frei)" & vbCrLf
      35. 'Ausgabe auf dem Bildschirm
      36. Console.WriteLine(s & vbCrLf)
      37. Console.ReadKey()
      40. End Sub
      42. End Module

    Facebook