Hi,

wenn ich die linke oder rechte Pfeiltaste drücke, ruckelt es. DoubleBuffered hilft auch nicht. Kennt ihr eine Lösung oder andere Methode ? Es handelt sich hierbei um OpenGL. Das Raumschiff soll sich (man muss ja auch schnell vor schüssen etc. ausweichen) schnell und flutschig bewegen können.

zusammenfalten · markieren

Delphi-Quellcode:

var
  Leftp : integer;

{ ... }
procedure TGLForm.Render(Sender : TObject; var Done : Boolean);
{ ... }
// Position
glTranslatef(Leftp, 240, 0);

{ ... }
end;

{ ... }

procedure TGLForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RIGHT then
    Leftp := Leftp + 1 + 1;
  if Key = VK_LEFT then
    Leftp := Leftp - 1 - 1;
end;

hallo,

markieren

Delphi-Quellcode:

procedure TGLForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RIGHT then
    Leftp := Leftp + 1;
  if Key = VK_LEFT then
    Leftp := Leftp - 1;
end;

so besser?

wenn nicht, wäre ein bisschen mehr code noch nützlich. der code oben hat ja noch nicht viel mit raumschiff zu tun

Also du solltest schon hinschreiben das du mit OpenGL arbeitest.. weil das habe ich z.B nur durch glTranslatef gesehn..auf den zweiten Blick.. und ich glaube zwischen DelphiX, Windows Kompos und OpenGl ist ein großer Unterschied
Außerdem finde ich die Sparte etwas unpassend. Multimedia (Grafik, Audio, Video, Spiele, Design, DirectX, OpenGL, MP3) <-- steht bei der beschreibung von Multimedia, passt da wohl besser

ah ich idiot Das Raumschiff soll sich schnell, ohne Ruckeln bewegen.

Keine Idee ?
Ich hab den ersten Betrag erweitert:

Zitat von Nils:

Das Raumschiff soll sich (man muss ja auch schnell vor schüssen etc. ausweichen) schnell und flutschig bewegen können.

Nimm einen Timer, aber wenns geht einen genaueren als TTimer. Dort prüfst du immer, ob die Taste gedrückt ist:

markieren

Delphi-Quellcode:

if GetKeyState(VK_LEFT)<0 then
  // Taste ist gedrückt

Zusätzlich machst Leftp als Double und erhöhst nicht um 1 sonder um 0.1 oder so. Musst bissle damit rumprobieren.

Zitat von jim_raynor:

Nimm einen Timer, aber wenns geht einen genaueren als TTimer. Dort prüfst du immer, ob die Taste gedrückt ist:

markieren

Delphi-Quellcode:

if GetKeyState(VK_LEFT)<0 then
  // Taste ist gedrückt

Zusätzlich machst Leftp als Double und erhöhst nicht um 1 sonder um 0.1 oder so. Musst bissle damit rumprobieren.

Allgemein schon viel besser, thx. Nur was verstehst du unter genauerem Timer ? Wo krieg ich einen her ?

Zitat von Nils_13:

Allgemein schon viel besser, thx. Nur was verstehst du unter genauerem Timer ? Wo krieg ich einen her ?

Nun der Standardtimer hat nur eine Auflösung von 50ms und deshalb sehr ungenau. Zum Beispiel ist bei DelphiX ein Timer dabei, der genauer sein soll. Aber mir kam ja nach dem Beitrag noch ne andere Variante. Du kannst ja die Abfrage in deiner Spielschleife machen (Stichwort: Zeitabhängige Bewegungen). Solltest ja genug dazu im Forum hier finden. Du misst mit QueryPerformanceCounter zwischen zwei Abfragen und anhand derer erhöhst / verringerst du LeftP. Also zum Beispiel:

Das Raumschiff bewegt sich in 1s um 1 Feld (LeftP+1). Durch die Zeitmessung stellst du jetzt fest, dass seid dem letzten durchlauf 10ms vergangen sind. Also würdest du LeftP nur um 0.01 erhöhen. Bei 20ms dann entsprechend 0.02.

QueryPerformanceCounter sollte man deshalb nehmen, weil dieser schon sehr genau ist. Auf jeden Fall wesentlich genauer als GetTickCount.