Linien beim zeichnen anzeigen lassen

[milos]

Zitat von hathor:

Die Lehrer werden immer einfallsloser...

Wieso denn das?
Das Ziel ist sehr wahrscheinlich nicht, dass sie mal eine "Animation" programmieren können der das Haus des Nikolaus zeichnet sondern eher zu überlegen wie man so etwas am besten Lösen könnte. Hier gibt es wieder unbegrenzt viele Lösungen (z.B. die Sleep-Lösung von EarlyBird oder meine Timer Lösung die sich beide komplett verschieden verhalten), wo die eine etwas besser und die andere etwas schlechter ist. Das Resultat ist dabei auch immer verschieden. An einem einfachen Code kann man eigentlich auch gut sehen wie eine Person ein Problem löst und wie weit seine Kenntnisse in der Thematik liegen.

Welche Aufgabe würdest du denn vergeben?

Freundliche Grüsse

[himitsu]

Zitat von milos:

Welche Aufgabe würdest du denn vergeben?

Berechnet die dreimillionste Nachkommastelle von PI und beweißt rechnerisch, daß ob PI eine physikalisch begrenze Länge hat.

[milos]

Zitat von himitsu:

Zitat von milos:

Welche Aufgabe würdest du denn vergeben?

Berechnet die dreimillionste Nachkommastelle von PI und beweißt rechnerisch, daß ob PI eine physikalisch begrenze Länge hat.

Ach komm, das wär zu einfach

[hathor]

SLEEP-Funktionen innerhalb von Graphik-Funktionen zeigen unerwartete Ergebnisse.

Delphi-Quellcode:

procedure Delay(msecs:integer);
var
  FirstTickCount:longint;
begin
  FirstTickCount:=GetTickCount;
  repeat
    Application.ProcessMessages;
  until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

procedure TForm1.Button6Click(Sender: TObject);
var D : integer;
begin
D:=1000;
  with Canvas do
    begin
    Pen.Width:=5;
    Pen.Color := clLime;
     MoveTo(100,200);
     LineTo(100,100);  Delay(D);
     LineTo(200,100);  Delay(D);
     LineTo(150,50);   Delay(D);
     LineTo(100,100);  Delay(D);
     LineTo(200,200);  Delay(D);
     LineTo(100,200);  Delay(D);
     LineTo(200,100);  Delay(D);
     LineTo(200,200);
    end;
end;

procedure TForm1.Button8Click(Sender: TObject);
var D : integer;
begin
D:=1000;
  with Canvas do
    begin
    Pen.Width:=5;
    Pen.Color := clRed;
     MoveTo(100,200);
     LineTo(100,100);  SLEEP(D);
     LineTo(200,100);  SLEEP(D);
     LineTo(150,50);   SLEEP(D);
     LineTo(100,100);  SLEEP(D);
     LineTo(200,200);  SLEEP(D);
     LineTo(100,200);  SLEEP(D);
     LineTo(200,100);  SLEEP(D);
     LineTo(200,200);
    end;
end;

[himitsu]

Zeichnen auf ein ungecachtes Canvas ist ebenfalls ein schöner Fauxpas.

[Andy1811]

Hallo nochmal,

ich würde meinen Quelltext gerne posten doch in hab kein Plan wie, kann das mal bitte kurz jemand beschreiben wie man des macht ?

Danke

[milos]

Setzt den Delphi Code einfach zwischen [DELPHI]-Tags

Also so:

Code:

[DELPHI]
begin

end;
[/DELPHI]

Delphi-Quellcode:

begin

end;