Visual Basic

** Assignment 2 - Hotel Occupancy (Due Feb 8, Monday, 11:59 pm) The El Grande Hotel has 8 floors and 30 rooms on each floor. Create an application that calculates the occupancy rate for each floor and the overall occupancy rate for the hotel. The occupancy rate is the percentage of rooms occupied. and may be calculated by dividing the number of rooms occupied by the number of rooms. For example, if 18 rooms on the first floor are occupied, the occupancy rate is as follows: 18/30 - 0.6 or 60% On startup, the application's form should appear similar to the one shown below. Each time the user enters the occupancy for a single floor and clicks the Save button, the floor number in the ComboBox should increment automatically just add 1 to its SelectedIndex property), and a new line should appear in the ListBox with the percentage occupancy. Also, the contents of the TextBox at the top of the form should clear automatically when the user clicks the Save button, so the user does not accidentally enter the same data twice in a row. The Restart button should clear all the appropriate controls on the form. The Exit button should end the application IVEERUUTUPILLIURE X Er the coupanorach Roll Number of oud Select the Nero 30 For Occupancy Date Toll Roc Doced Overal Occupancy Rate E Use the values shown below to confirm that your application is performing the correct calculations. Be sure to check for a non-integer value in the TextBox and notify the user if there is an error. 8 Occupancy X Enter the occupancy to foreach oor Bolect the bor Number of occupied foon Number of rooms 30 Save Floor Occupancy Data Floor 1 Rooms Occupied: 21 Occupancy Rate: 70.00% Floor 2 Rooms Occupied 18 Occupancy Rate 60.00 Floor Rooms Occupied 28 Occupancy Rate: 93336 Floor 4 Rooms Occupied 30 Occupancy Rate: 100.00 Floor 5 Rooms Occupied 14 Occupancy Rate: 4662 Floor 6 Rooms Occupied 10 Occupancy Rate 33,33% ForRooms Occupied 19 Occupancy Rate 63 33 16 Floor & Rooms Occupied 6 Occupancy Rate 2000 Total Rooms Occupied 146 Overall Occupancy Rate 50.83 Restart Edt