Backtracking - Wege aus dem Labyrinth [Source online]

[Flips]

Hi.

Das folgende Projekt ist eine Projektarbeit aus dem Informatikunterricht.
Die Wahl des Themas war den Schülern freigestellt, es sollte nur ein 2D-Array benutzt werden, also sehr anspruchsvoll

Das Programm ist nun fertig.
Es dient dazu, den Computer rekursiv einen Weg aus dem Labyrinth suchen zu lassen.
Die genaue Vorgehensweise findet ihr als Anhang.
Was da nicht drin steht ist eine neue Funktion, grau sind die besuchten Felder und gelb der aktuelle Idealweg.

Wollte nur mal von euch wissen, wie ihr das Programm denn so findet und ob es bei euch läuft und ob es evtl. Bugs hat die mir noch nicht aufgefallen sind.
Ich weiß, man könnte noch 1000 Sachen einbauen aber das würde den Rahmen des Projekts sprengen und mein Partner der erst seid nem Jahr Delphi lernt (dabei aber sehr erfolgreich ist) muss das ja auch verstehen.

Lg und THX,
Flips

Ps: Sind zwei Beispiellabyrinthe dabei, wenn ihr selbst eins macht dann muss dieses an allen Rändern geschlossen (schwarz sein)

Aktuelle Source ist nun auch dabei

[Flips]

Sehr gut, danke dir!!!!

[STS301]

um alle aufmerksam zu machen

DER SOURCE IST DA!!! *freu*

[Flips]

So, hab mal die aktuelle Source (mit der ich die Präsentation gehalten habe) online gestellt.
Sollte evtl. noch jemand Interesse an der Präsentation haben (dadurch wird die Funktionsweise noch klarer), kann ich diese auch hochladen.

[jmit]

Hallo,

wirklich super, sehr gutes Programm.

Was mich noch interessieren würde: Wie erstelle ich ein neues Labyrinth als Bitmap?

Gruß Jörg

[Flips]

Danke

Also ich weiß von Gimp, das es Labyrinte rendern kann.
Allerdings benötigen die ein wenig Nachbearbeitung, da die Ränder nicht schwarz sind und das ganze nicht komplett durchgängig ist.
Aber im Prinzip reicht schon Paint.
Vielleicht schreib bald auch mal ein Programm, welches Labyrinte erstellen kann

[busybyte]

Da kann ich mich nur anschliessen,sehr gute Arbeit und vielen Dank für den OpenSource.
Bugbericht:

Delphi-Quellcode:

procedure TForm1.FindeWeg(x,y,i:integer);
begin
.
.
.
//alt
//Delay(StrToint(edtDelay.Text));
//neu
Delay(StrTointdef(edtDelay.Text,1));

Im Anhang noch ein Bitmap das auch funktioniert,mittelgroß ohne Ausgang

[busybyte]

Bugreport:
Wenn in eine laufende Wegsuche ein neues ungültiges Labyrinth geladen wurde
kam es zu einer Zugriffsverletzung,ein erster Lösungsansatz:

Delphi-Quellcode:

Procedure TForm1.FindeWeg(x,y,i:integer);
begin
//Wenn Ausgang gefunden / Programm beendet -> Breche alle Rekursionstiefen ab
if gefunden or Application.Terminated then
    Exit;

//Schritte insgesamt
inc(c);
//Rekursionstiefe
inc(i);

//Wenn Verzögerung an: Exakte Ausgabe mit Delay
if Form1.rbtnVz.Checked then
  begin
    Ausgabe(i, x, y);
    Delay(StrTointdef(edtDelay.Text,1));
  end
//Im Speed-Modus nur alle 50000 Schritte malen -> sonst speed-modus zu langsam
else
 if (c mod 50000) = 0 then
   Ausgabe(i, x, y);

//EDIT
while Length(Feld)<1 do
begin
gefunden:=True;
exit;
end;
//

Feld[x,y] := 2;
letzte.X := X;
letzte.Y := Y;

if (Ziel.X = X) and (Ziel.Y = Y) then
  begin
    MessageDlg('Ziel gefunden!',mtInformation,[mbOK],0);
    Ausgabe(i,x,y);
    sg.Invalidate;
    gefunden := true;
    Exit;
  end
else
  begin
    feld[X,Y] := 3;
//Edit if Feld[x+1,y] = 1 then
    if not gefunden and (Feld[x+1,y] = 1) then
      FindeWeg(x+1,y,i);

//Edit if Feld[x,y+1] = 1 then
    if not gefunden and (Feld[x,y+1] = 1) then
      FindeWeg(x,y+1,i);

//Edit if Feld[x-1,y] = 1 then
    if not gefunden and (Feld[x-1,y] = 1) then
      FindeWeg(x-1,y,i);

//Edit    if Feld[x,y-1] = 1 then
    if not gefunden and (Feld[x,y-1] = 1) then
      FindeWeg(x,y-1,i);

    if not gefunden then
      feld[X,Y] := 2;
    if (i = 1) and not gefunden then
      begin
        Fehler(3,fFehler);
        sg.Invalidate;
        Ausgabe(i,x,y);
        Application.ProcessMessages;
      end;
  end;
end;

[Flips]

Danke, den ersten Post hab ich übernommen (kannte den Befehl noch gar nicht ),
auch danke für den 2. Post und die Möglichkeit das zu lösen.
Da ich das Programm aber noch morgen meinem Lehrer schicke muss, mache ich es mir etwas einfacher und deaktiviere einfach den "Laden" Button während eine Wegsuche läuft

[Edit]Das Beispielbild mit der Erde ist cool, sowas hatte ich noch gar nicht getestet [/Edit]

[xZise]

Eine Frage: Wodurch sind die Start/Ziel Koordinaten definiert?

MfG
xZise