Printable View
A webpage would ask the name of
the exam taker before he gonna take the exam.
He/she can not take the exam unless he/she will
input his/her name. If the name is given,
he/she can now take the exam; after which,
he/she can now submit his/her answers then the
program will automatically check it. On the
message box, the name of the exam taker will appear,
the number of correct items and his/her average.
PLEASE TNX...
I NEED A CODE
Try something like this:
(not tested code)
Also be aware that you are using vbscript which is not supported by all browsers. Internet Explorer supports it for sure. So it will work on Internet Explorer and compatible browsers only.Code:<html>
<head runat="server">
<title>Untitled Page</title>
<script language="vbscript" type="text/vbscript" >
Sub btnSubmit_Click()
If Trim(form1.TextBox1.value) ="" Then
MsgBox "Please enter your name."
Exit Sub
End If
form1.submit()
End Sub
</script>
</head>
<body>
<form id="form1" action="MyPage.asp">
<div>
<input type="text" id="TextBox1" name="TextBox1" />
<input type="button" name="btnSubmit" value="Submit" onclick="btnSubmit_Click" />
</div>
</form>
</body>
</html>
thankz for the help sir..
how about a quiz that needs to answer using radio..
just 5 example question and automatically check the answer if the submit button is click..
tnx
You can put 5 radio buttons (<input type="radio" >). Then on submit you will check in server side code whether it is the correct answer, either by connecting to database or file etc. Depends on where you have the correct answers stored.
can you give me a code sir?
please..i tried all my best but i cant get it..
a html that like a online quiz that has radio and have minimum of 5 question then if the submit button is clicked..theres a pop up says the name of the exam taker and the correct answers got .
please sir.
No please.
We don't have a practice here of coding on the behalf of the programmer. We only help them to get through their problems they face while coding.
Instead of asking for code, it would be appreciated if you just try on your own and construct something. Show it here and we will be glad to help you with the problem you have with it.
OK HERE
my problem is to get the number of correct items and his/her average.Code:<HTML>
<HEAD>
<TITLE> Gabriel's IQ Test </TITLE>
<style type="text/css">
body
{
background-image:url('http://dl.img.qj.net/uploads/files_module/screenshots/253_PSP-background-thor64.jpg');
background-repeat:no-repeat;
background-attachment:fixed;
background-position:center;
}
h1 {text-decoration:bold,underline}
h2 {text-decoration:underline}
h3 {text-decoration:underline}
h4 {text-decoration:blink}
</style>
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
Option Explicit
Sub btnSubmit_Click()
dim name
name = document.form1.TextBox1.value
If Trim(form1.TextBox1.value) ="" Then
MsgBox "Please enter your name.",16
else
MsgBox "Hi " &name&"!! You may now take the quiz"
Exit Sub
End If
End Sub
Sub cmdSubmit_OnClick()
Dim i, strChoice1, strChoice2, strChoice3, strChoice4, strChoice5, name, total,average
dim choice1,choice2,choice3,choice4,choice5
name = document.form1.TextBox1.value
For i = 0 to window.frmData.number1.length-1
If window.frmData.number1(i).checked=True Then
strChoice1 = window.frmData.number1(i).Value & chr(13)
choice1 = 1
End If
next
For i = 0 to window.frmData.number2.length-1
If window.frmData.number2(i).checked=True Then
strChoice2 = window.frmData.number2(i).Value & chr(13)
choice2 = 1
End If
Next
For i = 0 to window.frmData.number3.length-1
If window.frmData.number3(i).checked=True Then
strChoice3 = window.frmData.number3(i).Value & chr(13)
choice3 = 1
End If
Next
For i = 0 to window.frmData.number4.length-1
If window.frmData.number4(i).checked=True Then
strChoice4 = window.frmData.number4(i).Value & chr(13)
choice4 = 1
End If
Next
For i = 0 to window.frmData.number5.length-1
If window.frmData.number5(i).checked=True Then
strChoice5 = window.frmData.number5(i).Value & chr(13)
choice5 = 1
End If
total = choice1 + choice2 + choice3 + choice4 + choice5
average = total/ 5*100
Next
if name = "" then
MsgBox "You should Enter your Name!!!",16
else
MsgBox " Hi "&name&" you're result is: "&total&chr(13)& chr(13) & strChoice1 & chr(13) & strChoice2 & chr(13) & strChoice3 & chr(13) & strChoice4 & chr(13) & strChoice5 & chr(13)& chr(13) &"Total average is: "& average
end if
End Sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBSCRIPT">
sub gab1 ()
dim name
name = document.form1.TextBox1.value
if name="" then
msgbox "Ooppss! You must enter your name first!",16
end if
end sub
</script>
</HEAD>
<BODY >
<H1> <CENTER> IQ TEST </CENTER> </H1>
<center><img src="http://bryanking.net/wp-content/uploads/2009/03/intelligence_quotient_iq.jpg" width=200 height=200 border=4></center>
<H3> <CENTER> By: Gabriel </CENTER></H3>
<H4> <CENTER> (Intelligence Quotient Questions) </CENTER> </H4>
<form name=form1>
<font color="RED" face="PAPYRUS"><p align="center"><b>Enter you Name to Continue:</b> </font></br></br><input type="text" id="TextBox1" name="TextBox1" />
<input type="button" name="btnSubmit" value="Submit" onclick="btnSubmit_Click" /><INPUT TYPE=RESET>
</form>
<HR>
<font color="red">
<h2>QUESTIONS</h2>
<H4>1.)If you pass the 2nd person in a race what will You be coming?</p> </H4>
<FORM NAME=frmData>
<PRE>
<INPUT TYPE=RADIO NAME=number1 onclick="gab1" VALUE="1.) Wrong!" CHECKED> 1st
<INPUT TYPE=RADIO NAME=number1 onclick="gab1" VALUE="1.) Correct!(you should be the 2nd)"> 2nd
<INPUT TYPE=RADIO NAME=number1 onclick="gab1" VALUE="1.) Wrong!"> 3rd
<HR>
<H4>2.) Mary's father had 5 children:
Mama
Meme
Mimi
Momo
What was the 5th child's name? </H4>
<INPUT TYPE=RADIO NAME=number2 onclick="gab1" VALUE="2.) Wrong!" CHECKED> Mumu
<INPUT TYPE=RADIO NAME=number2 onclick="gab1" VALUE="2.) Correct!(Mary's Father)"> Mary
<INPUT TYPE=RADIO NAME=number2 onclick="gab1" VALUE="2.) Wrong! "> Marie
<HR>
<H4>3.) Some months have 30 days, some months have 31 days. How many months have 28 days?</H4>
<INPUT TYPE=RADIO NAME=number3 onclick="gab1" VALUE="3.) Wrong!" CHECKED> 2
<INPUT TYPE=RADIO NAME=number3 onclick="gab1" VALUE="3.) Wrong!"> 6
<INPUT TYPE=RADIO NAME=number3 onclick="gab1" VALUE="3.) Correct!(All, Every month has atleast 28 days)"> 12
<HR>
<H4>4.) If you had only one match and entered a COLD and DARK room, where there was an oil heater, an oil lamp and a candle,</br> which would you light first?</H4>
<INPUT TYPE=RADIO NAME=number4 onclick="gab1" VALUE="4.) Correct!(the match should be to light first)" CHECKED> The Match
<INPUT TYPE=RADIO NAME=number4 onclick="gab1" VALUE="4.) Wrong!"> Oil lamp
<INPUT TYPE=RADIO NAME=number4 onclick="gab1" VALUE="4.) Wrong"> Candle
<HR>
<H4>5.) How many animals of each species did Moses take with him in the Ark?</H4>
<INPUT TYPE=RADIO NAME=number5 onclick="gab1" VALUE="5.) Correct!(None. It was Noah, not Moses)" CHECKED> 0
<INPUT TYPE=RADIO NAME=number5 onclick="gab1" VALUE="5.) Wrong!"> 1
<INPUT TYPE=RADIO NAME=number5 onclick="gab1" VALUE="5.) Wrong!"> 2
<HR>
<p><INPUT TYPE=BUTTON VALUE="Check!" NAME="cmdSubmit"> <INPUT TYPE=RESET>
</PRE>
</FORM>
</BODY>
<HTML>
and display it here
Code:MsgBox " Hi "&name&" you're result is: "&total&chr(13)& chr(13) & strChoice1 & chr(13) & strChoice2 & chr(13) & strChoice3 & chr(13) & strChoice4 & chr(13) & strChoice5 & chr(13)& chr(13) &"Total average is: "& average
thankzzzzz
See and correct the highlighted linges in your code. We need to conditionally set that value only if the correct answer was guessed.
Code:Sub cmdSubmit_OnClick()
Dim i, strChoice1, strChoice2, strChoice3, strChoice4, strChoice5, name, total,average
dim choice1,choice2,choice3,choice4,choice5
name = document.form1.TextBox1.value
For i = 0 to window.frmData.number1.length-1
If window.frmData.number1(i).checked=True Then
strChoice1 = window.frmData.number1(i).Value & chr(13)
If instr(strChoice1,"Wrong!")=0 Then choice1 = 1
End If
next
For i = 0 to window.frmData.number2.length-1
If window.frmData.number2(i).checked=True Then
strChoice2 = window.frmData.number2(i).Value & chr(13)
If instr(strChoice2,"Wrong!")=0 Then choice2 = 1
End If
Next
For i = 0 to window.frmData.number3.length-1
If window.frmData.number3(i).checked=True Then
strChoice3 = window.frmData.number3(i).Value & chr(13)
If instr(strChoice3,"Wrong!")=0 Then choice3 = 1
End If
Next
For i = 0 to window.frmData.number4.length-1
If window.frmData.number4(i).checked=True Then
strChoice4 = window.frmData.number4(i).Value & chr(13)
If instr(strChoice4,"Wrong!")=0 Then choice4 = 1
End If
Next
For i = 0 to window.frmData.number5.length-1
If window.frmData.number5(i).checked=True Then
strChoice5 = window.frmData.number5(i).Value & chr(13)
If instr(strChoice5,"Wrong!")=0 Then choice5 = 1
End If
Next
total = choice1 + choice2 + choice3 + choice4 + choice5
average = total/ 5*100
if name = "" then
MsgBox "You should Enter your Name!!!",16
else
MsgBox " Hi "&name&" you're result is: "&total&chr(13)& chr(13) & strChoice1 & chr(13) & strChoice2 & chr(13) & strChoice3 & chr(13) & strChoice4 & chr(13) & strChoice5 & chr(13)& chr(13) &"Total average is: "& average
end if
End Sub
Since you are repeating the loops, you can also reduce the code by putting it in a separate function.
e.g.
Code:Sub cmdSubmit_OnClick()
Dim i, strChoice1, strChoice2, strChoice3, strChoice4, strChoice5, name, total,average
dim choice1,choice2,choice3,choice4,choice5
name = document.form1.TextBox1.value
strChoice1 = GetCheckedItem(window.frmData.number1)
strChoice2 = GetCheckedItem(window.frmData.number2)
strChoice3 = GetCheckedItem(window.frmData.number3)
strChoice4 = GetCheckedItem(window.frmData.number4)
strChoice5 = GetCheckedItem(window.frmData.number5)
If instr(strChoice1,"Wrong!")=0 Then choice1 = 1
If instr(strChoice2,"Wrong!")=0 Then choice2 = 1
If instr(strChoice3,"Wrong!")=0 Then choice3 = 1
If instr(strChoice4,"Wrong!")=0 Then choice4 = 1
If instr(strChoice5,"Wrong!")=0 Then choice5 = 1
total = choice1 + choice2 + choice3 + choice4 + choice5
average = total/ 5*100
if name = "" then
MsgBox "You should Enter your Name!!!",16
else
MsgBox " Hi "&name&" you're result is: "&total&chr(13)& chr(13) & strChoice1 & chr(13) & strChoice2 & chr(13) & strChoice3 & chr(13) & strChoice4 & chr(13) & strChoice5 & chr(13)& chr(13) &"Total average is: "& average
end if
End Sub
Function GetCheckedItem(theControl)
Dim i
For i = 0 to theControl.Length - 1
If theControl(i).Checked = True Then
GetCheckedItem = theControl(i).Value
Exit For
End If
Next
End Function
Or still better using arrays:
Code:Sub cmdSubmit_OnClick()
Dim i, name, total,average, strChoice(5)
strChoice(1) = GetCheckedItem(window.frmData.number1)
strChoice(2) = GetCheckedItem(window.frmData.number2)
strChoice(3) = GetCheckedItem(window.frmData.number3)
strChoice(4) = GetCheckedItem(window.frmData.number4)
strChoice(5) = GetCheckedItem(window.frmData.number5)
For i = 1 To 5
If instr(strChoice(i), "Wrong!") = 0 Then total = total + 1
Next
average = total/ 5*100
name = document.form1.TextBox1.value
If name = "" then
MsgBox "You should Enter your Name!!!",16
Else
MsgBox " Hi " & name & " you're result is: " & total & chr(13) & chr(13) & _
strChoice(1) & chr(13) & _
strChoice(2) & chr(13) & _
strChoice(3) & chr(13) & _
strChoice(4) & chr(13) & _
strChoice(5) & chr(13) & chr(13) & _
"Total average is: " & average
End If
End Sub
Function GetCheckedItem(theControl)
Dim i
For i = 0 to theControl.Length - 1
If theControl(i).Checked = True Then
GetCheckedItem = theControl(i).Value
Exit For
End If
Next
End Function
:check:
thank you sooooooooo much sir :D :thumb: :thumb:
sir i want to add comment on his/her average but where should i put this codes
Code:if average = 0 then
MsgBox "Under 70 - Definite feeble-mindedness"
else if average = 20 then
MsgBox "80 - 90 - Dullness"
else if average = 40 then
MsgBox "90 - 109 - Normal or Average Intelligence"
else if average = 60 then
MsgBox "110 - 119 - Superior Intelligence"
else if average = 80 then
MsgBox "120 - 140 - Very Superior Intelligence"
else if average = 100 then
MsgBox "Over 140 - Genius or near genius"
Code:Sub cmdSubmit_OnClick()
Dim i, name, total,average, strChoice(5), result
strChoice(1) = GetCheckedItem(window.frmData.number1)
strChoice(2) = GetCheckedItem(window.frmData.number2)
strChoice(3) = GetCheckedItem(window.frmData.number3)
strChoice(4) = GetCheckedItem(window.frmData.number4)
strChoice(5) = GetCheckedItem(window.frmData.number5)
For i = 1 To 5
If instr(strChoice(i), "Wrong!") = 0 Then total = total + 1
Next
average = total/ 5*100
Select Case average
Case 0
result = "Under 70 - Definite feeble-mindedness"
Case <= 20
result = "80 - 90 - Dullness"
Case <= 40
result = "90 - 109 - Normal or Average Intelligence"
Case <= 60
result = "110 - 119 - Superior Intelligence"
Case <= 80
result = "120 - 140 - Very Superior Intelligence"
Case <= 100
result = "Over 140 - Genius or near genius"
End Select
name = document.form1.TextBox1.value
If name = "" then
MsgBox "You should Enter your Name!!!",16
Else
MsgBox " Hi " & name & " you're result is: " & total & chr(13) & chr(13) & _
strChoice(1) & chr(13) & _
strChoice(2) & chr(13) & _
strChoice(3) & chr(13) & _
strChoice(4) & chr(13) & _
strChoice(5) & chr(13) & chr(13) & _
"Total average is: " & average & chr(13) & _
"Result: " & result
End If
End Sub
Function GetCheckedItem(theControl)
Dim i
For i = 0 to theControl.Length - 1
If theControl(i).Checked = True Then
GetCheckedItem = theControl(i).Value
Exit For
End If
Next
End Function
can you do it in else if statement?..
please..thankzzzz
When we have one variable and want to check it against multiple values, it is best to use Select..Case.
But anyways, you can use If..Else too. Here is how to do it:
Code:Sub cmdSubmit_OnClick()
Dim i, name, total,average, strChoice(5), result
strChoice(1) = GetCheckedItem(window.frmData.number1)
strChoice(2) = GetCheckedItem(window.frmData.number2)
strChoice(3) = GetCheckedItem(window.frmData.number3)
strChoice(4) = GetCheckedItem(window.frmData.number4)
strChoice(5) = GetCheckedItem(window.frmData.number5)
For i = 1 To 5
If instr(strChoice(i), "Wrong!") = 0 Then total = total + 1
Next
average = total/ 5*100
If average = 0 then
result = "Under 70 - Definite feeble-mindedness"
else if average <= 20 then
result = "80 - 90 - Dullness"
else if average <= 40 then
result = "90 - 109 - Normal or Average Intelligence"
else if average <= 60 then
result = "110 - 119 - Superior Intelligence"
else if average <= 80 then
result = "120 - 140 - Very Superior Intelligence"
else if average <= 100 then
result = "Over 140 - Genius or near genius"
End If
name = document.form1.TextBox1.value
If name = "" then
MsgBox "You should Enter your Name!!!",16
Else
MsgBox " Hi " & name & " you're result is: " & total & chr(13) & chr(13) & _
strChoice(1) & chr(13) & _
strChoice(2) & chr(13) & _
strChoice(3) & chr(13) & _
strChoice(4) & chr(13) & _
strChoice(5) & chr(13) & chr(13) & _
"Total average is: " & average & chr(13) & _
"Result: " & result
End If
End Sub
Function GetCheckedItem(theControl)
Dim i
For i = 0 to theControl.Length - 1
If theControl(i).Checked = True Then
GetCheckedItem = theControl(i).Value
Exit For
End If
Next
End Function
thank you soo much sir :thumb: :D :D
-----------------------------------------------
uhmmm..can you help me about making flowchart?
because i dont have any idea of how to make flow chart
my problem is to make planning step of how to run and use microsoft excel for begginer..
just step by step
please i really need your help..
i dont know where to post this..sorry, :o
Please try to keep one question per thread. Unless the question is an extension of the original topic etc.
So this last question would be best in the Office Development forum. Please post your question in that forum. Thanks :)