Ad:

VB.NET Discussion Thread
Unsolved
Views: 704

Oct 1st, 2008

Help Stuck area of a multiroom building

Expand Post »

I am very stuck. I need to write a prog that uses arrays and receives the length and the width of a multiroom building and find the area needed for for the carpet or wood flooring. This is just the first part and thisis as far as I am able to go/understand. Any help would greatly appreciated, Thank You.

VB Syntax (Toggle Plain Text)
Public Class Form1
    Dim dimensions() As Integer
    Dim rooms As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prompt1, prompt2, title As String
        Dim i As Short
        prompt1 = "Enter the length of the room"
        prompt2 = "Enter the width of the room"
        rooms = InputBox("How many rooms?", "Create Array")
 
        If rooms > 0 Then ReDim dimensions(rooms - 1)
        For i = 0 To UBound(dimensions)
            title = "Room " & (i + 1)
            dimensions(i) = InputBox(prompt1, title)
        Next
    End Sub
Public Class Form1
    Dim dimensions() As Integer
    Dim rooms As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prompt1, prompt2, title As String
        Dim i As Short
        prompt1 = "Enter the length of the room"
        prompt2 = "Enter the width of the room"
        rooms = InputBox("How many rooms?", "Create Array")

        If rooms > 0 Then ReDim dimensions(rooms - 1)
        For i = 0 To UBound(dimensions)
            title = "Room " & (i + 1)
            dimensions(i) = InputBox(prompt1, title)
        Next
    End Sub

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 2nd, 2008

Re: Help Stuck area of a multiroom building

Do you know how to use classes? I would recommend created a class of "room" that has the following properties:
Length
Width
Dimension (readonly)

You can then make an array of the class and loop through the array for input and output.

Let me know if you need code.

timothybard

Reputation Points: 27

Solved Threads: 29

Posting Whiz

Offline

317 posts
since Mar 2007

Permalink

Oct 2nd, 2008

Re: Help Stuck area of a multiroom building

we just learned classes last week and in this assignment we can just use an array. This is the assignment.

Write a program that uses arrays and receives the length and the width of a multi room building
and find the area needed for carpet or wood flooring. After finding the total area, give total
price suggestion for both carpet and wood flooring. Use comboBox to list price of carpets ranging
from $5 to $25 with $2 dollars increment and wood flooring from $10 to $15 range of $1.00 increment.

No classes are mentioned. I'm sorry I normally don't need this much assistance, but this one has me stumped. I have a good idea how to do the the increments using a for loop, but not how to insert them into a combo box. Our professor actually didn't show us combo boxes, but he did assign them and the book isn't much help. My main problem is coding the arrays for the multi room building prompting for length and width, from there I know how to get the area.
Hopefully I get partial credit even if it's not complete. Any help would be appreciated, thank you.

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 2nd, 2008

Re: Help Stuck area of a multiroom building

Well, if you don't want to use a class but instead only use an array, I recommend using a multidimensional array. A multidimensional array will allow you to store the lengths and widths of each room in the same array; the usage of a multidimensional array should be straight forward by looking at some code. Below is updated code showing how to use a multidimensional array:

vb Syntax (Toggle Plain Text)
    Dim dimensions(0, 0) As Integer
    Dim rooms As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prompt1, prompt2, title As String
        Dim i As Short
        prompt1 = "Enter the length of the room"
        prompt2 = "Enter the width of the room"
        rooms = InputBox("How many rooms?", "Create Array")
 
        If rooms > 0 Then ReDim dimensions(rooms - 1, 1)
 
        For i = 0 To UBound(dimensions)
            title = "Room " & (i + 1)
            dimensions(i, 0) = InputBox(prompt1, title)
            dimensions(i, 1) = InputBox(prompt2, title)
        Next
    End Sub
    Dim dimensions(0, 0) As Integer
    Dim rooms As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prompt1, prompt2, title As String
        Dim i As Short
        prompt1 = "Enter the length of the room"
        prompt2 = "Enter the width of the room"
        rooms = InputBox("How many rooms?", "Create Array")

        If rooms > 0 Then ReDim dimensions(rooms - 1, 1)

        For i = 0 To UBound(dimensions)
            title = "Room " & (i + 1)
            dimensions(i, 0) = InputBox(prompt1, title)
            dimensions(i, 1) = InputBox(prompt2, title)
        Next
    End Sub

