LoginGUI

  • Ich möchte gerne ein Login/Registrierer für unsere Schule machen. Da es
    dort mehrere Rechner gibt, die auf der Festplatte alle einen Einzelnden
    ordner haben (z.B. Rechner 1 hat odrdner "1" Rechner 2 hat "2" usw.) um
    das zu simulieren habe ich bei mir ein ordner mit 10 weiteren ordnern
    drinne gemacht. Einfach zum testen. Ich möchte jz. erstmal den
    Registrierer machen. Er soll die Angegebene Rechner nummer erkennen (sie werden durch den User angegebn)
    & dan alle config`s die vll. bereits in dem ordner sind durch gehen.
    Sobald es die config nicht mehr gibt, soll er sie erstellen mit den
    angegebenen Daten. Zum Beispeil:

    Ordner 5 -> in dem sind mehrere config.ini`s (config1.ini, config2.ini, config3.ini usw.) oder aber auch nicht.
    Sobald es eine config ini nicht mehr gibt. zum beispiel gib es config5.ini nicht, aber 4 schon so soll er die 5te erstellen.


    Aber bei mir vertauscht der die If schleife, wenn die bedingung FALSCH ist, macht er was in der If schleife ist & sobald die aussage WAHR ist macht er mit else weiter, aber beim 2ten durchlauf, macht er das was er machen soll wenn es WAHR ist.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    #include <string.au3>
    #include <Date.au3>

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

    Opt("GUIOnEventMode", 1)

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Login", 300, 134)
    $Input1 = GUICtrlCreateInput("", 24, 24, 121, 21)
    $Input2 = GUICtrlCreateInput("", 24, 56, 121, 21)
    $Label1 = GUICtrlCreateLabel("Name", 168, 24, 32, 17)
    $bLogin = GUICtrlCreateButton("Login", 24, 88, 75, 25, 0)
    $bNeuAcc = GUICtrlCreateButton("Neu Registrieren", 160, 88, 115, 25, 0)
    GUICtrlSetOnEvent(-1,"_NeuAccGUI")
    $Label2 = GUICtrlCreateLabel("Registrierungsnummer", 168, 56, 108, 17)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Neu", 199, 349)
    $iName = GUICtrlCreateInput("", 24, 48, 153, 21)
    $iAntwort = GUICtrlCreateInput("", 24, 128, 153, 21)
    $Label1 = GUICtrlCreateLabel("Name für Highscore/Login", 24, 24, 129, 17)
    $Label2 = GUICtrlCreateLabel("Geheimwort, wenn du dein"& @CRLF &"PW vergessen solltest", 24, 80, 238, 41)
    $Button1 = GUICtrlCreateButton("Bestätigen", 24, 280, 155, 65, 0)
    GUICtrlSetOnEvent(-1,"_NeuAccBestaetigen")
    $Label3 = GUICtrlCreateLabel("Rechnernummer", 24, 160, 82, 17)
    $iNummer = GUICtrlCreateInput("", 24, 184, 121, 21)
    $Label4 = GUICtrlCreateLabel("Nachname, zur Identifikation", 24, 216, 139, 17)
    $iNachname = GUICtrlCreateInput("", 24, 248, 121, 21)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Close2")
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    Sleep(50)
    WEnd

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

    Func _NeuAccBestaetigen()
    Local $sName = GUICtrlRead($iName)
    Local $sAntwort = GUICtrlRead($iAntwort)
    Local $intNummer = Int(GUICtrlRead($iNummer))
    Local $sNachname = GUICtrlRead($iNachname)
    Local $check = False
    Local $k = 0
    Local $n = 1

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

    While $check = False
    $k += 1
    MsgBox(0,"","C:\Users\Nico\Desktop\Schule\" & $intNummer & "\config" & $k & ".ini")
    $config = IniRead("C:\Users\Nico\Desktop\Schule\" & $intNummer & "\config" & $k & ".ini","Name","Name",0)
    if not FileExists($config) Then
    MsgBox(0,"",$k)
    $n = $k - 1
    $check = True
    If $n <= 0 Then $n = 1
    Else
    MsgBox(0,"","Gibs nicht")
    EndIf
    WEnd
    $k = 0
    IniWrite("C:\Users\Nico\Desktop\Schule\" & $intNummer & "\config" & $n & ".ini","Name","Name",$sName)
    EndFunc

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

    Func _NeuAccGUI()
    GUISetState(@SW_SHOW, $Form2)
    GUISetState(@SW_HIDE, $Form1)
    EndFunc

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

    Func _Close2()
    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_HIDE, $Form2)
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    Hoffe um hilfe MfG Nico

    Hat sich bereits geklärt ;)

    MfG Nico

    MfG - Mit freundlichen Grüssen

    die Welt liegt uns zu Füssen, den wir steh'n drauf

    wir geh'n drauf für ein Leben voller Schall und Rauch

    bevor wir fall'n, fall'n wir lieber auf.

    3 Mal editiert, zuletzt von Niccoo (13. April 2012 um 22:10) aus folgendem Grund: hat sich bereits geklärt ^^