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.