Also, here are some usful properties of the ComboBox object:

vb Syntax (Toggle Plain Text)
        ComboBox1.Items.Add("Item 1")
        Dim selectedItemIndex As Integer
        Dim selectedItem As String
        selectedItemIndex = ComboBox1.SelectedIndex
        selectedItem = ComboBox1.SelectedItem
        ComboBox1.Items.Add("Item 1")
        Dim selectedItemIndex As Integer
        Dim selectedItem As String
        selectedItemIndex = ComboBox1.SelectedIndex
        selectedItem = ComboBox1.SelectedItem

Let me know if you have any questions.

timothybard

Reputation Points: 27

Solved Threads: 29

Posting Whiz

Offline

317 posts
since Mar 2007

Permalink

Oct 2nd, 2008

Re: Help Stuck area of a multiroom building

thanks that helped tremendously at least I was somewhat on the right track, more like just one wheel on the track. I will now work on the combo box, thank you.

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 2nd, 2008

Re: Help Stuck area of a multiroom building

Can't figure how to populate the combobox correctly it stays blank, I think I'm completely off track. Please Help.

VB Syntax (Toggle Plain Text)
Public Class Form1
    Dim dimensions(0, 0) As Integer
    Dim rooms As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prompt1, prompt2, title As String
        Dim i As Short
        prompt1 = "Enter the length of the room"
        prompt2 = "Enter the width of the room"
        rooms = InputBox("How many rooms?", "Create Array")
 
        If rooms > 0 Then ReDim dimensions(rooms - 1, 1)
        For i = 0 To UBound(dimensions)
            title = "Room " & (i + 1)
            dimensions(i, 0) = InputBox(prompt1, title)
            dimensions(i, 1) = InputBox(prompt2, title)
        Next
    End Sub
 
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        Dim listPrices As Integer()
 
        ' ComboBox1.Items.Add("Item 2")
        listPrices = New Integer() {5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25}
 
        Dim selectedItemIndex As Integer
        Dim selectedItem As String
        ComboBox1.Items.Add(listPrices)
        selectedItemIndex = ComboBox1.SelectedIndex
        selectedItem = ComboBox1.SelectedItem
 
    End Sub
End Class
Public Class Form1
    Dim dimensions(0, 0) As Integer
    Dim rooms As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prompt1, prompt2, title As String
        Dim i As Short
        prompt1 = "Enter the length of the room"
        prompt2 = "Enter the width of the room"
        rooms = InputBox("How many rooms?", "Create Array")

        If rooms > 0 Then ReDim dimensions(rooms - 1, 1)
        For i = 0 To UBound(dimensions)
            title = "Room " & (i + 1)
            dimensions(i, 0) = InputBox(prompt1, title)
            dimensions(i, 1) = InputBox(prompt2, title)
        Next
    End Sub

   
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim listPrices As Integer()

        ' ComboBox1.Items.Add("Item 2")
        listPrices = New Integer() {5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25}

        Dim selectedItemIndex As Integer
        Dim selectedItem As String
        ComboBox1.Items.Add(listPrices)
        selectedItemIndex = ComboBox1.SelectedIndex
        selectedItem = ComboBox1.SelectedItem

    End Sub
End Class

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 2nd, 2008

Re: Help Stuck area of a multiroom building

There are two issue you are having:

1) You can the code to add items to the combobox within the SelectedIndexChanged event. Since there are no items in the combobox, no items can be selected and, therefore, the selected index will never change and the code is never run.

2) To populate the combobox with an array, you need to loop through array and add each item to the combobox individually.

timothybard

Reputation Points: 27

Solved Threads: 29

Posting Whiz

Offline

317 posts
since Mar 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Deployment in vb.net

Next Thread in VB.NET Forum Timeline: Image in TITLE BAR?

DaniWeb Message

Cancel Changes

User Name
Password