ONLINE QUIZ SYSTEM

ONLINE QUIZ SYSTEM

AIM:

To develop the online quiz system by using visual basic as front end and MS-access as back end.

PROGRAM ANALYSIS AND PROJECT PLANNING

PURPOSE:

The purpose of the SRS is to fully describe the functionality of online quiz system identified and it also describe non-functional requirements and design control and other factors.

PROJECT SCOPE:

The SRS applies to the online quiz system. Initially the project is going to be implement interact level and later the organization has an idea to upgrade in internet level the project merit in guide.

OBJECTIVES:

§ Easy to use

§ Modern way of learning.

§ Including the students power to answer.

HARDWARE REQUIREMENTS:

1. Intel Motherboard With Pentium Processor

2. RAM 256MB(minimum)

3. Hard disk 40GB(minimum)

SOFTWARE REQUIREMENTS:

1. Microsoft VisualBasic6.0

2. Microsoft Access

3. Rational Rose

SOFTWARE REQUIRMENT ANALYSIS:

OVERALL DESCRIPTION:

The product will take with inspiration auto used system.All the function provide by the students,staff and system administration.

Ø Online Testing.

Ø Random generation of questions.

Ø Multimedia representation of question and answer if needed.

INTENDED AUDIENCE:

· Administrator

· Staff

· Student

PRODUCT FUNCTIONS:

ADMINISTRATOR:

Administrator has ability to register the student to provide user-id and password.

STAFF:

Prepare question for exam and set the parameter add subject,modify the test.

STUDENT:

Under takes online test the must be able to answer the question and get the marks,the students must have a user ID and password

ONLINE QUIZ SYSTEM

USE CASE DIAGRAM:

CLASS DIAGRAM:

SEQUENCE DIAGRAM:

COLLABORATION DIAGRAM:

VB SOURCE CODE

Form1.frm

Dim db As Database

Dim rs As Recordset

Private Sub Command1_Click()

Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF

If Data1.Recordset.Fields(0) = Trim(Text1.Text) Then

If Data1.Recordset.Fields(1) = Trim(Text2.Text) Then

Form2.Show

Unload Me

Else

MsgBox ("Password Is Incorrect")

Exit Do

End If

End If

Data1.Recordset.MoveNext

Loop

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Set db = OpenDatabase("E:\ArunMani - Regrunp\TOTAL COLLECTIONS\Login Backup\CASE PRINTOUT\CASE PRINTOUT\quiz\QUIZ.mdb")

Set rs = db.OpenRecordset("quiz")

End Sub

Form2.frm

Private Sub Command1_Click()

Form1.Show

Unload Me

End Sub

Private Sub Command2_Click()

Form3.Show

Unload Me

End Sub

Private Sub Form_Activate()

Option1.Value = False

Option2.Value = False

Option3.Value = False

End Sub

Private Sub Option1_Click()

Form5.Label3.Caption = Option1.Caption

Form5.Label4.Caption = "wrong"

Form5.Label5.Caption = 0

End Sub

Private Sub Option2_Click()

Form5.Label3.Caption = Option2.Caption

Form5.Label4.Caption = "wrong"

Form5.Label5.Caption = 0

End Sub

Private Sub Option3_Click()

Form5.Label3.Caption = Option3.Caption

Form5.Label4.Caption = "correct"

Form5.Label5.Caption = 5

End Sub

Form3.frm:

Private Sub Command1_Click()

Form2.Show

Unload Me

End Sub

Private Sub Command2_Click()

Form4.Show

Unload Me

End Sub

Private Sub Form_Activate()

Option1.Value = False

Option2.Value = False

Option3.Value = False

End Sub

Private Sub Option1_Click()

Form5.Label6.Caption = Option1.Caption

Form5.Label7.Caption = "wrong"

Form5.Label8.Caption = 0

End Sub

Private Sub Option2_Click()

Form5.Label6.Caption = Option2.Caption

Form5.Label7.Caption = "correct"

Form5.Label8.Caption = 5

End Sub

Private Sub Option3_Click()

Form5.Label6.Caption = Option3.Caption

Form5.Label7.Caption = "wrong"

Form5.Label8.Caption = 0

End Sub

Form4.frm:

Private Sub Command1_Click()

Form3.Show

Unload Me

End Sub

Private Sub Command2_Click()

Form5.Show

Unload Me

End Sub

Private Sub Form_Activate()

Option1.Value = False

Option2.Value = False

Option3.Value = False

End Sub

Private Sub Option1_Click()

Form5.Label9.Caption = Option1.Caption

Form5.Label10.Caption = "Correct"

Form5.Label11.Caption = 5

End Sub

Private Sub Option2_Click()

Form5.Label9.Caption = Option2.Caption

Form5.Label10.Caption = "Wrong"

Form5.Label11.Caption = 0

End Sub

Private Sub Option3_Click()

Form5.Label9.Caption = Option3.Caption

Form5.Label10.Caption = "Wrong"

Form5.Label11.Caption = 0

End Sub

Form5.frm:

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Label13.Caption = Val(Label5.Caption) + Val(Label8.Caption) + Val(Label11.Caption)

If Val(Label13.Caption) >= 10 Then

MsgBox "Congratulations", vbInformation

Else

MsgBox ("Better Luck Next Time")

End If

End Sub

OUTPUT FORM

Login form : (Form1.frm)

Question 1 : (Form2.frm)

Question 2 : (Form3.frm)

Question 3 : (Form4.frm)

Results : (Form5.frm)

RESULT:

Thus the Payroll system was developed by using visual basic in front end and MS-Access in back end.