Snake Programm ( Delphi )

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • Snake Programm ( Delphi )

      Hallo leute,
      ich bin leider gerade irgendwie am verzweifeln, wahrscheinlich an einem total blöden Fehler. Achtung schonmal... Es kommt ein relativ großes programm auf euch zu, falls ihr weiterlest.
      Erstmal muss ich sagen, dass ich Informatik ziemlich hasse und morgen ein vollständiges Snakeprogramm abliefern muss.
      Allerdings verzweifel ich quasi schon an den Grundlagen. Ich erwarte hier auch keine Hilfe. Mir ist klar, dass ich es selbst Schuld bin usw.


      Also zum Thema:
      Wir verwenden eine Unit Schlange, die den Typ TSchlange deklariert und die wichtigsten Funktionen enthält. Dequeue, Enqueue usw.
      Im Hauptprogramm hab ich einen button, der die Schlange erstellen soll. Dieser verwendet die Funktionen aus der Unit Schlange.
      Achja, ich verwende zur Darstellung ein Image-Objekt.
      Allerdings erhalte ich immer eine Zugriffsverletzung, die auf die Funktion Enqueue verweist und ich habe keine Ahnung was das Problem ist.

      Achtung: Wall of text...

      Create button:

      Quellcode

      1. procedure TForm1.btncreateClick(Sender: TObject);
      2. var
      3. element1:TElement;
      4. begin
      5. richtung:='R';
      6. Form1.Image1.Canvas.Brush.Color:=clWhite;
      7. Form1.Image1.Canvas.FillRect(Rect(0,0,600,450));
      8. Snake:=Createqueue;
      9. Element1.x:=4;
      10. Element1.y:=6;
      11. Snake:=Enqueue(Snake,Element1);
      12. ZeichneElement(Back(Snake),clBlue);
      13. Element1.x:=Element1.x+1;
      14. Snake:=Enqueue(Snake,Element1);
      15. ZeichneElement(Back(Snake),clBlue);
      16. Element1.x:=Element1.x+1;
      17. Snake:=Enqueue(Snake,Element1);
      18. ZeichneElement(Back(Snake),clBlue);
      19. Element1.x:=Element1.x+1;
      20. Snake:=Enqueue(Snake,Element1);
      21. ZeichneElement(Back(Snake),clBlue);
      22. end;
      Alles anzeigen


      Enqueue:

      Quellcode

      1. function Enqueue(schlange:TSchlange;element:TElement):TSchlange;
      2. var
      3. Knoten:TKnotenzeiger;
      4. begin
      5. New(Knoten);
      6. Knoten^.element:=element;
      7. if isEmpty(Schlange)=True then
      8. begin
      9. Schlange.kopf:=Knoten;
      10. Schlange.Fuss:=Knoten;
      11. Knoten.next:=NIL;
      12. result:=Schlange
      13. end
      14. else
      15. begin
      16. Schlange.Fuss.next:=Knoten; // Debugger verweist auf diese Zeile
      17. Schlange.Fuss.next.next:=NIL;
      18. Schlange.Fuss:=Knoten;
      19. result:=Schlange;
      20. end;
      21. end;
      Alles anzeigen


      Komplette Unit Schlange:

      Quellcode

      1. unit Schlange;
      3. interface
      4. type TElement = record
      5. x : integer;
      6. y : integer;
      7. end;
      8. TKnotenzeiger = ^TKnoten;
      9. TKnoten = record
      10. element : TElement;
      11. next : TKnotenzeiger;
      12. end;
      13. TSchlange = record
      14. kopf : TKnotenzeiger;
      15. Fuss : TKnotenzeiger;
      16. end;
      17. function CreateQueue : TSchlange;
      18. function Enqueue(schlange:TSchlange;element:TElement):TSchlange;
      19. function Dequeue(schlange:Tschlange):TSchlange;
      20. function Front(schlange:Tschlange):TElement;
      21. function Back(Schlange:Tschlange):Telement;
      22. function isEmpty(Schlange:Tschlange):boolean;
      23. var
      24. Snake:TSchlange;
      25. implementation
      26. function CreateQueue : TSchlange;
      27. begin
      28. Snake.Fuss:=NIL;
      29. Snake.Kopf:=NIL;
      30. end;
      31. function Enqueue(schlange:TSchlange;element:TElement):TSchlange;
      32. var
      33. Knoten:TKnotenzeiger;
      34. begin
      35. New(Knoten);
      36. Knoten^.element:=element;
      37. if isEmpty(Schlange)=True then
      38. begin
      39. Schlange.kopf:=Knoten;
      40. Schlange.Fuss:=Knoten;
      41. Knoten.next:=NIL;
      42. result:=Schlange
      43. end
      44. else
      45. begin
      46. Schlange.Fuss.next:=Knoten;
      47. Schlange.Fuss.next.next:=NIL;
      48. Schlange.Fuss:=Knoten;
      49. result:=Schlange;
      50. end;
      51. end;
      52. function Dequeue(schlange:Tschlange):TSchlange;
      53. var
      54. zeiger:TKnotenzeiger;
      55. begin
      56. if Schlange.kopf=NIL then
      57. result:=Schlange
      58. else if Schlange.kopf=Schlange.Fuss then
      59. begin
      60. dispose(Schlange.kopf);
      61. Schlange.kopf:=NIL;
      62. Schlange.Fuss:=NIL;
      63. result:=Schlange;
      64. end
      65. else
      66. begin
      67. zeiger:=Schlange.kopf;
      68. Schlange.kopf:=Schlange.kopf.next;
      69. dispose(zeiger);
      70. result:=Schlange;
      71. end;
      72. end;
      73. function Front(schlange:Tschlange):TElement;
      74. begin
      75. if isEmpty(Schlange)=True then
      76. begin
      77. result.x:=-1;
      78. result.y:=-1;
      79. end
      80. else
      81. result:=Schlange.kopf.element;
      82. end;
      83. function Back(Schlange:Tschlange):Telement;
      84. begin
      85. if isEmpty(Schlange)=True then
      86. begin
      87. result.x:=-1;
      88. result.y:=-1;
      89. end
      90. else
      91. result:=Schlange.Fuss.element;
      92. end;
      93. function isEmpty(Schlange:Tschlange):boolean;
      94. begin
      95. if Schlange.kopf=NIL then
      96. result:=True
      97. else
      98. result:=false;
      99. end;
      101. end.
      Alles anzeigen



      Außerdem natürlich das Hauptprogramm:

      Quellcode

      1. unit Unit1;
      3. interface
      5. uses
      6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      7. Dialogs, Schlange, StdCtrls, ExtCtrls;
      9. type
      10. TForm1 = class(TForm)
      11. Image1: TImage;
      12. btncreate: TButton;
      13. btnadd: TButton;
      14. btndelete: TButton;
      15. btnschritt: TButton;
      16. Timer1: TTimer;
      17. btngo: TButton;
      18. procedure btncreateClick(Sender: TObject);
      19. procedure btnaddClick(Sender: TObject);
      20. procedure btndeleteClick(Sender: TObject);
      21. procedure btnschrittClick(Sender: TObject);
      22. procedure Timer1Timer(Sender: TObject);
      23. procedure btngoClick(Sender: TObject);
      24. procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
      25. private
      26. { Private-Deklarationen }
      27. public
      28. { Public-Deklarationen }
      29. end;
      31. var
      32. Form1: TForm1;
      33. Snake:TSchlange;
      34. richtung:char;
      35. procedure ZeichneElement(Element: TElement;farbe:Tcolor);
      36. implementation
      37. procedure ZeichneElement(Element: TElement;farbe:Tcolor);
      38. begin
      39. Form1.Image1.Canvas.Brush.Color:=farbe;
      40. Form1.Image1.Canvas.FillRect(Rect(element.x*15,element.y*15,element.x*15+15,element.y*15+15));
      41. end;
      43. {$R *.dfm}
      45. procedure TForm1.btncreateClick(Sender: TObject);
      46. var
      47. element1:TElement;
      48. begin
      49. richtung:='R';
      50. Form1.Image1.Canvas.Brush.Color:=clWhite;
      51. Form1.Image1.Canvas.FillRect(Rect(0,0,600,450));
      52. Snake:=Createqueue;
      53. Element1.x:=4;
      54. Element1.y:=6;
      55. Snake:=Enqueue(Snake,Element1);
      56. ZeichneElement(Back(Snake),clBlue);
      57. Element1.x:=Element1.x+1;
      58. Snake:=Enqueue(Snake,Element1);
      59. ZeichneElement(Back(Snake),clBlue);
      60. Element1.x:=Element1.x+1;
      61. Snake:=Enqueue(Snake,Element1);
      62. ZeichneElement(Back(Snake),clBlue);
      63. Element1.x:=Element1.x+1;
      64. Snake:=Enqueue(Snake,Element1);
      65. ZeichneElement(Back(Snake),clBlue);
      66. end;
      68. procedure TForm1.btnaddClick(Sender: TObject);
      69. var
      70. ele:TElement;
      71. begin
      72. if richtung='R' then
      73. begin
      74. ele.x:=((Back(Snake).x)+1);
      75. ele.y:=(Back(Snake).y);
      76. Snake:=Enqueue(Snake,ele);
      77. ZeichneElement(Back(Snake),clBlue);
      78. end
      79. else if richtung='L' then
      80. begin
      81. ele.x:=((Back(Snake).x)-1);
      82. ele.y:=(Back(Snake).y);
      83. Snake:=Enqueue(Snake,ele);
      84. ZeichneElement(Back(Snake),clBlue);
      85. end
      86. else if richtung='U' then
      87. begin
      88. ele.x:=((Back(Snake).x));
      89. ele.y:=(Back(Snake).y+1);
      90. Snake:=Enqueue(Snake,ele);
      91. ZeichneElement(Back(Snake),clBlue);
      92. end
      93. else if richtung='H' then
      94. begin
      95. ele.x:=((Back(Snake).x));
      96. ele.y:=(Back(Snake).y-1);
      97. Snake:=Enqueue(Snake,ele);
      98. ZeichneElement(Back(Snake),clBlue);
      99. end
      100. end;
      102. procedure TForm1.btndeleteClick(Sender: TObject);
      103. begin
      104. Zeichneelement(Front(Snake),clWhite);
      105. Snake:=DeQueue(Snake);
      106. end;
      108. procedure TForm1.btnschrittClick(Sender: TObject);
      109. begin
      110. Btnadd.Click;
      111. Btndelete.click;
      112. end;
      114. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
      115. Shift: TShiftState);
      116. begin
      117. if key=37 then
      118. richtung:='L'
      119. else if key=39 then
      120. richtung:='R'
      121. else if key=40 then
      122. richtung:='U'
      123. else if key=38 then
      124. richtung:='H';
      125. end;
      127. procedure TForm1.btngoClick(Sender: TObject);
      128. begin
      129. Timer1.Enabled:=TRUE;
      130. btncreate.Enabled:=False;
      131. btnadd.Enabled:=False;
      132. btndelete.Enabled:=False;
      133. btnschritt.Enabled:=False;
      134. btngo.Enabled:=false;
      135. end;
      137. procedure TForm1.Timer1Timer(Sender: TObject);
      138. begin
      139. Btnschritt.click;
      140. end;
      142. end.
      Alles anzeigen



      Danke schonmal.

    • Zum einfacher Helfen: Bitte mach korrekte Indents. Und tu den ganzen Code per filebin oder pastebin aufs Netz - sonst etwas viel c/p.

      Wir haben 100 Hacker und Hacksen gefragt: "Was die schrecklichste Programmiersprache, in der du je programmiert hast?"
      1. Java
      2. PHP
      3. Visual Basic
      4. BASIC

    • hab das ma gemacht gehabt is aber schon etwas her, kann sein das es kompletter schwachsinn ist aber muss in zeiel 12 von enque nicht ein ; hin?
      Take your time, don't live too fast. Troubles will come and they will pass.

    • Quellcode

      1. Schlange.Fuss.next:=Knoten; // Debugger verweist auf diese Zeile
      2. Schlange.Fuss.next.next:=NIL;
      3. Schlange.Fuss:=Knoten;

      immer einen schritt nach dem anderen, beim überspringen kommt es eben zu diesem Zugriffsfehler
      mögliche wäre:

      Quellcode

      1. Schlange.Fuss:=Knoten;
      2. Schlange.Fuss.next:=NIL;

      oder

      Quellcode

      1. Schlange.Fuss:=Knoten;
      2. Schlange.Fuss.next:=Knoten;
      3. Schlange.Fuss.next.next:=NIL;

      und so weiter. du hast den ersten schritt zwar dadrunter gesetzt, aber sogar programmierprogramme mach all das, was im code steht, nacheinander. die reihenfolge ist entscheidend.