Desktop Accountant

[Dalex]

I wrote this because my wife asked me to start keeping up with what I spent, I'm to lazy to keep a pen and paper with me at all times, so I keep the receipts and enter them in when I get back to my PC. It will create a text document on your desktop and write each new entry to the next line. (I send it to my number crunching wife once a week , and let it create a new one on my desktop)

I am posting it here because I am not a programmer (I just enjoy playing with Autoit) and I would like to see how you guys could improve my work, and maybe teach me better writing habits or an easy more effective way of doing something.

Thanks in advance for your constructive criticism.

uploaded the .au3 also

expandcollapse popup

</P> <P>#include <GUIConstants.au3>
#include <File.au3></P> <P>Dim $tUser= @UserName
Dim $font   = "Comic Sans MS"
Dim $Amt
Dim $Where
Dim $What
Dim $Log = "AcctLog.txt"
Dim $Cash
Dim $Debit
Dim $Charge
Dim $Currency
Dim $msg</P> <P>Opt("GUIOnEventMode", 1); Change to OnEvent mode</P> <P>
Func CLOSEClicked ()
  Exit
EndFunc</P> <P> </P> <P>GUICreate("What I spent",215, 250,350,90); will create a dialog box that when displayed is centered
GUISetBkColor (0x5CACEE);sets the background color of the window
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISetState (@SW_SHOW)   ; will display an empty dialog box</P> <P>;---------------------------------------------------------------------------------------------------------
GUICtrlCreateLabel("Amount spent",20,30,650,20)
GUICtrlSetFont(-1,12,17,4,$font)
$Amt = GUICtrlCreateInput("$", 30,60,50,20)</P> <P>;---------------------------------------------------------------------------------------------------------
GUICtrlCreateGroup("Currency",140,25,60,100 )
$Cash = GUICtrlCreateRadio("Cash", 140,45,50,20)
$Debit = GUICtrlCreateRadio("Debit", 140,65,50,20)
$Charge = GUICtrlCreateRadio("Charge", 140,85,55,20)
GUICtrlSetState($Debit, $Gui_CHECKED)
;---------------------------------------------------------------------------------------------------------
GUICtrlCreateLabel("Where",20,90,50,20)
GUICtrlSetFont(-1,12,17,4,$font)
$Where = GUICtrlCreateInput("", 30,110,100,20)
;---------------------------------------------------------------------------------------------------------
GUICtrlCreateLabel("What did you buy?", 20, 140, 50,20)
GUICtrlSetFont(-1,12,17,4,$font)
$What = GUICtrlCreateInput("", 30,160,100,20)
;---------------------------------------------------------------------------------------------------------</P> <P>;---------------------------------------------------------------------------------------------------------</P> <P>$Addto = GUICtrlCreateButton("Add to Log", 65, 220, 70)
GuiCtrlSetOnEvent($Addto, "WRITElog")</P> <P>GUISetState(@SW_SHOW)</P> <P> </P> <P>
;---------------------------------------------------------------------------------------------------------
Func WRITElog() 

;Read the radio boxes to see which one is checked  
If  GUICtrlRead ($Cash) = $Gui_CHECKED Then
  $RadioMSG = "Cash"
   
ElseIf GUICtrlRead ($Debit) = $Gui_CHECKED Then
  $RadioMSG = "Debit"

ElseIf GUICtrlRead ($Charge) = $Gui_CHECKED Then
  $RadioMSG = "Credit Card" 
EndIf</P> <P>
$rAmt = GUICtrlRead ($Amt)
$rWhere = GUICtrlRead ($Where)
$rWhat = GUICtrlRead ($What)
_FileWriteLog(@DesktopDir & "\" & $Log, $rAmt & "     " & $rWhere & "   " & $rWhat  & "              " & $RadioMSG) 
ControlSetText("What I spent", "", "Edit1" ,"$")
ControlSetText("What I spent", "", "Edit2" ,"")
ControlSetText("What I spent", "", "Edit3" ,"")

EndFunc
</P> <P> </P> <P>While 1
Sleep(1000); Mainline will just idle around until an event happens.
WEnd
</P> <P>

Desktop_Accountant.au3

Edited August 14, 2008 by Dalex

[gseller]

Groovy!! I Like It! I am using WinXp SP2 and 3.2.12.1 and beta 3.2.13.7 works great! Thanks for sharing...

[Dalex]

Thanks, and you are welcome!

[nitekram]

Maybe it can read the log file and add all the spending and put that on the gui for a reminder of how much you have spent?

[Dalex]

Thats something that I had not thought of, may help me to spend less if I see how much I have already spent!

[gseller]

That is a cool idea..