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.
No comments:
Post a Comment