Jojo

[Sierra]

Hi!
Ich probiere gerade ein Jojo zu programmieren.
Der Code und das Objekt sehen so aus.

Delphi-Quellcode:

program pJojo;

uses
  mSuM,
  mJojo in 'mJojo.pas';

var hatBildschirm: Bildschirm;
    hatMaus: Maus;
    hatJojo1,
    hatJojo2,
    hatJojo3: Jojo;

begin
hatBildschirm:=Bildschirm.init;
hatMaus:=Maus.init;
hatJojo1:=Jojo.init(100,300);
hatJojo2:=Jojo.init(200,200);
hatJojo3:=Jojo.init(300,250);

repeat
hatjojo1.zeichne;
hatjojo2.zeichne;
hatjojo3.zeichne;
hatjojo1.loesche;
hatjojo2.loesche;
hatjojo3.loesche;
hatjojo1.bewege;
hatjojo2.bewege;
hatjojo3.bewege;

until hatMaus.doppelklick;

hatJojo1.gibFrei;
hatJojo2.gibFrei;
hatJojo3.gibFrei;
hatMaus.gibFrei;
hatBildschirm.gibFrei;
end.

Und die Klasse Jojo

Delphi-Quellcode:

unit mJojo;

interface
uses mSuM;

type
Jojo = class
        zXPos,zYPos: integer;
        zRadius, zLaenge: integer;
        zFaden,zDy:real;
        hatStift: Buntstift;
        constructor init(pXPos,pLaenge:integer);
        procedure zeichne;
        procedure loesche;
        procedure bewege;
        destructor gibFrei;
        end;

implementation

constructor Jojo.init(pXPos,pLaenge:integer);
begin
zXPos:=pXPos; zYPos:=0; zLaenge:=pLaenge; zRadius:=20;
hatStift:=Buntstift.init;
hatStift.setzeFuellMuster(GEFUELLT);
hatStift.setzeLinienBreite(2);
hatStift.dreheBis(-90);
zFaden:=zRadius;
zDy:=1;
hatStift.bewegeBis(zXPos,zYPos);
hatStift.runter;
end;

procedure Jojo.zeichne;
begin
hatStift.bewegeBis(zXPos,zYPos);
hatStift.bewegeUm(zFaden);
hatStift.zeichneKreis(zRadius);
end;

procedure Jojo.loesche;
begin
hatStift.radiere;
hatStift.bewegeBis(zXPos,zYPos);
hatStift.bewegeUm(zFaden);
hatStift.zeichneKreis(zRadius);
hatStift.normal;
end;

procedure Jojo.bewege;
begin
hatStift.bewegeUm(zDy);
zFaden:=hatStift.vPosition;
end;


destructor Jojo.gibFrei;
begin
hatStift.gibFrei;
end;

end.

Jetzt würde ich gerne wissen, wie ich es schaffe, dass das Jojo anhält und es wieder zurückläuft.
Außerdem würde ich gerne wissen, was der Befehl "vPosition" macht.

Danke.

[MarcoWarm]

????? was bitte ist die Klasse Buntstift *grübel*

poste doch bitte "richtigen" Delphi-Code... dann kann man es wenigstens nachvollziehen

[bttb930]

Versteh ich das richtig: Du hast das selbst programmiert und fragst UNS was der Befehl vPosition macht?

Oder sollen wir lediglich Deine Hausaufgaben lösen?

[MarcoWarm]

Zitat von bttb930:

Oder sollen wir lediglich Deine Hausaufgaben lösen?

So sieht mir das auch aus *lach*

[Sierra]

Nein, das sind keine Hausaufgaben.
Wir haben einen halb fertigen Code im Unterricht bekommen und sollten den dann vervollständigen.
So und vPosition war nunmal schon drin.
Das Einzigste, was ich weiß ist, dass wenn ich vPosition ausklammere, läuft das Jojo auch nicht mehr runter.

[Flocke]

@bttb930, MarcoWarm: Zu mSum siehe hier.

Ich denke Mal, vPosition ist die vertikale Position (Y-Koordinate).

[DGL-luke]

buntstift scheint teil einer TCanvas-Kapselung mit deutschen Befehlen zu sein.

du musst einfach ab einem bestimmten Positionswert langsamer werden(position langsamer nach unten setzen) und dann wieder zurück nach oben kommen lassen(position nach oben setzen).

[faux]

Zitat von Sierra:

Nein, das sind keine Hausaufgaben.
Wir haben einen halb fertigen Code im Unterricht bekommen und sollten den dann vervollständigen.

Die zwei Zeilen wiedersprechen sich irgendwie...

[himitsu]

Zitat von Sierra:

Nein, das sind keine Hausaufgaben.
Wir haben einen halb fertigen Code im Unterricht bekommen und sollten den dann vervollständigen.

Also doch 'ne Art Hausaufgaben

Witzig sind ja die Klassen/Funktionen hatBildschirm(Bildschirm) und hatMaus(Maus) ... fragt mich blos nicht, was das ist
[add]
OK, DGL-luke's Antwort könnte dafür 'ne Erklärung sein
[/add]

Und wenn ihr den Code vervollständigen solt, dann wird man euch doch etwas zu diesem Code gesagt haben.
Ich denke mal nicht, daß man euch einfach so irgendwas in die Han drückt und dann nur noch sagt "macht mal"...



[add]
ach ja ... auch hier fehlten mal wieder die beiden Vorschau- und Absenden-Button

[MarcoWarm]

@Flocke: thx... sowas, was es nich alles gibt....
@Sierra: sorry daß ich das nich ernst genommen hab...