Du brauchst Grafiken, gute Programme oder Leute die dir helfen? Frag hier.
Jilocasin
Beiträge: 665 Registriert: 13.05.2006 16:04
Kontaktdaten:
Beitrag
von Jilocasin » 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.
Then
Beiträge: 247 Registriert: 06.09.2004 13:26
Wohnort: Siegen
Beitrag
von Then » 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 !
PB 5.62 / Windows 11 64Bit (i5/32GB/240GB-SSD+3TB-HDD/1050GTX4GB) / 27" Multitouch Monitor
... ich mache dazu keine Aussage, weil ich mich damit selbst belasten könnte !
C4rizz
Beiträge: 223 Registriert: 01.05.2006 12:43
Computerausstattung: Desktop : Amd Athlon X2 3,2 ghz Black Edition. 4GB Corsair XMS DDR2, nVidia 460 gtx Sonic Extreme Notebook : [Asus] i5 @ 2,9 ghz, 8GB Corsair DDR3, nVidia gt 540m Internet : DSL - 16 Mbit | HSDPA - 7,2 Mbit
Wohnort: Celle
Beitrag
von C4rizz » 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
ts-soft
Beiträge: 22292 Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43 CPU: AMD FX-6300 Six-Core Processor GraKa: GeForce GTX 750 Ti, 2 GB Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin
Beitrag
von ts-soft » 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
SoS
Beiträge: 340 Registriert: 29.08.2004 09:31
Kontaktdaten:
Beitrag
von SoS » 07.08.2006 23:44
Keine AC-Stromquelle
Ladestatus: Hoch
Aktueller Akkustatus: 86%
Aktuelle Akkulaufzeit: Unbekannt
Maximale Akkulaufzeit: Unbekannt
Shardik
Beiträge: 738 Registriert: 25.01.2005 12:19
Beitrag
von Shardik » 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
Zuletzt geändert von
Shardik am 08.08.2006 12:14, insgesamt 1-mal geändert.
helpy
Beiträge: 635 Registriert: 29.08.2004 13:29
Beitrag
von helpy » 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
Windows 10
PB Last Final / (Sometimes testing Beta versions)
Jilocasin
Beiträge: 665 Registriert: 13.05.2006 16:04
Kontaktdaten:
Beitrag
von Jilocasin » 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
helpy
Beiträge: 635 Registriert: 29.08.2004 13:29
Beitrag
von helpy » 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
Windows 10
PB Last Final / (Sometimes testing Beta versions)
Tafkadasom2k5
Beiträge: 1577 Registriert: 13.08.2005 14:31
Kontaktdaten:
Beitrag
von Tafkadasom2k5 » 09.08.2006 15:07
Ich bitte um eine kompilierte Version. Aufm Firmen-Laptop habe ich kein PB...
Gr33tz
Tafkadasom2k5
OpenNetworkConnection() hat geschrieben: Versucht eine Verbindung mit dem angegebenen Server aufzubauen. 'ServerName$' kann eine IP-Adresse oder ein voller Name sein (z.B.: "127.0.0.1" oder "ftp.home.net").
php-freak hat geschrieben: Ich hab die IP von google auch ned rausgefunden!