Docstoc

Online Exams

Document Sample
Online Exams Powered By Docstoc
					         Project




       2006-2007

      Submitted By
         Asif Aziz




     Project Guides
   Mr. Indresh Kumar Singh



AAI-DEEMED UNIVERSITY
                      Contents
1. Introduction
2. Objectives
3. Project Type
4. Tools
5. Program Construction
6. Coding
7. Certification
INTRODUCTION
      Visual basic is a windows programming language that has been
developed at Microsoft Corporation. Visual basic is powerful programming
language to develop sophisticated windows programs very quickly.
      Visual basic is one of the RAD (Rapid Application Development) tools
as it enables the programmer to develop application very easily & quickly.
      This project is designed using of Microsoft Visual Basic 6.0, the most
useful software development Program.
      This project is developed using Microsoft Visual Studio 6.0 
Standard.Exe. It is very powerful application to any application or software
      E-Exams is an application to examine your knowledge like
Geography, History, and also general knowledge. There are two options to
check your skill just follow easy steps and enjoy. This application saves your
time and money both, because in these days no body has time to spend his
time in manually, so E-Exam is a great opportunity for you. It is
recommended to give all answers in 10 Minutes because after this time the
application will close automatically and will show your result so be very
careful abut time.
OBJECTIVES
      The objective of our project is to check the students mind
electronically. By this project we can check our self. In this application there
are many forms linked to each other, and they all contains all type of
questions. This Application has two type of skills first is High school or
intermediately and other is Graduate level. If you choose Intermediate you
will see pages with optional questions, where you will select any one answer
of them. If you will Choose Graduation level you will find Input box to Type
your answers This application is designed using visual basic.
      This project contains very powerful tools of Microsoft visual basic as
like Text box, Command buttons, labels, and other tools.

project

      Project is a group of related files, typically all the files required to
develop a software component. Files can be grouped within a project to
create subprojects. Projects can be defined in any way meaningful to the
user(s). For example, one project per version, or one project per language.
Projects tend to be organized in the same way as file directories.
PROJECT TYPE
      E-Exams is an application to examine your knowledge like
Geography, History, and also general knowledge. There are two options to
check your skill just follow easy steps and enjoy. This application saves your
time and money both, because in these days no body has time to spend his
time in manually, so E-Exam is a great opportunity for you.Because of it’s
easy step it takes no more time and errors.

       A Visual Basic Application project is an project that automatically sets

the correct references you need to access the designer for your application
and the appropriate toolbox tab and controls.

      Visual Basic automatically inserts a designer into the project and
displays it on the screen when you open this project type. The designer
corresponds to a single application and acts as the base on which you
create its user interface. If you want to include more than one page in your
application, you can insert additional designers into your project.
TOOLS
Visual Basic

         Visual Basic is the fastest and easiest way to create applications for
Microsoft® Windows. Visual Basic provides a complete set of tools to
simplify rapid application development, whether you are an experienced
developer or new to Windows programming. You can take advantage of
these tools to create a small utility for yourself or your work group, a large
enterprise-wide system, or even a distributed application that spans the
globe via the Internet.

         Tools provides us the various methods that could be used &
environment guise a platform to the work in the project language is Visual
Basic. We can not think of any attractive presentation without the help of
tools.
         There are many tools used here to create this application, some are
describes below:-
   1. Text Box
   2. Command Buttons
   3. Labels


   Text Box:-       A text box (also referred to as an edit control) is a
   rectangular control where the user enters or edits text. The text box
   controls provides an area to enter or display text
Command Buttons:-
   A command button, also referred to as a push button, is a control,
commonly rectangular in shape, that includes a label (text, graphic, or
sometimes both), The button control carries out a command or action
when a user choose it. When the user presses the mouse button, the input
focus moves to the button, and the button state changes to its pressed
appearance.
Labels:-
   The label control displays text a user can interact with or modify and
change the caption. You can associate a label with any version of any file
or project. A label can be a string of up to 31 characters. Any of the
following are valid labels: "1.0", "2.01b", "Final Beta", and "Approved
for QA".


Image
   An Image control can display a graphic from a bitmap, icon, or
metafile, as well as enhanced metafile, JPEG, or GIF files. The Image
control uses fewer system resources and repaints faster than a
PictureBox control, but it supports only a subset of the PictureBox
properties, events, and methods. Use the Stretch property to determine
whether the graphic is scaled to fit the control or vice versa. Although
you can place an Image control within a container, an Image control
can't act as a container.
PROGRAM CONSTRUCTION
CODING
          This project contains the number of forms which are describe as per
