## Project on Project Work Using Visual Basic

Subject: Computer | Topics:

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:

Program Coding:

Private Sub Command1_Click()

Dim Fahren, Celcius

Fahren = Text1.Text

Celsius = 5 * (Fahren – 32) / 9

Text2.Text = Celcius

End Sub

Figure: Project Integrated Development Environment

Program 2

Objective:

Calculates the corresponding Miter/Centimeter

Algorithm:

Step- 1) Start

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:

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

Figure: Project Integrated Development Environment

Program 3

Objective:

Calculation of Area of a Circle

Algorithm:

Step- 1) Start

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:

Program Coding:

Private Sub Command1_Click()

Area = R ^ 2 * 22 / 7 Or 3.14

Text2.Text = Area

End Sub

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:

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

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- 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:

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

Figure: Project Integrated Development Environment

### 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.....

### Major Features of the Internet

Major Features of the Internet: 1. The world wide web. 2. E-mail. 3. News 4. Telnet 5. File Transfer Protocol (FTP) 6. Internet Relay Chat (IRC) The World Wide Web The World wide web is a part of the internet, which supports hypertext documents, allowing users to view and nevigate different types.....

### 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 Online 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.....