FileWrite Problem

  • Hallo & Moin Moin.

    Ich versuche, das wenn man auf 1, dann auf 2 und dann auf 3 drückt, das jeweils in der MsgBox die bereits angeklickten Zhalen in der MsgBox angezeigt werden. Aber es wird immer nur die letzte Zahl angezeigt. Wenn ich also erst 1, dann 2 und dann drei drücke, sollte er dann 123 anzeigen.

    Wo ich der Fehler?

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $Form1 = GUICreate("Zahlenblock", 131, 171, 442, 396)
    $Button1 = GUICtrlCreateButton("1", 8, 8, 33, 33, 0)
    $Button2 = GUICtrlCreateButton("2", 48, 8, 33, 33, 0)
    $Button3 = GUICtrlCreateButton("3", 88, 8, 33, 33, 0)
    $Button4 = GUICtrlCreateButton("4", 8, 48, 33, 33, 0)
    $Button5 = GUICtrlCreateButton("5", 48, 48, 33, 33, 0)
    $Button6 = GUICtrlCreateButton("6", 88, 48, 33, 33, 0)
    $Button7 = GUICtrlCreateButton("7", 8, 88, 33, 33, 0)
    $Button8 = GUICtrlCreateButton("8", 48, 88, 33, 33, 0)
    $Button9 = GUICtrlCreateButton("9", 88, 88, 33, 33, 0)
    $Button10 = GUICtrlCreateButton("0", 48, 128, 33, 33, 0)
    $Button11 = GUICtrlCreateButton("C", 8, 128, 33, 33, 0)
    $Button12 = GUICtrlCreateButton("OK", 88, 128, 33, 33, 0)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1 ; 1
    $file = FileOpen("test.txt", 1)
    FileWrite($file, "1")
    MsgBox(0, "Test", $file)
    Case $Button2 ; 2
    $file = FileOpen("test.txt", 1)
    FileWrite($file, "2")
    MsgBox(0, "Test", $file)
    Case $Button3 ; 3
    $file = FileOpen("test.txt", 1)
    FileWrite($file, "3")
    MsgBox(0, "Test", $file)
    Case $Button4 ; 4
    Case $Button5 ; 5
    Case $Button6 ; 6
    Case $Button7 ; 7
    Case $Button8 ; 8
    Case $Button9 ; 9
    Case $Button10 ; 0
    Case $Button11 ; C = Eingabe(n) löschen
    Case $Button12 ; OK
    EndSwitch
    WEnd

    [/autoit]

    LG, Lina.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    Einmal editiert, zuletzt von Alina (10. Januar 2009 um 19:19)

  • Du zeigtst doch in der MsgBox die File-ID der FileOpen-Funktion und nicht die Zahl an !

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

  • Klar, muss ja FileRead("test.txt") nehmen.

    Danke, Lina.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr