-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
das mach ich auch, ich guck morgen mal, hab mir den vorschlag grade gespeichert.
Ja von der Syntax hab ich schonmal was gehört, Syntaxabfrage :D
danke trotzdem für die hilfe, bin halt neuling!
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
also begin
BtnStart.Enabled := False;
PunkteZaehler:= 0;
for X:=0 to BSB do
for Y:=0 to HSB do
map := 0;
Kopf:= Point(Random(BSB), Random(HSB));
laengesnake := 4;
richtung := Point(Random(BsB), Random(HSB));
map := laengesnake;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
man ich weiß nicht wie ich die machen soll man!
weswegen frage ich denn um hilfe.
ich sitze jetzt 3 tage hintereinander da dran meint ihr mir fliegt als nueling alles aus den fingern :(
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
ja das weiß ich auch.
diese Prüfung habe ich versucht, nicht hinbekommen :(
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
also, HSB & BSB sind 35 Felder groß! ( 0 -34)
Das Raster ist in 10 eingeteilt.
Mein problem besteht nur darin, das die schlange immer nach unten startet.
Sie soll nur immer unterschiedlich starten(mal rechts, mal links...)
//Kopf:= Point(Random(BSB), Random(HSB));
Die Position des Kopf's auf der Map ist zufällig.
//richtung := Point( 0, 1);
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
HSB = Höhe des Bereichs
BSB = Breite des Bereichs
also das Spielfeld ist gemeint
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
ja super clevere aussage!
begin
BtnStart.Enabled := False;
PunkteZaehler:= 0;
for X:=0 to BSB do
for Y:=0 to HSB do
map := 0;
Kopf:= Point(Random(BSB), Random(HSB));
laengesnake := 4;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
und wie ?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
Nochmal kurz :D
Mir fiel auf, die Schlange startete immer oben Links, das habe ich geändert :)
(kopf := Point(Random(BSB), Random(HSB));)
Jedoch startet sie auch immer nur in Richtung unten!!
Das möchte ich auch unterschiedlich haben ...
vorschläge ?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
viiel viiel tüffteln.
ich glaub ich sitz 20 stunden an dem projekt.
ich hab mich vertan.
man muss ja nichts schreiben, hab das mit den ereignissen überlesen :-[
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
mir fällt grade auf :(
Wenn man auf den beendenbutton klickt, wenn das spiel NICHT läuft, hat man die auswahlt zwischen weiter im programm bleiben und dem programm verlassen.
Wenn ich auf programm verlassen gehe, verlässt er das programm!
Jedoch wenn ich auf "nein im programm bleiben" klicke, kommt die "wiederholen ?" anfrage wieder :(
die muss da noch weg ...
die wiederholen anfrage soll...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
so mal etwas aufgeräumt :)
ich hab das in der mainform auf true gesetzt, nur die frage ist, wie die procedure heißt und geschrieben wird :O
ich kenn mich damit garnicht aus :(
wie ihr merkt ich bin relativ neu in delphi :)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
die fertige Datei :)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
es läuft alles wie gewünscht!
super danke :):):)
aber noch zwei fragen:
wie würdet ihr das denn "aufräumen" also, weil eben ja gesagt wurde, das ich sehr kreativ programmiert hab :(
und, ich möchte die schlange mit den Pfeiltasten & "W,A,S,D" steuern können, was muss ich dafür programmieren ??
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
jetzt meckert das Programm:
Nicht deklarierter Begriff in zeile 237 - 257 :(
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
ja also :
"der Sound wird abgespielt beim Start und beim Beenden, weil du in der BtnBeendenClick BtnStart.Click aufrufst. Ich gehe davon aus, daß du damit wieder neu initialisieren möchtest. Lagere die Initialisierung in eine eigene Prozedure aus und rufe diese explizit auf. Dann ist auch der Sound aus dem Beenden weg. "
das :D
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
ich guck mal mit den begin und end ;)
können sie mir dann einen kleinen tipp geben, wie ich das asulager `?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
hier ;)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
bleib trotzdem so :(
ich hab es aus dem Oncreate in den OnBtnStart getan, jetzt spielt der das immer ab :(
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
Datei ist im anhang ! :)
danke!!!!
ja habe ich versucht, dann spielt der trotzdem immer ab.
Moment:
procedure TForm1.BtnStartClick(Sender: TObject);
var
X, Y: Integer;
begin
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Cueppi,
27. Jun 2010
Hallo DelphiPraxis,
ich muss zum Abschluss dieses Schuljahres das Spiel Snake programmieren.
Jedoch habe ich noch einige Fragen!!
Ich weiß nicht ob ich die Klassen auslagern muss, wenn ja, könne mir da jemand helfen, da ich da erst am ende dran gedacht hab :(
und wie ihr merken werdet habe ich einen Sound eingefügt.
Ich möchte, das dieser Sound nur abgespielt wird, wenn man auf den...