-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
18. Mär 2009
Zwei Posts über deinem habe ich (vor fast zwei Jahren) einen "aktuellen" Link zu dem Code gepostet. Versuche diesen nach dem Runterladen zu kompilieren.
Bin doch immer wieder erstaunt alle paar Jahre mal ne Email über eine PN bezüglich Snake zu bekommen :P
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
19. Mai 2007
Da ich hin und wieder mal ne PN zu dem Downloadlink bekomme, hier kann man das Archiv aus dem ersten Post noch finden: klick.
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
28. Dez 2004
Am besten wäre es, wenn du nur den Button3 auf deine Form machst, dann Doppelklickt drauf, damit Delphi die Prozedur erstellt und du dann den Code einträgst. Wenn du die ganze Prozedur kopiert hast, musst du gucken, ob sie auch oben in TForm1 eingetragen wurde und sie über den OI dem Button zuweisen.
MfG Pr0g
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
13. Nov 2004
Die Subdomain hat sich verändert, daher ist der Beispielcode nun hier zu finden: http://pr0g.net/knowhow/files/snake_src.zip
Ersetz mal den Code von "Button1Click" durch folgenden:
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
Button1.Enabled := False;
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Vielleicht irgendwann mal, sofern du keins über das von dir genutze System schreibst.
Hast recht, würde auch gehen. Ich hatte eigentlich geplant einen zweiten Teil zu schreiben, in dem die Zeichenfunktion so ergänzt wird, dass die Schlange aus einem Grafikset, also mit Kurven, Kopf usw. gezeichnet wird, kam bis jetzt aber nicht dazu, bzw. hatte keine Lust.
Vielleicht mache ich...
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Das Element mit dem Index 3 (iHead) stellt den Kopf der Schlange da, richtig? Nun hat die Schlange eine Länge von 3 (iLen), also werden die Elemente 3 bis 1 genutzt um die Schlange darzustellen, etc. Das würde bedeuten, dass das Element 0 ungenutzt ist, oder? Wenn ja, dann würde beim nächsten Schritt zusätzlich noch das Element 1 ungenutzt sein, sofern sich die Länge nicht ändert, da der Kopf ja...
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Wie würdest du bei deinem Code das Entfernen des letzten Stücks der Schlange realisieren? Alle Elemente des Arrays eins nach vorne verschieben?
Wofür ist die Variable "iGrow" gedacht?
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Vielleicht ist es einigen nicht ganz ersichtlich. Es ging mehr um das Grundprinzip von Snake. Die Codes sind für Anfänger beigefügt, die das Erklärte nicht umsetzen können. Wenn nun bspw. noch ein Record im Code genutzt wird, dann müsste dies auch wieder erklärt werden und das war eigentlich nicht meine Absicht. :wink:
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Ich habe den Code nun angepasst und auch den Fehler mit den zwei Messageboxen behoben, wenn man den rechten Rand berührt.
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Zu 3: Meinst du mit den Messageboxen, dass ich bspw. in "calc_snake" nur zwei Variablen setze und dann nach dem Aufruf der Prozedur im Timer je nach Variablenwert die Messagebox anzeigen lasse?
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Zu 2: Was könnte ich mit den globalen Variablen denn machen? Schließlich werden sie ja gebraucht.
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Die Styleguides habe ich noch nicht gelesen, werde ich nachholen.
Was ist daran so schlecht? Oder steht das auch in den Styleguides?
Könntest du das vielleicht noch ein bisschen erläutern und sagen, was an meiner Variante nicht so gut ist?
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
Danke, das wusste ich nicht :wink:
-
Forum: Tutorials und Kurse
Delphi
by Pr0g,
25. Mai 2004
In diesem Tutorial werde ich erklären, wie man einen Snakeklon in Delphi programmiert. Am Ende dieses Tutorials kann ein Beispielcode heruntergeladen werden.
Die Grundlagen
Zuerst muss geklärt werden, wie das ganze funktionieren wird. Das Spielfeld besteht aus einzelnen Feldern. Jedes Feld kann leer sein, oder einen Teil der Schlange, bzw. ein Stück Futter enthalten. Zum Speichern der...