Program Plan: 1. Variables mentioned below are used: matPrice - Integer type variable which holds the actual price of mat. colorPrice - Integer type variable which holds the extra charge for color. premium_channels − Premium charges for the number of channels selected. foldablePrice− Item selected in the list box chList. Price- Contains the total price of mats. 2. Functions mentioned below are used: clcBtn_Click()- Called when the user clicks Calculate button in Gui and calculates the total price of mats. exitBtn_Click()- Called when the user clicks on the Exit button to close the application. standardBtn_CheckedChanged()- Called when the radio button of standard in group Type is checked. deluxeBtn_CheckedChanged()- Called when the radio button of deluxe in group Type is checked. premiumBtn_CheckedChanged()- Called when the radio button of premium in group Type is checked. redBtn_CheckedChanged()- Called when the radio button of red in group Color is checked. pinkBtn_CheckedChanged()- Called when the radio button of blue in group Color is checked. Program Description: This program is used for calculating the price of mats that can be any of three types and three colors such as blue, red, or pink. If the mat is of foldable type then an additional charge is applied. The following program shows the calculation of a mat price with all the additional charges applied. Original Program: PublicClassForm1 DimmatPriceAsInteger DimcolorPriceAsInteger = 0 DimfoldablePriceAsInteger = 0 Dim Price AsInteger PrivateSub clcBtn_Click(sender AsObject, e AsEventArgs) HandlesclcBtn.Click IffoldableBox.CheckedThen foldablePrice = 25 EndIf Price = matPrice + colorPrice + foldablePrice priceText.Text = Convert.ToString(Format(Price, "$00.00")) EndSub PrivateSubstandardBtn_CheckedChanged(sender AsObject, e AsEventArgs) HandlesstandardBtn.CheckedChanged matPrice = 99 EndSub PrivateSubdeluxeBtn_CheckedChanged(sender AsObject, e AsEventArgs) HandlesdeluxeBtn.CheckedChanged matPrice = 129 EndSub PrivateSubpremiumBtn_CheckedChanged(sender AsObject, e AsEventArgs) HandlespremiumBtn.CheckedChanged matPrice = 179 EndSub PrivateSubredBtn_CheckedChanged(sender AsObject, e AsEventArgs) HandlesredBtn.CheckedChanged colorPrice = 10 EndSub PrivateSubpinkBtn_CheckedChanged(sender AsObject, e AsEventArgs) HandlespinkBtn.CheckedChanged colorPrice = 15 EndSub PrivateSubexitBtn_Click(sender AsObject, e AsEventArgs) HandlesexitBtn.Click Dim ds AsDialogResult = MessageBox.Show("Are you Sure to Exit?", "Confirm", MessageBoxButtons.YesNo) If ds = DialogResult.YesThen Application.Exit() EndIf EndSub EndClass Form Design: The designed form is shown below: Sample output for an original program for the given values: When the program is just started, the following form will be loaded. When a customer bought a Deluxe mat of the pink color of foldable type. The price of the mat is calculated using the function clcBtn_Click(). The resultant form is shown below: When the user presses the Exit button, the application will ask for conformation and the output is shown below: Explanation: In the given program, an application that calculates the total price for a mat has been created and the values are tested for correctness. The application successfully calculated the total price of a mat of all types and colors and the output is shown in the text box.

8th Edition

ISBN: 9781337102124

Author: Diane Zak

Publisher: Cengage Learning

Expert Solution & Answer

Students have asked these similar questions

What is cloud computing and why do we use it? Give one of your friends with your answer.

What are triggers and how do you invoke them on demand? Give one reference with your answer.

Discuss with appropriate examples the types of relationships in a database. Give one reference with your answer.

Knowledge Booster

Solution Summary: The author describes the functions used to calculate the price of mats.