CPU Auslastung für Unterschiedliche Kerne rausfinden

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von DJ Re-DarK.

    CPU Auslastung für Unterschiedliche Kerne rausfinden

    Hallöle,

    ich hab mir ausm Netz 2 Codes besorgt um die Aktuelle CPU Auslastung auszulesen (1x Per WMI, 1x per Performance-Counter):

    VB.NET-Quellcode

    1. Function GetCPULoad() As Long
    2. '// -----------------------------------------------------
    3. '// Methode: | Mithilfe des WMI die aktuelle CPU-
    4. '// | auslastung in Prozent ermitteln
    5. '// -----------------------------------------------------
    6. '// Parameter: | -
    7. '// -----------------------------------------------------
    8. '// Rückgabe: | Ermittelte CPU-Auslastung
    9. '// -----------------------------------------------------
    10. '// Autor: | Stefan Kulpa
    11. '// | EDV Innovation & Consulting - Dormagen
    12. '// -----------------------------------------------------
    13. On Error GoTo Err_GetCPULoad
    15. Dim objCPUSet As Object
    16. Dim objCPUItem As Object
    17. Dim lPercent As Long
    19. GetCPULoad = -1
    21. objCPUSet = _
    22. GetObject("winmgmts:").InstancesOf("Win32_Processor")
    24. For Each objCPUItem In objCPUSet
    25. If objCPUSet.Count > 1 Then
    26. lPercent = _
    27. lPercent + objCPUItem.LoadPercentage
    28. Else : lPercent = objCPUItem.LoadPercentage
    29. End If
    30. Next
    31. If objCPUSet.Count > 1 Then _
    32. lPercent = _
    33. lPercent \ objCPUSet.Count
    34. GetCPULoad = lPercent
    36. Exit_GetCPULoad:
    37. On Error Resume Next
    38. objCPUSet = Nothing
    39. objCPUItem = Nothing
    40. Exit Function
    42. Err_GetCPULoad:
    43. 'MsgBox("Error reading CPU Usage!" & vbCrLf & _
    44. ' Err.Number & ": " & _
    45. ' Err.Description, vbExclamation)
    46. GoTo Exit_GetCPULoad
    48. End Function


    Die WMI Methode


    VB.NET-Quellcode

    1. 'Beispiel: VB .Net - PerformanceCounter - CPU Auslastung ermitteln - 2
    2. '
    3. Option Explicit On
    4. Option Strict On
    6. Public Class Form1
    8. Private [PerformanceCounter] As New PerformanceCounter
    9. Private utilization As Byte
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    12. Handles MyBase.Load
    13. With Me.Timer1
    14. .Interval = 1000
    15. .Enabled = True
    16. End With
    17. Call Me.InitPerformanceCounter("Processor", "% Processor Time", "_Total")
    18. End Sub
    20. Private Sub InitPerformanceCounter(ByVal CategoryName As String, _
    21. ByVal CounterName As String, _
    22. ByVal InstanceName As String)
    24. With [PerformanceCounter]
    25. .CategoryName = CategoryName
    26. .CounterName = CounterName
    27. .InstanceName = InstanceName
    28. End With
    29. End Sub
    31. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    32. Handles Timer1.Tick
    33. Me.utilization = CByte(([PerformanceCounter].NextValue()))
    34. Me.Label1.Text = CStr(Me.utilization) & "%"
    35. End Sub
    37. End Class


    Die Performance.Counter Methode


    So, funzen beide astrein, aber:

    Ich habe einen Quadcore, heist die Zeigen die Gesamtauslastung an. Ich brauche nun aber für Jeden kern einzelnd einen Wert.

    Weis jemand wie das Geht?

    MfG

    Hi.

    Ich habe auch mal ein bisschen gestöbert und einen abgewandelten PerformanceCounter-Code gefunden:
    dotnet-snippets.de/dns/vbnet-c…s-ueberwachen-SID371.aspx

    Damit können mehrere CPUs überwacht werden - ich denke damit sind die verschiedenen Kerne gemeint. Das wird dadurch ersichtlich, dass an die Initialisierungsroutine nicht "_Total", sondern ein UShort-Wert übergeben wird.
    Gruß
    hal2000

    alles in den Bordmitteln vorhanden

    Zieh einen Perfomance Counter auf deine Form
    geh in den einstellungen
    -> CategoryName = Prozessor
    -> CounterName = Prozessor(%)
    -> InstanceName = _Total oder 0 oder 1 oder ........ ' Das sind dann die Kerne

    nun brauchst du nur noch die werte in empfang nehmen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. ProgressBar1.Value = CInt(PerformanceCounter1.NextValue)
    4. Label4.Text = ProgressBar1.Value.ToString & " %"


    bastel mal damit rum. dort sind viele tolle sachen drin

    Heist dann würde auch mein Code gehen, müsste dann nur mit InstanceName halt den Core angeben... ich teste es gleich mal

    //Edit: Jo, funzt optimal mit meinem Code ;)

    Danke =)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DJ Re-DarK“ ()

Facebook
Telefonspende