following:-
   1.     Splash Window Form
   2.     Main Question Form




                             Coding Of Login Form

Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
  Unload Me
End Sub

Private Sub Form_Load()
  lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." &
App.Revision
End Sub

Private Sub Frame1_Click()
  Unload Me
End Sub

Private Sub Timer1_Timer()
Unload Me
Form1.Show

End Sub
                             Coding Of Form 1
Private Sub Command1_Click()
Unload Me
Form2.Show
End Sub

                             Coding Of Form 2

Private Sub Command1_Click()
Unload Me
Form3.Show
End Sub

Private Sub Command2_Click()
Form2.Hide
Form27.Show
End Sub

Private Sub Command3_Click()
Unload Me
Form3.Show
End Sub

                             Coding Of Form 3

Dim msgstyle
Dim msg
Dim time
Dim tim

Private Sub Command1_Click()
If Text1.Text = "" Then
msgstyle = vbOKOnly + vbInformation
msg = MsgBox("Please Enter your name to continue", msgstyle, "Exams")
Text1.SetFocus
Else
quiz.nm = Text1.Text
tim = vbOKOnly + vbInformation
time = MsgBox("Your Time Starts Now !", tim, "time")
Unload Me
Form4.Show
Form4.Option1.Enabled = True
Form4.Option2.Enabled = True
Form4.Option3.Enabled = True
Form4.Command1.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Unload Me
Form2.Show
End Sub


                              Coding Of Form 4

Dim seccount
Dim alert
Dim msg1
Dim msg
Dim alert0

Public Sub Command1_Click()

If Option1.Value = True Then
msg = vbOKOnly + vbExclamation
alert0 = MsgBox("Well done, it's right answer", msg, "Answer")
Form4.Hide
Form5.Show
Form5.Option1.Enabled = True
Form5.Option2.Enabled = True
Form5.Option3.Enabled = True
Form5.Command1.Enabled = True

quiz.mark = 5
Else
quiz.mark = 0

msg1 = vbOKOnly + vbExclamation
alert = MsgBox(" Sorry! Correct answer is " + Option1.Caption, msg1, "Answer")

Form4.Hide
Form5.Show
Form5.Option1.Enabled = True
Form5.Option2.Enabled = True
Form5.Option3.Enabled = True
Form5.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False


End Sub

Private Sub Command2_Click()
End Sub

Private Sub Form_Load()
limit = 5
seccount = limit * 60
Timer1.Enabled = True
End Sub

Private Sub Image1_Click()
Form4.Hide
Form5.Show
Form5.Option1.Enabled = True
Form5.Option2.Enabled = True
Form5.Option3.Enabled = True
Form5.Command1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static seconds
seconds = seconds + 1
If seconds = seccount Then
MsgBox "your time is over"
Timer1.Enabled = False
End
End If
End Sub



                              Coding Of Form 5
Dim msg
Dim alert
Dim alert1
Dim msg2

Private Sub Command1_Click()

If Option2.Value = True Then
msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form5.Hide
Form6.Show
Form6.Option1.Enabled = True
Form6.Option2.Enabled = True
Form6.Option3.Enabled = True
Form6.Command1.Enabled = True

quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark
msg2 = vbOKOnly + vbExclamation
alert1 = MsgBox("Sorry! Correct answer is " + Option2.Caption, msg2, "Answer")
Form5.Hide
Form6.Show
Form6.Option1.Enabled = True
Form6.Option2.Enabled = True
Form6.Option3.Enabled = True
Form6.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub


Private Sub Command2_Click()
Form4.Show
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub



Private Sub Image1_Click()
Unload Me
Form6.Show
Form6.Option1.Enabled = True
Form6.Option2.Enabled = True
Form6.Option3.Enabled = True
Form6.Command1.Enabled = True
End Sub


                              Coding Of Form 6

Dim alert2
Dim msg
Dim alert
Dim msg3

Private Sub Command1_Click()
If Option2.Value = True Then
msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form6.Hide
Form7.Show
Form7.Option1.Enabled = True
Form7.Option2.Enabled = True
Form7.Option3.Enabled = True
Form7.Command1.Enabled = True

quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark

msg3 = vbOKOnly + vbExclamation
alert2 = MsgBox(" Sorry! Correct answer is " + Option2.Caption, msg2, "Answer")
Form6.Hide
Form7.Show
Form7.Option1.Enabled = True
Form7.Option2.Enabled = True
Form7.Option3.Enabled = True
Form7.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Form5.Show
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub

Private Sub Image1_Click()
Form6.Hide
Form7.Show
Form7.Option1.Enabled = True
Form7.Option2.Enabled = True
Form7.Option3.Enabled = True
Form7.Command1.Enabled = True
End Sub



                              Coding Of Form 7

Dim alert
Dim msg
Dim alert3
Dim msg4

Private Sub Command1_Click()
If Option3.Value = True Then

msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form7.Hide
Form8.Show
Form8.Option1.Enabled = True
Form8.Option2.Enabled = True
Form8.Option3.Enabled = True
Form8.Command1.Enabled = True

quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark

msg4 = vbOKOnly + vbExclamation
alert3 = MsgBox("Sorry! Correct answer is " + Option3.Caption, msg2, "Answer")
Form7.Hide
Form8.Show
Form8.Option1.Enabled = True
Form8.Option2.Enabled = True
Form8.Option3.Enabled = True
Form8.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Form6.Show
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub

Private Sub Image1_Click()
Form7.Hide
Form8.Show
Form8.Option1.Enabled = True
Form8.Option2.Enabled = True
Form8.Option3.Enabled = True
Form8.Command1.Enabled = True
End Sub



                               Coding Of Form 8
Dim alert4
Dim msg5

Private Sub Command1_Click()

If Option1.Value = True Then
msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form8.Hide
Form9.Show
Form9.Option1.Enabled = True
Form9.Option2.Enabled = True
Form9.Option3.Enabled = True
Form9.Command1.Enabled = True

quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark

msg5 = vbOKOnly + vbExclamation
alert4 = MsgBox("Sorry! Correct answer is " + Option1.Caption, msg2, "Answer")
Form8.Hide
Form9.Show
Form9.Option1.Enabled = True
Form9.Option2.Enabled = True
Form9.Option3.Enabled = True
Form9.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Form7.Show
End Sub

Private Sub Image1_Click()
Form8.Hide
Form9.Show
Form9.Option1.Enabled = True
Form9.Option2.Enabled = True
Form9.Option3.Enabled = True
Form9.Command1.Enabled = True
End Sub
                              Coding Of Form 9
Dim alert5
Dim msg6

Private Sub Command1_Click()

If Option3.Value = True Then
msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form9.Hide
Form10.Show
Form10.Option1.Enabled = True
Form10.Option2.Enabled = True
Form10.Option3.Enabled = True
Form10.Command1.Enabled = True
quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark

msg6 = vbOKOnly + vbExclamation
alert5 = MsgBox("Sorry! Correct answer is " + Option3.Caption, msg2, "Answer")
Form9.Hide
Form10.Show
Form10.Option1.Enabled = True
Form10.Option2.Enabled = True
Form10.Option3.Enabled = True
Form10.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Form8.Show
End Sub

Private Sub Image1_Click()
Form9.Hide
Form10.Show
Form10.Option1.Enabled = True
Form10.Option2.Enabled = True
Form10.Option3.Enabled = True
Form10.Command1.Enabled = True
End Sub



                              Coding Of Form 10
Dim alert
Dim msg

Dim alert6
Dim msg7

Private Sub Command1_Click()

If Option1.Value = True Then
msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form10.Hide
Form11.Show
Form11.Option1.Enabled = True
Form11.Option2.Enabled = True
Form11.Option3.Enabled = True
Form11.Command1.Enabled = True
quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark

msg7 = vbOKOnly + vbExclamation
alert6 = MsgBox(" Sorry! Correct answer is " + Option1.Caption, msg2, "Answer")
Form10.Hide
Form11.Show
Form11.Option1.Enabled = True
Form11.Option2.Enabled = True
Form11.Option3.Enabled = True
Form11.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Form9.Show
End Sub

Private Sub Image1_Click()
Form10.Hide
Form11.Show
Form11.Option1.Enabled = True
Form11.Option2.Enabled = True
Form11.Option3.Enabled = True
Form11.Command1.Enabled = True
End Sub



                              Coding Of Form 11
