Program Plan 1. Below mentioned variables are used process_fee - Double type variable which holds the processing charges of customer service_fee - Double type variable which holds the basic service charges of customer premium_channels − Premium charges for the number of channels selected. no_of_channel−item selected in the list box chList. no_of_connections−item selected in the list box conList. result- contains the total due of customer 2. Below Mentioned functions are used btCalculate.Click()-Called when user clicks Calculate button in Gui and calculates the total due of customers. btnExit_Click()-Called whn user clicks on Exit button to close the application. BussinessRB_CheckedChanged()- called when the radio button of Business is checked. ResidentialRB_CheckedChanged()- called when the radio button of Residential is checked. Program description: This Program is for Calculating the Direct charges for two types of customers namely Bussiness category and Residential Category. Different charges are applied to each category so the calculations are to be made accordingly. Original Program: PublicClassForm1 Dimprocess_feeAsDouble Dimservice_feeAsDouble Dimpremium_channelsAsDouble Dimno_of_channelAsInteger Dimno_of_connectionsAsInteger PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load For i AsInteger = 1 To 20 chList.Items.Add(i) Next For j AsInteger = 1 To 100 conList.Items.Add(j) Next chList.SelectedIndex = 0 conList.SelectedIndex = 0 EndSub PrivateSubBussinessRB_CheckedChanged(sender AsObject, e AsEventArgs) HandlesBussinessRB.CheckedChanged process_fee = 16.5 premium_channels = 50 EndSub PrivateSubResidentialRB_CheckedChanged(sender AsObject, e AsEventArgs) HandlesResidentialRB.CheckedChanged process_fee = 4.5 premium_channels = 5 EndSub PrivateSubbtCalculate_Click(sender AsObject, e AsEventArgs) HandlesbtCalculate.Click Dim result AsDouble no_of_channel = chList.SelectedItem no_of_connections = conList.SelectedItem IfBussinessRB.CheckedThen Ifno_of_connections<= 10 Then service_fee = 80 Else service_fee = 80 + (4 * (no_of_connections - 10)) EndIf result = process_fee + service_fee + (premium_channels * no_of_channel) EndIf IfResidentialRB.CheckedThen service_fee = 30 result = process_fee + service_fee + (premium_channels * no_of_channel) EndIf rsltBox.Text = Format(result, "$00.00") EndSub PrivateSubbtnExit_Click(sender AsObject, e AsEventArgs) HandlesbtnExit.Click DimrsAsDialogResult = MessageBox.Show("Are you Sure to Exit?", "Confirm", MessageBoxButtons.YesNo) Ifrs = DialogResult.YesThen Me.Close() EndIf EndSub EndClass Form Design: Designed form is shown below: Sample output for original program for the given values When the program is just started the following form will be loaded. For a bussiness customer with three premium channels and 12 number of connections the calculated total due is shown in the output below. For a residential customer with three premium channels and one connection the calculated total due is shown in the output below. When user press 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 due charges for business category customers as well as residential customers has been created and the values are tested for correctness. Application successfully calculated the total due of business and residential customers and the output is shown in text box.

8th Edition

ISBN: 9781337102124

Author: Diane Zak

Publisher: Cengage Learning

Expert Solution & Answer

Knowledge Booster

Recommended textbooks for you

Programming with Microsoft Visual Basic 2017
Computer Science
ISBN:9781337102124
Author:Diane Zak
Publisher:Cengage Learning

Computer Science

ISBN:9781337102124

Author:Diane Zak

Publisher:Cengage Learning

Chapter 6 Solutions