PureBoard

Verfasst: **07.08.2006 20:55**

Hallo

Ich hab mal mit "GetSystemPowerStatus_()" rumexperimentiert und würde gerne mal fragen ob folgenden Code mal jemand mit einem Notebook ausprobieren kann (ich hab nämlich keins)

Code: Alles auswählen

Procedure.s GetHourFormat(LengthInSeconds)
  Hours = LengthInSeconds/3600
  Minutes = LengthInSeconds/60-Hours*60
  Seconds = LengthInSeconds-Minutes*60-Hours*3600
  ProcedureReturn RSet(Str(Hours),2,"0")+":"+RSet(Str(Minutes),2,"0")+":"+RSet(Str(Seconds),2,"0")
EndProcedure

Global alltext.s

Procedure Display(text.s)
  alltext + text+Chr(10)
EndProcedure

power.SYSTEM_POWER_STATUS

GetSystemPowerStatus_(@power)


Select power\ACLineStatus
  Case 0 : Display("Keine AC-Stromquelle")
  Case 1 : Display("AC-Stromquelle angeschlossen")
  Case -1 : Display("AC-Stromquelle unbekannt")
EndSelect

Select power\BatteryFlag
  Case -1 : Display("Akkustatus unbekannt")
  Case -128 : Display("Kein Akku vorhanden")
  Default
    If power\BatteryFlag & 1
      Display("Ladestatus: Hoch")
    EndIf
    If power\BatteryFlag & 2
      Display("Ladestatus: Niedrig")
    EndIf
    If power\BatteryFlag & 4
      Display("Ladestatus: Kritisch")
    EndIf
    If power\BatteryFlag & 8
      Display("Ladestatus: Beim Aufladen")
    EndIf
EndSelect


Select power\BatteryLifePercent
  Case -1 : Display("Aktueller Akkustatus: Unbekannt")
  Default : Display("Aktueller Akkustatus: "+Str(power\BatteryLifePercent)+" %")
EndSelect



Select power\BatteryLifeTime
  Case -1 : Display("Aktuelle Akkulaufzeit: Unbekannt")
  Default : Display("Maximale Akkulaufzeit: "+GetHourFormat(power\BatteryLifeTime))
EndSelect

Select power\BatteryFullLifeTime
  Case -1 : Display("Maximale Akkulaufzeit: Unbekannt")
  Default : Display("Maximale Akkulaufzeit: "+GetHourFormat(power\BatteryFullLifeTime))
EndSelect


MessageRequester("Oine kloine Ünfo für düch:",alltext)

//nachtrag..
oh, das wäre sohl besser in "Projekte, Ressourcen, Tools", sry

schon passiert, b.

Verfasst: **07.08.2006 21:33**

folgendes Ergebnis :

Habs getestet... kann derzeit keinen Screenshot posten, also nur den Text :

Code: Alles auswählen

Keine AC-Stromquelle
Aktueller Akkustatus: 43 %
Aktuelle Akkulaufzeit: Unbekannt
Maximale Akkulaufzeit: Unbekannt

Mit PB3 und 4 das gleiche !

Verfasst: **07.08.2006 22:48**

N'abend
Anzeige bei mir:

AC-Stromquelle angeschlossen
Ladestatus: Hoch
Aktueller Akkustatus: 95%
Aktuelle Akkulaufzeit: Unbekannt
Maximale Akkulaufzeit: Unbekannt

PS:Es läuft!

3.94

Verfasst: **07.08.2006 22:54**

Alles korrekt:

---------------------------
Oine kloine Ünfo für düch:
---------------------------
AC-Stromquelle angeschlossen
Kein Akku vorhanden
Aktueller Akkustatus: Unbekannt
Aktuelle Akkulaufzeit: Unbekannt
Maximale Akkulaufzeit: Unbekannt

---------------------------
OK
---------------------------

Er hat gemerkt, das ich keinen Schlepptop besizte

Verfasst: **07.08.2006 23:44**

Keine AC-Stromquelle
Ladestatus: Hoch
Aktueller Akkustatus: 86%
Aktuelle Akkulaufzeit: Unbekannt
Maximale Akkulaufzeit: Unbekannt

Verfasst: **08.08.2006 09:05**

Notebook-Modell: Toschiba Satellite Pro 2100 mit WinXP SP2

Beim Aufladen (Netzteilstecker eingesteckt):

