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:

Need a Computer Consultant

The vital objective of this article is to analysis about Computer Consultant.Using the services of a computer consultant who has a large selection of expertise practically in most parts of calculating might be higher priced, nonetheless, that doesn’t necessarily mean that you are specifica.....

Leverage Browser Caching

In the course of display connected with internet pages your browser is actually forced to help fill quite a few issues. These include your CSS data file, ones logo and other methods. In this case, your browser caching only remembers your by now rich methods. This therefore implies that for those .....

Virtualization Storage Solution

Virtualization generally can be allows the particular THIS or even circle owner to be able to slice price tag in addition to resources by simplifying each of the unneeded actions throughout current administration. VMware vSphere basically covers in excess of just virtualization safe-keeping. It&#.....

Audio Transcription

Audio transcription means the particular guide book or even computerized the conversion process regarding audio tracks in to text file format. Audio tracks usually are played out in addition to processed by the transcriber then this transcriber translates the particular audio tracks dialog in to .....

Hybrid Storage

Hybrid storage is really a welcome reduction to electrical power people, THE ITEM operators, digital server web host staff, in addition to CFOs involving business agencies likewise. Injured was battling with storage troubles or perhaps lived with label surprise soon after viewing the prices linke.....