'Project:     Hotel Occupancy
'Programmer:  Quan Tran
'Date:        3/2/14
'Description: Simulate hotel rates.

Public Class Form1
    Const floors As Integer = 8
    Const rooms As Integer = 30
    Const arooms As Integer = 240
    Dim occupied As Integer
    Dim toccupied As Integer = 0
    Dim valid As Boolean = True

    '  Sub validity()
    '        valid = True
    '      If occupied >= 0 And occupied <= 30 Then
    '           valid = True
    '      Else
    '        valid = False
    '     End If

    '  End Sub

    Private Sub btnComplete_Click(sender As Object, e As EventArgs) Handles btnComplete.Click
        lstOutput.Items.Clear()
        For floor As Integer = 1 To floors
            occupied = (InputBox("Please Enter the number of rooms occupied.", "Floor " & floor))
            toccupied += occupied
            lstOutput.Items.Add("Floor: " & floor & " Rooms Occupied: " & occupied & " Occupancy Rate: " & ((occupied / rooms).ToString("P")))
        Next
        txtOccupied.Text = toccupied
        txtOccRate.Text = ((toccupied / arooms).ToString("P"))
    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        lstOutput.Items.Clear()
        txtOccupied.Clear()
        txtOccRate.Clear()
    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Application.Exit()
    End Sub

End Class