Einzelnen Beitrag anzeigen

Benutzerbild von MathiasH
MathiasH

Registriert seit: 14. Jun 2002
Ort: Vachendorf (SO-Bayern)
41 Beiträge
 
Delphi 6 Professional
 
#38

Re: Gravitationssimulator

  Alt 19. Jul 2004, 22:08
echt amüsant des Teil, aber ist es zwingend notwenidig, dass es die CPU Last auf 100% treibt, selst wen noch kein einziges Teilchen da ist? ba einfach enen frame limiter ein.
in etwa so:
Delphi-Quellcode:
frames: integer; //frames seit dem Anbruch der letzten Sekunde
lastsec: integer; //letzte ganze Sekunde

while frames/(gettickcount - lastsec)*1000 > 60 do sleep(1);
inc(frames);
while gettickcount - lastsec > 1000 do begin //schleife hat den sinn, hänger abzufangen, man könnte hier auch mit 0 setzen arbeiten, ist aber ungenauer
  inc(lastsec, 1000);
  frames := 0;
end;
ich hoffe ich hab keinen Käs gebaut

PS bei jedem 10. Frame würd ich mindestens ein Processmessages einbauen, in dem eine abbruchbedingung erfüllt werden kann (button click etc.)

Die Physik interessiert mich eher weniger, sowas in der Art programmier ich zur Zeit in langweiligen Physikstunden...

MathiasH
  Mit Zitat antworten Zitat