|
| Hallo Forum
Bei meinem Frage/Antwortspiel habe ich die Möglichkeit auf eine Frage bis zu fünf Antworten zur Verfügung zu stellen. Bei der Auswertung der Antworten habe ich noch mühe! Wenn ich nur eine Antwort zulasse funktioniert das, nun möchte ich aber mehrere Antworten zulassen!
Für eine Antwort habe ich diesen Code verwendet!
Private Sub Weiter_Knopf_Click()
On Error GoTo Err_Weiter_Knopf_Click
Dim weiter As String
'//// Richtige Antworten auswerten!
If Me!KK_1 = True And Me!KK_1 = Me!Richtig_1 Then
m_richtig = m_richtig + 1
ElseIf Me!KK_2 = True And Me!KK_2 = Me!Richtig_2 Then
m_richtig = m_richtig + 1
ElseIf Me!KK_3 = True And Me!KK_3 = Me!Richtig_3 Then
m_richtig = m_richtig + 1
ElseIf Me!KK_4 = True And Me!KK_4 = Me!Richtig_4 Then
m_richtig = m_richtig + 1
ElseIf Me!KK_5 = True And Me!KK_5 = Me!Richtig_5 Then
m_richtig = m_richtig + 1
Else
'// Falsche Antworten farbig darstellen! -----------------
If Me!KK_1 = True And Me!KK_1 = Me!Richtig_1 Then
Me!Antwort_Text_1.ForeColor = RGB(0, 255, 0) ' Grün
ElseIf Me!KK_1 = False And Me!KK_1 <> Me!Richtig_1 Then
Me!Antwort_Text_1.ForeColor = RGB(0, 255, 0) ' Rot
Else
Me!Antwort_Text_1.ForeColor = RGB(255, 0, 0) ' Rot
End If
If Me!KK_2 = True And Me!KK_2 = Me!Richtig_2 Then
Me!Antwort_Text_2.ForeColor = RGB(0, 255, 0) ' Grün
ElseIf Me!KK_2 = False And Me!KK_2 <> Me!Richtig_2 Then
Me!Antwort_Text_2.ForeColor = RGB(0, 255, 0) ' Rot
Else
Me!Antwort_Text_2.ForeColor = RGB(255, 0, 0) ' Rot
End If
If Me!KK_3 = True And Me!KK_3 = Me!Richtig_3 Then
Me!Antwort_Text_3.ForeColor = RGB(0, 255, 0) ' Grün
ElseIf Me!KK_3 = False And Me!KK_3 <> Me!Richtig_3 Then
Me!Antwort_Text_3.ForeColor = RGB(0, 255, 0) ' Rot
Else
Me!Antwort_Text_3.ForeColor = RGB(255, 0, 0) ' Rot
End If
If Me!KK_4 = True And Me!KK_4 = Me!Richtig_4 Then
Me!Antwort_Text_4.ForeColor = RGB(0, 255, 0) ' Grün
ElseIf Me!KK_4 = False And Me!KK_4 <> Me!Richtig_4 Then
Me!Antwort_Text_4.ForeColor = RGB(0, 255, 0) ' Rot
Else
Me!Antwort_Text_4.ForeColor = RGB(255, 0, 0) ' Rot
End If
If Me!KK_5 = True And Me!KK_5 = Me!Richtig_5 Then
Me!Antwort_Text_5.ForeColor = RGB(0, 255, 0) ' Grün
ElseIf Me!KK_5 = False And Me!KK_5 <> Me!Richtig_5 Then
Me!Antwort_Text_5.ForeColor = RGB(0, 255, 0) ' Rot
Else
Me!Antwort_Text_5.ForeColor = RGB(255, 0, 0) ' Rot
End If
Beep
'// Timer Starten -----------------
Dim PauseTime, Start
PauseTime = 1 ' Timer auf eine Sekunde einstellen
Start = Timer ' Start Timer
Do While Timer < Start + PauseTime
DoEvents '
Loop
'// ----------------- Feldfarbe wieder zurücksetzen
Me!Antwort_Text_1.ForeColor = RGB(0, 0, 0) ' Schwarz
Me!Antwort_Text_2.ForeColor = RGB(0, 0, 0) '
Me!Antwort_Text_3.ForeColor = RGB(0, 0, 0) '
Me!Antwort_Text_4.ForeColor = RGB(0, 0, 0) '
Me!Antwort_Text_5.ForeColor = RGB(0, 0, 0) '
'// -----------------
End If
Me.Requery
Exit_Weiter_Knopf_Click:
Exit Sub
Err_Weiter_Knopf_Click:
MsgBox Err.Description
Resume Exit_Weiter_Knopf_Click
End Sub
Das habe ich gerade noch zustande gebracht! Aber ich habe keinen Plan wie ich jetzt ein (Multiple Choice) Auswertung erstellen muss! Hat mir jemand einen Tipp?
Anbei noch die ganze Datei zum Testen!
Mit freundlichen Grüssen
Betz Martin
Anhänge
----------------
 Fragespiel-2000.zip (152KB - 1 downloads)
| |
|