Posts by drnaphtali

drnaphtali · May 24th 2012

Hi guys,

I am busy building a design sheet which will be used for different projects.

I have two different sheets. On the first sheet I insert data (Room number, Room name, Room Area, etc)
I then have a second sheet which contains alot of forumulas for information on each room.

Is there a more simple way than using macro's, where if I add (or delete!) data on table one the workbook automatically updates the table on sheet two (inserting rows, and automatically put in the formulas in the approproate cells)?

Please let me know if I should clarify.

Thank you and regards,
Leon

drnaphtali · Feb 14th 2012

Re: Sum of elements of a collection class method

I have no idea what you were trying to do with those last few routines, or what they even are. If you do not mind, would you try to explain? Looks like advanced coding! As soons as someone uses "_" I get scared.

drnaphtali · Feb 14th 2012

Re: Sum of elements of a collection class method

I think this is exactly what I need!

Now I can just write a method for cRooms to return a specific property of a desired room (ie objSystem.GetRoomProperty(eProperties.SupplyAir, "Foyer")) where eProperties is an enum with all the properties listed.

Thank you so much for your time and effort vwankerl! It is very very much appreciated.

drnaphtali · Feb 10th 2012

Re: Sum of elements of a collection class method

My other question is say I have a class cRoomCooling with SupplyAir and ReturnAir as properties.

Code

Dim objRoom as cRoomCooling
Dim objAllRooms as Collection

Now when I write a function where I add say 3 rooms to the collection; if I watch the objAllRooms I see 3 items, each with their two properties, ie SupplyAir and ReturnAir. Isnt there someway to access just a certain property of a collection...like

Code

for each item in objAllrooms.SupplyAir

or what I would like more is isnt there a way to pass through one property of all the items in a collection and then maby have this as an input to the cSystemCooling method??

Code

dim objSystem as cSystemCooling
objSystem.SumOff(objAllRooms.SupplyAir)

drnaphtali · Feb 10th 2012

Re: Sum of elements of a collection class method

Hi Vwankerl,

Thanks for the great reply! Defining the collection within the cSystemCooling class does make sense and helps somewhat.

You are correct in saying that cSystemCooling is an aggregate, but first prize would be however if I can define and access the Collection withine the function itself.

The function I am writing is a long and complicated affair, and it will be difficult to explain exactly what I want to do without writing a thesis. But to give you the just of it, I will calculate an initial flow for each room (and several other properties), get the sum of it, analize each property with a for each loop, update it if necesary, get the sum, analize, update, etc untill I achieve a 'neutral' value. The output would then be the flow of ONE of the rooms.

Going to play around with your suggestions to try and wrap my brain around the problem more, but like I said, at the moment I think first prize is if I can define the collection in my test function and send the collection through as an input to the cSystemcooling method.

drnaphtali · Feb 9th 2012

Hi guys,

Not sure if the title makes sense; I did not really know how to describe my problem is so few words.

I have a system with some rooms. Each room has various properties such as airflows. So I created a class module for the rooms, named cRoomCooling.

Code

Option Explicit


Private pSupplyAir


Public Property Get SupplyAir() As Double
    SupplyAir = pSupplyAir
End Property
Public Property Let SupplyAir(Value As Double)
    pSupplyAir = Value
End Property

Display More

I also then created a class describing the system data, named cSystemCooling

Code

Option Explicit


Private pSupplyAir


Public Property Get SupplyAir() As Double
    SupplyAir = pSupplyAir
End Property
Public Property Let SupplyAir(Value As Double)
    pSupplyAir = Value
End Property

Display More

(Both the room class and system class have more properties, i just simplified it)

I have created the following TEST function:

Code

Function TestSupplyAir()
    Dim objRoom As cRoomCooling
    Dim objSystem As cSystemCooiling
    Dim objSupplyAir As Collection
    
    Set objSupplyAir = New Collection
    Set objSystem = New cSystemCooiling
    
    Set objRoom = New cRoomCooling
    objRoom.SupplyAir = 5
    objSupplyAir.Add objRoom
    
    Set objRoom = New cRoomCooling
    objRoom.SupplyAir = 8
    objSupplyAir.Add objRoom
    
    Call objSystem.SumOfSupplyAir(objSupplyAir)
    
    TestSupplyAir = objSystem.SupplyAir
    
End Function

Display More

The objSystem.SumOfSupplyAir(objSupplyAir) is described in the following method, under the cSystemCoolingclass, which is used to calculate the sum of all the flowrates of all the rooms:

Code

Public Sub SumOfSupplyAir(SupplyAir As Collection)
    
    pSupplyAir = 0
    Dim Item As Object
    
    For Each Item In SupplyAir
        pSupplyAir = pSupplyAir + Item.SupplyAir
    Next Item
End Sub

I will need to write quote a hectic function so I want to create a method to get the Sum, so I do not type "For Each" everytime I want to calculate a sum.

My first question is, is it bad coding style to dim Item as an object in the method? When I type in

Code

item.

I do not get the dropdown showing me all the class members.

My second question is, I do not want to create a collection for each property. How do I pass certain members of an item in a collection through to a sub or function?

I hope I make sense!

Thanks,

drnaphtali · Nov 9th 2010