Delphi verkleinern

4everdead · 5. Oktober 2010

hallo wir sollten im informatik unterricht einen zug erstellen der fahren kann dies habe ich dann auch gemacht hier der code :

Code:

program Project1;

uses
  mSum,
  mUhr;

var
//Objekte benennen
derBildschirm : Bildschirm;
dieMaus : Maus;
meinStift : Stift;
meineUhr : Uhr;
//Gedächtniszellen benennen
xPos, yPos : Zahl;
begin
// Initialisierung
derBildschirm := Bildschirm.init;
dieMaus := Maus.init;
meinStift := Stift.init;
meineUhr := Uhr.init;
// Im Gedächtnis die erste Kugelposition merken
xPos := 100;
yPos := 400;


// Aktion


// waggon zeichnen

  meinStift.bewegeBis(xPos,yPos);
 // waggon 1

  meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);



 // waggon2

    meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);

  meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);



  //////////////////Lokomotive////////////////


  meinStift.runter;               // puffer links
  meinStift.zeichneKreis(12.5);
  meinStift.dreheUm(360);
  meinStift.bewegeUm(25);

  meinStift.dreheUm(270);        // lok umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(62.5);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(62.5);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(180);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);






  meinStift.hoch;                 //Räder
  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.zeichneKreis(25);

  meinStift.hoch;
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.runter;
  meinStift.zeichneKreis(25);

  



  meinStift.hoch;                //fenster
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(150);
  meinStift.runter;
  meinStift.zeichneRechteck(75,37.5);

  meinStift.hoch;                 // puffer rechts
  meinStift.dreheUm(180);
  meinStift.bewegeUm(200);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(90);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);


  meinStift.hoch;                   //Text
  meinStift.dreheUm(180);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(180);
  meinStift.schreibeText('Daniel und Patrick');

repeat
//waggon an alter Stelle löschen
meinStift.radiere;
meinStift.bewegeBis(xPos,yPos);
  // waggon 1

  meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);



 // waggon2

    meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);

  meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);



  //////////////////Lokomotive////////////////


  meinStift.runter;               // puffer links
  meinStift.zeichneKreis(12.5);
  meinStift.dreheUm(360);
  meinStift.bewegeUm(25);

  meinStift.dreheUm(270);        // lok umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(62.5);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(62.5);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(180);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);






  meinStift.hoch;                 //Räder
  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.zeichneKreis(25);

  meinStift.hoch;
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.runter;
  meinStift.zeichneKreis(25);





  meinStift.hoch;                //fenster
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(150);
  meinStift.runter;
  meinStift.zeichneRechteck(75,37.5);

  meinStift.hoch;                 // puffer rechts
  meinStift.dreheUm(180);
  meinStift.bewegeUm(200);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(90);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);


  meinStift.hoch;                   //Text
  meinStift.dreheUm(180);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(180);
  meinStift.schreibeText('Daniel und Patrick');

//waggon an neue Stelle bewegen
xPos := xPos + 1;
//waggon neu zeichnen
meinStift.normal;
meinStift.bewegeBis(xPos,yPos);
 // waggon 1

  meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);



 // waggon2

    meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);

  meinStift.runter;
  meinStift.zeichneKreis(12.5);  // puffer links
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);  // waggon Umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(190);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(45);
  meinStift.bewegeUm(75);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(270);
  meinStift.runter;
  meinStift.bewegeUm(225);

  meinStift.hoch;
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.zeichneRechteck(125,25);

  meinStift.hoch;               // räder
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);
  meinStift.zeichneKreis(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.zeichneKreis(25);

  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);



  //////////////////Lokomotive////////////////


  meinStift.runter;               // puffer links
  meinStift.zeichneKreis(12.5);
  meinStift.dreheUm(360);
  meinStift.bewegeUm(25);

  meinStift.dreheUm(270);        // lok umriss
  meinStift.bewegeUm(25);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(62.5);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(100);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(62.5);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(180);
  meinStift.bewegeUm(175);
  meinStift.dreheUm(180);
  meinStift.bewegeUm(25);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(100);






  meinStift.hoch;                 //Räder
  meinStift.dreheUm(90);
  meinStift.bewegeUm(50);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(50);
  meinStift.runter;
  meinStift.zeichneKreis(25);

  meinStift.hoch;
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.runter;
  meinStift.zeichneKreis(25);





  meinStift.hoch;                //fenster
  meinStift.dreheUm(90);
  meinStift.bewegeUm(125);
  meinStift.dreheUm(90);
  meinStift.bewegeUm(150);
  meinStift.runter;
  meinStift.zeichneRechteck(75,37.5);

  meinStift.hoch;                 // puffer rechts
  meinStift.dreheUm(180);
  meinStift.bewegeUm(200);
  meinStift.dreheUm(270);
  meinStift.bewegeUm(75);
  meinStift.dreheUm(90);
  meinStift.runter;
  meinStift.bewegeUm(25);
  meinStift.zeichneKreis(12.5);


  meinStift.hoch;                   //Text
  meinStift.dreheUm(180);
  meinStift.bewegeUm(225);
  meinStift.dreheUm(180);
  meinStift.schreibeText('Daniel und Patrick');

meineUhr.warte(1)
until dieMaus.istGedrueckt;



// Aufräumen

meineUhr.gibFrei;
meinStift.gibFrei;
dieMaus.gibFrei;
derBildschirm.gibFrei

end.

nun meine frage wenn ich es ausführe sieht man nicht den ganzen zug da er zu groß ist .
jetzt wollte ich fragen ob man das irgendwie machen kann das das bild dann verkleinert wird , sodass man den ganzen zug sehen kann .

ich wäre froh wenn mir jemand helfen könnte .

Dr. Greg House · 5. Oktober 2010

Frag deinen Lehrer? HAs werden hier gar nicht gerne gesehen.

4everdead · 5. Oktober 2010

sind keine has wollte nur was verbessern und den lehrer kann ich net fragen weil wir jetzt projekt woche haben und danach ferien

pcw · 5. Oktober 2010

Da du keine Standard-Delphi Routinen verwendest um zu zeichnen und ich dem Programm nichtmal ansehen kann, ob es in der Konsole oder einem Windows-Formular zeichnet, kann ich dir leider auch nicht sagen, wie man die Anzeige so anpassen würde, dass das komplette Motiv im sichtbaren Bereich liegt.

Mehr Informationen wären hier also hilfreich.

Suche

Delphi verkleinern

4everdead

Newbie

Dr. Greg House

Banned

4everdead

Newbie

pcw

Lt. Commander

Ähnliche Themen