|
Guten Tag!
Ich möchte für Folgendes ein Programm in VBA erstellen und komme einfach nicht drauf wie ich es machen soll:
Ich möchte eine Formel berechnen, die sich durch verschiedene Punkte eines Polygons berechnen lässt.
--------------------------------------------------------------------------------------------
Die Gauss Formel zur Berechnung eines Polygons sieht so aus :
A(Gesamt) = A1 + A2 + A3 + .......+AN
Wobei
A= (y1+y2) *0.5* (x2-x1)
--------------------------------------------------------------------------------------------
Für eine Fläche habe ich Folgendes gemacht:
-----------------------------------------------------------------------------------------------
Public Sub Trapezformel()
Dim x1 As Double
Dim x2 As Double
Dim y1 As Double
Dim y2 As Double
Dim Trapez As Double
x1 = InputBox("Geben Sie x1 ein")
x2 = InputBox("Geben Sie x2 ein")
y1 = InputBox("Geben Sie y1 ein")
y2 = InputBox("Geben Sie y2 ein")
Trapez = (y1 + y2) * 0.5 * (x2 - x1)
MsgBox ("Die Fläche beträgt" & Trapez)
End Sub
------------------------------------------------------------------------------------------
Wie schaffe ich es nun, dass sich dieser Ablauf solange wiederholt bis ich ihn abbreche, jedoch die Werte der einzelnen Flächen addiert werden???
Ich freue mich auf hilfreiche Tipps!!
Schönen Gruss
|