如何计算ASP.NET VB中考试系统的结果 [英] How to calculate the result in examination system in ASP.NET VB
问题描述
我们正在开发一个考试系统，但我们的结果不是计算。我不知道是什么问题，但有没有人可以删除这些错误。
这里是我的设计代码： -
We are developing a examination system but our result is not calculating . i don't know what is the problem but is there anyone who can remove the bugs.
here is my design code:-
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="MainExam.aspx.vb" Inherits="Examination_system1.MainExam" %>
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title>Examination System | Exam</title>
<link href="../CSS/buttons.css" rel="stylesheet" type="text/css" />
<link href="../CSS/Content.css" rel="stylesheet" type="text/css" />
<link href="../CSS/Exam.css" rel="stylesheet" type="text/css" />
<link href="../CSS/global.css" rel="stylesheet" type="text/css" />
<link href="../font-awesome/css/font-awesome.css" rel="stylesheet" type="text/css" />
<link href="../CSS/Input.css" rel="stylesheet" type="text/css" />
</head>
<script type = "text/javascript" language="javascript" >
var tim;
var min = 10;
var sec = 60;
var f = new Date();
function f1() {
f2();
}
function f2() {
if (parseInt(sec) > 0) {
sec = parseInt(sec) - 1;
document.getElementById("Label5").innerHTML = "Time Left : " + min + ": " + sec + " Seconds";
tim = setTimeout("f2()", 1000);
}
else {
if (parseInt(sec) == 0) {
min = parseInt(min) - 1;
if (parseInt(min) == 0) {
sec = 60;
document.getElementById("Label5").innerHTML = "Time Left :" + min + " :" + sec + " Seconds";
tim = setTimeout("f2()", 1000);
}
else {
clearTimeout(tim);
location.href = "StudentResult.aspx";
}
}
}
}
</script>
<body onload ="f1()">
<form id="form1" runat="server">
<div>
<div class="header">
<div class="logo">
<a href="#"> Examination System</a>
</div>
</div>
</div>
<div class="container">
<div class="PaperDetail">
<h2>
<asp:Label ID="Label2" runat="server" Text="{Exam Heading}"></asp:Label>
</h2>
<p style=" margin-right : 10px">
<asp:Label ID="Label3" runat="server" Text="{Set BY }"></asp:Label><br />
<asp:Label ID="Label4" runat="server" Text="Max Minutes"></asp:Label>
</p>
<p style="float:right;">
<asp:Label ID="Label5" runat="server" Text="{Timer}" Font-Size="15pt"
ForeColor="#999966"></asp:Label>
</p>
</div>
</div>
<br />
<br />
<div class="questions">
<center>
<asp:GridView runat="server" id="grd" AutoGenerateColumns="false"
CellPadding="3">
<Columns>
<asp:TemplateField HeaderText="Question">
<ItemTemplate>
<asp:Label ID="Label1" runat="server" Text='<%#Eval("Question_ID") %>'></asp:Label> <asp:Label ID="qstn" runat="server" Text='<%#Eval("Question") %>'></asp:Label><br />
<asp:RadioButton ID="rad1" runat="server" Text='<%#Eval("Choice1") %>' GroupName="A" Checked ="false" /><br />
<asp:RadioButton ID="rad2" runat="server" Text='<%#Eval("Choice2") %>' GroupName="A" Checked ="false" /><br />
<asp:RadioButton ID="rad3" runat="server" Text='<%#Eval("Choice3") %>' GroupName="A" Checked ="false" /><br />
<asp:RadioButton ID="rad4" runat="server" Text='<%#Eval("Choice4") %>' GroupName="A" Checked="false" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</center><br />
<br />
<center><asp:Button ID="Button1" runat="server" Text="Submit" class="btn btn-info" /></center>
</div>
<div class="footer">
</div>
</form>
</body>
</html>
What I have tried:
<pre>
and here is my code behind:
<pre>Imports System.Data.OleDb
Imports System.Timers.Timer
Imports System.Data
Public Class MainExam
Inherits System.Web.UI.Page
Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("Client") Is Nothing Then
Response.Redirect("~/Login.aspx")
End If
Dim conn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim cmd1 As New OleDb.OleDbCommand
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Project\Examination_system1\Examination_system1\Db\ExamDb.accdb"
cmd.CommandText = "select * FROM Exam_Question"
cmd.Connection = conn
conn.Open()
cmd.ExecuteNonQuery()
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
If dt.Rows.Count > 0 Then
grd.DataSource = dt
grd.DataBind()
Else
grd.EmptyDataText = "Empty"
End If
'cmd1.CommandText = "Select * from Exam_detail"
'cmd1.Connection = conn
'Dim rdr As OleDbDataReader = cmd1.ExecuteReader()
'rdr.Read()
'Label2.Text = "Subject : " & rdr("Exam_Heading").ToString()
'Label3.Text = "Set By : " & rdr("SetBy").ToString()
'Label4.Text = "Max. Minutes : " & rdr("Exam Timing").ToString() & "Minutes"
'conn.Close()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim conn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim cmd1 As New OleDb.OleDbCommand
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Project\Examination_system1\Examination_system1\Db\ExamDb.accdb"
Dim rw As GridViewRow
Dim rdAns1, rdAns2, rdAns3, rdAns4 As New RadioButton
For Each rw In grd.Rows
Dim str As String
rdAns1 = CType(rw.FindControl("rad1"), RadioButton)
rdAns2 = CType(rw.FindControl("rad2"), RadioButton)
rdAns3 = CType(rw.FindControl("rad3"), RadioButton)
rdAns4 = CType(rw.FindControl("rad4"), RadioButton)
If rdAns1.Checked Then
Str = "A"
ElseIf rdAns2.Checked Then
Str = "B"
ElseIf rdAns3.Checked Then
Str = "C"
ElseIf rdAns4.Checked Then
Str = "D"
cmd1.CommandText = "Insert into AnswerTable Values(@userid,@QuestionID,@Answer)"
cmd1.Parameters.AddWithValue("@userid", Session("Client").ToString())
cmd1.Parameters.AddWithValue("@QuestionID", rw.Cells.Count)
cmd1.Parameters.AddWithValue("@Answer", str.ToString())
cmd1.ExecuteNonQuery()
MsgBox("Record added")
End If
Next
End Sub
End Class
推荐答案
编译并不意味着您的代码是正确的！ ：笑：
将开发过程想象成编写电子邮件：成功编译意味着您使用正确的语言编写电子邮件 - 例如英语而不是德语 - 而不是电子邮件包含您的邮件想发送。
所以现在你进入第二阶段的发展（实际上它是第四或第五阶段，但你将在之后的阶段进入）：测试和调试。
首先查看它的作用，以及它与你想要的有何不同。这很重要，因为它可以为您提供有关其原因的信息。例如，如果程序旨在让用户输入一个数字并将其翻倍并打印答案，那么如果输入/输出是这样的：
Compiling does not mean your code is right! :laugh:
Think of the development process as writing an email: compiling successfully means that you wrote the email in the right language - English, rather than German for example - not that the email contained the message you wanted to send.
So now you enter the second stage of development (in reality it's the fourth or fifth, but you'll come to the earlier stages later): Testing and Debugging.
Start by looking at what it does do, and how that differs from what you wanted. This is important, because it give you information as to why it's doing it. For example, if a program is intended to let the user enter a number and it doubles it and prints the answer, then if the input / output was like this:
Input Expected output Actual output
1 2 1
2 4 4
3 6 9
4 8 16然后很明显问题出在将它加倍的位 - 它不会将自身加到自身上，或者将它乘以2，它会将它自身相乘并返回输入的平方。
所以，你可以查看代码和很明显，它在某处：
Then it's fairly obvious that the problem is with the bit which doubles it - it's not adding itself to itself, or multiplying it by 2, it's multiplying it by itself and returning the square of the input.
So with that, you can look at the code and it's obvious that it's somewhere here:
private int Double(int value)
{
return value * value;
}
一旦你知道可能出现的问题，就开始使用teh调试器找出原因。在你的行上设一个断点：
Once you have an idea what might be going wrong, start using teh debugger to find out why. Put a breakpoint on your line:
myaverage.DisplayAverage();
并运行你的应用程序。在执行代码之前，请考虑代码中的每一行应该做什么，并将其与使用Step over按钮依次执行每一行时实际执行的操作进行比较。它符合您的期望吗？如果是这样，请转到下一行。
如果没有，为什么不呢？它有何不同？
这是一项非常值得开发的技能，因为它可以帮助你在现实世界和发展中。和所有技能一样，它只能通过使用来改善！
是的，我可能会告诉你问题是什么 - 但这并不难做到，你会在同一时间学到一些非常值得的东西！
and run your app. Think about what each line in the code should do before you execute it, and compare that to what it actually did when you use the "Step over" button to execute each line in turn. Did it do what you expect? If so, move on to the next line.
If not, why not? How does it differ?
This is a skill, and it's one which is well worth developing as it helps you in the real world as well as in development. And like all skills, it only improves by use!
Yes, I could probably tell you what "the problem" is - but it's not difficult to do this yourself, and you will learn something really worthwhile at the same time!
这篇关于如何计算ASP.NET VB中考试系统的结果的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
