Hallo zusammen,
ich habe ein Quiz im PP erstellt. Dies funktioniert mehrheitlich sehr gut. Auf einer folie kann die Antwort/en mittels Checkboxen angeklickt und dann mittels CommandButton überprüft werden.
Dies mache ich mit dem folgenden Code:
nun habe ich festgestellt dass wenn alle checkboxen angeklickt sind es auch als richtig zählt was ja nicht sein sollte...
also habe ich den Code in der ersten IF-Anweisung angepasst:
nun ist jede Antwort falsch... Könnt ihr mir helfen? Ich weiss nicht mjehr weiter..
Danke!
ich habe ein Quiz im PP erstellt. Dies funktioniert mehrheitlich sehr gut. Auf einer folie kann die Antwort/en mittels Checkboxen angeklickt und dann mittels CommandButton überprüft werden.
Dies mache ich mit dem folgenden Code:
Quellcode
- Private Sub CommandButton1_Click()
- If CB1.Value And CB3.Value And CB4.Value And CB5.Value And CB7.Value And CB8.Value = True Then
- CB1.BackColor = vbGreen
- CB3.BackColor = vbGreen
- CB4.BackColor = vbGreen
- CB5.BackColor = vbGreen
- CB7.BackColor = vbGreen
- CB8.BackColor = vbGreen
- SlideMaster52.Points.Caption = (SlideMaster52.Points.Caption) + 10
- Output = MsgBox("Die Antwort ist richtig, gut gemacht!", vbOKOnly, "RICHTIG")
- Else
- CB1.BackColor = vbGreen
- CB3.BackColor = vbGreen
- CB4.BackColor = vbGreen
- CB5.BackColor = vbGreen
- CB7.BackColor = vbGreen
- CB8.BackColor = vbGreen
- SlideMaster52.Points.Caption = (SlideMaster52.Points.Caption) - 5
- Output = MsgBox("Deine Antwort ist falsch.", vbOKOnly, "FALSCH")
- End If
- CB1.BackColor = &HFFFFC0
- CB3.BackColor = &HFFFFC0
- CB4.BackColor = &HFFFFC0
- CB5.BackColor = &HFFFFC0
- CB7.BackColor = &HFFFFC0
- CB8.BackColor = &HFFFFC0
- ActivePresentation.SlideShowWindow.View.Next
- End Sub
nun habe ich festgestellt dass wenn alle checkboxen angeklickt sind es auch als richtig zählt was ja nicht sein sollte...
also habe ich den Code in der ersten IF-Anweisung angepasst:
nun ist jede Antwort falsch... Könnt ihr mir helfen? Ich weiss nicht mjehr weiter..
Danke!