Anschreibeliste z.B. Bier, Schnaps usw + Geld!

    Hi,
    ich suche ein script wo man z.B. oben stehen hat ( was man selbst eintragen kann :(
    Schnaps
    Bier
    Käse
    Mittag
    Fleich
    usw...
    Links sollte man namen Rein Programmieren können z.B.

    alex
    peter
    lisa
    usw...

    und man sollche auch die preise festsetzen können z.B.

    Käse kostet 1€
    Fleich 5€
    Mittag 0.50€ usw

    und wenn man dann zb eine auf das + Zeichen geht das dann halt zb 1 Bier dazukomm, man sollte aber auch wieder etwas löschen können z.B.
    der jenige hat 10€ bezahlt und hatte 11€ schulden so bleibt nur noch 1€ schulden bzw. der jenige hat 9€ schulde so hat er 1€ +

    klinkt sehr viel meine anfrage aber habe gehofft das man z.B. ein anderes Script für umprogrammieren könnte da ich nicht der spezialist in Programmierung bin aber wüsste kein bsp.
    Habe mal nach einem Telefonbuch geschaut aber das ist leider nicht im entferntesten sinn das was ich suche!

    Hoffe mir kann einer helfen, bzw. hat einer so etwas oder so etwas ähnliches Prorgammiert!

    MfG

    Talos

    Würd ich dir zusammenbasteln wenn du dich mit meinem schnellen GUI Entwurf anfreunden kannst.
    Ansonsten müsstest du mir was in Koda zusammenschustern.

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Include <GuiListView.au3>

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

    Opt("GUIOnEventMode", 1)
    $guiMain = GUICreate("", 930, 373, 228, 146)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $cGroup1 = GUICtrlCreateGroup("Gast", 8, 16, 252, 345)
    $cListGuest = GUICtrlCreateList("", 48, 40, 200, 305)
    $cAddGuest = GUICtrlCreateButton("+", 14, 41, 27, 27)
    GUICtrlSetTip(-1, "Gast hinzufügen")
    GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
    $cRemoveGuest = GUICtrlCreateButton("-", 14, 71, 27, 27)
    GUICtrlSetTip(-1, "Gast entfernen")
    GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $cGroup2 = GUICtrlCreateGroup("Zettel", 272, 16, 361, 345)
    $cList = GUICtrlCreateListView("Produkt|Menge|Preis", 279, 41, 340, 240)
    $cLabel1 = GUICtrlCreateLabel("gesammt:", 280, 296, 71, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $cLabelComplete = GUICtrlCreateLabel("10,00€", 352, 296, 64, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x800000)
    $cLabel2 = GUICtrlCreateLabel("-", 421, 288, 13, 28)
    GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
    $cLabelPayed = GUICtrlCreateLabel("10,00€", 439, 296, 64, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008000)
    $cLabel3 = GUICtrlCreateLabel(">>", 510, 292, 24, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $cLabelResult = GUICtrlCreateLabel("10,00€", 540, 296, 72, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    $cLabel4 = GUICtrlCreateLabel("zahlt;", 283, 331, 40, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $cInput = GUICtrlCreateInput("", 328, 326, 65, 21)
    $cLabel5 = GUICtrlCreateLabel("€", 399, 323, 15, 28)
    GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
    $cPay = GUICtrlCreateButton("bestättigen", 424, 324, 75, 25)
    GUICtrlSetTip(-1, "Gast zahlt Betrag x")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $cGroup3 = GUICtrlCreateGroup("Produkt", 670, 16, 252, 345)
    $cListProducts = GUICtrlCreateList("", 678, 40, 200, 305,$WS_VSCROLL)
    $cAddProduct = GUICtrlCreateButton("+", 884, 41, 27, 27)
    GUICtrlSetTip(-1, "Produkt hinzufügen")
    GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
    $cRemoveProduct = GUICtrlCreateButton("-", 884, 71, 27, 27)
    GUICtrlSetTip(-1, "Produkt entfernen")
    GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $cPaddGuest = GUICtrlCreateButton("<<", 637, 41, 27, 27)
    GUICtrlSetTip(-1, "anschreiben")
    GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
    $cPremoveGuest = GUICtrlCreateButton(">>", 637, 70, 27, 27)
    GUICtrlSetTip(-1, "entfernen")
    GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)

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

    _guest()
    _product()
    _topay()
    While 1
    Sleep(100)
    WEnd

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

    Func _Exit()
    Exit
    EndFunc

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

    Func _guest()
    GUICtrlSetData($cListGuest, "Hans|Peter|Fritz")
    EndFunc

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

    Func _topay()
    _GUICtrlListView_AddItem($cList, "Schnaps")
    _GUICtrlListView_AddItem($cList, "Bier")
    _GUICtrlListView_AddItem($cList, "Wein")
    _GUICtrlListView_AddSubItem($cList, 0,"3",1)
    _GUICtrlListView_AddSubItem($cList, 0,"3,00",2)
    _GUICtrlListView_AddSubItem($cList, 1,"4",1)
    _GUICtrlListView_AddSubItem($cList, 1,"8,00",2)
    _GUICtrlListView_AddSubItem($cList, 2,"1",1)
    _GUICtrlListView_AddSubItem($cList, 2,"2,00",2)
    EndFunc

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

    Func _product()
    GUICtrlSetData($cListProducts, "Korn|Bier|Schnaps|und Wein|denn wir hören unsere Leber schrein ...")
    EndFunc

    [/autoit]

    Hab dann heute doch noch was zusammengebastelt.
    Schau's dir mal an.
    autoit.de/wcf/attachment/12122/