Timebased Movement: Unterschied zwischen den Versionen

Aus DGL Wiki
Wechseln zu: Navigation, Suche
(Version hochgeladen)
K (+ Bomberman Tutorial Link)
Zeile 73: Zeile 73:
 
   <b>if</b> Pos.X > 20 <b>then</b> Pos.X := 0;
 
   <b>if</b> Pos.X > 20 <b>then</b> Pos.X := 0;
 
  <b>end</b>;
 
  <b>end</b>;
 +
 +
== Links ==
 +
*[http://www.delphigl.com/script/do_show.php?name=bombman2&action=2 Bomberman DGL-Tutorial]

Version vom 2. Oktober 2004, 11:17 Uhr

Kurz-Beschreibung

Timebased Movement sorgt dafür, dass die Bewegungsgeschwindikeiten nicht vom Rechner abhängen.

Prinzip

Anstatt Bewegungs-Änderungen mit festen Werten durchzuführen, wird dieser Betrag vorher anhand der vergangenen Zeit berechnet. Dadurch wird verhindert das die Spielgeschwindigkeit an die Bildwiederholungs Frequenz gekoppelt ist.

Berechnung

Der Faktor um wieviel sich alles bewegt, kann zum Beispiel über die seit der letzen Abfage vergangen Zeit ermittelt werden.

Allgemein:

VergangeneZeit:= (Zeit1-Zeit0)/Frequenz;

Diese vergangende Zeit(eigentlich immer in Sekunden) ist nun der ZeitFaktor, den wir nutzen um zu bestimmen um wieviel sicht etwas bewegt.

Die Bewegung dann:

Position := Position + Geschwindikeit*VergangeneZeit;

Möglichkeiten

Millisekunden genau unter Windows

Die wohl einfachste Möglichkeit unter Windows so etwas zu realisieren besteht darin mit Hilfe von GetTickCount die Zeit (in Millisekunden) seit dem letzen Windows-Start zu ermitteln.

//Benötigte Variablen
var
  BerechnungsZeit:LongWord;
procedure BeimStart;//Was hier drinnen steht sollte zum Start ausgeführt werden begin BerechnungsZeit := GetTickCount(); end;
procedure BerechnungsCheck;//Alle nötigen Berechnungen durchführen const Frequenz=1000;//Durch Windows festgelegt var AktuelleZeit:LongWord; begin AktuelleZeit := GetTickCount(); Berechne((AktuelleZeit - BerechnungsZeit) /Frequenz); BerechnungsZeit := AktuelleZeit; end;
procedure Berechne(ZeitFaktor:Double); begin {Alle Berechnungen stehen hier } //z.B Pos.X := Pos.X + Speed.X*ZeitFaktor; if Pos.X > 20 then Pos.X := 0; end;

Absolute Genauigkeit per Hardware

Man kann auch die Hardware zur Zeitmessung nutzen um so noch genauere Ergebnisse zu erziehlen. Es kann jedoch theoretisch sein(auch jetzt noch?), dass diese nicht zur verfügung steht.

//Benötigte Variablen
var
  BerechnungsZeit:Int64;
  Frequenz:Int64;
procedure BeimStart;//Was hier drinnen steht sollte zum Start ausgeführt werden
begin
  if not QueryPerformanceFrequency(Frequenz) then//Frequenz ermitteln
   raise Exception.create('Kein Hardware Timer vorhanden');
  QueryPerformanceCounter(BerechnungsZeit);//Aktuelle Zeit ermitteln
end;
procedure BerechnungsCheck;//Alle nötigen Berechnungen durchführen
var
  AktuelleZeit:Int64;
begin
  QueryPerformanceCounter(AktuelleZeit);
  Berechne((AktuelleZeit - BerechnungsZeit) /Frequenz);
  BerechnungsZeit := AktuelleZeit;
end;
procedure Berechne(ZeitFaktor:Double);
begin
  {Alle Berechnungen stehen hier }
  //z.B
  Pos.X := Pos.X + Speed.X*ZeitFaktor;
  if Pos.X > 20 then Pos.X := 0;
end;

Links