How to calculate the result in examination system in ASP.NET VB

Question

1.00/5 (1 vote)

See more:

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>

^__b>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

Posted 19-May-17 18:38pm

Member 12186498

Updated 19-May-17 19:54pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2017-05-19T19:44:00

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

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:

C#

private int Double(int value)
   {
   return value * value;
   }

Once you have an idea what might be going wrong, start using teh debugger to find out why. Put a breakpoint on your line:

C#

myaverage.DisplayAverage();

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!