project 1

Option Explicit On
Option Infer Off
Option Strict On
Public Class Form1
    Dim subtotal As Double = 0
    Dim shipping As Double = 80.0
    Dim total As Double = 0
    Dim colors As Double = 0
    Dim catchers As Double = 0
    Dim selectedColor As String = "Red"
    Dim selectedCatcher As String = "Cloth Catcher"


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'if i was doing this for real i would probably use some sorta DB to get the names of the products but if not id use an
        'array to store price info instead of using a case statement.
        libMower.Items.Add("MowMax 1150-$250.00")
        libMower.Items.Add("MowMax 1250-$300.00")
        libMower.Items.Add("MowMax 1350-$350.00")
        libMower.Items.Add("MowMax 1450-$400.00")
        libMower.SelectedIndex = 0
        lblOut.Text = ""

    End Sub

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        If txtAddy1.Text = "" Or txtAddy2.Text = "" Or txtFName.Text = "" Or txtLName.Text = "" Or txtPhone1.Text = "" Or txtPhone2.Text = "" Or txtPhone3.Text = "" Or txtState.Text = "" Or txtZip.Text = "" Then
            MsgBox("You are missing critical shipping information, please enter it and try again.", MsgBoxStyle.Critical)
        Else
            lblOut.Text = txtFName.Text & " " & txtLName.Text & ", " & ControlChars.NewLine & "thank you for purchasing a " & ControlChars.NewLine & selectedColor & " " & libMower.SelectedItem.ToString.Substring(0, (libMower.SelectedItem.ToString.IndexOf("$")) - 1) & ControlChars.NewLine & " with a " & selectedCatcher & "."
        End If

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        libMower.SelectedIndex = 0
        txtAddy1.Text = ""
        txtAddy2.Text = ""
        txtFName.Text = ""
        txtLName.Text = ""
        txtPhone1.Text = ""
        txtPhone2.Text = ""
        txtPhone3.Text = ""
        txtState.Text = ""
        txtZip.Text = ""
        lblOut.Text = ""
        radRed.Checked = True
        radCloth.Checked = True
    End Sub

    Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click
        Me.Close()
    End Sub

    Private Sub radRed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radRed.CheckedChanged
        color()
        totaler()
    End Sub

    Private Sub radGreen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radGreen.CheckedChanged
        color()
        totaler()
    End Sub

    Private Sub radBlue_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radBlue.CheckedChanged
        color()
        totaler()
    End Sub

    Private Sub radBlack_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radBlack.CheckedChanged
        color()
        totaler()
    End Sub

    Private Sub radPink_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radPink.CheckedChanged
        color()
        totaler()
    End Sub

    Private Sub radCloth_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radCloth.CheckedChanged
        catcher()
        totaler()
    End Sub

    Private Sub radPlastic_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radPlastic.CheckedChanged
        catcher()
        totaler()
    End Sub


    Private Sub radMetal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radMetal.CheckedChanged
        catcher()
        totaler()
    End Sub

    Private Sub libMower_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles libMower.SelectedIndexChanged
        totaler()
    End Sub

    Private Sub color()
        If radRed.Checked = True Then
            radRed.Text = "Red(+$0.00)"
            radBlue.Text = "Blue(+$0.00)"
            radGreen.Text = "Green(+$0.00)"
            radBlack.Text = "Black(+$0.00)"
            radPink.Text = "Pink(+$25.00)"
            colors = 0
            selectedColor = "Red"
        ElseIf radBlue.Checked = True Then
            radRed.Text = "Red(+$0.00)"
            radBlue.Text = "Blue(+$0.00)"
            radGreen.Text = "Green(+$0.00)"
            radBlack.Text = "Black(+$0.00)"
            radPink.Text = "Pink(+$25.00)"
            colors = 0
            selectedColor = "Blue"
        ElseIf radGreen.Checked = True Then
            radRed.Text = "Red(+$0.00)"
            radBlue.Text = "Blue(+$0.00)"
            radGreen.Text = "Green(+$0.00)"
            radBlack.Text = "Black(+$0.00)"
            radPink.Text = "Pink(+$25.00)"
            selectedColor = "Green"
            colors = 0
        ElseIf radBlack.Checked = True Then
            radRed.Text = "Red(+$0.00)"
            radBlue.Text = "Blue(+$0.00)"
            radGreen.Text = "Green(+$0.00)"
            radBlack.Text = "Black(+$0.00)"
            radPink.Text = "Pink(+$25.00)"
            selectedColor = "Black"
            colors = 0
        ElseIf radPink.Checked = True Then
            radRed.Text = "Red(-$25.00)"
            radBlue.Text = "Blue(-$25.00)"
            radGreen.Text = "Green(-$25.00)"
            radBlack.Text = "Black(-$25.00)"
            radPink.Text = "Pink(+$0.00)"
            selectedColor = "Pink"
            colors = 25
        End If
    End Sub
    Private Sub catcher()
        If radCloth.Checked = True Then
            radCloth.Text = "Cloth Catcher(+$0.00)"
            radPlastic.Text = "Plastic Catcher(+$25.00)"
            radMetal.Text = "Metal Catcher(+$75.00)"
            selectedCatcher = "Cloth Catcher"
            catchers = 0
        ElseIf radPlastic.Checked = True Then
            radCloth.Text = "Cloth Catcher(-$25.00)"
            radPlastic.Text = "Plastic Catcher(+$0.00)"
            radMetal.Text = "Metal Catcher(+$50.00)"
            selectedCatcher = "Plastic Catcher"
            catchers = 25
        ElseIf radMetal.Checked = True Then
            radCloth.Text = "Cloth Catcher(-$75.00)"
            radPlastic.Text = "Plastic Catcher(-$50.00)"
            radMetal.Text = "Metal Catcher(+$0.00)"
            selectedCatcher = "Metal Catcher"
            catchers = 75
        End If

    End Sub
    Private Sub totaler()
        Dim i As Double = 0
        Dim tax As Double = 0
        Dim s As String = ""
        Double.TryParse(libMower.SelectedItem.ToString.Substring((libMower.SelectedItem.ToString.IndexOf("$")) + 1), i)
        subtotal = i + colors + catchers
        If txtState.Text.ToLower = "ca" Then
            tax = 0.09
        End If
        lblSub.Text = "Subtotal: " & subtotal.ToString("C2")
        i = subtotal * tax
        lblTax.Text = "Tax: " & i.ToString("C2")
        lblShipping.Text = "Shipping: " & shipping.ToString("C2")
        total = i + subtotal + shipping
        lblTotal.Text = "Total: " & total.ToString("C2")
    End Sub


    Private Sub txtState_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtState.TextChanged
        totaler()
    End Sub

    Private Sub txtZip_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtZip.KeyPress
        If (e.KeyChar > "0" OrElse e.KeyChar < "9") AndAlso e.KeyChar = ControlChars.Back Then
            e.Handled = True
        End If
    End Sub
    Private Sub txtState_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtState.KeyPress
        If Not ((e.KeyChar > "A" AndAlso e.KeyChar < "Z") OrElse e.KeyChar = ControlChars.Back OrElse (e.KeyChar > "a" AndAlso e.KeyChar < "z")) Then
            e.Handled = True
        End If
    End Sub

End Class