Forum: Multimedia
Delphi
by N4r0,
15. Feb 2010
Ich habe die Klassen mal nachgbaut und wollte nun die Prozeduren und Funktionen reinschreiben.
Nur leider blick ich jetzt nicht mehr wirklich durch.
Hiermit:
procedure TForm1.FormCreate(Sender: TObject);
var
i,j: integer;
begin
Forum: Multimedia
Delphi
by N4r0,
14. Feb 2010
Ja, das hab ich schon von vielen gehört, aber das liegt leider nicht an uns Schülern :/
Forum: Multimedia
Delphi
by N4r0,
14. Feb 2010
(nicht nachgedacht, bevor ich geschreiben habe)
Forum: Multimedia
Delphi
by N4r0,
14. Feb 2010
function CollidesWith(AObject: TBasis): boolean;
function TSprite.CollidesWith(AObject: TBasis): boolean;
begin
Result := (FImage.Left+FImage.Width > AObject.Left) and
(FImage.Top +FImage.Height > AObject.Top ) and
...;
end;
Forum: Multimedia
Delphi
by N4r0,
14. Feb 2010
Ok, ich glaub ich hab verstanden wie du das meinst, klingt logisch.
Ich werds nachher mal versuchen zu realisieren.
Forum: Multimedia
Delphi
by N4r0,
14. Feb 2010
hm ja, ich versteh worauf zu hinaus willst. An sich wollte ich das ganze jetzt nur in Klassen packen, weil es auch in der Aufgabenstellung erwähnt ist, dass wir Klassen benutzen sollen.
Aber du hast schon recht, einen wirklkichen sinnvollen Zweck hat das ganze auch nicht, wenn man alles nur "zerreißt".
Hast du vielleicht ne Idee, wie ich das mit dem Klassen besser umsetzen kann, bzw. was...
Forum: Multimedia
Delphi
by N4r0,
13. Feb 2010
weiß keiner woran es liegt? ^^
Forum: Multimedia
Delphi
by N4r0,
12. Feb 2010
Tut mir leid, aber ich verstehe grad nicht worauf du hinaus willst, bzw. was das bringen soll ^^
hier nochmal mein komplettes Projekt, vielleicht erkennt man ja da genaueres
Forum: Multimedia
Delphi
by N4r0,
11. Feb 2010
Hallo ihr,
Ich hätte da ein neues Problem.
Undzwar bin ich gerade dabei meine programmierten functions in in neue Klassen, also in andere Units zu packen, um sie aus dem Hauptprogramm zubekommen.
Nun versuche ich das die ganze Zeit mit meiner funktion kollision:
function kollision(Schuss : TImage ; i : integer) : boolean;
Forum: Multimedia
Delphi
by N4r0,
7. Feb 2010
Super, danke dir für die schnelle und kompetente Hilfe :D
Forum: Multimedia
Delphi
by N4r0,
7. Feb 2010
Der Fehler trifft in diesem Fall ebenfalls auf.
so siehts jetzt aus:
procedure TForm1.SchussTimerTimer(Sender: TObject);
var j,i,x : integer;
collide : boolean;
begin
collide := false;
Forum: Multimedia
Delphi
by N4r0,
7. Feb 2010
Hey,
danke für deine schnelle Antwort :)
ich hab die Schleife mal abgeändert und vor der Schleife, die den Schuss aus dem Array löschen soll Schuss1.Free geschreiben.
ich hab nochmal die Fehlermeldung in den Anhang gepackt. (also an sich ne Zugriffsverletzung)
Forum: Multimedia
Delphi
by N4r0,
7. Feb 2010
Hallo
wir haben die Aufgabe im Informatikunterricht ein Projekt unserer Wahl zu programmieren.
Ein Freund und ich haben uns für einen kleinen Space Invaders - Klon entschieden. (Die Invader sollen einfach nur nach unten kommen und dabei abgeschossen werden, also nicht zurückschießen).
Wir sind auch schon recht gut vorangekommen, hängen nun aber am Abschießen der Invader. Die...