Automatische Auflistung und Addition.

Kajabuschka

hallo!

Also ich möchte mir gerne ein programm erstellen das mir nach eingabe alles auflistet was gekauft wurde. außerdem sollen die beträge automatisch hinzugefügt werden und das kaufdatum soll wählbar hinzufügbar sein.
Hier der Code:

[autoit]

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wie auch immer!", 633, 478, 390, 277)
GUISetBkColor(0x000000)
$Edit1 = GUICtrlCreateEdit("", 16, 16, 601, 305)
GUICtrlSetData(-1, "Also hier soll aufgelistet für was Geld ausgegebn wurde und wie viel. Außerdem soll automatisch zusammen gerechnet werden wie viel schon ausgegeben worden ist. Außerdem möchte ich gerne das das datum von unten rechts mit einbezogen wird. Weil dies lässt sich ja verstellen das wenn ich ein tag zuvor was gekauft habe das dementsprechende datum auswählen kann.")
$Button1 = GUICtrlCreateButton("Hinzufügen", 40, 408, 273, 41, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 24, 360, 393, 21)
$Ausgabe = GUICtrlCreateLabel(" Ausgabe für :", 152, 336, 99, 20)
GUICtrlSetFont(-1, 11, 800, 4, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 464, 360, 145, 21)
$Betrag = GUICtrlCreateLabel("Betrag :", 512, 336, 58, 20)
GUICtrlSetFont(-1, 11, 800, 4, "MS Sans Serif")
$Date1 = GUICtrlCreateDate("2010/11/19 14:45:23", 352, 408, 257, 37)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Button1
EndSwitch
WEnd

[/autoit]

name22

Wow da scheinst du dir ja viel Mühe gegeben zu haben .
Ich will dir jetzt kein fertiges Programm schreiben, deswegen gebe ich dir ein paar Tipps:

Tipps

-AutoIt
- Ließ dir die Hilfe zum Thema GUI und co. durch.
- Schau dir Arrays (1- und 2 dimensional) an.
- Ließ dir die Hilfe zu diversen Funktionen aus der Array UDF durch (_ArrayAdd etc.)
- Versuche mal zur Übung eine GUI ohne Coda Form Designer zu erstellen (zur Übung).

Kajabuschka

hm ich bitte ja nur um 2 befehle... einnmal den das automatisch die liste geführt wird und der andere ist das die beträge automatisch addiert werden.

name22

Das sind aber keine 2 Befehle, es sei denn du machst dir die Funktionen selbst.

**autoBert**

Nimm antelle eines Edit-Controls ein Listview-Controll, dann siehst du die Positionen schön in Zeilen/Spalten,

mfg autoBert

Kajabuschka

ist das viel arbeit? weil ich würde mich sehr freuen wenn mir das jmd machen kann... weil bis ich dahinter gestiegen bin dauert das warscheinlich einfach zu lang...

name22

*seufz* Keiner will mehr was lernen, alle wollen nur noch etwas haben und zwar sofort.

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Wie auch immer!", 633, 478, 390, 277)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 16, 16, 601, 305)
GUICtrlSetData(-1, "Also hier soll aufgelistet für was Geld ausgegebn wurde und wie viel. Außerdem soll automatisch zusammen gerechnet werden wie viel schon ausgegeben worden ist. Außerdem möchte ich gerne das das datum von unten rechts mit einbezogen wird. Weil dies lässt sich ja verstellen das wenn ich ein tag zuvor was gekauft habe das dementsprechende datum auswählen kann.")
$Button1 = GUICtrlCreateButton("Hinzufügen", 40, 408, 273, 41, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 24, 360, 393, 21)
$Ausgabe = GUICtrlCreateLabel(" Ausgabe für :", 152, 336, 99, 20)
GUICtrlSetFont(-1, 11, 800, 4, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 464, 360, 145, 21)
$Betrag = GUICtrlCreateLabel("Betrag :", 512, 336, 58, 20)
GUICtrlSetFont(-1, 11, 800, 4, "MS Sans Serif")
$Date1 = GUICtrlCreateDate("2010/11/19 14:45:23", 352, 408, 257, 37)
GUISetState(@SW_SHOW)

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

