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:

Comparison Between The Best Smartphones

The Purpose of this article is to analysis about Comparison Between The Best Smartphones.Samsung features increased this display screen dimensions from the S4 through 0. 2″ to be able to several. 99″. Even though an increased display screen provides you with additional suitable seeing.....

Building a DIY Computer

The main objective of this article is to analysis about Building a DIY Computer.Building a pc seriously isn’t an easy task. That phone calls for several knowledge inside own field. You have to always be in a position to set up the essential pc factors which will variety a perfect integratio.....

Another Smart Addition

The General purpose of this article is to analysis about Smart Addition.Cell phones, Clever pads, Clever Television sets, SmartWatches, Clever writing instruments and several other smart-gadgets are generally filling up the particular smart-device market place throughout the globe. The forex mark.....

Get Free Web Hosting

The minor objective of this article is to analysis about Free Web Hosting.Currently, a small number of people discover how to get free of free web hosting. Many people are just way too inclined to pay the essential total simply to get their unique paid hosting. The belief that the cost of web hos.....

Cloud Computing Perspectives

The vital objective of this article is to discuss about Cloud Computing .Leaving behind besides the particular engineering for the minute then, let’s consider a lot of the essential difficulties that a small business owner could possibly encounter.To be able to take care of an enterprise pr.....