Project on Project Work Using Visual Basic

A Project Work using Visual Basic

Software Used

Visual Basic

Software version

Visual Basic 6.0

Program-1

Objective:

Calculates the corresponding temperature in Celsius or Centigrade

Algorithm:

Step – 1) Start

Step – 2) Read Fahrenheit Temperature

Step – 3) Calculate the corresponding temperature

Step – 4) Display the value of Celsius

Step – 5) Stop

Flow Chart:

Capture

Program Coding:

Private Sub Command1_Click()

Dim Fahren, Celcius

Fahren = Text1.Text

Celsius = 5 * (Fahren – 32) / 9

Text2.Text = Celcius

End Sub

Capture

Figure: Project Integrated Development Environment

Program 2

Objective:

Calculates the corresponding Miter/Centimeter

Algorithm:

Step- 1) Start

Step- 2) Read Feet value

Step- 3) Calculate the corresponding formula and assign those values to Centimeter and meter i.e.            Centimeter = Feet * 30.48,   Meter = Feet * 0.3048

Step- 4) Display the value Centimeter and meter.

Step- 5) Stop

Flow Chart:

Capture

Program Coding:

Private Sub Command1_Click()

Dim Feet, Centimeter, Meter

Centimeter = Feet * 30.48

Meter = Feet * 0.3048

Text2.Text = Centimeter

Text3.Text = Meter

End Sub

Capture

Figure: Project Integrated Development Environment

Program 3

Objective:

Calculation of Area of a Circle

Algorithm:

Step- 1) Start

Step- 2) Read the value of Radius.

Step- 3) Calculate the corresponding value of Area i.e.

Area = R ^ 2 * 22/7 or 3.14

Step- 4) Display the value of Area.

Step- 5) Stop

Flow Chart:

Capture

Program Coding:

Private Sub Command1_Click()

Dim Radious, Area

Radious = Val(Text1.Text)

Area = R ^ 2 * 22 / 7 Or 3.14

Text2.Text = Area

End Sub

Capture

Figure: Project Integrated Development Environment

Program 4

Objective:

Calculation of Area of a Triangle

Algorithm:

Step- 1) Start

Step- 2) Read the value of Length.

Step- 3) Calculate the corresponding value of Area i.e.

Area = 1/ 2 * Length * Height

Step- 4) Display the value of Area.

Step- 5) Stop

Flow Chart:

Capture

Program Coding:

Private Sub Command1_Click()

Dim Length, Height, Area

Length = Val(Text1.Text)

Height = Val(Text2.Text)

Area = 1 / 2 * Length * Height

Text3.Text = Area

End Sub

Capture

Figure: Project Integrated Development Environment

Program 5

Objective:

Summation for 1+2+3+……..=?

Algorithm:

Step- 1) Start

Step- 2) Initialize / Set the value of sum as zero

Step- 3) Read the number

Step- 4) Initialize the value of 1 as one

Step- 5) Read the value of 1 to sum

Step- 6) Add the value of 1 to sum

Step- 7) Increment the value of 1 by one

Step- 8) If 1 is less then or equal to the number then go to Step – 5 else go to Step – 9

Step- 9) Display the value of Sum

Step- 10) Stop

Flow Chart:

Untitled

Program Coding:

Private Sub Command1_Click()

Dim x As Integer

Dim I As Integer

Dim sum As Integer

x = InputBox(“ENTER THE NUMBER”)

For I = 1 To x

sum = sum + I

Next

Text1.Text = Area

End Sub

Capture

Figure: Project Integrated Development Environment

Related Computer Paper:

Popular Computer Paper:

Report on Facebook Information and History

Status Update in Facebook is an innovative offering which will integrate the three most demanding sources of communication of modern life-Face book, Twitter and Cell Phone. By utilizing this service the subscribers will have the privilege to record their status and update it in their profile. Thu.....

Marketing Strategy of Apple Computers Inc.

Introduction Apple was founded by Steven Jobs and Stephen Wozniak in 1976; Apple Computer Company revolutionized the personal computer industry and epitomized the rise of clean industry in the New West. Located in the Santa Clara Valley, in California, the company’s first product was the Ap.....

Report on Online Advertisement and Product Management for Prime Jute Mills Ltd

1.1    Introduction  Of  This  Project: www.primejute.com  is  a  web  site  that  gives  overall  information  about  Prime  Jute  Mills  LTD. Since  modern  age  of  science  is  indirectly  is  an  age  of  computer. It  is  essential  to  utilize  online  c.....

Text Mining on On-Line Bookshop Customer Reviews

As the number of products being sold online increases, it is becoming increasingly difficult for customers to make purchasing decisions based on only pictures and short product descriptions. On the other hand, customer reviews, particularly the text describing the features, comparisons and experi.....

Internship Report on Digital Architects Limited

Introduction In the modern age, academic edification is not enough to enable students to compete with self-assurance and reach his/her ambition without having experience with the real world related applications. Internship is highly needed to expand idea, familiarity and experience. Internship is.....