objektinstanzen
24.10.2017 10:18:03
Rothe
Ich beabsichtige Funktionsgrafen zwischen den Abszissenwerten intLinkeGrenze und intRechteGrenze darzustellen.
Dafür habe ich zunächst zu Testzwecken das Klassenmodul clsOrgio und die Instanzerzeugende Sub "Funktion" erstellt.
Für die Abszissenwerte -10 und 20 erhalte ich korrekterweise 360 als Orgio.
Das fertige Programm soll allerdings auch für 2 positive oder 2 negative Werte
die Koordinaten erzeugen.
Dazu habe ich versuchsweise eine if Sequenz in die "Property Get X0()" eingebaut.
Damit erhalte ich allerdings den Laufzeitfehler 13 -Typen unverträglich bei
"Debug.Print Orgio.X0". Mit einer Funktion Prozedur würde ich das sicher hinbekommen;
aber ich will das hier jetzt wissen.
Vielleicht kann mir jemand auf die Sprünge helfen
Gruß Matthias
Public Sub Funktion()
Dim Orgio As clsOrgio
Set Orgio = New clsOrgio
Orgio.X1 = -10
Orgio.X2 = 20
Debug.Print Orgio.X0
End Sub
Klassenmodul clsOrgio:Option Explicit
Private intLinkeGrenze As Integer
Private intRechteGrenze As Integer
Public Property Let X1(ByVal intLiGre As Integer)
intLinkeGrenze = intLiGre
End Property
Public Property Let X2(ByVal intReGre As Integer)
intRechteGrenze = intReGre
End Property
Public Property Get X0()
'If ((intLinkeGrenze 0)) Then
X0 = (720 * -(intLinkeGrenze)) \ (intRechteGrenze - intLinkeGrenze) + 120
'Die X-Achse soll zwischen den Punkten 120 und 840 ligen.
'Else: X0 = 0
'End If
End Property