Question

create an application in VISUAL BASIC that calculates a cars gas mileage. The formula for calculating the miles that a car can travel per gallon of gas is MPG = Miles/Gallon

In the formula MPG is miles-per-gallon, miles is the number of miles that can be driven on a full tank of gas, and gallons is the number of gallons that the tank holds.

The applications form should have TextBox controls that let the user enter the number of gallons of gas the tank holds and the number of miles the car can be driven on a full tank. When the Calculate MPG button is clicked, the application should display the number of miles that the car can be driven per gallon of gas. The form should also have a clear button that clears the input and results, and an EXIT button that ends the application. If the user fails to enter numeric values, display appropriate error message and do not attempt to perform calculations. THe applications form should appear as show below

Miles per Gallon Calculator in the Designer Forml.vb [Design] ㄨ Miles per Gallon Calculator Gallons of gas the car can hold Number of miles it can be driven on a full tank Miles per gallon: Cakulate Use the following set of test data to determine if the application is calculating propdi Gallons Miles Miles per Gallon 10 12 15 375 289 190 37.50 24.08 12.67

Answer 1

Ans:-

"program to generate the miles per gallon calculator.

Public Class formMilesPerGallon

"To compute the mpg value by getting the values from the text boxes

Private Sub btnCalculateMPG_click(sender As Object,e As EventArgs) Handles CalculateMPG.click

"declaration of required variables

Dim numGallons As Double = 0

Dim numMiles As Double = 0

Dim MPG As Double = 0

"To convert the textbox values to doubles

numGallons=Double.Parse(txtNumGallons.Text)

numMiles=Double.Parse(txtNumMiles.Text)

MPG=numMiles/numGallons "Formula to calculate mpg

lblMPG.Text=MPG.ToString("n2") "set mpg value to txtmpg by setting the decimal place to 2

End Sub

"To clear the content of input text boxes.

Private Sub btnClear_Click(sender As Object,e As EventArgs) Handles btnClear.Click  

txtNumGallons.Clear()

txtNumMiles.Clear()

lblMPG.Text=""

End Sub

"To exit from the application if we press the exit buton

Private Sub btnExit_Click(sender As Object,e As EventArgs) Handles btnExit.Click

Me.close()

End Sub

End Class

sample output:-

enter the data in the fields of text boxes as shown below

Miles Per Gallon Calculator Gallons of gas the 10 car can hold: Number of miles it can be driven on a full tank: 375 Miles per gallon: Calculate MPG Clear Exit

Now press the calculate MPG button and the result will be shown as 37.50 at the immediate text box.

And if we press the clear button all data in the text boxes will get erased.

Finally to exit press Exit button.