AC-Stomquelle angeschlossen
Ladestatus: Beim Aufladen
Aktueller Aufladestatus: 33 %
Aktuelle Akkulaufzeit: Unbekannt
Maximale Akkulaufzeit: Unbekannt

Im Akkubetrieb (abgezogener Netzteilstecker und etwas Wartezeit, bis das Popup-Fenster neben der Prozentangabe eine Laufzeit angibt):

keine AC-Stomquelle
Aktueller Aufladestatus: 33 %
Aktuelle Akkulaufzeit: 00:47:17
Maximale Akkulaufzeit: Unbekannt

Verfasst: **08.08.2006 10:59**

Code: Alles auswählen

AC-Stromquelle angeschlossen
Ladestatus: Hoch
Aktueller Akkustatus: 100 %
Aktuelle Akkulaufzeit: Unbekannt
Maximale Akkulaufzeit: Unbekannt

Code: Alles auswählen

Keine AC-Stromquelle
Ladestatus: Hoch
Aktueller Akkustatus: 100 %
Aktuelle Akkulaufzeit: Unbekannt
Maximale Akkulaufzeit: Unbekannt

Verfasst: **08.08.2006 20:30**

hmmm
aber irgendwie kann die api die "Aktuelle Akkulaufzeit" und "Maximale Akkulaufzeit" nicht ermitteln...

ich poste hier mal kurz mein code

//nachtrag
Doch, bei Shardik hast gefunzt, dann liegts nich am code

Code: Alles auswählen

Procedure.s GetHourFormat(LengthInSeconds)
  Hours = LengthInSeconds/3600
  Minutes = LengthInSeconds/60-Hours*60
  Seconds = LengthInSeconds-Minutes*60-Hours*3600
  ProcedureReturn RSet(Str(Hours),2,"0")+":"+RSet(Str(Minutes),2,"0")+":"+RSet(Str(Seconds),2,"0")
EndProcedure


Global alltext.s

Procedure Display(text.s)
  alltext + text+Chr(10)
EndProcedure


power.SYSTEM_POWER_STATUS


GetSystemPowerStatus_(@power)


Select power\ACLineStatus
  Case 0 : Display("Keine AC-Stromquelle")
  Case 1 : Display("AC-Stromquelle angeschlossen")
  Case -1 : Display("AC-Stromquelle unbekannt")
EndSelect

Select power\BatteryFlag
  Case -1 : Display("Akkustatus unbekannt")
  Case -128 : Display("Kein Akku vorhanden")
  Default
    If power\BatteryFlag & 1
      Display("Ladestatus: Hoch")
    EndIf
    If power\BatteryFlag & 2
      Display("Ladestatus: Niedrig")
    EndIf
    If power\BatteryFlag & 4
      Display("Ladestatus: Kritisch")
    EndIf
    If power\BatteryFlag & 8
      Display("Ladestatus: Beim Aufladen")
    EndIf
EndSelect


Select power\BatteryLifePercent
  Case -1 : Display("Aktueller Akkustatus: Unbekannt")
  Default : Display("Aktueller Akkustatus: "+Str(power\BatteryLifePercent)+" %")
EndSelect



Select power\BatteryLifeTime
  Case -1 : Display("Aktuelle Akkulaufzeit: Unbekannt")
  Default : Display("Maximale Akkulaufzeit: "+GetHourFormat(power\BatteryLifeTime))
EndSelect

Select power\BatteryFullLifeTime
  Case -1 : Display("Maximale Akkulaufzeit: Unbekannt")
  Default : Display("Maximale Akkulaufzeit: "+GetHourFormat(power\BatteryFullLifeTime))
EndSelect


MessageRequester("Oine kloine Ünfo für düch:",alltext)

trotzdem danke an alle tester

Verfasst: **09.08.2006 07:53**

Jetzt sieht es so aus:

Code: Alles auswählen

Keine AC-Stromquelle
Ladestatus: Hoch
Aktueller Akkustatus: 91 %
Maximale Akkulaufzeit: 02:58:02
Maximale Akkulaufzeit: Unbekannt

Verfasst: **09.08.2006 15:07**

Ich bitte um eine kompilierte Version. Aufm Firmen-Laptop habe ich kein PB...

Gr33tz
Tafkadasom2k5

PureBoard

Notebook-Tester für Prog gesucht

Notebook-Tester für Prog gesucht