Planetenbahnen.

[LePtitmort]

Hallo ich arbeite momentan an einem Projekt von "Jugendforscht" und leider setzten mir wieder mal, meine mehr als unzureichenden Delphi-Kenntnisse zuschaffen.
Unserer Projekt handelt von verscheidenen numerischen Lösungsvefahren der Planetenbahnen von n Körpern.
Ich stelle momentan ca. 300 000 Berechnungen an und das ganze in mehreren Repeat-Schleifen. Um nun zum eigentlichen Problem zukommen:
wenn ich nun beispielsweise den Namen eines Labels oder die Grösse einer Timage verändern möchte, so passiert dies erst nach diesen 300 000 Berechungen jedoch nicht an dieser Stelle, an der sie ausgelöst werden, zb nach der 100sten Berechung.
Aufgrund der aufwendgen Berechnungen dauern diese vielleicht 10 sekunden und die Veränderung des Labels geschieht erst nach dieser Zeit.
Ich vermute dies ist eine absolute "Anfängerfrage" *smile*
Ich lass euch allerdings noch nicht zufrieden mit meinem Noob-sein, nein ich habe noch ein 2. Problem, vermutlich noch leichter zulösen als das Erste.
Ich benötige eine Procedure die eine Kontrolle durchführt ob bereits seit dem Start des Timers, 100ms rumsind und wenn ja soll der Timmer wieder auf 0 gesetzt werden und wieder von vorne starten.
[mit dem sinn, nicht jede einzelne Berechnung zeichenen zulassen sondern jede 10ms, was ja sicher volkommen aureichend ist.]

Ich hoffe es findet sich jemand, der über die Leichtigkeit des "Problems" hinweg sieht und vielleicht ein paar leitende Worte im "Anfänger-slang" hat...
Vielleicht Dank im Voraus für die Bemühungen...

[EDatabaseError]

Erstmal Hallo in der DP!

Das Label Problem kannst du lösen wenn du nach der Zuweisung ein Label1.Update machst.


Mfg
TObi

[3_of_8]

Bitte für jede Frage einen eigenen Thread, danke.

Ach ja, und: Willkommen in der DP.

[happyaura]

Zitat:

Ich benötige eine Procedure die eine Kontrolle durchführt ob bereits seit dem Start des Timers, 100ms rumsind und wenn ja soll der Timmer wieder auf 0 gesetzt werden und wieder von vorne starten.
[mit dem sinn, nicht jede einzelne Berechnung zeichenen zulassen sondern jede 10ms, was ja sicher volkommen aureichend ist.]

Eventuell hab ich Dich da falsch verstanden, aber der Timer in delphi tut genau das, was Du vorhast:

Delphi-Quellcode:

var timer1: TTimer;

procedure TForm1.Initialisierung ();
begin
  timer1.interval=10; //oder =100;
  timer1.enabled= true;
end


procedure TForm1.Timer1_OnTimer(Sender: TObject);
begin
//zeichnung durchführen
end;

ob 10 ms bei Windows Sinn machen, weiß ich nicht genau, hab da die sinnvollen zeiten nicht im Kopf, würd aber gefühlsmäßig eher auf 100 ms hoch gehen

Viel Erfolg beim Forschen

[Khabarakh]

Zitat von EDatabaseError:

Erstmal Hallo in der DP!

Das Label Problem kannst du lösen wenn du nach der Zuweisung ein Label1.Update machst.


Mfg
TObi

Ein oder mehrere Threads wären wohl um Einiges sinnvoller.

Aber da es sich hier wohl um kein Delphi.Net-Problem handelt, bitte ich dich, LePtitmort, deinen ersten Beitrag zu editieren und die Plattform auf Win32 richtigzustellen.

[LePtitmort]

Super Hilfe, 1000 Dank, von nun an habt ihr einen aktiven Member mehr... Klasse Seite, Klasse Member, Klasse Hilfe...

TOLL!
Danke...