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
killerSmile 0 Newbie Poster
Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
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.
killerSmile 0 Newbie Poster
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
killerSmile 0 Newbie Poster
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
killerSmile 0 Newbie Poster
now ,can anyone help me for the complete program??
Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
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".
killerSmile 0 Newbie Poster
how will I get the result when the examinee finshed answering the test?
killerSmile 0 Newbie Poster
my program doesnt seem to work when I debugged
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.