Hauptprogramm zum Testen
30.01.2017 15:22:39
Alexander
ich habe die folgenden TYPEs und die Funktion gegeben, jedoch suche ich noch das passende Hauptprogramm dafür und stehe gerade auf dem Schlauch. Kann mir bitte jemand helfen!? Vielen Dank vorab!
Liebe Grüße
Option Explicit
Type Punkt
x As Double
y As Double
End Type
Type Rechteck
linksoben As Punkt ' linke obere Ecke des Rechtecks
rechtsunten As Punkt ' rechte untere Ecke des Rechtecks
End Type
Sub test()
End Sub
Function Flaeche(r As Rechteck) As Double
Flaeche = (r.rechtsunten.x - r.linksoben.x) * _
(r.linksoben.y - r.rechtsunten.y)
Flaeche = p
End Function