Das HAus des Nikolaus

[ATwardz]

Endlich habe ich mal Zeit gefunden meine Projekte zu sortieren/löschen!

Naja, dabei sind meine alten Schulprojekte wieder ans Tageslicht gekommen und da habe ich mir gedacht, da "Das Haus des Nikolaus" zum Lehrplan eines Infokurses am Gym gehört oder besser gesagt Backtracking, das ich es hier mal als open source präsentiere!


Das Programm listet alle Möglichkeiten das Haus des Nikolaus zu zeichnen auf (Bei 1 beginnend)<--sorry hatte ich voirher falsch beschrieben!
Das Programm macht keine Fehler, es sind wirklich 44 Möglichkeiten! Wer es nicht glaugt kann sie sich per Listbox-Doppelklick zeichnen lassen!




Wird gerne auch von Lehrer als Facharbeit vergeben!

Es gibt noch viele weiter schöne Beispiele die man coden kann, z.B.
das Problem der 9 Damen auf einem Schachbrett oder ein Solitär-Spiel zu coden!

Vielleicht kann es ja jemand gebrachen oder hat freude dran!

@wardz

[hacker]

Zitat:

Setz mal zu Anfang des Startbutton clicks!

Timer1.enabled:=false;
Resetgrafik;

jetzt gehts!
Was mir aber noch unerklärlich ist, wieso das du einen Start Button gesetzt hast...eigentlich könntest du die Ergebnisse schon von Anfang an ausgeben...es bringt ja nichts wenn man 2-mal auf Start klickt.


Gruss Häcki

[ATwardz]

Wieso 2 mal start clicken? Du brauchst nur einaml start kicken!

Delphi-Quellcode:

procedure TForm1.BT_startClick(Sender: TObject);
begin
  Timer1.enabled:=false;
  Resetgrafik;
  Memo1.Clear;
  Zaehler:=0;
  SucheLoesung(8);
end;

so soll der Code dann aussehn, oder meinst du warum ich die komplette SucheLoesung procedure nicht einfach in das Button Ereignis gepackt habe?
Das mache ich erstens aus Übersichtlichkeitsgründen so und zweitens ist die Procedure ja private!
oder was meinst du?

@wardz

[hacker]

Was ich meine ist, dass du denn Start Button wegnehmen könntest und die Ergebnisse im OnCreate der Form berechnen lassen könntest...es bringt ja nichts 2-mal auf den Start Button zu klicken und die Ergebnisse 2-mal zu berechnen.....


Gruss Häcki

[ATwardz]

Ach so, ja da hast natürlich recht!

Weiss auch nit ich mag Buttons

@wardz

[himitsu]

Der Fehler mit beim Start-Button ist beseitigt.

Alle Startpunkte werden getestet.
(OK - es funktioniert nur von Punkt 1 und 2 aus)

Global definierte, aber nur Lokal verwendete Variablen/Proceduren, wurden in den entsprechenden lokalen Bereich verschoben.

Die nicht verwendete Variable "Zaehler" wurde entfernt.

...



Wer keinen Start-Button haben möchte, der braucht nur die Prozedur für das Form1-OnCreation-Ereignis folgender Masen zu ändern. ^^

Delphi-Quellcode:

  Procedure TForm1.FormCreate(Sender: TObject);
    Begin
      BT_startClick(Sender);
    End;

[ADD]
Ach ja, wieso heißt eigendlich die ListBox "Memo1"?

und das DoppelClick-Ereignis wird jetzt auch für das OnClick-Ereignis verwendet.
Also reicht jetzt ein einfacher Click zum Anzeigen schon aus. Und beim Item-Wechsel mittels Tastatur wird es auch angezeit.

[ATwardz]

Hi,

da das hier die Open-source Kategorie ist wäre es natürlich auch sinnvoll das Projekt zu posten anstatt nur die EXE!

Mir ging es eigentlich auch hauptsächlich um den Code und die Arbeitsweise des backtrackings, der rest ist hat geschmackssache ob nan nun noch n Button drückt oder nit!

Den Fehler habe ich beseitig!

@wardz

[dizzy]

Öhm, hatter doch! Ist, wie es dabei steht, ein SFX-Archiv. Alles drin...

Besser mal probeldownloaden vorm meckern

[Matze]

Dann mecker ich mal.

Bei mir öffnet sich das SFX-Archiv nicht.


@ATwardz:
Das Programm ist wirklich cool!

[ims]

bei mir leider auch nicht... da tut sich nix wen ich's anklick...

[dizzy]

!?!?

Hatte keine Probleme beim öffnen. Ihr solltet evtl. mal gucken, WO das Verzeichnis angelegt wird!!! Ihr werdet nämlich nicht gefragt - das Teil entpack einfach dorthin, wo es liegt bzw. erzeugt dort einen neuen Ordner und packt sich dahin. Keine Dialoge, keine Erfolgsmeldung. Einfach so. Mir fiel es sofort auf, da ich es auf'm Desktop entpackt hab.

Müsster mal richtich guggen Freunde



gruss,
dizzy