Feedback

VB - CPU Last von mehreren CPUs überwachen

Veröffentlicht von am 17.12.2006
(2 Bewertungen)
Mit dieser Klassen kann man die CPU Last von einer oder mehreren CPUs überwachen.

Wichtig: Da diese Klasse die CPUs in eigenen Threads überwacht, muss drauf geachtet werden das wenn man die Werte an die Form übergeben will, man mit Delegates und Invoke arbeiten muss. Ein Beispiel dazu findet man in meinem Kommentar.
Snippet in C# übersetzen
Imports System.Diagnostics

''' <summary>
''' Mit dieser Klassen kann man die CPU Last von einer oder mehreren CPUs überwachen.
''' </summary>
Public Class CPULoadWatcher
    ''' <summary>
    ''' Dieses Event wird von jedem hinzugefügtem Watcher in den vorgegebenen
    ''' Zeitintervallen aufgerufen und übergibt die aktuelle CPU Last.
    ''' Hinweis: Der Parameter e wird von einem anderen Thread aus übergeben.
    ''' </summary>
    Public Event CPULoadChanged(ByVal e As CPULoadEventArgs)
    Private WatcherCollection As New Generic.Dictionary(Of UShort, Watcher)

    ''' <summary>
    ''' Fügt einen Watcher für eine CPU hinzu
    ''' </summary>
    ''' <param name="CPU">Die Nummer der CPU die überwacht werden soll</param>
    ''' <param name="Interval">Gibt an in welchen Zeitabständen (ms) die CPU Last ausgelesen werden soll. Standardwert ist 1000ms</param>
    Public Sub AddWatcher(ByVal CPU As UShort, Optional ByVal Interval As UInteger = 1000)
        If WatcherCollection.ContainsKey(CPU) = False Then
            Dim W As New Watcher(CPU, Interval)
            AddHandler W.Changed, AddressOf OnCPULoadChanged
            WatcherCollection.Add(CPU, W)
            W.Start()
        End If
    End Sub

    ''' <summary>
    ''' Entfernt einen Watcher für eine CPU
    ''' </summary>
    ''' <param name="CPU">Die Nummer der CPU dessen Watcher entfernt werden soll</param>
    Public Sub RemoveWatcher(ByVal CPU As UShort)
        If WatcherCollection.ContainsKey(CPU) = True Then
            WatcherCollection(CPU).Abort()
            WatcherCollection.Remove(CPU)
        End If
    End Sub

    Private Sub OnCPULoadChanged(ByVal e As CPULoadEventArgs)
        RaiseEvent CPULoadChanged(e)
    End Sub

    Private Class Watcher
        Private mCPU As UShort = 0
        Private mInterval As UInteger
        Private mAbort As Boolean = False
        Private PerfCounter As PerformanceCounter
        Public Event Changed(ByVal e As CPULoadEventArgs)

        Sub New(ByVal CPU As UShort, ByVal Interval As UInteger)
            mCPU = CPU
            mInterval = Interval
        End Sub

        Public Sub Start()
            PerfCounter = New PerformanceCounter("Processor", "% Processor Time", mCPU.ToString)
            Dim T As New Threading.Thread(AddressOf Watch)
            T.Start()
        End Sub

        Public Sub Abort()
            mAbort = True
        End Sub

        Private Sub Watch()
            Do
                If mAbort = True Then
                    mAbort = False
                    Exit Do
                End If

                RaiseEvent Changed(New CPULoadEventArgs(mCPU, PerfCounter.NextValue))
                Threading.Thread.Sleep(mInterval)
            Loop
        End Sub
    End Class

    Public Class CPULoadEventArgs
        Private mCPU As UShort
        Private mCPULoad As Single

        Public ReadOnly Property CPU() As UShort
            Get
                Return mCPU
            End Get
        End Property

        Public ReadOnly Property CPULoad() As Single
            Get
                Return mCPULoad
            End Get
        End Property

        Sub New(ByVal CurrCPU As UShort, ByVal CurrCPULoad As Single)
            mCPU = CurrCPU
            mCPULoad = CurrCPULoad
        End Sub
    End Class
End Class
Abgelegt unter CPU, Hardware, Last, Load, Thread.

2 Kommentare zum Snippet

Tim Hartwig schrieb am 17.12.2006:
Hier ein Beispiel für die Anwendung der Klasse mit Delegate und Invoke für einen gültigen Threadübergriff.

Private WithEvents CLW As New CPULoadWatcher
Private Delegate Sub CWLDelegate(ByVal e As CPULoadWatcher.CPULoadEventArgs)

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button1.Click
CLW.AddWatcher("0")
End Sub

Private Sub CLW_CPULoadChanged(ByVal e As CPULoadWatcher.CPULoadEventArgs)
Handles CLW.CPULoadChanged
Me.Invoke(New CWLDelegate(AddressOf ShowValue), e)
End Sub

Private Sub ShowValue(ByVal e As CPULoadWatcher.CPULoadEventArgs)
Me.Text = e.CPULoad
End Sub
Volker Steitz schrieb am 17.12.2006:
Wirklich gut gemacht, Kompliment
 

Logge dich ein, um hier zu kommentieren!