Miscellany

Option Strict On
Option Explicit On

Public Class Form1

    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
        Dim strFormat As String

        strFormat = "{0, -20}{1, 10}{2,10}"

        lstPrices.Items.Clear()
        lstPrices.Items.Add(String.Format(strFormat, "Price of Equipment", "Half-Day", "Full-Day"))
        lstPrices.Items.Add(String.Format(strFormat, "1. Rug Cleaner", "$16.00", "$24.00"))
        lstPrices.Items.Add(String.Format(strFormat, "2. Lawn Mower", "$12.00", "$18.00"))
        lstPrices.Items.Add(String.Format(strFormat, "3. Paint Sprayer", "$20.00", "$30.00"))
    End Sub

    Private Sub btnBill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBill.Click
        Dim strTimeChoice As String
        Dim strItem As String
        Dim intItem As Integer
        Dim dblPrice As Double
        Dim strFormat As String
        Dim strTime As String
        Dim blnWorkedItem As Boolean
        Dim blnWorkedTime As Boolean

        strFormat = "{0, -20}{1, 10}"
        strItem = ""
        strTime = ""
        blnWorkedItem = False
        blnWorkedTime = False
        strTimeChoice = txtTime.Text.ToUpper
        intItem = CInt(txtItem.Text)

        Select Case intItem
            Case 1
                strItem = "Rug Cleaner"
                dblPrice = 16
                blnWorkedItem = True
            Case 2
                strItem = "Lawn Mower"
                dblPrice = 12
                blnWorkedItem = True
            Case 3
                strItem = "Paint Sprayer"
                dblPrice = 20
                blnWorkedItem = True
            Case Else
                'sort sort of error handling message here
                blnWorkedItem = False
        End Select

        Select Case strTimeChoice
            Case "H"
                strTime = "(Half-Day)"
                dblPrice = dblPrice
                blnWorkedTime = True
                'No change here
            Case "F"
                blnWorkedTime = True
                strTime = "(Full-Day)"
                dblPrice = dblPrice + (dblPrice * 0.5)
            Case Else
                'Some sort of error handling hessage here
                blnWorkedTime = False

        End Select
        If blnWorkedItem = False Or blnWorkedTime = False Then
            MsgBox("You did not input a correct choice. Please input another choice.")
        Else
            lstReceipt.Items.Add("Receipt From Eddie's Equipment Rental")
            lstReceipt.Items.Add("")
            lstReceipt.Items.Add(String.Format(strFormat, strItem, FormatCurrency(dblPrice, 2) & strTime))
            lstReceipt.Items.Add(String.Format(strFormat, "Deposit", "$30.00"))
            lstReceipt.Items.Add(String.Format(strFormat, "Total", FormatCurrency(dblPrice + 30)))
        End If
    End Sub
End Class