Beiträge von Lenny

[Blockierte Grafik: http://klasshw.kl.ohost.de/cc1.jpg]

[Blockierte Grafik: http://klasshw.kl.ohost.de/cc2.jpg]

[Blockierte Grafik: http://klasshw.kl.ohost.de/cc3.jpg]

[Blockierte Grafik: http://klasshw.kl.ohost.de/picc1.jpg]

[Blockierte Grafik: http://klasshw.kl.ohost.de/picc2.jpg]

Asus P5K SE / EPU
[Blockierte Grafik: http://www.novermod.com/wp-content/uploads/2008/03/asus-p5kepu.jpg]
Intel Core 2 Duo E8500 Box (2x 3.2 GHZ)
[Blockierte Grafik: http://www.hothardware.com/articleimages/Item1106/small_1.jpg]
2GB Kingston DD2 1066 Mhz
[Blockierte Grafik: http://klasshw.kl.ohost.de/DCI_Image.JPG]
nVidia GeForce 9800 GTX
[Blockierte Grafik: http://regmedia.co.uk/2008/04/11/nvidia_9800gtx_1.jpg]
Irgendeine platte 500 GB (Samsung)
[Blockierte Grafik: http://www.computerhandlung.de/prods/50/77007.jpg]
ATX Xilence Power "Gaming Edition" Netzteil (Quad SLI fähig)
[Blockierte Grafik: http://pan7.fotovista.com/dev/7/5/00226657/l_00226657.jpg]
Standart Gehäuse (Ähnliche Abbildung)
[Blockierte Grafik: http://www.bilder.preistaktik.de/Artikelbilder/PCGXMBF3.jpg]
52 x DVD Laufwerk / Brenner Dual/Double Layer
[Blockierte Grafik: http://www.cyberport.de/item/1325/1031/0/92724/mall/1/pic/bild0/it927243704-133_400.JPG]
Razer Diamond Black 1800 DPI 1500 APM
[Blockierte Grafik: http://planetimagehost.com/images/55316_Razer_Diamondback.jpg]

[autoit][/autoit] [autoit][/autoit] [autoit]

#NoTrayIcon
#include <GUIConstants.au3>
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists(@TempDir & "\Lennart's\actions.txt") Then
_FileCreate(@TempDir & "\Lennart's\actions.txt")
EndIf

[/autoit] [autoit][/autoit] [autoit]

$Kst = RegRead("HKEY_CURRENT_USER\SOFTWARE\Lennart's\Lennart's Finanzen Manager\", "Kontostand")

[/autoit] [autoit][/autoit] [autoit]

If $Kst = "" Then
$InBo = InputBox("Ersparnisse", "Meine aktuellen Ersparnisse liegen bei wie viel Euro ?")
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Lennart's\Lennart's Finanzen Manager\", "Kontostand", "REG_SZ", $InBo)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$Kontostand = RegRead("HKEY_CURRENT_USER\SOFTWARE\Lennart's\Lennart's Finanzen Manager\", "Kontostand")

[/autoit] [autoit][/autoit] [autoit]

$Title = $Kontostand

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Kontostand: " & $Title, 274, 290, 193, 125)
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Meine Finanzen 2008 :D", 16, 16, 241, 24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aktuelle Finanzlage:", 16, 72, 124, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel($Kontostand & " Euro", 160, 72, 94, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Einkommen/Grund:", 8, 152, 118, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 136, 152, 41, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 176, 152, 89, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Ausgaben/Grund:", 8, 216, 103, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 136, 216, 41, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 176, 216, 89, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------", 0, 104, 271, 17)
$Button1 = GUICtrlCreateButton("Fertig", 8, 256, 185, 25, 0)
$Button2 = GUICtrlCreateButton("Action Log", 200, 256, 65, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

#cs

Script Startet

#ce

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$plus = GUICtrlRead($Input1)
$minus = GUICtrlRead($Input3)
$erg = $plus - $minus
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Lennart's\Lennart's Finanzen Manager\", "Kontostand", "REG_SZ", $Kontostand + $erg)
$Kontostand = RegRead("HKEY_CURRENT_USER\SOFTWARE\Lennart's\Lennart's Finanzen Manager\", "Kontostand")
GUICtrlSetData($Label3, $Kontostand & " Euro")
$file = FileOpen(@TempDir & "\Lennart's\actions.txt", 1)
$Gp = GUICtrlRead($Input2)
$Gm = GUICtrlRead($Input4)
FileWrite($file, @CRLF & @CRLF & @MDAY & "." & @MON & "." & @YEAR & " = " & $plus & "€ Grund+: " & $Gp & " ||| " & $minus & "€ Grund-: " & $Gm)
FileClose($file)
Case $Button2
ShellExecute(@TempDir & "\Lennart's\actions.txt")
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]