Liste

    • Offizieller Beitrag

    Hier war der Fehler:

    [autoit]

    Case $erntenbutton
    $read = GUICTrlRead($angepflanztes)
    If $read = "" Then ; Du hattest statt Leerstring auf ein Leerzeichen geprüft!!
    GUICtrlSetBKColor($feld,0x8C4600)
    Else
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    $List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
    $geld += 120
    GUICTrlSetDAta($geldanzeige,$geld)
    EndIf

    [/autoit]


    Und vereinfache mal die Befüllung der Listen:

    [autoit]

    $listview = GUICtrlCreateList("",530,40,200,200)
    GUICTRlSetDAta(-1,"Weizen|Gerste|Rüben|Salat|Mais|Klee|Gras")

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

    $kaufliste = GUICTrlCreateList("",770,40,200,200)
    GUICTrlSetData(-1,"Traktor 1|Traktor 2|Pflug|Sämaschiene|Mähdräscher|Eigenes Haus|Kartoffelernter|Mähwerk|Rübenvollernter|Halle 1|Halle 2")

    [/autoit]

    ;)

    So geht es auch:
    Du solltest nur erhöhen, wenn ein String markiert ist. Wenn keine Einträge mehr vorhanden sind, setzt du die Hintergrundfarbe:

    [autoit]

    Case $erntenbutton
    Local $List1CurSel = _GUICtrlListBox_GetCurSel($angepflanztes) ; Auswahl holen
    If $List1CurSel>=0 Then ; Wenn ein Item ausgewähltist
    $read = GUICTrlRead($angepflanztes) ; Name lesen
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel) ; löschen
    $geld += 120
    GUICTrlSetDAta($geldanzeige,$geld)
    EndIf
    If _GUICtrlListBox_GetCount($angepflanztes)=0 Then ; wenn die ListBox leer ist
    GUICtrlSetBKColor($feld,0x8C4600) ; Farbe setzen
    EndIf

    [/autoit]

    Habs so gemacht

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GuiListView.au3>
    #Include <GuiListBox.au3>

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

    Global $geld = 1000

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

    HotKeySet("{ENTER}","_mehrgeld")

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

    GUICreate("SB Magic",990,600)
    GUISETBkColor(0xCDAD00)

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

    $2 = GUICTrlCreateMenu("Beenden")
    $21 = GUICTrlCreateMenuitem("Beenden",$2)

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

    $1 = GUICTrlCreateMenu("Geld")
    $mehrgeld = GUICTRlCreateMenuitem("Mehr geld",$1)

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

    $feld = GUICTrlCreateLAbel("",10,10,500,520)
    GUICTrlSetBkColor(-1,0x8C4600)

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

    $feldname = GUICtrlCreateLabel("",300,300,200)
    GUICTRlSEtBKColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICTrlSEtFont(-1,12)
    GUICTRlSEtColor(-1,0xFFFFFF)

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

    GUICTrlCreateLabel("Was willst du anpflanzen?",530,10)

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

    $listview = GUICtrlCreateList("",530,40,200,200)
    GUICTRlSetDAta(-1,"Weizen")
    GUICTRlSetData(-1,"Gerste")
    GUICTrlSEtDAta(-1,"Rüben")
    GUICTrlSetDAta(-1,"Salat")
    GUICTrlSEtDAta(-1,"Mais")
    GUICTrlSEtData(-1,"Klee")
    GUICTrlSetData(-1,"Gras")

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

    $anpflanzen = GUICTrlCreateButton("Anpflanzen",530,240,100)

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

    GUICTrlCreateLabel("Du hast folgendes schon angepflanzt",530,280)

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

    $angepflanztes = GUICTrlCreateList("",530,310,200,200)

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

    $erntenbutton = GUICtrlCreateButton("Ernten",530,510,100)

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

    GUICTrlCreateLabel("Was willst du kaufen?",770,10)

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

    $kaufliste = GUICTrlCreateList("",770,40,200,200)
    GUICTrlSetData(-1,"Tracktor 1")
    GUICTrlSetData(-1,"Tracktor 2")
    GUICtrlSetData(-1,"Pflug")
    GUICTRlSEtData(-1,"Sähmaschiene")
    GUICTRlSEtData(-1,"Mähdräscher")
    GUICTrlSEtDAta(-1,"Eigenes Haus")
    GUICTrlSEtData(-1,"Kartoffelärnter")
    GUICTrlSetDAta(-1,"Mähwerk")
    GUICTrlSetDAta(-1,"Rübenvollernter")
    GUICtrlSetData(-1,"Halle 1")
    GUICTrlSetData(-1,"Halle 2")

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

    $kaufenbutton = GUICTrlCreateButton("Kaufen",770,240,100)
    GUICTrlCreateLabel("Das hast du bereits gekauft",770,280)
    $gekauftesliste = GUICTrlCreatelist("",770,310,200,200)

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

    GUICTrlCreateButton("Verkaufen",770,510,100)

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

    $geldanzeige = GUICTrlCreateBUtton($geld,0,555,60)
    GUICTrlSetBkColor(-1,0xFFFFFF)

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

    GUISETSTate()

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

    While 1
    Switch GUIGETMSG()
    Case -3
    Exit
    Case $21
    Exit
    Case $mehrgeld
    If $geld = 1100 Then
    $geld += 1100
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $geld <= 1100 Then
    $geld +=20
    GUICTRLSETDAta($geldanzeige,$geld)
    EndIf
    Case $anpflanzen
    Sleep(1000)
    MsgBox(48,"Ok","Die Pflanze" & @CRLF & @CRLF & "- " & GUICTRlRead($listview) & @CRLF & @CRLF & "wurde angepflanzt und das Geld wird nun abgebucht")
    Sleep(1000)
    GUICtrlSetData($angepflanztes,GUICTrlRead($listview))
    GUICtrlSetBkColor($feld,0x807500)
    Sleep(1000)
    $geld -=100
    GUICtrlSetData($geldanzeige,$geld)
    Case $erntenbutton
    $read = GUICTrlRead($angepflanztes)
    If $read = "Weizen" Then
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    $List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
    $geld += 110
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $read = "Gerste" THen
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    $List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
    $geld += 120
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $read = "Rüben" Then
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    $List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
    $geld += 120
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $read = "Salat" Then
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    $List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
    $geld += 120
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $read = "Mais" Then
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    $List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
    $geld += 120
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $read = "Klee" Then
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    $List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
    $geld += 120
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $read = "Gras" Then
    MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
    $List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
    _GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
    $geld += 120
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $read == "Weizen" Or $read == "Gerste" Or $read == "Rüben" Or $read == "Salat" Or $read == "Mais" Or $read == "Klee" Or $read == "Gras" Then
    MsgBox(0,"","")
    EndIf
    Case $kaufenbutton
    $msgBox = MsgBox(4,"Kaufen","Willst du folgendes kaufen:" & @CRLF & @CRLF & "- " & GUICTrlRead($kaufliste))
    If $msgBox = 6 Then
    GUICTrlSetData($gekauftesliste,GUICtrlREad($kaufliste))
    EndIf
    EndSwitch
    WEnd

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

    Func _mehrgeld()
    If $geld = 1100 Then
    $geld +=0
    GUICTrlSetDAta($geldanzeige,$geld)
    ElseIf $geld <= 1100 Then
    $geld +=20
    GUICTRLSETDAta($geldanzeige,$geld)
    EndIf
    EndFunc

    [/autoit]



    Edit:Warum wird die Elseif Schleife nicht ausgeführt


    Edit BugFix Bitte keine Mehrfachposts! Du kannst deine Einträge editieren.

    3 Mal editiert, zuletzt von simon (17. April 2009 um 15:04)

    • Offizieller Beitrag

    Wenn du dich mal ein bischen genauer ausdrückst, kann man dir eventuell helfen . Welche Elseif Schleife meinst du '? Habe 9 ElseIf in deinem Script gefunden . Wo genau löiegt dein Problem ?

    PS: So wie ich sehe machst du heute den Oberspammer, das muß auch nicht sein.