Nabend,
ich habe
hier ein problem geschildert(ganz unten), doch niemand antwortet !
Heute habe ich versucht ein Strichmenchen zu programmieren das läuft,
jedoch habe ich schon Probleme mit dem Strich (vom Kopf nach unten).
Immer wen sich das dingen bewegen soll dreht sich der Strich mit !
Ich habe es dann mit dem Befehl "break" versucht doch dann wollte nicht mal
der Kopf seine Position ändern !
Ich habe dann dem Mittelstrich eine eigene Schleife verpasst,
doch irgendwie wollte das nicht so richtig !
Kann mir einer den code für den Mittelstrich geben den ich bin echt am verzwefeln !
Was mache ich falsch ?
Ich hänge vorsichthalber mSum an.
Mein Code:
Delphi-Quellcode:
program Menchen;
uses
mSum, Windows;
var
derBildschirm : Bildschirm;
meinStift : Stift;
meineMaus : Maus;
Koordinaten : Integer;
begin
derBildschirm := Bildschirm.init;
meinStift := Stift.init;
meineMaus := Maus.init;
for Koordinaten:= 200 to 300 do
begin
with meinstift do
begin
hoch;
bewegeBis(Koordinaten,400);
runter;
zeichneKreis(25);
hoch;
bewegeBis(Koordinaten,425);
dreheUm(-90);
runter;
bewegeUm(75);
warte(10);
repeat
until meineMaus.istGedrueckt;
with derBildschirm do
begin
loescheAlles;
end;
end;
end;
meinStift.gibFrei;
derBildschirm.gibFrei;
meineMaus.gibFrei;
end.