Strichmenchen soll laufen

[Maxxer]

Zitat von leddl:

Zitat von Maxxer:

Hausaufgaben ? Ne, ich bin erst in der 11 und programmiere erst mit Delphi erst
seit ein paar wochen !

Dann würde ich aber an deiner Stelle dein Geburtsdatum im Profil etwas aktualisieren

Wieso sollte ich das tun ? Ich bin 17 Jahre alt, 1988 Geboren, und habe vor ein paar Wochen mit der 11 angefangen !

Zitat von leddl:

Nö, genauso läuft es in der Uni auch desöfteren. Erstmal soll versucht werden, es mit eigenen Mitteln und selbständig zu lösen, und erst dann werden einem die Mittel an die Hand gegeben, mit denen man es evtl einfacher und besser lösen kann. Wenn dir zuerst alle benötigten Befehle vorgeworfen werden, lernst du eher weniger, als wenn du dir das ganze erst ergründne mußt.

Ahso ist das, na dann nehme ich meine bösen Worte über den Lehrer wieder zurück !

@turboPASCAL

Danke das du mir mir erklärt hast wozu man mehrere Stifte braucht,
den ich wöre einfach nicht draufgekommen !
Dein Auto ist cool ^^ !

Habe jetzt 2 Freistunden, vielleicht werd ich mir mal jetzt das ganze anschauen !

EDIT: Eine frage hätte ich noch,
worin besteht der Uterschied zwischen "Stift" und "Buntstift" ?
Kann der eine mehr als der andere ?
Und wie kann ich einen Text schreiben ? Den ich schaffe es einfach nicht !

[leddl]

Zitat von Maxxer:

Wieso sollte ich das tun ? Ich bin 17 Jahre alt, 1988 Geboren, und habe vor ein paar Wochen mit der 11 angefangen !

Sorry, hab das wohl zu schnell gelesen. Dachte, du hättest geschrieben "ich bin erst 11" und du hättest dich da vertippt.

[Maxxer]

Hm...
Ich wollte gerade das Menchen machen, mit dem Befehl "DrehWinkelZuruecksetzen;"
aber Delphi sagt Error !(Undeclared indentifier: 'DrehWinkelZuruecksetzen')
Ich verstehe das nicht
Aber der Befehl ist ja in dem Auto mit drin und da sagt Delphi nüx !

Delphi-Quellcode:

for Koordinaten:= 200 to 300  do
  begin
    // Mittelstrich
  with meinBuntstift2 do
  begin
  DrehWinkelZuruecksetzen;
  hoch;
  bewegeBis(Koordinaten,425);
  runter;
  dreheUm(-90);
  bewegeUm(75);

with meinstift do
  begin
  // Kopf

  hoch;
  bewegeBis(Koordinaten,400);
  runter;
  zeichneKreis(25);
  warte(10);

[Neutral General]

Das ist ja auch kein Befehl -.-
Man wollte dir nur zeigen wo der Fehler liegt und das es so eine procedure geben müsste damit es funktioniert

[Maxxer]

Zitat von Neutral General:

Das ist ja auch kein Befehl -.-
Man wollte dir nur zeigen wo der Fehler liegt und das es so eine procedure geben müsste damit es funktioniert

Ja sorry, bin ja ein ganz frischer !
Gleich erstma wieder in die Schule (1std English) und dann werd ich mich mal damit
etwas intensiver befassen.
Ich hoffe das ich es dann hinbekomme

[x000x]

Moin moin,

Zitat von turboPASCAL:

Naja, wenn du 35 mal die Drehrichtung änderst dann musst du alle 35 Anweisungen dreheUm(Winkel) wieder zurücksetzen ... ein Summieren der Winkel führt zu einem falschem Winkel... Bei grösseren Zeichenaktionen wird man da schnell an einen Punkt kommen wo man das ganze verflucht...

Ein setzen der Koordinaten des Stiften ist ja auch vorhanden mit bewegeBis(PosX, PosY), nur das zurücksetzen des Winkels fehlt und es gibt keine Möglichkeit diesen auf Null zu setzen.

... und wieder ein Einspruch... mit dreheUm(-winkel); setze ich den Winkel wieder auf 0 zurück, egal welchen Wert Winkel hat...
z.B.

Delphi-Quellcode:

// ..
 with meinBuntstift2 do
    begin
      // Auto
      //DrehWinkelZuruecksetzen; // * neu * //
      dreheUm(-Winkel);
      hoch;
      bewegeBis(Koordinaten - 200, 550);
      runter;
// ..

macht genau das selbe wie dein DrehWinkelZuruecksetzen;

[turboPASCAL]

Zitat von x000x:

dreheUm(-Winkel) setze ich den Winkel wieder auf 0 zurück, egal welchen Wert Winkel hat...

Delphi-Quellcode:

procedure Stift.dreheUm(pWinkel: Zahl);
begin
  derTastaturpuffer.check;
  zWinkel:=zWinkel+pWinkel;
  repeat
    if zWinkel>=360 then zWinkel:=zWinkel-360;
  until zWinkel<360;
end;

...mach das doch bitte mal an hand dieses Beispieles:

[edit=turboPASCAL]Beispiel entfernt[/edit]

[x000x]

Zitat von turboPASCAL:

...mach das doch bitte mal an hand dieses Beispieles:

Ok

Delphi-Quellcode:

program Test_;
// ..
  //Initialisierung
  myBildschirm := Bildschirm.init;
  myStift := Stift.init;
  for x := 250 to 600 do
  begin
    with myStift do
    begin
      //
      // Neu ;-)
      dreheUm(-Winkel);
      // ..

