Hallo, ich möchte ein Programm erstellen das mir die aktuelle Auslastung von einem ausgewähltem Laufwerk in einer ProgressBar ausgibt.
Mein erster versuch war den quellcode von Luki-Progger genauer seinem Tutorial über OpenHardwareMonitorLib zu verändern sodass es statt die cpu Temperatur, die Festplattenauslastung ausgibt.
Aber da ich den code von OpenHardwareMonitorLib nur grob verstehe finde ich den fehler hier nicht.
Mein erster versuch war den quellcode von Luki-Progger genauer seinem Tutorial über OpenHardwareMonitorLib zu verändern sodass es statt die cpu Temperatur, die Festplattenauslastung ausgibt.
Quellcode
- Imports OpenHardwareMonitor.Hardware
- Public Class Form1
- Dim Computer As New Computer
- Private Function GetCoreLoad(ByVal Core As Integer) As String
- For Each Hardware In Computer.Hardware
- Hardware.Update()
- If Hardware.HardwareType = HardwareType.HDD Then
- For Each sensor In Hardware.Sensors
- If sensor.SensorType = SensorType.Load Then
- Return CDbl(sensor.Value)
- End If
- Next
- End If
- Next
- Return 0
- End Function
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- For i = 0 To Environment.ProcessorCount - 1
- Dim p As Double
- Dim x As Double
- p = Math.Round(x, 0)
- x = GetCoreLoad(i) / 10
- Me.Text = "HDD: " & p & " %"
- ProgressBar1.Value = p
- Next
- End Sub
- End Class
Aber da ich den code von OpenHardwareMonitorLib nur grob verstehe finde ich den fehler hier nicht.