[DX] Sprite in Richtung wandern lassen, in die es guckt

[Die Muhkuh]

Hi,

bin erst in der achten Klasse. Kenne mich noch nicht mit dem ganzen Zeugs (sin, cos, Deg, Rad...) aus ;).

mfg Manu :hi:

[Airblader]

Zitat:

Zitat von Spider

Hi,

bin erst in der achten Klasse. Kenne mich noch nicht mit dem ganzen Zeugs (sin, cos, Deg, Rad...) aus ;).

mfg Manu :hi:

gehts mir mit 9. klasse nich anders :mrgreen:

[Die Muhkuh]

Hi,


scheint irgendwie nicht zu klappen. Das Auto fährt einfach irgendwo hin.

Mein code:

Delphi-Quellcode:

procedure TAuto.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);

  if isUp in Form1.Input.States then
  begin
    X := X + degtorad(cos(Angle)) * MoveCount;
    Y := Y + degtorad(sin(Angle)) * MoveCount;
  end;

  if isDown in Form1.Input.States then
  begin
    X := X - degtorad(cos(Angle)) * MoveCount;
    Y := Y - degtorad(sin(Angle)) * MoveCount;
  end;

  if isLeft in Form1.Input.States then
    Angle := Angle - 1;

  if isRight in Form1.Input.States then
    Angle := Angle + 1;
end;

Das drehen klappt :roll: .

Am besten ihr schauts euch mal an.

Rar
Zip

[jim_raynor]

Mhh.
degtorad wandelt die Gradzahl in Rad-Angabe um. diese musst du dann der Funktion (cos/sin) übergeben.

Also:

Delphi-Quellcode:

cos(degtorad(Angle))

und nicht anders herum :coder:

[Die Muhkuh]

Hi,

thx, bin grad inner Schule, werde es später mal probieren ;).

*MFG*

Manu :hi:

[Die Muhkuh]

Hi,


also, irgendwie wills immernoch nicht :( .

So sieht er jetzt aus:

Delphi-Quellcode:

procedure TAuto.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);

  if isUp in Form1.Input.States then
  begin
    X := X + cos(degtorad(Angle)) * MoveCount;
    Y := Y + sin(degtorad(Angle)) * MoveCount;
  end;

  if isDown in Form1.Input.States then
  begin
    X := X - cos(degtorad(Angle)) * MoveCount;
    Y := Y - sin(degtorad(Angle)) * MoveCount;
  end;

  if isLeft in Form1.Input.States then
    Angle := Angle - 1;

  if isRight in Form1.Input.States then
    Angle := Angle + 1;
end;

Ich glaube es liegt an meinem Image. Werde ich mal ausprobieren.

Hier könnt ihr euch mal meinen Source anschauen, ich hoffe ihr versteht das besser:

Rar
Zip


[edit] Ups, da ist noch ein Fehler im Quellcode, nehmt grad den, den ich hier gepostet hab. Beim anderen steht noch ein - statt ein +. (Kommt vom rumprobieren). Der Fehler aber bleibt. [/edit]

[Maximus]

Delphi-Quellcode:

procedure TAuto.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);

  if isUp in Form1.Input.States then
  begin
    X := X - cos(degtorad(Angle)) * MoveCount;
    Y := Y + sin(degtorad(Angle)) * MoveCount;
  end;

  if isDown in Form1.Input.States then
  begin
    X := X + cos(degtorad(Angle)) * MoveCount;
    Y := Y - sin(degtorad(Angle)) * MoveCount;
  end;

  if isLeft in Form1.Input.States then
    Angle := Angle - 1;

  if isRight in Form1.Input.States then
    Angle := Angle + 1;
end;

So sollte es eigentlich funktionieren!

//Edit: Da anscheinend die Farbcodes im Quelltext nicht funktionier hab ich sie wieder rausgelöscht

[Die Muhkuh]

Hi,

geht leider auch nicht :(

*MFG*

Manu :hi:

[Ben1]

Ja und was geht da nun nicht ?
Bewegt sich nichts ? Falsche Richtung ? Fehlermeldung ?

[Die Muhkuh]

Hi Ben,

ich hatte doch die Sourcen angehängt. Ich dachte man könnte es selbst mal testen ;).

Trotzdem hier nochmal:

Das Auto fährt einfach in irgendeine Richtung.