Problem beim auslesen des Inputs

  • Und zwar hab ich beim auslesen des Inputs das Problem das egal was ich in die Felder eingebe ich immer nur "0" zurück bekomme und wollte mal fragen ob einer von euch ( oder auch gerne mehrere ;) ) mir bei der beseitigung es Problems behilflich sein könnte.

    Spoiler anzeigen
    [autoit]

    HotKeySet ( "{ESC}", "End" )[autoit]HotKeySet ( "{ESC}", "End" )

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

    #include
    #include
    Opt( "GUIOnEventMode", 1 )

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

    $Fenster = GUICreate ( "Koordinaten", 200, 120 )
    GUICtrlCreateLabel ( "Bitte geben sie zwei Zahlen ein.", 25, 15 )
    $Feld1 = GUICtrlCreateInput ( "", 65, 55, 30 )
    $Feld2 = GUICtrlCreateInput ( "", 100, 55 )

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

    $okbutton = GUICtrlCreateButton ( "OK", 70, 80, 60 )
    GUICtrlSetOnEvent($okbutton, "OKButton")

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

    GUISetState ( @SW_Show )

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

    While 1
    Sleep(1000)
    WEnd

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

    Func OKButton()
    Local $Feld1, $Feld2
    $var1 = GUICtrlRead ( $Feld1 )
    $var2 = GUICtrlRead ( $Feld2 )
    GUIDelete ( $Fenster )
    MsgBox ( 1, "" , "Sie haben die zwei Zahlen " & $var1 & " und " & $var2 & " eingegeben." )
    EndFunc

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

    Func End()
    Exit
    EndFunc

    [/autoit]


    Danke schon mal im voraus :)

    2 Mal editiert, zuletzt von Jojo the big (6. Mai 2009 um 22:32)

  • Du darfst die Variablen die Du in der Funktion auslesen willst ($Feld1 & $Feld2) nicht erneut deklarieren, damit verlieren Sie Ihren Bezug zu dem Input-Control.

    Spoiler anzeigen
    [autoit]

    HotKeySet ( "{ESC}", "End" )

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

    Opt( "GUIOnEventMode", 1 )

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

    $Fenster = GUICreate ( "Koordinaten", 200, 120 )
    GUICtrlCreateLabel ( "Bitte geben sie zwei Zahlen ein.", 25, 15 )
    $Feld1 = GUICtrlCreateInput ( "", 65, 55, 30 )
    $Feld2 = GUICtrlCreateInput ( "", 100, 55 )

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

    $okbutton = GUICtrlCreateButton ( "OK", 70, 80, 60 )
    GUICtrlSetOnEvent($okbutton, "OKButton")

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

    GUISetState ( @SW_Show )

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

    While 1
    Sleep(1000)
    WEnd

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

    Func OKButton()
    ;Local $Feld1, $Feld2
    $var1 = GUICtrlRead ( $Feld1 )
    $var2 = GUICtrlRead ( $Feld2 )
    GUIDelete ( $Fenster )
    MsgBox ( 1, "" , "Sie haben die zwei Zahlen " & $var1 & " und " & $var2 & " eingegeben." )
    EndFunc

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

    Func End()
    Exit
    EndFunc

    [/autoit]

    MfG Schnuffel

    "Sarkasmus ist die niedrigste Form des Witzes, aber die höchste Form der Intelligenz."
    Val McDermid

    ein paar Infos ...

    Wer mehr als "nur" Hilfe benötigt, kann sich gern im Forum "Programmieranfragen" an uns wenden. Wir helfen in allen Fällen, die die Forenregeln zulassen.

    Für schnelle Hilfe benötigen wir ein ! lauffähiges ! Script, dass wir als Demonstration des Problems testen können. Wer von uns erwartet ein Teilscript erstmal lauffähig zu bekommen, der hat
    1. keine wirkliche Not
    2. keinen Respekt vor Menschen die ihm in ihrer Freizeit Ihre Hilfe anbieten
    3. oder ist einfach nur faul und meint wir coden das für ihn

    In solchen Fällen erlaube ich mir, die Anfrage einfach zu ignorieren. ;)