Guten Tag liebe Community,
ich hatte AutoIt vor Jahren entdeckt, einige kleine Projekte damit bewerkstelligt und es dann leider eine ganze Weile wieder vergessen.
Nun bin ich im Studium und muss ein kleines Programm für eine Studie von mir schreiben.
Nach langen Googlesuchen und mit Hilfe des Koda Form Designer habe ich nun den Anfang gemacht.
Erstmal soll das Ganze funktionieren, das Aussehen kommt danach.
Mein Problem ist, dass sich der $Button11 der zweiten GUI ($Anleitung) zwar drücken lääst, aber nicht die nächste Function triggert.
Alleinstehend ohne den Rest des Projektes funktioniert es....
Edit: Da das Highlighting hier anscheinend nicht zu 100% funktioniert ... -> http://pastebin.com/3CQw5ccD
Spoiler anzeigen
#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
Alles anzeigen
P.S.: Ich bin mir sicher, vieles geht besser und einfacher. Für Verbesserungen bin ich immer offen
Danke schonmal,
Nico