My first ever app :)

[SparkSoft 0]

Ive just finished my first app

Its just a simple battery bar that shows your percentage of battery with a progress bar and label

I plan on making it better, but its a start right

Its my first ever useful script (well to me it is)

tell me anything i can improve on as im still a newbie

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
$INIFile = @ScriptDir & "\Options.ini" 
If FileExists($INIFile) = 0 Then IniWrite($INIFile, "UIOptions", "Refresh Rate", "500") 
$RefreshRate = IniRead($INIFile, "UIOptions", "Refresh Rate", "500") 
Opt("GUIOnEventMode", 1) 
Global $BatteryPercent = "Please Wait... " 
Global $BatteryStatus = "Please Wait... " 
$FormWidth = 410 
$FormHeight = 100 
$Form1 = GUICreate("BattBar v.0.1", 386, 17, @DesktopWidth - $FormWidth, @DesktopHeight - $FormHeight);width height left top 
GUISetOnEvent($GUI_EVENT_CLOSE, "ExitApp") 
GUISetBkColor(0xC0C0C0) 
$Progress1 = GUICtrlCreateProgress(0, 0, 358, 17, BitOR($PBS_SMOOTH, $WS_BORDER)) 
GUICtrlSetColor(-1, 0x0000FF) 
$Progress1context = GUICtrlCreateContextMenu($Progress1) 
$PMenuItem1 = GUICtrlCreateMenuItem("Options", $Progress1context) 
GUICtrlSetOnEvent($PMenuItem1, "OptionsWindow") 
$PMenuItem2 = GUICtrlCreateMenu("Close...", $Progress1context) 
$PMenuItem3 = GUICtrlCreateMenuItem("...To Tray", $PMenuItem2) 
$PMenuItem4 = GUICtrlCreateMenuItem("...And Exit", $PMenuItem2) 
GUICtrlSetOnEvent($PMenuItem4, "ExitApp") 
$Label1 = GUICtrlCreateLabel("", 358, 0, 28, 17, $WS_BORDER);left top width height 
$Label1context = GUICtrlCreateContextMenu($Label1) 
$MenuItem1 = GUICtrlCreateMenuItem("Options", $Label1context) 
$MenuItem2 = GUICtrlCreateMenu("Close...", $Label1context) 
$MenuItem3 = GUICtrlCreateMenuItem("...To Tray", $MenuItem2) 
$MenuItem4 = GUICtrlCreateMenuItem("...And Exit", $MenuItem2) 
GUICtrlSetOnEvent($MenuItem4, "ExitApp") 
GUISetState(@SW_SHOW) 
While 1 
$SYSTEM_POWER_STATUS = DllStructCreate("byte;byte;byte;byte;int;int") 
$test = DllCall("kernel32.dll", "int", "GetSystemPowerStatus", _ 
"ptr", DllStructGetPtr($SYSTEM_POWER_STATUS)) 
$BatteryStatus = DllStructGetData($SYSTEM_POWER_STATUS, 1) 
If $BatteryStatus = "1" Then $BatteryStatus = "Charging" 
If $BatteryStatus = "0" Then $BatteryStatus = "Discharging" 
$BatteryPercent = DllStructGetData($SYSTEM_POWER_STATUS, 3) 
GUICtrlSetData($Progress1, $BatteryPercent) 
GUICtrlSetData($Label1, $BatteryPercent & "%") 
Sleep($RefreshRate) 
WEnd 
Func ExitApp() 
Exit 
EndFunc ;==>ExitApp 
Func OptionsWindow() 
;going to do this later
EndFunc ;==>OptionsWindow

You can choose the refresh rate with the ini file thats created But You need to exit the xcript and start it again

Edited November 26, 2010 by SparkSoft

[guinness 1,480]

Nice, it has potential.

[water 1,950]

You could check if the computer where the script is run has a battery.

My PC (no notebook) shows 255%.

[SparkSoft 0]

You could check if the computer where the script is run has a battery.

My PC (no notebook) shows 255%.

Thanks for feedback

Im aware of the 255% thing, it does it on my desktop pc and im going to change it

Im going to add more features like colors for the power bar and custom actions when the battery gets to a certain percentage

Also a little tip:

Compile the script and If your running vista or windows 7, change visual compatibility setting to disable visual themes, this will turn the battery bar blue

again thanks for the feedback,

Edited December 1, 2010 by SparkSoft

[Kalin 0]

- Double posting delete -

Edited December 4, 2010 by Kalin

[Kalin 0]

Well... This is rather... Interesting?

Also most of the function that you included in that script doesn't apply when I use it.

All it does is open and automatically is set to 255%, and then creates a .ini file. And yes, I tried to compile it lol.

But nice for a first app.

: )

Edited December 4, 2010 by Kalin