VB.NET

VB.NET RSS

Visual Basic 2008 programming challenges

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Nov 2009

Posts: 1

Reputation: Dimonbak is an unknown quantity at this point

Solved Threads: 0

Dimonbak

Offline

Newbie Poster

Visual Basic 2008 programming challenges

-1

23 Days Ago

Hello!

I currently am enrolled in an intro to VB2008. I have done well thus far but have hit a snag on Chapter 5 programming challenge 4 on p350 of the 4th edition(yellow). I swear to you I have put probably 10 hours into this embarressingly and I am ready to throw my laptop into the wall lol.
The "Hotel Occupancy" challenge states there are 8 floors, 30 rooms per floor. I am asked to design a program that prompts the user 8 separate times with an input box so they can enter the rooms that are filled on each floor.
The program should display in a listbox the floor #, rooms occupied on that floor, and percentage of rooms occupied on that floor.In addition to the list box, two labels on the form should display total occupancy percentage for entire hotel and total rooms occupied respectively.
I am new but familiar with loops and such but this one has got me. Any ideas a plus-Thanks

•

Join Date: Mar 2009

Posts: 826

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 150

vb5prgrmr

Offline

Practically a Posting Shark

23 Days Ago

First, PM a mod and have this thread moved to the .NET forum since this is the "classic vb verision 4/5/6 and not versions for versions2002/2003/2005/2008/2010.

Then, there are several ways in which to solve this. A single do while result <> "" or eight of those (one for each floor) or even a recursive call to the proceedure that collects this information.

Good Luck

If anyone has helped you solve your problem, please mark your thread as solved.

Thanks

•

Join Date: Aug 2009

Posts: 341

Reputation: Ryshad has a spectacular aura about

Solved Threads: 62

Ryshad

Offline

Posting Whiz

20 Days Ago

Heres an example of nested loops that acheives what you are trying to do:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim TotalFilledRooms As Integer = 0
        Dim perc As Double
 
        For i As Integer = 1 To 8
            Dim response As Boolean = False
            Dim filledRooms As Integer
 
            While (Not response) Or (filledRooms < 0 Or filledRooms > 30)
                response = Integer.TryParse(InputBox("How many rooms on floor " & i.ToString() & " are occupied?", "Enter number of occupied rooms"), filledRooms)
            End While
 
            perc = Math.Round((filledRooms / 30) * 100, 1)
 
            TotalFilledRooms += filledRooms
 
            Dim floor As String = "Floor " & i.ToString() & ": " & filledRooms.ToString() & "/30 " & perc.ToString() & "%"
            lstFloors.Items.Add(floor)
        Next
 
        perc = Math.Round((TotalFilledRooms / 240) * 100, 1)
        lblOccRooms.Text = TotalFilledRooms.ToString() & "/240"
        lblOccPerc.Text = perc.ToString() & "%"
 
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim TotalFilledRooms As Integer = 0
        Dim perc As Double

        For i As Integer = 1 To 8
            Dim response As Boolean = False
            Dim filledRooms As Integer

            While (Not response) Or (filledRooms < 0 Or filledRooms > 30)
                response = Integer.TryParse(InputBox("How many rooms on floor " & i.ToString() & " are occupied?", "Enter number of occupied rooms"), filledRooms)
            End While

            perc = Math.Round((filledRooms / 30) * 100, 1)

            TotalFilledRooms += filledRooms

            Dim floor As String = "Floor " & i.ToString() & ": " & filledRooms.ToString() & "/30 " & perc.ToString() & "%"
            lstFloors.Items.Add(floor)
        Next

        perc = Math.Round((TotalFilledRooms / 240) * 100, 1)
        lblOccRooms.Text = TotalFilledRooms.ToString() & "/240"
        lblOccPerc.Text = perc.ToString() & "%"

    End Sub

The for loop ensures that 8 values are requested.
Theres some basic validation in the while loop, if the returned value cannot be parsed as an integer or the integer returned is outside the range 0-30 then the input window will reappear until a valid value is entered.

Please don't take for granted the work that solvers do for you. Take the time to fully understand the code they give you so that you might adapt it to future problems.

"Learning is more than absorbing facts, it is acquiring understanding.” - William Arthur Ward