Zählen über Button Click

  • Sorry nun bin ich nochmal da, habe leider auch über die Suche nichts passendes gefunden.
    Ev einfach zu leicht aber ich komme nicht drauf.
    Ich will auf nen Button klicken, dann muss er die Zahl eines raufzählen.
    Habe schon gebastelt aber klappt nicht wirklich

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <GuiStatusBar.au3>
    #include <WindowsConstants.au3>
    local $vo = 1

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

    AdlibRegister("tick", 1000)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("by Moosi", 150, 300, 300, 300, BitOR($WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
    GUISetBkColor(0xededed)
    $MenuItem2 = GUICtrlCreateMenu("Menu1")
    $MenuItem3 = GUICtrlCreateMenuItem("MenuItem3", $MenuItem2)
    $MenuItem1 = GUICtrlCreateMenu("Menu2")
    $MenuItem4 = GUICtrlCreateMenuItem("Menu2", $MenuItem1)
    $voel = GUICtrlCreateButton("Vö", 10, 10, 30, 20, $WS_GROUP)
    $voel1 = GUICtrlCreateLabel($vo, 70, 10, 40, 20, $SS_CENTER, $WS_EX_CLIENTEDGE)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $clock = GUICtrlCreateLabel("Uhrzeit", 10, 230, 130, 17, $SS_CENTER, $WS_EX_CLIENTEDGE)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, 0xFFFFFF)

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

    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]

    EndSwitch
    WEnd

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

    Func voel()
    $vo = $vo+1
    EndFunc

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

    Func tick()
    GUICtrlSetData($clock, _NowTime())
    EndFunc

    [/autoit]

    Ev hat jemand nen kleinen anhaltspunkt was ich falsch mache

    Einmal editiert, zuletzt von JaySini (16. Mai 2011 um 13:45)

  • Probiere es mal damit:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    local $vo = 1

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

    AdlibRegister("tick", 1000)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("by Moosi", 150, 300, 300, 300, BitOR($WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
    GUISetBkColor(0xededed)
    $MenuItem2 = GUICtrlCreateMenu("Menu1")
    $MenuItem3 = GUICtrlCreateMenuItem("MenuItem3", $MenuItem2)
    $MenuItem1 = GUICtrlCreateMenu("Menu2")
    $MenuItem4 = GUICtrlCreateMenuItem("Menu2", $MenuItem1)
    $voel = GUICtrlCreateButton("Vö", 10, 10, 30, 20, $WS_GROUP)
    $voel1 = GUICtrlCreateLabel($vo, 70, 10, 40, 20, $SS_CENTER, $WS_EX_CLIENTEDGE)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $clock = GUICtrlCreateLabel("Uhrzeit", 10, 230, 130, 17, $SS_CENTER, $WS_EX_CLIENTEDGE)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, 0xFFFFFF)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $voel ;<<<<<<<<
    voel() ;<<<<<<<<
    EndSwitch
    WEnd

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

    Func voel()
    $vo = $vo+1
    GUICtrlSetData($voel1, $vo) ;<<<<<<<<
    EndFunc

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

    Func tick()
    GUICtrlSetData($clock, _NowTime())
    EndFunc

    [/autoit]

    Die Zeilen ;<<<<<<<< habe ich eingefügt.

    Gruß,
    UEZ

    Auch am Arsch geht ein Weg vorbei...

    ¯\_(ツ)_/¯

  • Tausend dank funzt einwandfrei.
    Nun würde ich es nur gern versehen, hast du ev lust es mir zu erklären was nun anders ist, bzw was nun im Script anders verarbeitet wird?

    Währe dir echt dankbar.,