' Name:         Inventory Value Calculator
' Purpose:      Calculates the Value of a Room based on it's inventory
Public Class Form1
    ' Setup a bunch of Variables
    Private intRoom1N As Integer
    Private intRoom1V As Integer
    Private intRoom2N As Integer
    Private intRoom2V As Integer
    Private intRoom3N As Integer
    Private intRoom3V As Integer
    Private intRoom4N As Integer
    Private intRoom4V As Integer
    Private intRoom5N As Integer
    Private intRoom5V As Integer
    Private intRoom6N As Integer
    Private intRoom6V As Integer
    Public Class Room
        Structure Item
            Dim ItemName As String
            Dim ItemValue As Double
        End Structure
    End Class


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        For intRoom As Integer = 1 To 10 Step 1  ' Performs Loop to Populate Room List
            lstRoom.Items.Add((intRoom).ToString("00")) ' Adds Room Number to Room List in "01,02,03" Format
        Next intRoom
        lstRoom.SelectedIndex = 1 ' Defaults to Room 01
    End Sub
    Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close() ' Closes Progam when Exit Button is Pushed
    End Sub
    Private Sub btnCalc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCalc.Click

        Select Case lstRoom.SelectedItem

            Case "01" ' Room 01

                intRoom1N += 1 ' Increments Number of Items in the Room
                intRoom1V = intRoom1V + Int(txtItemValue.Text) ' Adds Current Item Value to Room Value
                txtItemNum.Text = intRoom1N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom1V.ToString("C2") ' Displays Total Value of Items in Room

            Case "02" ' Room 02
                intRoom2N += 1 ' Increments Number of Items in the Room
                intRoom2V = intRoom2V + Int(txtItemValue.Text) ' Adds Current Item Value to Room Value
                txtItemNum.Text = intRoom2N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom2V.ToString("C2") ' Displays Total Value of Items in Room
            Case "03" ' Room 03
                intRoom3N += 1 ' Increments Number of Items in the Room
                intRoom3V = intRoom3V + Int(txtItemValue.Text) ' Adds Current Item Value to Room Value
                txtItemNum.Text = intRoom3N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom3V.ToString("C2") ' Displays Total Value of Items in Room
            Case "04" ' Room 04
                intRoom4N += 1 ' Increments Number of Items in the Room
                intRoom4V = intRoom4V + Int(txtItemValue.Text) ' Adds Current Item Value to Room Value
                txtItemNum.Text = intRoom4N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom4V.ToString("C2") ' Displays Total Value of Items in Room
            Case "05" ' Room 05
                intRoom5N += 1 ' Increments Number of Items in the Room
                intRoom5V = intRoom5V + Int(txtItemValue.Text) ' Adds Current Item Value to Room Value
                txtItemNum.Text = intRoom5N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom5V.ToString("C2") ' Displays Total Value of Items in Room
            Case "06" ' Room 06
                intRoom6N += 1 ' Increments Number of Items in the Room
                intRoom6V = intRoom6V + Int(txtItemValue.Text) ' Adds Current Item Value to Room Value
                txtItemNum.Text = intRoom6N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom6V.ToString("C2") ' Displays Total Value of Items in Room
        End Select

    End Sub
    Private Sub lstRoom_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstRoom.SelectedValueChanged

        ' Displays Current Number of Items and Current Value when a new room is Selected
        Select Case lstRoom.SelectedItem
            Case "01" ' Room 01
                txtItemNum.Text = intRoom1N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom1V.ToString("C2") ' Displays Total Value of Items in Room
            Case "02" ' Room 02
                txtItemNum.Text = intRoom2N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom2V.ToString("C2") ' Displays Total Value of Items in Room
            Case "03" ' Room 03
                txtItemNum.Text = intRoom3N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom3V.ToString("C2") ' Displays Total Value of Items in Room
            Case "04" ' Room 04
                txtItemNum.Text = intRoom4N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom4V.ToString("C2") ' Displays Total Value of Items in Room
            Case "05" ' Room 05
                txtItemNum.Text = intRoom3N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom5V.ToString("C2") ' Displays Total Value of Items in Room
            Case "06" ' Room 06
                txtItemNum.Text = intRoom6N ' Displays Number of Items in Room
                txtTotalValue.Text = intRoom6V.ToString("C2") ' Displays Total Value of Items in Room
        End Select
    End Sub
End Class