Scribd
Upload
72 views3 pages

Furniture Order

This code handles processing furniture orders. It validates user input, calculates order totals, generates an invoice number, and displays an order bill. Key fields like the customer name are reversed. Order details like item quantities, prices, taxes, and totals are calculated and displayed in a list for the user.

Uploaded by

Adrian Ph
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
72 views3 pages

Furniture Order

This code handles processing furniture orders. It validates user input, calculates order totals, generates an invoice number, and displays an order bill. Key fields like the customer name are reversed. Order details like item quantities, prices, taxes, and totals are calculated and displayed in a list for the user.

Uploaded by

Adrian Ph
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

Public Class FrmFurnitureOrder

Const ChairPrice As Double = 350


Const SofaPrice As Double = 925
Const SaleTax As Double = 0.05

Private Sub btnProcessOrder_Click(sender As Object, e As EventArgs) Handles


btnProcessOrder.Click
Dim custName As String = txtName.Text, street As String = txtAddress.Text,
cityStateZip As String = txtCity.Text
Dim chairs, sofas As Integer
Dim totalDue, totalTax, orderPrice As Double
Dim invoiceId, reversedName As String

If ValidateInput(custName, street, cityStateZip) Then


chairs = CInt(txtChairs.Text)
sofas = CInt(txtSofas.Text)

totalDue = Calculate(chairs, sofas, totalTax, orderPrice)


invoiceId = InvoiceNumber(custName, cityStateZip)
reversedName = ReverseName(custName)

DisplayBill(chairs, sofas, orderPrice, totalTax, totalDue, invoiceId,


reversedName, street, cityStateZip)
End If
End Sub

Private Sub DisplayBill(chairs As Integer, sofas As Integer, orderPrice As Double,


totalTax As Double, totalDue As Double,
invoiceId As String, reversedName As String, street As
String, cityStateZip As String)
lstDisplay.Items.Add("Invoice Number: " + invoiceId)
lstDisplay.Items.Add("")
lstDisplay.Items.Add("Name: " + reversedName)
lstDisplay.Items.Add("street: " + street)
lstDisplay.Items.Add("City, State, Zip: " + cityStateZip)
lstDisplay.Items.Add("")
lstDisplay.Items.Add("Number of Chairs: " + chairs.ToString)
lstDisplay.Items.Add("Number of Sofas: " + sofas.ToString)
lstDisplay.Items.Add("")
lstDisplay.Items.Add("Order Price: " + FormatCurrency(orderPrice))
lstDisplay.Items.Add("Sales Tax: " + FormatCurrency(totalTax))
lstDisplay.Items.Add(" ----------------")
lstDisplay.Items.Add("Total Price: " + FormatCurrency(totalDue))
End Sub

Private Function ReverseName(custName As String) As String


Dim firstName, lastName As String
Dim commaPosition As Integer

commaPosition = custName.IndexOf(",")
firstName = custName.Substring(commaPosition + 2)
lastName = custName.Substring(0, commaPosition)

Return firstName & ", " & lastName


End Function

Private Function InvoiceNumber(custName As String, cityStateZip As String) As String


Dim zipDigits As String
zipDigits = cityStateZip.Substring(cityStateZip.Length - 4)

Return custName.Substring(0, 2).ToUpper() & zipDigits


End Function

Private Function Calculate(chairs As Integer, sofas As Integer, ByRef totalTax As


Double, ByRef orderPrice As Double) As Double
orderPrice = chairs * ChairPrice + sofas * SofaPrice
totalTax = orderPrice * SaleTax

Return orderPrice + totalTax


End Function
Private Function ValidateInput(custName As String, street As String, cityStateZip As
String) As Boolean
If Not custName.Contains(", ") Or custName.Length < 4 Then
MessageBox.Show("Invalid Name. Make sure names are separated by comma",
"Invalid Input", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
ElseIf street = "" Or cityStateZip = "" Then
MessageBox.Show("Invalid street, city, state, or ZIP.", "Invalid Input",
MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
ElseIf Not IsNumeric(txtChairs.Text) Or Not IsNumeric(txtSofas.Text) Then
MessageBox.Show("Invalid number of ordered chairs or sofas.", "Invalid Input",
MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
Else
Return True
End If
End Function

Private Sub btnQuit_Click(sender As Object, e As EventArgs) Handles btnQuit.Click


Me.Close()
End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click


For Each ctrl In Controls.OfType(Of TextBox)
ctrl.Clear()
Next
lstDisplay.Items.Clear()
txtName.Focus()
End Sub

End Class

You might also like