Akku - Statusanzeige

    • VB.NET

      Akku - Statusanzeige

      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:

      VB.NET-Quellcode

      1. Private Sub Energiestatus()
      3. Dim power As PowerStatus = SystemInformation.PowerStatus
      5. ProgressBar1.Value = power.BatteryLifePercent * 100
      6. Label2.Text = power.BatteryLifePercent * 100 & "%"
      8. If power.PowerLineStatus = PowerLineStatus.Online And (power.BatteryLifePercent * 100) < 100 Then
      9. Label1.Text = "Netzbetrieb, Akku wird aufgeladen..."
      10. ElseIf power.PowerLineStatus = PowerLineStatus.Online Then
      11. Label1.Text = "Netzbetrieb"
      12. ElseIf power.PowerLineStatus = PowerLineStatus.Offline Then
      13. Label1.Text = "Akkubetrieb"
      14. End If
      16. End Sub


      Eigenschaften von Timer1 einstellen:

      Enabled = True
      Interval = 1000

      Den Timer1 Sub einfügen:

      VB.NET-Quellcode

      1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      2. Energiestatus()
      3. End Sub


      Fertig !

    Facebook
    Telefonspende