Strichmenchen soll laufen

[turboPASCAL]

Du brauchst nicht für jedes Körpertei einen neuen Stift, nur für die die du bewegen möchtest.

Jeder Stift bzw. Buntstift speichert seine aktuellen Eindtellungen hat zB. Buntstift1 den wert Gruen kann Buntstift2 den Wert Blau haben, das geiche gilt für den Winkel.

Du musst für die Teile die nicht bewegt werden sollen einen eigenen Stift/Buntstift anlegen und nach dem zeichnen den aktuellen Winkel des Stiftes auf null zurücksetzen damit diese sich nicht bewegen.


hier wird der Winkel 10x um 10° gedreht | Ergebnis der Winkel ist nach der For-Schleife 100°

Delphi-Quellcode:

for i:= 1 to 10 do
begin
  meinBuntstift.dreheUm(10);
end;

hier wird der Winkel 10x auf 0° gesetzt und dann um 10° gedreht | Ergebnis der Winkel ist nach der For-Schleife 10°

Delphi-Quellcode:

for i:= 1 to 10 do
begin
  meinBuntstift.dreheUm(-meinBuntstift.Winkel);
  meinBuntstift.dreheUm(10);
end;

PS.: die Unit mSuM ist leider kein guter Einstieg in das Programmiern, da dort auf OOP zugegriffen wird. Wenn man als Einsteiger darauf zurückgreift bekommt man nicht besonders gut die Grundlagen zum Programmiern vermittelt.

Wichtig sind erst einmal Projektstrucktur/Blöcke (program, {uses}, Begin..End), Variablen, Schleifen und If-Abfragen und Dann OOP

Delphi-Grundlagen
Grundlagen
Objektorientierte Programmierung in Delphi im Informatikunterricht