pls could anyone help me with my final project..im begging u guyz ..tnx en advan
pls help me to Design a program for examination such as Prelim, Midterm, Pre-Final and Final.
Requirements:
1.  Main Form shall contain the following menu:
Types of Exam, Examinee Registration, Exam Result, Help and Exit
•   The type of exam menu consists of submenus as:
Prelim, Midterm, Pre-Final and Final.
•   Whichever exam selected by the user, the said exam from will be displayed with the questions. The type of exam is multiple choices. There five choices for each questions. The choices are represented by radio buttons. There is a next button to be clicked by the user for the next question.
Examinee Registration menu shall input the student id/number, lastname, firstname, middlename, course, year level, score and rating.
2.  The questions and answers to be selected are stored in a database. You will be the one to design the database and the number of tables you want. Every time the next button is clicked, the program will read the database for the next question.
3.  At the end of the exam, the score and equivalent rating shall be recorded in the database corresponding to the registered examinee. The computation for the rating is: Rating =(raw scores/total no. of items)*40+60.
4.  Test items should be at least 10 and maximum of 50. Limit the time for each exam to one hour or below. Therefore, there is a timer displayed  on the form. When the time is already two minutes before the time, a warning message is displayed to inform the examinee that he/she is now running out of the time.
5.  The form design should be readable and simple. Due date for this project is October 7, 2012

We won't do your homework for you. You have to show some effort first. We can help with specific suggestions but you will have to do the majority of the work yourself.

Edited 4 Years Ago by Reverend Jim

Registration:


Dim conn As New OleDb.OleDbConnection
conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = D:\proj\Reg.mdb"
conn.Open()
'Dim logCommand As SqlCommand = conn.CreateCommand
'Dim cmd As OleDbCommand = New OleDbCommand("Insert into Registration values(@StudNo.,@LastName,@FirstName,@MiddleName,@Address,@Course,@YearLevel)", conn)
'cmd.Parameters.AddWithValue("@StudNo.", TextBox1.Text)
'conn.Close()

Dim cmd As OleDbCommand = New OleDbCommand("Registration", conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@StudNo.", OleDbType.VarChar, 60)
cmd.Parameters("@StudNo.").Value = TextBox1.Text
cmd.Parameters.Add("@LastName", OleDbType.VarChar, 70)
cmd.Parameters("@LastName ").Value = TextBox2.Text
cmd.Parameters.Add("@FirstName", OleDbType.VarChar, 40)
cmd.Parameters("@FirstName ").Value = TextBox3.Text
cmd.Parameters.Add("@MiddleName", OleDbType.VarChar, 50)
cmd.Parameters("@MiddleName ").Value = TextBox4.Text
cmd.Parameters.Add("@Address", OleDbType.VarChar, 200)
cmd.Parameters("@Address ").Value = TextBox5.Text
cmd.Parameters.Add("@Course", OleDbType.VarChar, 15)
cmd.Parameters("@Course ").Value = TextBox6.Text
cmd.Parameters.Add("@YearLevel", OleDbType.VarChar, 40)
cmd.Parameters("@YearLevel").Value = Textbox6.Text

'cmd.ExecuteNonQuery()
conn.Close()

Answer and questions:

Public Class StudentQuestions
Dim inc As Integer
Dim MaxRows As Integer
Dim con As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String
Dim Questions As String
Dim radio As String
Dim i As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick

            label_1.Text += 1
            If label_1.Text = 60 Then
                label_1.Text = "00"
                Label_2.Text += 1
            ElseIf Label_2.Text = 60 Then
                Label_2.Text = "0"
                Label_3.Text += 1
            End If

        End Sub


Private Sub NavigatingDatabaseRecords_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = " PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = D:\proj\Ques.mdb""

con.Open()

sql = "Select * from tblQuestions"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "The Test DataBase")

con.Close()
MaxRows = ds.Tables("The Test  DataBase").Rows.Count
inc = -1

End Sub
Private Sub NavigateRecords()
txtQuestion.Text = ds.Tables("The Test DataBase").Rows(inc).Item("Question")
txtAnswerA.Text = ds.Tables("The Test DataBase").Rows(inc).Item("A")
txtAnswerB.Text = ds.Tables("The Test DataBase").Rows(inc).Item("B")
txtAnswerC.Text = ds.Tables("The Test DataBase").Rows(inc).Item("C")
txtAnswerD.Text = ds.Tables("The Test DataBase").Rows(inc).Item("D")
txtAnswerD.Text = ds.Tables("The Test DataBase").Rows(inc).Item("E")
txtCorrectAnswer.Text = ds.Tables("The Test DataBase").Rows(inc).Item("CorrectAnswer")

