Delphi Snake

  • Delphi Snake

    Hey Leute,
    habe da ein klitzekleines großes Problem und bitte mal ganz kleinlaut um Hilfe... ich bin in einer Informatik-Ag, in der man jedoch sogut wie kein Wort versteht und wenn man sich auch dann zu Hause alles selbt erarbeitet, so kommt man auf Dauer jedoch auch nicht wirklich hinterher und nachdem ich als ziemlicher Anfänger endlich Galgenraten hinter mich gebracht habe, so habe ich nun das gleiche Problem mit Snake. :(
    Ich brauche eine relativ simple Ausführung davon. Bzw. es wäre sehr, sehr hilfreich. Nur leider brauche ich dazu nicht nur den Quelltext, sondern wäre furchtbar froh, wenn mir jemand alle dazugehörigen Dateien vllt. geben könnte. Ansonsten wäre ich aber natürlich auch für kleine Tipps sehr dankbar.
    Bis denne.

  • Hallo zusammen
    ich habe ein ähnliches Problem wie Glenraven, wenn nicht sogar dass gleiche. Ich bin in einem Informatikkurs und muss das Spiel Snake programmieren, habe jedoch keine Ahnung, wie ich das anstellen soll.. :oops:
    Ich habe keine grossen Programmierkenntnisse und das Programm sollte daher ziemlich einfach sein, jetzt habe ich gehofft, dass mir vielleicht jemand helfen kann. Wenn bereits jemand ein solches Programm oder einen Teil davon hat, wäre es wahnsinnig nett, wenn er oder sie es mir schicken könnte, denn ich bin wirklich verzweifelt :(

  • @Max123: Na eine ganz normale Delphiprogrammierung. Die Informatik-Ag läuft bereits ca. 6 Monate und eigentlich sind soweit auch alle Funktionen bekannt. Problem ist hauptsächlich, dass sie ziemlich schlecht erklärt werden, man zurzeit auch niemanden fragen kann und das man von den Leiterinnen nur solche Antworten bekommen würde, mit denen man einfach absolut nicht anfangen kann und die einen vollkommen verwirren. Wir bekommen auch keinerlei Beispiele oder etwas in dieser Art. Sie wollen, dass man es einfach alles ausprobiert. Aber auf die Dauer hat das keinen Zweck, besonders, wenn man schon manche Hintergründe nicht versteht. Bei Galgenraten hatte ich eine passende Sache vor Augen, damit kann man es nach ein paar Minuten vollkommen verstehen, doch ohne alles sicher nicht. Bereits gehen nur noch 3 Personen zu diesem Kurs, da der Rest aus Verzweiflung schon ausgestiegen ist.

    @wulfgang: Vielen Dank... nur brauche ich bzw. wir (chräbs ja auch, denke ich) alle dazugehörigen Dateien. Quelltext, Form, Programm und so weiter... irgendeinen Vorschlag?

  • Hi also ich muss momentan exakt das selbe machen bin aber schon etwas weiter^^
    Wenn euch eine Version von Snake recht ist in der Snake ein Punkt ist, der sich *noch* nicht verlängern kann, äpfel fressen kann...score und länge angezeigt wird und durch wände gehen kann dann versuchst mal damit:

    Wems hilft:
    Bevor man das unten "abschreiben" kann muss man erstmal ein Image(Bild) und einen Timer(Timer1) reinmachen und dann auch noch wie man rauslesen kann benennen alles...
    Der Startbildschirm is ja eher unwichtigund kann einfach gelöscht werdn...
    also folgende Prozedur am besten löschn damits einfach funktioniert:
    procedure TSpielfeld.b_startClick

    Quellcode

    1. unit Unit1;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7. Dialogs, ExtCtrls, StdCtrls;
    9. type
    10. Trichtung = (Hoch,Runter,Links,Rechts);
    12. TSpielfeld = class(TForm)
    13. Bild: TImage;
    14. Timer1: TTimer;
    15. Panel1: TPanel;
    16. Label1: TLabel;
    17. m_start: TMemo;
    18. l_start: TLabel;
    19. b_start: TButton;
    20. Label2: TLabel;
    21. procedure FormCreate(Sender: TObject);
    22. procedure Timer1Timer(Sender: TObject);
    23. procedure FormKeyDown(Sender: TObject; var Key: Word;
    24. Shift: TShiftState);
    25. procedure b_startClick(Sender: TObject);
    26. end;
    28. tsnake = class
    29. x,y:array[1..100] of integer;
    30. vx,vy,r,laenge:integer;
    31. farbe:tcolor;
    32. richtung:trichtung;
    33. procedure init(fneu:tcolor; xneu, yneu, vxneu, vyneu, rneu:integer);
    34. procedure zeigedich;
    35. procedure bewegedich;
    36. procedure wachsen;
    37. end;
    39. tapfel = class
    40. x,y,r,score:integer;
    41. farbe:tcolor;
    42. procedure ini; overload;
    43. procedure ini(fneu:tcolor; xneu, yneu, rneu:integer); overload;
    44. procedure zeigediche;
    45. procedure fressen;
    46. end;
    49. var
    50. Spielfeld: TSpielfeld;
    51. snake : Tsnake;
    52. apfel : Tapfel;
    53. big : bool;
    54. implementation
    56. {$R *.dfm}
    59. // -------------------------------------------------------------------------- //
    60. // alle Prozeduren, die ausschließlich mit "Snake" zu tun haben
    61. // -------------------------------------------------------------------------- //
    62. procedure tsnake.init(fneu:tcolor; xneu, yneu, vxneu, vyneu, rneu:integer);
    63. begin
    64. laenge:= 1;
    65. farbe:= fneu;
    66. x[laenge] := xneu;
    67. y[laenge] := yneu;
    68. vx := vxneu;
    69. vy := vyneu;
    70. r := rneu;
    72. end;
    74. procedure tsnake.zeigedich;
    75. var i:integer;
    76. begin
    77. Spielfeld.Bild.Canvas.Brush.Color:=Farbe;
    78. for i:=1 to snake.laenge do
    79. begin
    80. Spielfeld.Bild.Canvas.Rectangle(x[i], y[i], x[i]+2*r, y[i]+2*r);
    81. end;
    82. end;
    84. procedure tsnake.bewegedich;
    85. begin
    87. case snake.richtung of
    88. Links: begin //Links
    89. snake.vx:=-1;
    90. snake.vy:= 0;
    91. end;
    93. Hoch: begin //Hoch
    94. snake.vx:= 0;
    95. snake.vy:= -1;
    96. end;
    98. Rechts: begin //Rechts
    99. snake.vx:= 1;
    100. snake.vy:= 0;
    101. end;
    103. Runter: begin //Runter
    104. snake.vx:= 0;
    105. snake.vy:= 1;
    106. end;
    107. end;
    109. //Bewegungsberechnung
    110. x[1] := x[1] + 2*r*vx;
    111. y[1] := y[1] + 2*r*vy;
    113. if (x[1]>Spielfeld.Bild.Width-2*r) then
    114. begin
    115. x[1] := 0;
    116. end;
    118. if x[1]<0 then
    119. begin
    120. x[1] := Spielfeld.Bild.Width-2*r;
    121. end;
    123. if (y[1] > Spielfeld.Bild.Height-2*r) then
    124. begin
    125. y[1] := 0;
    126. end;
    128. if y[1] < 0 then
    129. begin
    130. y[1] := Spielfeld.Bild.Height-2*r;
    131. end;
    133. end;
    135. //wachsen
    136. procedure Tsnake.wachsen;
    137. var i:integer;
    138. begin
    139. laenge:= laenge +1;
    140. spielfeld.Label2.Caption:='Länge : ' + inttostr(laenge);
    141. //Array erweitern
    142. for i:=1 to laenge do
    143. begin
    144. x[i+1]:=x[i];
    145. y[i+1]:=y[i];
    146. Spielfeld.Bild.Canvas.Rectangle(x[i], y[i], x[i]+2*r, y[i]+2*r);
    149. end;
    150. end;
    152. procedure TSpielfeld.FormKeyDown(Sender: TObject; var Key: Word;
    153. Shift: TShiftState);
    154. begin
    155. case key of
    156. 27:close;
    158. 37: begin //Links
    159. if snake.richtung <> Rechts then snake.richtung:=Links;
    160. end;
    161. 38: begin //Hoch
    162. if snake.richtung <> Runter then snake.richtung:=Hoch;
    163. end;
    164. 39: begin //Rechts
    165. if snake.richtung <> Links then snake.richtung:=Rechts;
    166. end;
    167. 40: begin //Runter
    168. if snake.richtung <> Hoch then snake.richtung:=Runter;
    169. end;
    170. end;
    171. end;
    173. // -------------------------------------------------------------------------- //
    174. // Alle Prozeduren, die ausschließlich mit "Apfel" zu tun haben
    175. // -------------------------------------------------------------------------- //
    177. procedure tapfel.ini;
    178. begin
    179. farbe:= clGreen;
    180. x := Random(30)*20;
    181. y := Random(20)*20;
    182. r := 10;
    183. end;
    185. procedure tapfel.ini(fneu:tcolor; xneu, yneu, rneu:integer);
    186. begin //
    187. farbe:= fneu;
    188. x := xneu;
    189. y := yneu;
    190. r := rneu;
    191. end;
    194. procedure tapfel.zeigediche; //
    195. begin
    196. Spielfeld.Bild.Canvas.Brush.Color:=clGreen;
    197. Spielfeld.Bild.Canvas.ellipse(x, y, x+2*r, y+2*r);
    198. end;
    200. procedure tapfel.fressen;
    201. begin
    203. if (x = snake.x[1]) and (y = snake.y[1]) then
    205. begin
    206. score:= score +1;
    207. spielfeld.label1.caption:='Score : ' + inttostr(score);
    208. apfel.zeigediche;
    209. apfel.ini;
    210. apfel.zeigediche;
    211. big:= true;
    212. end;
    213. end;
    214. // -------------------------------------------------------------------------- //
    215. // Durch diese Prozedur wird das Spiel gestartet und der Anfangsbildschirm ausgeblendet
    216. // -------------------------------------------------------------------------- //
    217. procedure TSpielfeld.b_startClick(Sender: TObject);
    218. begin
    219. l_start.Visible:=false;
    220. b_start.Visible:=false;
    221. m_start.Visible:=false;
    222. panel1.Visible:=true;
    223. bild.Visible:=true;
    224. end;
    226. // -------------------------------------------------------------------------- //
    227. // Diese Prozedur bringt die Bewegungs- und Fressprozeduren in Gang(regelmäßig
    228. // -------------------------------------------------------------------------- //
    230. procedure TSpielfeld.Timer1Timer(Sender: TObject);
    231. begin
    232. //spielfeld.Timer1.Enabled:=false;
    234. //
    235. snake.zeigedich;
    236. snake.bewegedich;
    237. snake.zeigedich;
    238. apfel.fressen;
    239. if big = true then
    240. begin
    241. snake.wachsen;
    242. big:= false;
    243. end;
    244. //spielfeld.Timer1.Enabled:=true;
    245. end;
    247. // -------------------------------------------------------------------------- //
    248. // Alles was von Anfang an existieren soll ist hier aufgeführt
    249. // -------------------------------------------------------------------------- //
    251. procedure TSpielfeld.FormCreate(Sender: TObject);
    252. begin //
    253. with bild.Canvas do
    254. begin
    255. pen.Width:=5;
    256. Brush.Color:=clWhite;
    257. Brush.Style:=bsSolid;
    258. Pen.Width:=2;
    259. Pen.Mode:=pmNOTXOR;
    261. Rectangle(0,0,Bild.width,Bild.Height);
    262. end;
    264. snake.init(clRed, Random(30)*20, Random(20)*20,0,0,10);
    265. snake.zeigedich;
    266. apfel.ini;
    267. apfel.zeigediche;
    268. end;
    270. initialization //
    271. randomize;
    272. snake := tsnake.Create;
    273. apfel := tapfel.Create;
    274. big:= false;
    275. end.
    Alles anzeigen


    // Bin selber alles andere als begabt (was man wahrscheinlich auch sieht)^^

    Bin jetzt mittlerweile seid nen paar Tagen daran zu probieren, wie ich diese Schlange länger bekommen kann wenn sie einen Apfel gefressen hat bin aber bisher kläglich gescheitert...das einzige wassich hinbekomme ist, dass meine Schlange bei jedem 2ten Apfel den sie frisst ein grünes QUadrat zurücklässt...

    Ich fände es sehr nett wenn sich vll mal jemand die Mühe machen würde bei meinen Programmierversuchen durchzublicken um mir zu sagen was ich falsch mache und wie ich das endlich hinkriegen kann... weil ich bekomms einfach nich weiter gebacken...
    Wie gesagt würde mich echt riesig freun wenn mir jemand helfen könnte...

    mfg Taipi

  • Vielen Dank für die Aufbereitung der Codes (wusste leider nicht, dass man das so machen kann^^ ) Nur sehr schade, dass noch keiner geantwortet hat :(
    Nen kleiner Tip warum es nicht funktioniert oder wie man das Problem auch anders und einfacher lösen könnte würde mir ja vollkommen reichen^^
    Wie gesagt würde mich echt über ne Antwort freuen...

    mfg Taipi