Dim alert
Dim msg
Dim alert7
Dim msg8

Private Sub Command1_Click()

If Option3.Value = True Then
msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form11.Hide
Form12.Show
Form12.Option1.Enabled = True
Form12.Option2.Enabled = True
Form12.Option3.Enabled = True
Form12.Command1.Enabled = True
quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark

msg8 = vbOKOnly + vbExclamation
alert7 = MsgBox(" Sorry! Correct answer is " + Option3.Caption, msg2, "Answer")
Form11.Hide
Form12.Show
Form12.Option1.Enabled = True
Form12.Option2.Enabled = True
Form12.Option3.Enabled = True
Form12.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Form10.Show
End Sub

Private Sub Image1_Click()
Form11.Hide
Form12.Show
Form12.Option1.Enabled = True
Form12.Option2.Enabled = True
Form12.Option3.Enabled = True
Form12.Command1.Enabled = True
End Sub




                              Coding Of Form 12


Dim alert
Dim msg
Dim alert8
Dim msg9

Private Sub Command1_Click()

If Option2.Value = True Then
msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form12.Hide
Form13.Show
Form13.Option1.Enabled = True
Form13.Option2.Enabled = True
Form13.Option3.Enabled = True
Form13.Command1.Enabled = True
quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark

msg9 = vbOKOnly + vbExclamation
alert8 = MsgBox("Sorry! Correct answer is " + Option2.Caption, msg2, "Answer")
Form12.Hide
Form13.Show
Form13.Option1.Enabled = True
Form13.Option2.Enabled = True
Form13.Option3.Enabled = True
Form13.Command1.Enabled = True
End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Form11.Show
End Sub
Private Sub Image1_Click()
Form12.Hide
Form13.Show
Form13.Option1.Enabled = True
Form13.Option2.Enabled = True
Form13.Option3.Enabled = True
Form13.Command1.Enabled = True
End Sub



                              Coding Of Form 13


Dim msg
Dim alert
Dim alert9
Dim msg10

Private Sub Command1_Click()

If Option2.Value = True Then
msg = vbOKOnly + vbExclamation
alert = MsgBox("Well done, it's right answer ", msg, "Answer")
Form13.Hide
Form14.Show
quiz.mark = quiz.mark + 5
Else
quiz.mark = quiz.mark

msg10 = vbOKOnly + vbExclamation
alert9 = MsgBox(" Sorry! Correct answer is " + Option2.Caption, msg2, "Answer")
Form13.Hide
Form14.Show

End If
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Form12.Show
End Sub

Private Sub Image1_Click()
Form13.Hide
Form14.Show
End Sub



                              Coding Of Form 14

Public Sub Form_Load()
Form4.Timer1.Enabled = False
Label2.Caption = quiz.nm
Label4.Caption = quiz.mark
End Sub


                              Coding Of Form 15

Private Sub Command1_Click()
Unload Me
Form16.Show

End Sub

                              Coding Of Form 16

Private Sub Command1_Click()
Unload Me
Form17.Show

End Sub

Private Sub Form_Load()
corans = "TAJMAHAL"
ans = InputBox("India's Most beautiful building ?", "Queston")
If ans = corans Then
Image1.Visible = True

Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = 5
Else
quiz.mark1 = 0
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If

End Sub


                              Coding Of Form 17
Private Sub Command1_Click()
Unload Me
Form18.Show

End Sub

