Hej Anders (og andre der måtte læse med),
nu har jeg studeret koden og forsøgt at udvikle den lidt. Jeg vil gerne
have, at den - når den udregner scoren - under hvert spørgsmål skriver det
rigtige svar inden den fortæller brugeren om han har svaret rigtigt eller
forkert. Det har jeg forsøgt at skrive ind i koden, men jeg har ikke de
nødvendige færdigheder for at få det til at virke. Her står der bare
zz
der hvor det rigtige svar skulle have stået, og dette rigtige svar kan man
jo finde under spørgsmålene, idet det er det svar der har 1 efter sig.
Men hvordan får man testen til at udskrive netop dette svar som en variabel,
der hvor
zz står nu ?
v.h.
Jakob Munck
Her er koden, der virker perfekt:
<%
Dim Questions, Action
point = 0
Questions = Array(_
Array("1. Hvad er en TFT-skærm?", _
"En flad skærm", 1,_
"Et underlag til tastaturet", 0,_
"En sort skærm", 0), _
Array("2. Hvad betyder ROM?", _
"Random One Memory", 0,_
"Read Only Memory", 1,_
"Relay Osxy Modem", 0), _
Array("3. Hvad betyder det at ""rebote"" en computer?", _
"At genstarte den", 1,_
"At installere ny software", 0,_
"At installere ny harddisk", 0), _
Array("4. Hvad er et Zip-drev?", _
"En straf for piratkopiering", 0,_
"En strømførende væske", 0,_
"Et eksternt lagringsmedium", 1), _
Array("5. Hvad er en ADSL-forbindelse?", _
"En hurtig internetforbindelse", 1,_
"En internetforbindelse, der går over vandet", 0,_
"En trådløs forbindelse", 0), _
Array("6. Hvad hed den første computer der anvendte mus?", _
"AltaVista", 0,_
"Macintosh", 1,_
"Microsoft", 0), _
Array("7. Hvad menes med at software er open source?", _
"At det ikke virker", 0,_
"At det er gratis", 0,_
"At koden kan ses og videreudvikles af alle", 1), _
Array("8. Hvordan måler man om en skærm er 17 tommer?", _
"I dybden", 0,_
"Diagonalt over billedfeltet", 1,_
"I højden", 0), _
Array("9. Hvad er et ""motherboard""?", _
"Det centrale kredsløb i computeren", 1,_
"En særlig slags diskette", 0,_
"En chip der styrer tastaturet", 0), _
Array("10. Hvilke af nedenstående styresystemer er gratis?", _
"Windows", 0,_
"Unix", 0,_
"Linux", 1))
Action = LCase(Trim(Request("action")))
If (Action = "") Then
Response.Write "<form action=""quiz.asp"" method=post>"
Response.Write "<input type=hidden name=action value=check>"
For i = 0 To Ubound(Questions)
Question = Questions(i)
Response.Write "<b>" & Server.HtmlEncode(Question(0)) & _
"</b><br>" & vbCrLf
For j = 1 To Ubound(Question) Step 2
Response.Write "<input name=""a" & i & """ type=radio " & _
"value=""" & (j \ 2 + 1) & """>" & _
Server.HtmlEncode(Question(j)) & "<br>" & vbCrLf
Next
Response.Write "<br>" & vbCrLf
Next
response.write "<center><input type='submit' value='Send'>"
response.write " <INPUT type='reset' value='Fortryd'></center>"
Response.Write "</form>"
ElseIf (Action = "check") Then
For i = 0 To Ubound(Questions)
Question = Questions(i)
Response.Write "<b>" & Server.HtmlEncode(Question(0)) & _
"</b><br>" & "Svar: " &
zz & "<br>" & vbCrLf
a = CLng("0" & Request("a" & i))
If (a = 0) Then
Response.Write "Du har ikke svaret<br>"
ElseIf (a < 0) And (a * 2 + 1 > Ubound(Question)) Then
Response.Write "Dette spørgsmål har du svaret underligt på<br>"
ElseIf Question(a * 2) > 0 Then
Response.Write "<font class='lilla11'>Dit svar er rigtigt</font><br>"
Point = Point + Question(a * 2)
Else
Response.Write "Dit svar er forkert<br>"
End If
Response.Write "<br>"
Next
Response.Write "Du fik<font class='roed13b'> " & Point & " </font>point ud
af 10 mulige.<br><br><br><center><A
HREF='../../get2you.asp?mode=tests_viden'
target='_self'>Test-menu</a></center>"
Else
Response.Redirect "quiz.asp"
End If
%>