Question

Murphy Pizza Palace needs an application to calculate the number of slices of a pizzaof any size can be divided into. The application should do the following:

Allow the user to enter the diameter of the pizza, in inches.

Calculate the number of slices that can be cut from a pizza that size.

Display a message that indicates the number of slices.

To calculate the number of slices that can be cut from the pizza, you must know the following facts:

Each slice should have an area of 14.125 square inches.

To calculate the number of slices, divide the area of the pizza by 14.125.

The area of the pizza is calculated with the following formula:????=??2Where ?=3.14159and ?is the radius of the pizza. Note that ?=2?

Input validation:If the user fails to enter numeric values, display an appropriate message in a StatusStrip and do not attempt to perform calculations.

using Visual Basic IDE

Answer 1

Dear Student ,

As per the requirement submitted above , kindly find the below solution.

Here a new Windows Forms Application in VB is created using Visual Studio with name "MurphyPizzaApp".This application contains a form with name "Form1.vb".Below are the files associated with form1.

1.Form1.vb[Design]

2.Form1.vb

Public Class Form1
'Calculate number of slice button click
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
'declaring variable to store diameter of pizza
Dim pizzaDiameter As Double
'checking pizza diameter entered by user in the textbox
If Double.TryParse(txtPizzaDiameter.Text, pizzaDiameter) Then
'clear ToolStripStatusLabel text
ToolStripStatusLabel1.Text = ""
'finding radius from pizza diameter d=2r
Dim radius As Double = pizzaDiameter / 2
'then finding area of pizza using formula Area=PI*r*r
Dim area As Double = Math.PI * radius * radius
'calculating the number of slices, divide the area of the pizza by 14.125.
lblResult.Text = "Number of slices : " & (area / 14.125).ToString("0.00")
Else
'when user fails to enter numeric values
ToolStripStatusLabel1.Text = "enter valid value for pizza diameter"
End If
End Sub
End Class

======================================================

Output : Run application using F5 and will get the screen as shown below

Screen 1 :

Screen 2:Screen for non numeric pizza diameter

Screen 3:Screen showing number of slices

NOTE : PLEASE FEEL FREE TO PROVIDE FEEDBACK ABOUT THE SOLUTION.