Funktionen in Klassen aus Modul aufrufen
22.04.2015 14:26:16
Malte
ich komme momentan mit meinen Klassen nicht weiter.
Ich habe folgende Klasse:
clsStoff hier befindet sich der Get-Aufruf sowie eine Funktion:
Public Property Get aT() As Double
aT = paT
End Property
Function func_PR_Parameter_aT(ByVal Temperatur As Double) As Double
paT = pac * (1 + pm * (1 - (Temperatur / pKrit_Temp) ^ 0.5)) ^ 2
End Function
Aus dem Modul kann ich dann wie folgt die Fkt aufrufen:
Sub Test()
Dim Stoff_1 as clsStoff
Stoff_1 = New clsStoff
Stoff_1.func_PR_Parameter_aT(Temperatur)
End Sub
Funktioniert einwandfrei.
Nun habe ich eine zweite Klasse clsMix, ebenfalls mit Get-Aufruf und Funktion:
Public Property Get b_mix() As Double
b_mix = pB_mix
End Property
Function func_b_mix(ByVal Konzentration As Double, ByVal b_1 As Double) As Double
pB_mix = Konzentration * b_1 + (1 - Konzentration) * 2
End Function
Aus dem Modul möchte ich Folgenden Aufruf machen:
Sub Test(byval Stoff_1 as clsStoff)
dim mixL as clsMix
mixL = New clsMix
mixL.func_b_mix(Stoff_1.aT,Stoff_1.aT,Stoff_1.aT)
End Sub
Kurz gefasst. Wenn ich nur eine Variable übergebe funktioniert es. Wenn ich mehrere übergebe erscheint der Fehler.
Was mache ich falsch?
Vielen Dank!
Gruß!
Malte
Anzeige