Global $aStuff[1][3]
$aStuff[0][0] = 0

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If Not($Input1 = "" Or $Input2 = "") Then
ReDim $aStuff[$aStuff[0][0] + 2][3]
$aStuff[0][0] += 1

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

$aStuff[$aStuff[0][0]][0] = GUICtrlRead($Input1)
$aStuff[$aStuff[0][0]][1] = GUICtrlRead($Input2)
$aStuff[$aStuff[0][0]][2] = GUICtrlRead($Date1)

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

_RefreshList()
EndIf
EndSwitch
WEnd

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

Func _RefreshList()
$sStuffTmp = ""
For $i = 1 To $aStuff[0][0]
$sStuffTmp &= $aStuff[$i][0] & " ; " & $aStuff[$i][1] & " - " & $aStuff[$i][2] & @CRLF
Next
GUICtrlSetData($Edit1, $sStuffTmp)
EndFunc

[/autoit]

Ich hoffe du verstehst es.

Kajabuschka

jo cool danke es funzt
jetzt fehlt mir aber noch das mit dem addieren
und wie kann man das speichern? :-O

name22

Hier noch mal mit addieren . (Das war ja wohl wirklich nicht schwer).

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Wie auch immer!", 633, 478, 390, 277)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 16, 16, 601, 305)
GUICtrlSetData(-1, "Also hier soll aufgelistet für was Geld ausgegebn wurde und wie viel. Außerdem soll automatisch zusammen gerechnet werden wie viel schon ausgegeben worden ist. Außerdem möchte ich gerne das das datum von unten rechts mit einbezogen wird. Weil dies lässt sich ja verstellen das wenn ich ein tag zuvor was gekauft habe das dementsprechende datum auswählen kann.")
$Button1 = GUICtrlCreateButton("Hinzufügen", 40, 408, 273, 41, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 24, 360, 393, 21)
$Ausgabe = GUICtrlCreateLabel(" Ausgabe für :", 152, 336, 99, 20)
GUICtrlSetFont(-1, 11, 800, 4, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 464, 360, 145, 21)
$Betrag = GUICtrlCreateLabel("Betrag :", 512, 336, 58, 20)
GUICtrlSetFont(-1, 11, 800, 4, "MS Sans Serif")
$Date1 = GUICtrlCreateDate("2010/11/19 14:45:23", 352, 408, 257, 37)
GUISetState(@SW_SHOW)

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

Global $aStuff[1][3]
$aStuff[0][0] = 0

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If Not($Input1 = "" Or $Input2 = "") Then
ReDim $aStuff[$aStuff[0][0] + 2][3]
$aStuff[0][0] += 1

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

$aStuff[$aStuff[0][0]][0] = GUICtrlRead($Input1)
$aStuff[$aStuff[0][0]][1] = GUICtrlRead($Input2)
$aStuff[$aStuff[0][0]][2] = GUICtrlRead($Date1)

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

_RefreshList()
EndIf
EndSwitch
WEnd

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

Func _RefreshList()
$sStuffTmp = ""
$iCount = 0
For $i = 1 To $aStuff[0][0]
$sStuffTmp &= $aStuff[$i][0] & " ; " & $aStuff[$i][1] & " - " & $aStuff[$i][2] & @CRLF
$iCount += $aStuff[$i][1]
Next
GUICtrlSetData($Edit1, $sStuffTmp & "Gesamt: " & @CRLF & $iCount)
EndFunc

[/autoit]

Zum Thema speichern schau dir doch BITTE mal die Ini Grundlagen an (IniWrite, IniRead). (Das ist einfach zu verstehen und ich habe keine Lust mehr Scripte für dich ohne Gegenleistung zu schreiben).

**autoBert**

Zitat von Kajabuschka

ist das viel arbeit? weil ich würde mich sehr freuen wenn mir das jmd machen kann... weil bis ich dahinter gestiegen bin dauert das warscheinlich einfach zu lang...

dann bist du hier im falschen Forum, setze den Thread auf gelöst. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden).
Danach eröffnest du einen neuen entweder [list][*] http://www.autoit.de/index.php?page=Board&boardID=35[*] http://www.autoit.de/index.php?page=Board&boardID=52

mfg autoBert