create an application that will allow the selection of a parts number from a lis

Question

create an application that will allow the selection of a parts number from a list and display the product and the price. It should retain the price of all products a customer wishes to purchase, and, once all are selected, calculate the tax and the total charge for the order.

Correct the attached code below.
code should be in sub procedures or functions appropriately Functions and sub procedures must receive any needed values from the calling statement. calculations handled in functions. will be five sub procedures and/or functions in this part document the corrections



Option Explicit On
Option Strict On
Option Infer Off

Imports System.Convert

Public Class mainForm
Private total As Single = 0

Private Sub mainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'populate the part number listbox with part number values
partNumListbox.Items.Add("AT94")
partNumListbox.Items.Add("BV06")
partNumListbox.Items.Add("CD52")
partNumListbox.Items.Add("DL71")
partNumListbox.Items.Add("DR93")
partNumListbox.Items.Add("DW11")
partNumListbox.Items.Add("FD21")
partNumListbox.Items.Add("KL62")
partNumListbox.Items.Add("KT03")
partNumListbox.Items.Add("KV29")

'populate the product listbox with product values
productListbox.Items.Add("Iron")
productListbox.Items.Add("Home Gym")
productListbox.Items.Add("Microwave Oven")
productListbox.Items.Add("Cordless Drill")
productListbox.Items.Add("Gas Range")
productListbox.Items.Add("Washer")
productListbox.Items.Add("Stand Mixer")
productListbox.Items.Add("Dryer")
productListbox.Items.Add("Dishwasher")
productListbox.Items.Add("Treadmill")

'populate the price listbox with price values
priceListbox.Items.Add("24.95")
priceListbox.Items.Add("794.95")
priceListbox.Items.Add("165.00")
priceListbox.Items.Add("129.95")
priceListbox.Items.Add("495.00")
priceListbox.Items.Add("399.99")
priceListbox.Items.Add("159.95")
priceListbox.Items.Add("349.95")
priceListbox.Items.Add("595.00")
priceListbox.Items.Add("1390.00")

'default the selected index to the first item in each listbox
partNumListbox.SelectedIndex = 0
productListbox.SelectedIndex = 0
priceListbox.SelectedIndex = 0
End Sub

Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
Close()
End Sub

Private Sub resetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetButton.Click
totalChargeLabel.ResetText()
totalLabel.ResetText()
taxLabel.ResetText()

partNumListbox.SelectedIndex = 0
productListbox.SelectedIndex = 0
priceListbox.SelectedIndex = 0

total = 0
End Sub

Private Sub enterButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enterButton.Click
Const taxRate As Decimal = 0.09D
Dim tax, totalCharge As Single

'get the price for the selected product
total += ToSingle(priceListbox.SelectedItem)

'calculate tax
tax = total * taxRate

'calculate total charge
totalCharge = total + tax

'display results
totalLabel.Text = total.ToString("c2")
taxLabel.Text = tax.ToString("c2")
totalChargeLabel.Text = totalCharge.ToString("c2")
End Sub

Private Sub partNumListbox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles partNumListbox.SelectedIndexChanged
Dim partNumIndex As Integer
'user selects the part number from the part number listbox and the correct product and price
'are automatically selected
partNumIndex = ToInt32(partNumListbox.SelectedIndex)
productListbox.SelectedIndex = partNumIndex
priceListbox.SelectedIndex = partNumIndex
End Sub

Private Sub priceListbox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles priceListbox.SelectedIndexChanged

End Sub
End Class

Explanation / Answer

rivate Sub mainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'populate the part number listbox with part number values partNumListbox.Items.Add("AT94") partNumListbox.Items.Add("BV06") partNumListbox.Items.Add("CD52") partNumListbox.Items.Add("DL71") partNumListbox.Items.Add("DR93") partNumListbox.Items.Add("DW11") partNumListbox.Items.Add("FD21") partNumListbox.Items.Add("KL62") partNumListbox.Items.Add("KT03") partNumListbox.Items.Add("KV29") 'populate the product listbox with product values productListbox.Items.Add("Iron") productListbox.Items.Add("Home Gym") productListbox.Items.Add("Microwave Oven") productListbox.Items.Add("Cordless Drill") productListbox.Items.Add("Gas Range") productListbox.Items.Add("Washer") productListbox.Items.Add("Stand Mixer") productListbox.Items.Add("Dryer") productListbox.Items.Add("Dishwasher") productListbox.Items.Add("Treadmill") 'populate the price listbox with price values priceListbox.Items.Add("24.95") priceListbox.Items.Add("794.95") priceListbox.Items.Add("165.00") priceListbox.Items.Add("129.95") priceListbox.Items.Add("495.00") priceListbox.Items.Add("399.99") priceListbox.Items.Add("159.95") priceListbox.Items.Add("349.95") priceListbox.Items.Add("595.00") priceListbox.Items.Add("1390.00") 'default the selected index to the first item in each listbox partNumListbox.SelectedIndex = 0 productListbox.SelectedIndex = 0 priceListbox.SelectedIndex = 0 End Sub Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click Close() End Sub Private Sub resetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetButton.Click totalChargeLabel.ResetText() totalLabel.ResetText() taxLabel.ResetText() partNumListbox.SelectedIndex = 0 productListbox.SelectedIndex = 0 priceListbox.SelectedIndex = 0 total = 0 End Sub Private Sub enterButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enterButton.Click Const taxRate As Decimal = 0.09D Dim tax, totalCharge As Single 'get the price for the selected product total += ToSingle(priceListbox.SelectedItem)

Related Questions

Navigate

• Browse (All)
• Browse C
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.