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.
Aus "Tipps & Tricks" verschoben. ~Thunderbolt
VB.NET-Quellcode
- Public Class SYSTEM_POWER_STATUS_EX
- Public ACLineStatus As Byte
- Public BatteryFlag As Byte
- Public BatteryLifePercent As Byte
- Public Reserved1 As Byte
- Public BatteryLifeTime As System.UInt32
- Public BatteryFullLifeTime As System.UInt32
- Public Reserved2 As Byte
- Public BackupBatteryFlag As Byte
- Public BackupBatteryLifePercent As Byte
- Public Reserved3 As Byte
- Public BackupBatteryLifeTime As System.UInt32
- Public BackupBatteryFullLifeTime As System.UInt32
- End Class
- <DllImport("coredll")> _
- Public Function GetSystemPowerStatusEx(ByVal lpSystemPowerStatus As SYSTEM_POWER_STATUS_EX, ByVal fUpdate As Boolean) As System.UInt32
- End Function
- Public Sub PruefeBatteriestand()
- Dim status As New SYSTEM_POWER_STATUS_EX
- BatterieStand = 100
- If Convert.ToInt32(GetSystemPowerStatusEx(status, False)) = 1 Then BatterieStand = status.BatteryLifePercent
- If BatterieStand < 15 Then MsgBox(String.Format("Batteriestand nur noch {0}%", BatterieStand))
- 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
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“ ()