|
Hallo zusammen,
ich muss für eine Studienarbeit (angemerkt ich studiere nicht Informatik:)) ein Fachwerk programmieren, bei dem die Stabkräfte berechnet werden.
Das Fachwerk steht und die Kräfte werden auch ermittelt, aber jetzt muss ich den Stab mit der max. Stabkraft rot markieren. Dazu muss ich aber vor Allem erstmal raus finden, welcher Stab der mit der größten Stabkraft ist.
Und dann hab ich noch ein Problem';)
Ich muss in die Stabkräfte die Zug- und Druckkräfte als maßstäbliche Pfeile eintragen. So soll das am Ende ausschauen.
Hier ist noch ein ausschnitt vom VBA zum Programmieren der Stäbe.
Sub ZeichneStaebe()
Dim i As Integer
'Stäbe zeichnen
For i = 1 To anzahlStaebe
x1 = neuX(lauX(borStart(i)))
x2 = neuX(lauX(borEnde(i)))
y1 = neuY(lauY(borStart(i)))
y2 = neuY(lauY(borEnde(i)))
Set Stab = wb.Shapes.AddLine(x1, y1, x2, y2)
Stab.Line.Weight = 3
Stab.Line.ForeColor.RGB = vbBlack
Next i
End Sub
Hoffe das ist sinnvoll, wir haben außerdem noch die Lager und Knoten programmiert. Ich kann gerne noch mehr vom Programm einfügen:)
Kann mir da vielleicht einer helfen?
Vielen Dank schon mal und schöne Grüße
|