Batteriestatus auslesen auf .NET Compact Framework (ab 2.0)

    • .NET (FX) 1.0–2.0
    • VB.NET

      Batteriestatus auslesen auf .NET Compact Framework (ab 2.0)

      So kann man ganz einfach auf seinem Pocket PC ab .NET 2.0 den Akkuladestand auslesen. In diesem Beispielquellcode wird eine Meldung ausgegeben, wenn der Akkustand unter 15 % liegt.

      VB.NET-Quellcode

      1. Public Class SYSTEM_POWER_STATUS_EX
      2. Public ACLineStatus As Byte
      3. Public BatteryFlag As Byte
      4. Public BatteryLifePercent As Byte
      5. Public Reserved1 As Byte
      6. Public BatteryLifeTime As System.UInt32
      7. Public BatteryFullLifeTime As System.UInt32
      8. Public Reserved2 As Byte
      9. Public BackupBatteryFlag As Byte
      10. Public BackupBatteryLifePercent As Byte
      11. Public Reserved3 As Byte
      12. Public BackupBatteryLifeTime As System.UInt32
      13. Public BackupBatteryFullLifeTime As System.UInt32
      14. End Class
      16. <DllImport("coredll")> _
      17. Public Function GetSystemPowerStatusEx(ByVal lpSystemPowerStatus As SYSTEM_POWER_STATUS_EX, ByVal fUpdate As Boolean) As System.UInt32
      18. End Function
      20. Public Sub PruefeBatteriestand()
      21. Dim status As New SYSTEM_POWER_STATUS_EX
      22. BatterieStand = 100
      23. If Convert.ToInt32(GetSystemPowerStatusEx(status, False)) = 1 Then BatterieStand = status.BatteryLifePercent
      24. If BatterieStand < 15 Then MsgBox(String.Format("Batteriestand nur noch {0}%", BatterieStand))
      25. End Sub


      Aus "Tipps & Tricks" verschoben. ~Thunderbolt
      Liebe Grüße
      Roland Berghöfer

      Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Facebook