Mein Spiel -> CPU Auslastung 100%

[Neutral General]

Wenn ich mein Spiel starte und und mein Formular aktiv ist, steigt die CPU-Auslastung im Taskmanager sofort auf 100%. Ich benutze DelphiX. Woran kann das liegen ?

[Luckie]

Zitat von Neutral General:

Woran kann das liegen ?

An deinem Code.

[mbamler]

Zitat von Neutral General:

Wenn ich mein Spiel starte und und mein Formular aktiv ist, steigt die CPU-Auslastung im Taskmanager sofort auf 100%. Ich benutze DelphiX. Woran kann das liegen ?

Ich glaube, dass liegt entweder an DelphiX oder an DirectX
(will sagen: dein Code kann da nur bedingt was für)

Egal welches DirectX Programm ich mit DelphiX bisher geschrieben habe - immer ist die CPU auslastung auf 100%
(du bist also nicht alleine)

Gruß
Matthias

[Neutral General]

*g* Luckie wie alle ihn kennen

da es ja die Auslastung dauernd 100% ist kann es ja nur an Code liegen der dauernd ausgeführt wird.
Also :

Delphi-Quellcode:

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  DXInput1.Update;
  DXSpriteEngine1.Move(1);
  DXDraw1.Surface.Fill(0);
  DXSpriteEngine1.Draw;
  DXDraw1.Flip;
end;

oder

Delphi-Quellcode:

procedure TSpieler.DoMove(MoveCount : Integer);
var Strecke : Double;
    xWeg,yWeg, xDiff,yDiff, Schritte : Double;
begin
inherited DoMove(MoveCount);
if (IsLeft in Form1.DXInput1.States) and (Move = false) then begin
  aX := Station.Links.X + (Station.Width/2);
  ay := Station.Links.y + (Station.Height/2);
  Move := true;
end;
 if (IsRight in Form1.DXInput1.States) and (Move = false)then begin
  aX := Station.Rechts.X + (Station.Width/2);
  ay := Station.Rechts.y + (Station.Height/2);
  Move := true;
end;

if Move = true then begin
  xWeg := Ax -x;
  yWeg := Ay -y;
  Strecke := Sqrt(Sqr(xWeg)+Sqr(yWeg));
  Schritte := Round(Strecke / 2);
  if Schritte = 0 then Schritte := 20;
  xDiff := xWeg / Schritte;
  yDiff := yWeg / Schritte;
  x := x + xDiff;
  y := y + yDiff;

  if (x = Ax) and (Ay = y) then Move := false;
end;
  Collision;
end;

Ansonsten wir bei mir nichts dauernd ausgeführt...

@ mbamler : Mh ok.. dann kann ichs wohl nicht ändern...

[3_of_8]

Wie hoch ist der Timer.Interval?

[Tubos]

Zitat:

Wenn ich mein Spiel starte und und mein Formular aktiv ist, steigt die CPU-Auslastung im Taskmanager sofort auf 100%

Und wo ist da das Problem dabei?
Wenn ich ein Spiel spiele, will ich in der Regel sowieso nichts nebenbei machen. Und wenn ich aus dem Fullscreen-Modus rausgehe (oder das Spiel-Fenster minimiere, jenachdem) und irgendwas anderes mache, soll das Spiel eben unterbrochen werden.

[Neutral General]

Zitat von 3_of_8:

Wie hoch ist der Timer.Interval?

Der Timer Intervall ist 1 aber ist jetzt auch egal.. das bleibt jetzt so und Ende ^^

[sniper_w]

Versuche es mit Sleep(10);.

[Neutral General]

sleep beim Haupttimer in DelphiX o.O ? Programmiertes Ruckeln ?^^

Lol von wegen... das geht echt voll gut o.O thx ! Hätt ich echt nicht gedacht...

[sniper_w]

Hast du es VERSUCHT ?