Delphi "Karel" Problem! geschlossen

[mirado]

hey leute,
und zwar habe ich heute zwei stunden lang im informatikunterricht versucht, in der "MyWorld", nachdem ich eine treppe erstellt habe, den Roboter (RD2) die treppe runterlaufen zulassen und wieder hoch, sodass er am ende am baum ankommt und dort hält (siehe bild).

hat einer von euch eine ahnung wie man das programmiert? ich bin echt an meine grenze gekommen und weiß jetzt ehrlich gesagt gar nicht wie ich das am besten anstelle. vielleicht hat ja jemand ahnung davon und könnte hier mal ein funktionierenden quelltext posten...

 

[corema]

nur pseudocode:

var y,x:interger;

TForm1.Create
var i:interger;
begin
for i := 0 to 11 do //robotter auf der linken seite setzen
begin
if(StringGrid1.Cells[0, i] = mauer) then
begin
StringGrid1.Cells[0, i-1]:=robotter;
x:=i-1;
break;
end;
end;
end;

GoButtonClick
begin
Timer1.Enabeld:=True;
Timer1.Interval:=1000;
end;

Timer1
begin
if(StringGrid1.Cells[x+1, y] = Baum) then //beim Baum anhalten
begin
Timer1.Enabled:=False;
exit;
end;

if(StringGrid1.Cells[x+1, y+1]=mauer) and not(StringGrid1.Cells[y, x+1]=mauer) then //Gradeausgehen
begin
StringGrid1.Cells[x+1, y]:=robotter
y:=y+1;
end
else if not(StringGrid1.Cells[x+1, y+1]=mauer) then //treppe nach unten
begin
StringGrid1.Cells[x+1, y+1]:=robotter
y:=y+1;
end
else if(StringGrid1.Cells[x+1, y]=mauer) then //treppe nach oben
begin
StringGrid1.Cells[x+1, y-1]:=Robotter;
y:=y-1;
end;
x:=x+1;
end;

bloß nicht einfach abschreiben, habs nicht getestet und bin ihn auch nur einmal durchgegangen. es ist also gut möglich, dass da denkfehler drinn sind!!!

aber ich hoff ich konnt dir helfen

EDIT:
oder kannst du die daten nicht einfach mal eben hochladen? dann kann ich den quelltext mal umsetzten. würd mich jetzt auch mal interessieren, ob der code richtig war

 

[mirado]

sry hab die daten leider nicht alle aufm pc...werd es die nächsten tage im infounterricht mal testen und dir bescheid sagen ob es funzt oder nicht, oder was gegebenfalls geändert werden musste...

thx schonmal für deine mühe