how to pass value between class module?

yvon · November 23rd, 2005, 11:07 AM

Option Explicit
I know that i can write the value into a cell, but is there another mean to achieve this?

[u]Environnement class module:</u>

Public mlG As Double

Public Property Get G() As Double
G = mlG
End Property

Private Sub Class_Initialize()
mlG = 9.81
End Sub

[u]boule class module</u>
Option Explicit

Dim mlHauteur As Double
Dim mlVitesse As Double

Public Property Get Hauteur() As Double
Hauteur = mlHauteur
End Property

Public Property Let Hauteur(ByVal h As Double)
mlHauteur = h
End Property

Public Property Get Vitesse() As Double
Vitesse = Sqr(2 * mlG * mlHauteur) 'computes the speed
End Property
Private Sub Class_Initialize()
mlHauteur = 10
End Sub

[u]and the procedure for testing these 2 class:</u>

Sub testBoule()
Dim objBoule As boule
Dim objEnv As Environnement

Set objBoule = New boule
    Set objEnv = New Environnement
    With objBoule
    MsgBox " speed of boule on the floor = " _
    & .Vitesse

    End With
End Sub

now the boule object cannot read the mlG variable declared in the environnement class module, what's the solution?
thanks in advance
yvon

ChrisScott · November 23rd, 2005, 12:58 PM

Hi yvon,

How you pass the value really depends on what you are doing, one way to achieve it would be to pass it in when you make the method call e.g.

Code:

MsgBox " speed of boule on the floor = " & .GetVitesse(objEnv.G)
...
Function GetVitesse(g As Double) As Double
    GetVitesse = Sqr(2 * g * mlHauteur)
End Function

HTH,

Chris