show code in visual basic stuido the second picture is an example of what i am talking about
CSCI 2211 Visual BASIC Program 1 Requirements Application Title: Purpose: Program Procedures: Pizza Selection (LastName) To be written by you. This application will allow a user to select a type of pizza, (Either Thin-Crust or Deep-Dish) Additional Requirements: 1. The user MUST be able to view choices for a deep dish and a thin-crust until after the user selects the pizza. 2. When the user chooses a pizza type a picture of the selected style pizza should appear. 3. Only one Picture (Deep-Dish or Thin-Crust) should be visible at a time. If the User selected Deep-Dish only that picture should be visible, alternatively if the user selects Thin-Crust only that image should be visible. 4. Once the User makes their selection, a confirmation window should appear. 5. After making the selection the user should not be able to make changes and the only option available should be to EXIT. USE CASE DEFINITION 1. User clicks Deep Dish or Thin Crust button. 2. Program displays a picture of the pizza chosen by the user and enables the pizza selection button. 3. User clicks pizza type buttons to view the types of pizza as desired. Program displays the picture of the chosen pizza type. 4. User clicks the Select Pizza button. 5. Program displays a pizza selection confirmation message, and disables both pizza type buttons and the Select Pizza button. The Exit Window button becomes active. 6. User terminates the program by clicking the Exit Window button Public Class Forml Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Butto4.Click Dim Area As Double Area = (1.0/2.0)* CDbl(TextBox1.Text)+CDbl(TextBox2.Text))* (CDbl(TextBox3.Text)) Label 14.Text = "The Answer is: " + Cstr(Math.Round(sum,2)) End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Butto4.Click Dim SurfaceArea As Double SurfaceArea =((2.0*3.14)* (CDbl(TextBox4.Text) * CDbl(TextBox4.Text))) + (2*3.14* CDbl(TextBox4.Text) *CDbl(TextBox5.Text)) Label17. Text = "The Answer is: " + Cstr(Math.Round(SurfaceArea 2)) End Sub Private Sub Button6 Click(sender As Object, e As EventArgs) Handles Butto4.Click Dim Volume As Double Volume = (4.0/3.0)*3.14* CDbl(TextBox6. Text) *CDbl(TextBox6. Text)* (CDbl(TextBox6.Text)) Label 19. Text = "The Answer is: " + Cstr(Math. Round(Volume,2)) End Sub End Class Note:-Replace the Sub Button5_Click Sub Button6_Click with the above code Actually your are doing the same thing in every method thats why your anser is not correct. CSCI 2211 Visual BASIC Program 1 Requirements Application Title: Purpose: Program Procedures: Pizza Selection (LastName) To be written by you. This application will allow a user to select a type of pizza, (Either Thin-Crust or Deep-Dish) Additional Requirements: 1. The user MUST be able to view choices for a deep dish and a thin-crust until after the user selects the pizza. 2. When the user chooses a pizza type a picture of the selected style pizza should appear. 3. Only one Picture (Deep-Dish or Thin-Crust) should be visible at a time. If the User selected Deep-Dish only that picture should be visible, alternatively if the user selects Thin-Crust only that image should be visible. 4. Once the User makes their selection, a confirmation window should appear. 5. After making the selection the user should not be able to make changes and the only option available should be to EXIT. USE CASE DEFINITION 1. User clicks Deep Dish or Thin Crust button. 2. Program displays a picture of the pizza chosen by the user and enables the pizza selection button. 3. User clicks pizza type buttons to view the types of pizza as desired. Program displays the picture of the chosen pizza type. 4. User clicks the Select Pizza button. 5. Program displays a pizza selection confirmation message, and disables both pizza type buttons and the Select Pizza button. The Exit Window button becomes active. 6. User terminates the program by clicking the Exit Window button Public Class Forml Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Butto4.Click Dim Area As Double Area = (1.0/2.0)* CDbl(TextBox1.Text)+CDbl(TextBox2.Text))* (CDbl(TextBox3.Text)) Label 14.Text = "The Answer is: " + Cstr(Math.Round(sum,2)) End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Butto4.Click Dim SurfaceArea As Double SurfaceArea =((2.0*3.14)* (CDbl(TextBox4.Text) * CDbl(TextBox4.Text))) + (2*3.14* CDbl(TextBox4.Text) *CDbl(TextBox5.Text)) Label17. Text = "The Answer is: " + Cstr(Math.Round(SurfaceArea 2)) End Sub Private Sub Button6 Click(sender As Object, e As EventArgs) Handles Butto4.Click Dim Volume As Double Volume = (4.0/3.0)*3.14* CDbl(TextBox6. Text) *CDbl(TextBox6. Text)* (CDbl(TextBox6.Text)) Label 19. Text = "The Answer is: " + Cstr(Math. Round(Volume,2)) End Sub End Class Note:-Replace the Sub Button5_Click Sub Button6_Click with the above code Actually your are doing the same thing in every method thats why your anser is not correct
