User Passwort
 Passwort speichern Passwort vergessen?
 
 
 
 Alle Foren
 PDA-Dev :: Windows Mobile
 Windows Mobile - Allgemeines
 Akku Status funzt nicht
Autor Vorheriges Thema Thema Nächstes Thema  

Snecx

PDA-Interessierter


10 Beiträge

Erstellt am: 15.06.2006 :  00:11:14 Uhr  Profil anzeigen  Autor eine Email senden  Besuche Snecx's Homepage  Sende Snecx eine ICQ Message  Antwort mit Zitat
Hallo
ich moechte gerne den Akku Status meines PDA (HP 4700) auslesen.
Im Forum hier habe ich den Tip gefunden und in eine Funktion gepackt.
Leider bekomme ich immer nur den Wert 63 zurueck. Egal wie oft ich die funktion nutze. Mit einem Programm welches ich im Today Screen habe wird aber der korrekte Zustand angezeigt.
Hat jemand eine Idee warum das nicht geht???
Private Declare Function GetSystemPowerStatusEx Lib "coredll.dll" (ByVal pstatus As String, ByVal update As Boolean) As Boolean
Public Function getBattStatus()
Dim battStatus As String = Space(50)
Dim battFlag As Boolean
battFlag = GetSystemPowerStatusEx(battStatus, True)
If battFlag = True Then
getBattStatus = Strings.Asc(Mid(battStatus, 2, 1))
Else
getBattStatus = -1
End If
End Function
Wenn ich die
  Web Server's Default Page
Web Server's Default Page

This page is generated by Plesk, the leading hosting automation software. You see this page because there is no Web site at this address.

You can do the following:

  • Create domains and set up Web hosting using Plesk.
What is Plesk

Plesk is a hosting control panel with simple and secure web server and website management tools. It was specially designed to help IT specialists manage web, DNS, mail and other services through a comprehensive and user-friendly GUI. Learn more about Plesk.

 

Snecx

PDA-Interessierter


10 Beiträge

Erstellt  am: 15.06.2006 :  15:16:42 Uhr  Profil anzeigen  Autor eine Email senden  Besuche Snecx's Homepage  Sende Snecx eine ICQ Message  Antwort mit Zitat
Ich habs rausbekommen. Im Netz habe ich noch mehr gefunden was man noch an Infos über den Akku usw. bekommen kann und in eine Class gepackt. Wenn jemand das haben möchte kann ich es posten.
Zum Anfang der Seite

kaiuwe

PDA-Spezialist


263 Beiträge

Erstellt  am: 15.06.2006 :  15:20:48 Uhr  Profil anzeigen  Autor eine Email senden  Besuche kaiuwe's Homepage  Antwort mit Zitat
Hallo,
das mit dem posten wäre ne gute Sache!!
Gruß kaiuwe
Zum Anfang der Seite

Snecx

PDA-Interessierter


10 Beiträge

Erstellt  am: 15.06.2006 :  23:22:29 Uhr  Profil anzeigen  Autor eine Email senden  Besuche Snecx's Homepage  Sende Snecx eine ICQ Message  Antwort mit Zitat
Hallo
so hier die Class. Ich hab im Netz einige infos gefunden und dann alles zusammengebastelt. Ob das richtig sauber programiert ist weiss ich nicht... aber es geht.
//////
Imports System.Runtime.InteropServices
Public Class AkkuPowerState
<StructLayout(LayoutKind.Sequential)> Private Structure SYSTEM_POWER_STATUS_EX
Public ACLineStatus As Byte
Public BatteryFlag As Byte
Public BatteryLifePercent As Byte
Public Reserved1 As Byte
Public BatteryLifeTime As Int32
Public BatteryFullLifeTime As Int32
Public Reserved2 As Byte
Public BackupBatteryFlag As Byte
Public BackupBatteryLifePercent As Byte
Public Reserved3 As Byte
Public BackupBatteryLifeTime As Int32
Public BackupBatteryFullLifeTime As Int32
End Structure
Private Const ACLineStatus_Offline As Integer = 0
Private Const ACLineStatus_Online As Integer = 1
Private Const ACLineStatus_UnknownStatus As Integer = 255
Private Const BatteryFlag_High As Integer = 1
Private Const BatteryFlag_Low As Integer = 2
Private Const BatteryFlag_Critical As Integer = 4
Private Const BatteryFlag_Charging As Integer = 8
Private Const BatteryFlag_NoSystemBattery As Integer = 128
Private Const BatteryFlag_UnknownStatus As Integer = 255
Private Declare Function GetSystemPowerStatusEx Lib "coredll.dll" (ByRef pstatus As SYSTEM_POWER_STATUS_EX) As Boolean
Dim wStatus As SYSTEM_POWER_STATUS_EX
Dim temp As String
Public ReadOnly Property ACLineStatus() As String
Get
If GetSystemPowerStatusEx(wStatus) Then
Select Case wStatus.ACLineStatus
Case ACLineStatus_Offline
temp = "Offline"
Case ACLineStatus_Online
temp = "Online"
Case ACLineStatus_UnknownStatus
temp = "UnknowStatus"
End Select
End If
Return temp
End Get
End Property
Public ReadOnly Property BatteryFlag() As String
Get
If GetSystemPowerStatusEx(wStatus) Then
Select Case wStatus.BatteryFlag
Case BatteryFlag_Charging
temp = "Charging"
Case BatteryFlag_Critical
temp = "Critical"
Case BatteryFlag_High
temp = "High"
Case BatteryFlag_Low
temp = "Low"
Case BatteryFlag_NoSystemBattery
temp = "NoSystemBattery"
Case BatteryFlag_UnknownStatus
temp = "UnknownStatus"
End Select
End If
Return temp
End Get
End Property
Public ReadOnly Property BackupBatteryFlag() As String
Get
If GetSystemPowerStatusEx(wStatus) Then
Select Case wStatus.BackupBatteryFlag
Case BatteryFlag_Charging
temp = "Charging"
Case BatteryFlag_Critical
temp = "Critical"
Case BatteryFlag_High
temp = "High"
Case BatteryFlag_Low
temp = "Low"
Case BatteryFlag_NoSystemBattery
temp = "NoSystemBattery"
Case BatteryFlag_UnknownStatus
temp = "UnknownStatus"
End Select
End If
Return temp
End Get
End Property
Public ReadOnly Property BatteryLifePercent() As String
Get
If GetSystemPowerStatusEx(wStatus) Then
temp = wStatus.BatteryLifePercent
End If
Return
Zum Anfang der Seite

ChriZZi

Moderator


89 Beiträge

Erstellt  am: 17.07.2006 :  17:26:13 Uhr  Profil anzeigen  Autor eine Email senden  Besuche ChriZZi's Homepage  Sende ChriZZi eine ICQ Message  Antwort mit Zitat
Könntest du vieleicht deine Quellen mal angeben? Wäre echt cool, besonders interessiert mich, ob ich sagen kann, wie lange der PDA mit dem Reststrom noch läuft ...
Danke!

Mehr als 2 mal schütteln ist Selbstbefriedigung - H. Simpson 2007

Bearbeitet von: ChriZZi am: 17.07.2006 17:46:55 Uhr
Zum Anfang der Seite
  Vorheriges Thema Thema Nächstes Thema  
Springe nach:
 
  Bookmark & Share  
 
 
 
  Tags  
 
Keine Tags gefunden
 
 

 



pda-dev.de

Quicklinks: Foren-Übersicht | Developer-News | Suche | Impressum

© just-works! Software

Zum Anfang der Seite

Snitz Forums 2000