Auto

[Maxxer]

Zitat von tigerman33:

Hi,

hat ja wohl doch noch geklappt.

Auto muss in die gleiche Schleife.

Tag,

ich war so frei und habe mal das Auto dazu gezeichnet !
Jedoch dreht sich das Auto mit und es sieht irgendwie lustig aus.

Jetzt frage ich mich was ich machen muss damit das Auto nur sich dorthin bewegt
und nicht sich dorthin beweg und gleichzeigt dreht.

Delphi-Quellcode:

program Auto;


uses
  mSum;

var
  meinBildschirm: Bildschirm;
  meinBuntstift : Buntstift;
  meineMaus     : Maus;
  Koordinaten   : Integer;

begin
//Initialisierung
  meinBildschirm:= Bildschirm.init;
  meinBuntstift := Buntstift.init;
  meineMaus     := Maus.init;

//Aktionsteil
begin
for Koordinaten:= 300 to 900 do
      begin
with meinBuntstift do
   begin
    // Auto
  hoch;
  bewegeBis(Koordinaten-200,550);
  runter;
  bewegeUm(600);
  dreheUm(90);
  bewegeUm(75);
  dreheUm(90);
  bewegeUm(150);
  dreheUm(-90);
  bewegeUm(80);
  dreheUm(90);
  bewegeUm(325);
  dreheUm(90);
  bewegeUm(80);
  dreheUm(-90);
  bewegeUm(125);
  dreheUm(90);
  bewegeUm(75);

  // Räder
  hoch;
  bewegeBis(Koordinaten,600);
  zeichneKreis(50);
  bewegeBis(Koordinaten,600);
  runter;
  dreheUm(-1);
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;

  bewegeBis(Koordinaten+200,600);
  zeichneKreis(50);
  bewegeBis(Koordinaten+200,600);
  runter;
  dreheUm(-1);
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,600);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
warte(10);


repeat
until meineMaus.istGedrueckt;

with meinBildschirm do
     begin
     loescheAlles;
   end;
     end;
       end;
         end;
//Aufräumen
  meinBildschirm.gibFrei;
  meinBuntstift.gibFrei;
  meineMaus.gibFrei

end.