Strichmenchen soll laufen

[turboPASCAL]

Hi Maxxer,

das mit dem drehen ist so eine Sache, die Unit mSum ist daran schult das es nicht klappt.

Wenn du in einer For- Schleife einen Winkel mit zB. dreheUm(15) angibst:

Delphi-Quellcode:

for Wert := 1 to 3 do
begin
  dreheUm(15);
end;

so ist dann das Ergebnis:

Code:

Winkel = 15
Winkel = 15+15
Winkel = 15+15+15

leider fehlt in der Unit mSum eine Funktion um den Drehwinkel wieder zurückzusetzen. zB. so:

Delphi-Quellcode:

for Wert := 1 to 3 do
begin
  dreheUm(15);
  DrehWinkelZuruecksetzen; // Winkel auf 0° zurücksetzen
  dreheUm(15);
  dreheUm(15);
end;

das Ergebnis wäre dann so:

Code:

Winkel = 15
Winkel = 0
Winkel = 15
Winkel = 15+15
...

Ich habe Dir das mal anhand deines Auto Beispieles verdeutlicht. Nun rotiert die Carrosserie nicht mehr.

Wenn Du ernsthaft (oder als Hobby) programmieren willst solltest du dir die Grundlagen zu Delphi ansehen Delphi für Anfänger?

PS.: bezeichne bitte nicht deinen lehrer als dumm denn der hat seinen lehrstoff und nicht immer den absoluten durchblick es sei denn er heisst ulrich borghoff denn der hat die unit msum geschrieben

MfG.