Private Sub Form_Load()
corans = "TAKKA"
ans = InputBox("What is the Currency of Bangladesh ?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If

End Sub

                            Coding Of Form 18

Private Sub Command1_Click()
Unload Me
Form19.Show

End Sub

Private Sub Form_Load()
corans = "GANGA"
ans = InputBox("India's most holy river ?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If

End Sub

                            Coding Of Form 19

Private Sub Command1_Click()
Unload Me
Form20.Show
End Sub

Private Sub Form_Load()
corans = "UDAIPUR"
ans = InputBox("Which City of Rajasthan is called 'Lake City'?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If

End Sub

                              Coding Of Form 20

Private Sub Command1_Click()
Unload Me
Form21.Show

End Sub

Private Sub Form_Load()
corans = "206"
ans = InputBox("How many bones are in the human body ?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If

End Sub

                              Coding Of Form 21

Private Sub Command1_Click()
Unload Me
Form22.Show

End Sub
Private Sub Form_Load()
corans = "750"
ans = InputBox("How many muscles in the human body ?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If

End Sub

                              Coding Of Form 22

Private Sub Command1_Click()
Unload Me
Form23.Show
End Sub

Private Sub Form_Load()
corans = "DOLPHIN"
ans = InputBox("World's most Clever fish ?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If
End Sub


                              Coding Of Form 23

Private Sub Command1_Click()
Unload Me
Form24.Show
End Sub

Private Sub Form_Load()
corans = "HAMLET"
ans = InputBox("In which of shakespeare's play does a king's ghost appear on the
ramparts of a castle ?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If
End Sub

                             Coding Of Form 24

Private Sub Command1_Click()
Unload Me
Form25.Show
End Sub

Private Sub Form_Load()
corans = "GANGA"
ans = InputBox("Kanpur is on the bank of which river ?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If
End Sub


                             Coding Of Form 25

Private Sub Command1_Click()
Unload Me
Form26.Show
End Sub

Private Sub Form_Load()
corans = "HYDERABAD"
ans = InputBox("In which city of India is the Char Minar monument ?", "Queston")
If ans = corans Then
Image1.Visible = True
Label1.Caption = "Congradulation ! Correct Answer - move forward"
quiz.mark1 = quiz.mark1 + 5
Else
quiz.mark1 = quiz.mark1
Image2.Visible = True
Label1.Caption = "Sorry ! Incorrect, right Answer is " + corans
End If
End Sub

                              Coding Of Form 26

Private Sub Command1_Click()
Unload Me
Form28.Show
End Sub

Private Sub Form_Load()
Form4.Timer1.Enabled = False
Label2.Caption = quiz.nm
Label4.Caption = quiz.mark1
End Sub



                              Coding Of Form 27
Dim msgstyle
Dim msg
Dim time
Dim tim

Private Sub Command1_Click()
If Text1.Text = "" Then
msgstyle = vbOKOnly + vbInformation
msg = MsgBox("Please Enter your name to continue", msgstyle, "Exams")
Text1.SetFocus
Else
quiz.nm = Text1.Text
tim = vbOKOnly + vbInformation
time = MsgBox("Your Time Starts Now !", tim, "time")
Unload Me
Form15.Show
End If
End Sub

Private Sub Command2_Click()
Form27.Hide
Form2.Show
End Sub

                              Coding Of Form 28

Private Sub Command1_Click()
Unload Me
Form1.Show
End Sub




             CERTIFICATION
Title:-    The title of the Project is “E-Exams” as it contains all the
procedures of any competitions and this gives you your result as you
finished your exams.

Project

      Project is a group of related files, typically all the files required to
develop a software component. Files can be grouped within a project to
create subprojects. Projects can be defined in any way meaningful to the
user(s). For example, one project per version, or one project per language.
Projects tend to be organized in the same way as file directories
Design:-
       The application starts with a welcome window, where the link of the
page shows with a button, at the first page we can enter our name to
continue, after entering the name another page displays to choose your
education level. If you choose Intermediate you will see pages with optional
questions, where you will select any one answer of them. If you will Choose
Graduation level you will find Input box to give your answers. It is
recommended to give all answers in 10 Minutes because after this time the
application will close automatically and will show your result so be very
careful abut time.

				
DOCUMENT INFO
Shared By:
Tags: Online, Exams
Stats:
views:17
posted:9/16/2012
language:English
pages:34
Description: This Is my Another Book Of Online Multiple Choice Examination Software. India is a developing country and making efforts on every field to make develop it. Mainly Education is the Backbone of every country without well educated people it is impossible to develop the country, so this is the main aim of the India to spread good education in every place of India either in mountains or fields means everywhere. And this is the result of nice planning and of hard work it has a Unique name in the world in Education. As we know that Indian I.T Specialist are the most demand able persons in the world. So many other country are interested in to send there students to India to become a good nationalist. There are lots of colleges in India who are shining this Country. Success is the Key of a good management in every field even in our Life without any well management we can't plan future. It can be understand easily, as a example we can take our Home, in our home we founds normally every thing is allocated in its given places due to of Management, And in other hand Nature is best example for it. Sun always rises from its exact position and sets on its exact position, and many more examples like water cycle, day-night etc.... This is the Management Of The God. So management is important every where also in Industries and Companies too.