Winkel ist eine funktion (aus der Klasse Stift, haste vll. übersehen?), die mir den aktuellen Wert von zWinkel zurückliefert.
Wenn ich den Wert negiere, bekomme ich immer den aktuellen Wert von zWinkel mit entgegengesetztem
Vorzeichen.
z.B.:
angenommen: zWinkel := -90
dann gibt mir die funktion -Winkel = --90 zurück (oder auch gleich 90)
und -90 + 90 = 0

Kann es leider nicht besser erklären, aber probier es aus...

[turboPASCAL]

Zitat von x000x:

Winkel ist eine funktion (aus der Klasse Stift, haste vll. übersehen?), ...

Ja.

Zitat von x000x:

... die mir den aktuellen Wert von zWinkel zurückliefert.
Wenn ich den Wert negiere, bekomme ich immer den aktuellen Wert von zWinkel mit entgegengesetztem
Vorzeichen.

Ja.

Zitat von x000x:

... aber probier es aus...

Achnöh...

dreheUm(-Winkel); // = DrehWinkelZuruecksetzen

[Maxxer]

Also, wen ich es richtig verstande habe,
muss ich immer den Winkel rurücksetzen [z.B.dreheUm(-90);] !?
Aber wen ich vorhabe etwas größeres mit vielen Linien zu zeichnen,
wie sieht es da aus ? Muss ich da auch immer dann den Winkel zurücksetzen ?

Beim Strichmenchen wars ja nicht so viel

Delphi-Quellcode:

program Menchen;


uses
  mSum, Windows;

var
  derBildschirm   : Bildschirm;
  meinStift       : Stift;
  meinBuntstift8  : Buntstift;
  meinBuntstift7  : Buntstift;
  meinBuntstift6  : Buntstift;
  meinBuntstift5  : Buntstift;
  meinBuntstift4  : Buntstift;
  meinBuntstift3  : Buntstift;
  meinBuntstift2  : Buntstift;
  meinBuntstift   : Buntstift;
  meineMaus       : Maus;
  Koordinaten     : Integer;

procedure Mittelstrich(Koordinaten: Integer);
begin
with meinBuntstift do
begin
hoch;
bewegeBis(Koordinaten,425);
dreheUm(-90);
runter;
bewegeUm(75);
dreheUm(90);
end;
end;

procedure Beinlinks(Koordinaten: Integer);
begin
with meinBuntstift2 do
begin
hoch;
bewegeBis(Koordinaten,500);
dreheUm(-45);
runter;
bewegeUm(50);
dreheUm(45);
end;
end;

procedure Beinrechts(Koordinaten: Integer);
begin
with meinBuntstift3 do
begin
hoch;
bewegeBis(Koordinaten,500);
dreheUm(-135);
runter;
bewegeUm(50);
dreheUm(135);
    end;
    end;

procedure Armlinks(Koordinaten: Integer);
begin
with meinBuntstift4 do
begin
hoch;
bewegeBis(Koordinaten,450);
dreheUm(-135);
runter;
bewegeUm(40);
dreheUm(135);
end;
end;

procedure Armrechts(Koordinaten: Integer);
begin
with meinBuntstift5 do
begin
hoch;
bewegeBis(Koordinaten,450);
dreheUm(-45);
runter;
bewegeUm(40);
dreheUm(45);
end;
end;

procedure Augelinks(Koordinaten: Integer);
begin
with meinBuntstift6 do
begin
hoch;
bewegeBis(Koordinaten-12.5,400);
runter;
zeichneKreis(4);
end;
end;

procedure Augerechts(Koordinaten: Integer);
begin
with meinBuntstift7 do
begin
hoch;
bewegeBis(Koordinaten+12.5,400);
runter;
zeichneKreis(4);
end;
end;

procedure Mund(Koordinaten: Integer);
begin
with meinBuntstift8 do
begin
hoch;
bewegeBis(Koordinaten-7,412);
runter;
bewegeUm(14);
end;
end;

begin
  derBildschirm   := Bildschirm.init;
  meinStift       := Stift.init;
  meinBuntstift8  := Buntstift.init;
  meinBuntstift7  := Buntstift.init;
  meinBuntstift6  := Buntstift.init;
  meinBuntstift5  := Buntstift.init;
  meinBuntstift4  := Buntstift.init;
  meinBuntstift3  := Buntstift.init;
  meinBuntstift2  := Buntstift.init;
  meinBuntstift   := Buntstift.init;
  meineMaus       := Maus.init;


for Koordinaten:= 200 to 400  do
  begin
  Mittelstrich(Koordinaten);
  Beinlinks(Koordinaten);
  Beinrechts(Koordinaten);
  Armlinks(Koordinaten);
  Armrechts(Koordinaten);
  Augelinks(Koordinaten);
  Augerechts(Koordinaten);
  Mund(Koordinaten);
with meinstift do
  begin
   // Kopf
  hoch;
  bewegeBis(Koordinaten,400);
  runter;
  zeichneKreis(25);




  warte(10);
  repeat
until meineMaus.istGedrueckt;

with derBildschirm do
     begin
     loescheAlles;
   end;
   end;
  end;




  meinBuntstift5.gibFrei;
  meinBuntstift4.gibFrei;
  meinBuntstift3.gibFrei;
  meinBuntstift.gibFrei;
  meinBuntstift2.gibFrei;
  meinStift.gibFrei;
  derBildschirm.gibFrei;
  meineMaus.gibFrei;
end.