Es ist eine einfache Methode um den Akku-Status zu anzeigen.
Gebraucht werden:
2 Labels mit dem Namen: Label1 und Label2
1 Progressbar mit dem Namen: ProgressBar1
1 Timer mit dem Namen: Timer1
Zuerst muss der Sub erstellt werden:
Eigenschaften von Timer1 einstellen:
Enabled = True
Interval = 1000
Den Timer1 Sub einfügen:
Fertig !
Gebraucht werden:
2 Labels mit dem Namen: Label1 und Label2
1 Progressbar mit dem Namen: ProgressBar1
1 Timer mit dem Namen: Timer1
Zuerst muss der Sub erstellt werden:
VB.NET-Quellcode
- Private Sub Energiestatus()
- Dim power As PowerStatus = SystemInformation.PowerStatus
- ProgressBar1.Value = power.BatteryLifePercent * 100
- Label2.Text = power.BatteryLifePercent * 100 & "%"
- If power.PowerLineStatus = PowerLineStatus.Online And (power.BatteryLifePercent * 100) < 100 Then
- Label1.Text = "Netzbetrieb, Akku wird aufgeladen..."
- ElseIf power.PowerLineStatus = PowerLineStatus.Online Then
- Label1.Text = "Netzbetrieb"
- ElseIf power.PowerLineStatus = PowerLineStatus.Offline Then
- Label1.Text = "Akkubetrieb"
- End If
- End Sub
Eigenschaften von Timer1 einstellen:
Enabled = True
Interval = 1000
Den Timer1 Sub einfügen:
Fertig !