AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Snake/ sie mag nicht wenden
Thema durchsuchen
Ansicht
Themen-Optionen

Snake/ sie mag nicht wenden

Ein Thema von cello · begonnen am 25. Nov 2012 · letzter Beitrag vom 26. Nov 2012
Thema geschlossen
IceBube

Registriert seit: 9. Jul 2008
181 Beiträge
 
#1

AW: Snake/ sie mag nicht wenden

  Alt 25. Nov 2012, 17:55
Hallo!

Also ich hab ziemlich lange gebraucht um deinen Code zu verstehen, bzw. kenn ich mich noch immer nicht so ganz aus :/
Warum so viele Timer, ist es richtig dass du für jede Bewegungsrichtung einen Timer hast?

Besser ist es, wenn du mit TPoint arbeitest!

Delphi-Quellcode:
var
  Dir : TPoint;
  Speed : Integer;

procedure onKeyDown();
begin
 iF Key = vk_LEFT Then Point(-1, 0);
 iF Key = vk_RIGHT Then Point( 1, 0);
 iF Key = vk_UP Then Point( 0, 1);
 iF Key = VK_DOWN Then Point( 0,-1);
end;

procedure Timer.OnTimer();
begin
 //Bewegung
 Koerper.Left := Koerper.Left + (Speed * Dir.X);
 Koerper.Top := Koerper.Top + (Speed * Dir.Y);

 //Kollisionsabfrage
 iF Collision Then
 begin
  Verloren();
 end;
end;
Ebenso besser wäre es evt. die Kollisionsabfrage in eine Function zu geben..mit einem Boolean als Rückagewert.

lg

/edit

Einfacher ist es auch wenn du den TSnake-Record als Klasse machst

z.B:

Delphi-Quellcode:
type
 TSnake = class (TImage)
  function Collision() : Boolean; //für Kollisionsabfrage
 public
  Speed : Integer;
  Dir : TPoint ;
  Laenge : Integer;
 end;

var
 Snake : TSnake;

//Erstellen
Snake := TSnake.Create(Form);
with Snake do
begin
 Parent := Form:
 Picture.LoadFromFile('');

 Speed := 1;
 Dir := Point(0, 0);
 Laenge := 6;

 AutoSize := TRUE;
 Show;
end;

//Timer
Snake.Left := Snake.Left + Snake.Dir.X;
...

if Snake.Collision Then
...

Geändert von IceBube (25. Nov 2012 um 18:09 Uhr)
 
nuclearping

Registriert seit: 7. Jun 2008
708 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Snake/ sie mag nicht wenden

  Alt 25. Nov 2012, 18:40
Warum machst du einen neuen Thread auf und antwortest nicht in dem alten von dir?

http://www.delphipraxis.net/171678-s...-bewegung.html
 
Benutzerbild von r_kerber
r_kerber

Registriert seit: 11. Feb 2003
Ort: Trittau
3.538 Beiträge
 
Delphi XE Professional
 
#3

AW: Snake/ sie mag nicht wenden

  Alt 26. Nov 2012, 04:14
Hier geht's weiter. Bitte nur einen Thread pro Thema aufmachen!
 
Thema geschlossen

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz