#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>
#include <File.au3>

$dll = DllOpen("user32.dll") ; _isPressed wird sicher noch gebraucht

DirCreate(@ScriptDir & "\Save\")
_FileCreate(@ScriptDir & "\Save\Save.ini")

Start()


Func Start()

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    Opt("GUIOnEventMode", 1)
    Global $Form1_1 = GUICreate("Form1", 1002, 802, 360, 76)
    $Label1 = GUICtrlCreateLabel("Bitte beantworten Sie folgende Fragen. Alle Daten werden vertraulich behandelt.", 56, 56, 889, 35)
    GUICtrlSetFont(-1, 20, 400, 0, "Times New Roman")
    Global $Alter = GUICtrlCreateInput("", 520, 232, 249, 21)
    $Label2 = GUICtrlCreateLabel("Alter:", 176, 232, 28, 17)
    Global $male = GUICtrlCreateCheckbox("maennlich", 272, 152, 73, 33)
    Global $female = GUICtrlCreateCheckbox("Weiblich", 496, 152, 121, 41)
    $Label3 = GUICtrlCreateLabel("Matrikelnummer:", 168, 272, 81, 17)
    Global $Matrikel = GUICtrlCreateInput("", 520, 280, 249, 21)
    $Button1 = GUICtrlCreateButton("Fertig!", 784, 736, 137, 33)
    GUICtrlSetOnEvent(-1, "Func_1")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
        Sleep(20)
    WEnd

EndFunc   ;==>Start


Func Func_1()





    If GUICtrlRead($Matrikel) = "" Then ;Matrielnummer erzwingen
        MsgBox(0, "Fehler", "Bitte alle Felder ausfüllen!")
    ElseIf GUICtrlRead($Alter) = "" Then ;Alter erzwingen
        MsgBox(0, "Fehler", "Bitte alle Felder ausfüllen!")
    ElseIf GUICtrlRead($male) == GUICtrlRead($female) Then ;Checkboxauswahl erzwingen
        MsgBox(0, "Fehler", "Bitte alle Felder ausfüllen!")
    Else
        IniWrite(@ScriptDir & "\Save\Save.ini", "Identifizierung", "Matrikelnummer", GUICtrlRead($Matrikel))
        IniWrite(@ScriptDir & "\Save\Save.ini", "Demographie", "Alter", GUICtrlRead($Alter))
        If GUICtrlRead($male) = $GUI_CHECKED Then
            IniWrite(@ScriptDir & "\Save\Save.ini", "Demographie", "Geschlecht", "maennlich")
        Else
            IniWrite(@ScriptDir & "\Save\Save.ini", "Demographie", "Geschlecht", "weiblich")
        EndIf
        GUIDelete($Form1_1)
        Func_2()

    EndIf


EndFunc   ;==>Func_1

Func Func_2() ;CODE (verhindern von Fortfahren ohne Versuchsleiter)
    $code = InputBox("Code", "Bitte geben Sie den Code ein um fortzufahren", "")
    If $code == "019" Then
        Anleitung()
    Else
        MsgBox(0, "Fehler", "Falscher Code")
        Func_2()
    EndIf

EndFunc   ;==>Func_2

Anleitung()

Func Anleitung()

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    Opt("GUIOnEventMode", 1)
    $Anleitung = GUICreate("Anleitung", 1001, 801, 192, 124)
    $Im = GUICtrlCreateLabel("Im folgenden werden Sie Tabellen mit '0' und '1' sehen. Ihre Aufgabe ist es, die Anzahl der '1'en zu bestimmen. Sie haben 10 Minuten Zeit um soviele Tabellen wie moeglich zu loesen.", 64, 128, 868, 17)
    $Label1 = GUICtrlCreateLabel("Verbleibende Zeit", 680, 240, 135, 25)
    GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
    $Label2 = GUICtrlCreateLabel("Beispiel", 432, 192, 92, 36)
    GUICtrlSetFont(-1, 18, 800, 0, "Nirmala UI")
    $Label3 = GUICtrlCreateLabel("1010010101", 128, 272, 134, 33)
    GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
    $Label4 = GUICtrlCreateLabel("0101010101", 128, 304, 134, 33)
    GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
    $Label5 = GUICtrlCreateLabel("1101011011", 128, 336, 134, 33)
    GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
    $Label6 = GUICtrlCreateLabel("0110101010", 128, 368, 134, 33)
    GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
    $Label7 = GUICtrlCreateLabel("1111000100", 128, 400, 134, 33)
    GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
    $Loesung = GUICtrlCreateInput("Loesung", 504, 392, 265, 21)
    $Label8 = GUICtrlCreateLabel("Die Aufgabe beginnt mit einem Klick auf folgenden Button:", 344, 592, 279, 17)
    $Button11 = GUICtrlCreateButton("Verstanden", 424, 648, 105, 57)
    GUICtrlSetOnEvent(-1, "Aufgabe_1") ; Funktioniert leider nicht
    GUISetState(@SW_SHOW)

    #EndRegion ### END Koda GUI section ###

    While 1
        Sleep(20)
    WEnd

EndFunc   ;==>Anleitung

Func Aufgabe_1()
    MsgBox(0, "!", "!")
    Exit
EndFunc   ;==>Aufgabe_1