End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
If inc <> MaxRows - 1 Then
inc = inc + 1
NavigateRecords()
Else
MsgBox("No more questions.")

End If

End Sub

Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
If inc > 0 Then
inc = inc - 1
NavigateRecords()
Else
If inc = -1 Then
MsgBox("No Records Yet")
Else
If inc = 0 Then
MsgBox("First Record")
End If
End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
If inc <> MaxRows - 1 Then
inc = MaxRows - 1
NavigateRecords()
End If
End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
If inc <> 0 Then
inc = 0
NavigateRecords()
End If
End Sub
Registration:


Dim conn As New OleDb.OleDbConnection
conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = D:\proj\Reg.mdb"
conn.Open()
'Dim logCommand As SqlCommand = conn.CreateCommand
'Dim cmd As OleDbCommand = New OleDbCommand("Insert into Registration values(@StudNo.,@LastName,@FirstName,@MiddleName,@Address,@Course,@YearLevel)", conn)
'cmd.Parameters.AddWithValue("@StudNo.", TextBox1.Text)
'conn.Close()

Dim cmd As OleDbCommand = New OleDbCommand("Registration", conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@StudNo.", OleDbType.VarChar, 60)
cmd.Parameters("@StudNo.").Value = TextBox1.Text
cmd.Parameters.Add("@LastName", OleDbType.VarChar, 70)
cmd.Parameters("@LastName ").Value = TextBox2.Text
cmd.Parameters.Add("@FirstName", OleDbType.VarChar, 40)
cmd.Parameters("@FirstName ").Value = TextBox3.Text
cmd.Parameters.Add("@MiddleName", OleDbType.VarChar, 50)
cmd.Parameters("@MiddleName ").Value = TextBox4.Text
cmd.Parameters.Add("@Address", OleDbType.VarChar, 200)
cmd.Parameters("@Address ").Value = TextBox5.Text
cmd.Parameters.Add("@Course", OleDbType.VarChar, 15)
cmd.Parameters("@Course ").Value = TextBox6.Text
cmd.Parameters.Add("@YearLevel", OleDbType.VarChar, 40)
cmd.Parameters("@YearLevel").Value = Textbox6.Text

'cmd.ExecuteNonQuery()
conn.Close()

Answer and questions:

Public Class StudentQuestions
Dim inc As Integer
Dim MaxRows As Integer
Dim con As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String
Dim Questions As String
Dim radio As String
Dim i As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick

            label_1.Text += 1
            If label_1.Text = 60 Then
                label_1.Text = "00"
                Label_2.Text += 1
            ElseIf Label_2.Text = 60 Then
                Label_2.Text = "0"
                Label_3.Text += 1
            End If

        End Sub


Private Sub NavigatingDatabaseRecords_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = " PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = D:\proj\Ques.mdb""

con.Open()

sql = "Select * from tblQuestions"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "The Test DataBase")

con.Close()
MaxRows = ds.Tables("The Test  DataBase").Rows.Count
inc = -1

End Sub
Private Sub NavigateRecords()
txtQuestion.Text = ds.Tables("The Test DataBase").Rows(inc).Item("Question")
txtAnswerA.Text = ds.Tables("The Test DataBase").Rows(inc).Item("A")
txtAnswerB.Text = ds.Tables("The Test DataBase").Rows(inc).Item("B")
txtAnswerC.Text = ds.Tables("The Test DataBase").Rows(inc).Item("C")
txtAnswerD.Text = ds.Tables("The Test DataBase").Rows(inc).Item("D")
txtAnswerD.Text = ds.Tables("The Test DataBase").Rows(inc).Item("E")
txtCorrectAnswer.Text = ds.Tables("The Test DataBase").Rows(inc).Item("CorrectAnswer")

End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
If inc <> MaxRows - 1 Then
inc = inc + 1
NavigateRecords()
Else
MsgBox("No more questions.")

End If

End Sub

Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
If inc > 0 Then
inc = inc - 1
NavigateRecords()
Else
If inc = -1 Then
MsgBox("No Records Yet")
Else
If inc = 0 Then
MsgBox("First Record")
End If
End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
If inc <> MaxRows - 1 Then
inc = MaxRows - 1
NavigateRecords()
End If
End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
If inc <> 0 Then
inc = 0
NavigateRecords()
End If
End Sub
Attachments ccc.png 74.35 KB dcdasa.png 97.95 KB dvfdf.png 131.48 KB sd.png 138.97 KB

What are you expecting? If you've browsed the forum you know that most questions are of the type "how do I...". You haven't mentioned any specific things you are having problems with. All you did was post some screen-shots and a block of code with a vague "help".

This article has been dead for over six months. Start a new discussion instead.