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:

Print Services are Important for Business

This article is represent on Print Services are Important for Business. Print services can allow you lower expense coast in connection with your business which enable it to let you achieve profitable business production. In business world choosing like companies is becoming pattern presently to i.....

Six Convenient Ways Of Backing Up Data

Data  backup is very essential these days whether anyone operates a profitable business or not. A great deal of information will be located on personal computers since papers, pictures, fiscal data, new music or video clip data, and so on and if at all missing, it may create plenty of difficulti.....

Discuss on Data Digitization

This article can be characterize with Data Digitization. In this article you will discover the way organizations can be benefited through beneficial facts digitization method. Businesses have different streams associated with facts spread all over departments and so they come across enormous diff.....

Discuss on Hard Drive Recovery

Computer end users normally retailer the info within hard drives, storage sticks as well as thumb hard disks. But, technical material can create mess  at any time, at any place. During those times, you have to locate rapid alternative being a minor hold up can easily hinder your hard work regard.....

Recover Data Files from RAW drive

This short article is usually signify upon Recover Data Files from RAW drive. IIf raw drive is corrupted then its show Abort, Retry, Fail or “Sector not found” or “The disk in drive (X) is not formatted. Do you want to format it now?” A new drive  becomes RAW drive can be.....