Schleifen
19.01.2018 18:23:49
Matthias
Code
Set Kurve = Worksheets(1) 'Funktionsgraf zeichnen
For i = 1 To (ObGrenze - UntGrenze) / Schritt
With Kurve.Shapes.AddLine(Y(1, i) - FalschwertX, Y(2, i), Y(3, i) - FalschwertX, _
Y(4, i)).Line
.DashStyle = msoLineSingle
.ForeColor.RGB = RGB(256, 0, 0)
End With
Next i
Unload UserForm1
Code
Wahlweise kann das Programm auch den integrierten und/oder den differenzierten Grafen darstellen. Das Projekt besteht aus 2 Userformularen,
3 Modulen und 1 Klassenmodul für die Erzeugung des spezifischen Koordinatensystems.
Die auf das Koordinatensystem kalibrierten Funktionswerte sind im Array Y() As Double
zwischengespeichert.
ObGrenze UntGrenze ist der Definitionsbereich des Grafen; Schritt entspricht der Länge der einzelnen Teilgeraden und somit der Genauigkeit.
Bei kleinem Schritt und entsprechend großem ObGrenze UntGrenze ist der Rechenaufwand recht erheblich. Bei einer Zahl der benötigten Schleifendurchläufe im mittleren 5-stelligen Bereich steigt Excel in der Schleife mit keine Rückmeldung aus.Ich habe das Programm über Nacht laufen lassen und immer noch: der Task-Manager zeigt Excel inaktiv.
Ich könnte mir vorstellen, dass das Betriebssystem mit der Aktualisierung des Bildschirms nicht hinterher kommt und irgend ein Puffer voll läuft.
Habs mit application.displayalerts.false . application.displayalerts.true versucht, geht auch nicht. Ihr habt mir schon 2 mal geholfen; vielleicht klappts noch mal.
Gruß Matthias