VBA Millionenshow
19.06.2015 17:08:28
Markus
Da man das sicherlich auf mehrere Wege programmieren kann erkläre ich euch wie ich es bis jetzt gemacht habe.
Ich habe eine MultiPage mit 15 Pages, die am Anfang alle Ausgeblendet sind. Drückt man nun auf Start, wird die Erste Mulitpage mit Frage 1 eingeblendet und ausgewählt
Private Sub cmdStart_Click()
Me.MultiPage1.Pages(0).Visible = True
Me.MultiPage1.value = 0
End Sub
Die Antwortmöglichkeiten habe ich jeweils von A bis D mit CommandButtons erstellt.
Drückt man den Richtigen der 4 CommandButtons kommt man weiter auf die 2. Seite der MultiPage zur nächsten Frage, die wiederum eigene CommandButtons zum Antworten hat.
Soweit ist das ganze natürlich kein Problem und relativ easy, allerdings komme ich nun zu den Jokern.
50/50 Joker ist auch relativ einfach, es wird der Button Gedrückt werden einfach 2 CommandButtons ausgeblendet --> hier das Beispiel für Frage 1 (Antworten C und D werden ausgeblendet) Außerdem werden noch alle anderen 50/50 Chance Buttons bei allen restlichen Fragen ausgeblendet, um sie nicht nochmal benützen zu können.
Hier noch kurz die Erklärung für meine Bezeichnungen
cmd(CommandButton)1(Frage 1)5050(50/50 Chance)
cmd(CommandButton)1(Frage 1)c(Antwort C)
Private Sub cmd15050_Click()
Me.cmd1c.Visible = False
Me.cmd1b.Visible = False
With Me
.cmd15050.Visible = False
.cmd25050.Visible = False
.cmd35050.Visible = False
usw.
.cmd155050.Visible = False
End With
End Sub
Aber nun komme ich zu meiner Schwierigkeit. Der "2. Chance" Button.
Genau wie für die 50/50 Chance habe ich für jede Frage einen eigenen 2. Chance Button. --> cmd12chance, cmd22chance, cmd32chance .... usw
Leider habe ich momentan noch keine Ahnung wie ich an die Sache rangehen soll. Auf jeden fall, wenn ich den Button drücke, sollte ich, falls ich beim ersten Mal die Falsche Antwort wähle, nochmal probieren können.
Das müsste ich dann eben bei jeder Frage eintragen, dass sich alle anderen Buttons ausbleden wenn er gedrückt wird, sollte ja dann wieder kein problem sein.
Habt ihr Ansätze wie das geht? oder könnt ihr mir da irgendwie helfen?
Zur Info, wir müssen das Programm nicht mit Jokern programmieren, der Lehrer sah es mehr als "Zusatzaufgabe", also nicht das ihr denkt ich will hier dass ihr mir die Hausübung erledigt.