Hallo ich habe eine Frage. Ich hab so was ähnliches wie ein Quiz gemacht nun ist das problem so:
Wenn ich anfange (Quiz starten) drücke und die erste 10 Punkte frage auswähle dann klappt alles. Einfach falsche oder richtige Antwort ankreuzen und fertig. Aber wenn ich dann auf die 2. 10 Punkte frage klicken will öffnet die sich nicht. (Hab bis jetzt nur 2 Fragen gemacht)
Wenn wir schon dabei sind wisst ihr wie man eine Button löscht wenn die Frage beantwortet wurde also das der nicht mehr da steht oder wie man den zu Erledigt umbennent und wenn man drauf klickt eine MSGbox kommt. Vielen dank
Hier der Script: Passwort ist schule
[autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
FileInstall("fragezeichen300.jpg","fragezeichen300.jpg")
FileInstall("IMG_0137.JPG","IMG_0137.JPG")
$Form1 = GUICreate("Form1", 615, 438, 428, 158)
$Pic1 = GUICtrlCreatePic("fragezeichen300.jpg", 0, 0, 241, 161)
$Label1 = GUICtrlCreateLabel("Teste dich selbst Wer bekommt die Punkte :D", 72, 208, 235, 17)
$Button1 = GUICtrlCreateButton("Quiz Starten", 312, 288, 217, 65)
$dateimenu = GUICtrlCreateMenu("Datei")
$vollversionitem = GUICtrlCreateMenuItem("Vollversion", $dateimenu)
$homepage = GUICtrlCreateMenuItem("Homepage", $dateimenu)
$exititem = GUICtrlCreateMenuItem("Exit", $dateimenu)
$fragemenu = GUICtrlCreateMenu("?")
$aboutitem = GUICtrlCreateMenuItem("About", $fragemenu)
$blablabla = GUICtrlCreateMenuItem("How to", $fragemenu)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aboutitem
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form2 = GUICreate("About", 299, 250, 490, 200)
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
$Image2 = GUICtrlCreatePic("IMG_0137.JPG", 16, 24, 105, 97)
$Label10 = GUICtrlCreateLabel("Quiz", 152, 24, 25, 17)
$Label20 = GUICtrlCreateLabel("Version 1.0", 152, 48, 57, 17)
$Label40 = GUICtrlCreateLabel("Comments: Was gibts da zu sagen :D", 16, 160, 181, 17)
$Label30 = GUICtrlCreateLabel("Lalalal :D", 16, 136, 140, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("&OK", 124, 208, 75, 25, 0)
GUISetState(@SW_SHOW)
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GuiDelete("About")
Case $Button2
GuiDelete("About")
EndSwitch
WEnd
Case $blablabla
MsgBox(0, "Quiz Master", "Was gibts da auf How to zu klicken?!? Einfach Quiz starten!!!")
Case $Button1
[/autoit][autoit][/autoit][autoit][/autoit][autoit]$Form3 = GUICreate("Passwort Dialog", 252, 96, -1, -1)
$PasswordEdit = GUICtrlCreateInput("", 8, 32, 233, 21)
$Button1990 = GUICtrlCreateButton("&OK", 86, 64, 75, 25, $BS_NOTIFY)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, $BS_NOTIFY)
$EnterPassLabel = GUICtrlCreateLabel("Enter Passwort", 8, 12, 77, 17, 0)
GUISetState(@SW_SHOW)
Local $FailLogIn = 0
While 4
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete("Passwort Dialog")
Case $Button1990
if guictrlread($PasswordEdit)="schule" then
GUIDelete("Passwort Dialog")
MsgBox( 64, "Quiz Master", "Passwort richtig! Viel spaß")
$Form2 = GUICreate("Fragen", 491, 325, 94, 92)
$Button11231 = GUICtrlCreateButton("10 Punkte", 8, 8, 105, 49)
$Button1234 = GUICtrlCreateButton("10 Punkte", 128, 8, 105, 49)
$Button312312 = GUICtrlCreateButton("10 Punkte", 248, 8, 105, 49)
$Button41231 = GUICtrlCreateButton("10 Punkte", 368, 8, 105, 49)
$Button512 = GUICtrlCreateButton("25 Punkte", 8, 80, 105, 49)
$Button62312 = GUICtrlCreateButton("25 Punkte", 125, 79, 105, 49)
$Button7312312 = GUICtrlCreateButton("25 Punkte", 246, 81, 105, 49)
$Button812312 = GUICtrlCreateButton("25 Punkte", 372, 79, 105, 49)
$Button912312 = GUICtrlCreateButton("50 Punkte", 11, 145, 105, 49)
$Button122310 = GUICtrlCreateButton("50 Punkte", 125, 144, 105, 49)
$Button123121 = GUICtrlCreateButton("50 Punkte", 249, 143, 105, 49)
$Button11222 = GUICtrlCreateButton("50 Punkte", 368, 141, 105, 49)
$Button12223 = GUICtrlCreateButton("100 Punkte", 11, 218, 105, 49)
$Button13314 = GUICtrlCreateButton("100 Punkte", 136, 218, 105, 49)
$Button1123125 = GUICtrlCreateButton("500 Punkte", 262, 213, 209, 97)
$Button16111 = GUICtrlCreateButton("EXIT", 65, 283, 65, 25)
GUISetState(@SW_SHOW)
While 5
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button16111
$answer = MsgBox(4, "Quiz Master", "Wollen Sie noch abbrechen?")
If $answer = 7 Then
Exit
EndIf
Case $Button1234
$Nico = GUICreate("10 Punkte Frage 'Nana'", 405, 294, 534, 159)
$Erstes = GUICtrlCreateLabel("Gibt es Was zu tun?", 48, 16, 71, 17)
$Check = GUICtrlCreateCheckbox("A: Nein", 16, 88, 113, 17)
$Checkb = GUICtrlCreateCheckbox("B: Ja", 183, 93, 113, 17)
$butto = GUICtrlCreateButton("Absenden", 150,150,80,80)
Case $Button11231
$Form222 = GUICreate("10 Punkte Frage 1x1", 405, 294, 534, 159)
$Label1444 = GUICtrlCreateLabel("Was ist 1 x 1?", 48, 16, 71, 17)
$Checkbox1 = GUICtrlCreateCheckbox("A: 1", 16, 88, 113, 17)
$Checkbox3 = GUICtrlCreateCheckbox("B: 2", 183, 93, 113, 17)
$buttonzu = GUICtrlCreateButton("Absenden", 150,150,80,80)
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 13
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $buttonzu
if bitand(guictrlread($checkbox1),$GUI_CHECKED) then
msgbox(0,"Quiz Master","WooW Richtig! Aber das war noch einfach...")
GUIDelete($Form222)
$file = FileOpen("Rechner.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file, "" & @CRLF)
FileWrite($file, "-----------------------------------------------------" & @CRLF)
FileWrite($file, "Jemand hat 10 Punkte erziehlt!!!" & @CRLF)
FileWrite($file, "Uhrzeit: ")
FileWrite($file, @Hour & ":" & @MIN & ":" & @SEC & @CRLF)
FileWrite($file, "Datum: ")
FileWrite($file, @MDAY & "." & @MON & "." & @YEAR & @CRLF)
FileWrite($file, "WooooW!!!" & @CRLF)
FileWrite($file, "-----------------------------------------------------" & @CRLF)
FileClose($file)
EndIf
if bitand(guictrlread($checkbox3),$GUI_CHECKED) then
msgbox(0,"Quiz Master","Nääääääääd!! Falsch")
GUIDelete($Form222)
$file = FileOpen("Rechner.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file, "" & @CRLF)
FileWrite($file, "-----------------------------------------------------" & @CRLF)
FileWrite($file, "Jemand hat -5 Punkte bekommen!" & @CRLF)
FileWrite($file, "Uhrzeit: ")
FileWrite($file, @Hour & ":" & @MIN & ":" & @SEC & @CRLF)
FileWrite($file, "Datum: ")
FileWrite($file, @MDAY & "." & @MON & "." & @YEAR & @CRLF)
FileWrite($file, "Sehr schlecht!!!!!" & @CRLF)
FileWrite($file, "-----------------------------------------------------" & @CRLF)
FileClose($file)
EndIf
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]EndSwitch
WEnd
EndSwitch
WEnd
Else
$FailLogIn += 1
Switch $FailLogIn
Case 1
MsgBox(64, "Quiz Master", "Sie haben ein falsches Passwort eingegeben",5)
Case 2
MsgBox(64, "Quiz Master", "Sie haben zum 2. mal einen falsches Passwort eingegeben!",5)
Case 3
MsgBox(64, "Quiz Master", "Noch einmal falsches Passwort eingeben und das Programm beendet sich.",5)
Case 4
Exit
EndSwitch
EndIf
EndSwitch
WEnd
EndSwitch
WEnd