Autor |
Beitrag |
Fiete
Beiträge: 611
Erhaltene Danke: 347
W7
Delphi 6 pro
|
Verfasst: Fr 18.01.19 12:24
Moin,
Rekuto ist ein japanisches Logikrätsel: Zerlege das Muster in Rechtecke
die sich NICHT überlappen. Die Summe aus Länge und Breite muß genau
so groß sein wie die Zahl im zu findenden Rechteck vorgibt.
Quelltext 1: 2: 3: 4: 5: 6: 7: 8:
| neue Rekutogröße : ein neues leeres Muster wird zentriert ausgegeben Rekuto erzeugen : ein Rekuto wird generiert Rekuto konstruieren : ein Rekuto kann selbst definiert werden, wenn das Muster gefüllt ist kann gespielt und gespeichert werden Rekuto lösen : der Benutzer versucht die Rechtecke zu finden, die Rechtecke werden farblich markiert. Der Lösungsversuch kann wiederholt werden Rekuto speichern : ein Rekuto wird gespeichert wenn das Muster vollständig ist. Rekuto laden : ein Rekuto wird geladen, es kann sofort mit einem Lösungsversuch begonnen werden. |
Die Dateinamen MÜSSEN folgenden Aufbau aufweisen <ColCount>x<RowCount>_Nr<laufende Nummer>.rek
Beim konstruieren MUSS der User aufpassen dass sich die Rechtecke NICHT überschneiden, Sorgfalt ist also angebracht!
Falls man sich beim Lösen geirrt hat kann man es noch einmal versuchen.
Viel Spaß beim Testen.
Gruß Fiete
Rev. 1: die Zugrücknahme ist implementiert, beim Lösen und Konstruieren ist die Rücknahme jetzt möglich
Rev. 2: das Programm erkennt jetzt jede Lösungsmöglichkeit
Einloggen, um Attachments anzusehen!
_________________ Fietes Gesetz: use your brain (THINK)
Zuletzt bearbeitet von Fiete am Sa 26.01.19 15:46, insgesamt 4-mal bearbeitet
Für diesen Beitrag haben gedankt: jasocul, Mathematiker, Narses
|
|
jasocul
Beiträge: 6388
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Fr 18.01.19 14:47
Hätte es mir gerne mal angesehen. Leider ist der Anhang nicht verfügbar.
|
|
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Fr 18.01.19 15:11
- Nachträglich durch die Entwickler-Ecke gelöscht -
|
|
Fiete
Beiträge: 611
Erhaltene Danke: 347
W7
Delphi 6 pro
|
Verfasst: Fr 18.01.19 15:36
Moin,
Frühlingsrolle hat recht mit "Mhm, hier ist irgendetwas schief gelaufen."
Habe die zip-Datei noch einmal hochgeladen.
Gruß Fiete
_________________ Fietes Gesetz: use your brain (THINK)
|
|
jasocul
Beiträge: 6388
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Mo 21.01.19 09:48
Jetzt konnte ich das mal testen.
Das Spiel ist interessant. Ich mag solche Spiele.
Anregungen:
Fiete hat folgendes geschrieben : |
Die Dateinamen MÜSSEN folgenden Aufbau aufweisen <ColCount>x<RowCount>_Nr<laufende Nummer>.rek |
Die Spielfeldgröße kannst du doch sicher mitspeichern. Das würde manuelle Fehler beim Dateinamen verhindern und ist mMn anwenderfreundlicher.
Fiete hat folgendes geschrieben : |
Beim konstruieren MUSS der User aufpassen dass sich die Rechtecke NICHT überschneiden, Sorgfalt ist also angebracht! |
Da würde ich mir wünschen, dass das vom Programm automatisch verhindert wird. Man kann sicher eine gewisse Sorgfalt vom Anwender erwarten, aber man kann mit der Maus auch mal abrutschen.
Da komme ich gleich auf meinen nächsten Vorschlag:
Mirt fehlt da eine Rückgängig-Funktion. Die muss nicht mehrere Schritte beinhalten, aber ich habe beim Testen gemerkt, dass man schnell mal einen kleinen Fehler gemacht hat, den man gerne beheben möchte, ohne gleich das ganze Rekuto neu starten zu müssen.
Evtl. kann man das auch mit der rechten Maustaste auf ein Zahlenfeld lösen. Also die zugehörigen Felder wieder freigeben.
|
|
Fiete
Beiträge: 611
Erhaltene Danke: 347
W7
Delphi 6 pro
|
Verfasst: Mo 21.01.19 18:30
Moin jasocul,
die Dateinamen werden automatisch vorgegeben, die Nummer kann ja verändert werden, die Größen hätte ich auch mit in die Datei aufnehmen können - habs diesmal
anders gelöst.
Beim Konstruieren testet das Programm etwaige Überschneidungen, hab den Hinweis nur zur Sicherheit mit angegeben.
Eine Rückgängig-Funktion ist in Arbeit, müßte ich in dieser Woche noch schaffen, der Handball lenkt mich zur Zeit ab.
Gruß Fiete
_________________ Fietes Gesetz: use your brain (THINK)
Für diesen Beitrag haben gedankt: jasocul
|
|
jasocul
Beiträge: 6388
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Di 22.01.19 13:42
Moin Fiete,
bisher hatte ich nur wenig Zeit, mir deinen Source genau anzusehen.
Deine Source-Formatierung liegt mir auch nicht so.
Ich hatte jetzt schon zwei mal eine Lösung, die das Programm als unzulässig betrachtet hat. Es scheint so, als gäbe es ein Problem, wenn es mehrere Lösungen gibt, die nach den Regeln erlaubt sind.
|
|
Fiete
Beiträge: 611
Erhaltene Danke: 347
W7
Delphi 6 pro
|
Verfasst: Di 22.01.19 15:31
Moin jasocul,
die Zugrücknahme ist fertiggestellt.
Es ist nicht ausgeschlossen, dass mehrdeutige Aufgaben entstehen.
Durch die Rücknahmemöglichkeit der Züge kann der Spieler die Computerlösung erhalten.
Gruß Fiete
_________________ Fietes Gesetz: use your brain (THINK)
|
|
jasocul
Beiträge: 6388
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Mi 23.01.19 08:08
|
|
Fiete
Beiträge: 611
Erhaltene Danke: 347
W7
Delphi 6 pro
|
Verfasst: Mi 23.01.19 18:08
Moin jasocul,
Deine "Kritik" ist schon berechtigt. Ich habe beim Testen selbst die Erfahrung gemacht dass eine Lösung nicht als solche vom Programm erkannt wurde.
Jetzt werde ich mich aufraffen und eine Testroutine entwickeln, eine Idee hab ich zwar schon, die Umsetzung kann ein paar Tage dauern.
Gruß Fiete
_________________ Fietes Gesetz: use your brain (THINK)
Für diesen Beitrag haben gedankt: jasocul
|
|
jasocul
Beiträge: 6388
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Do 24.01.19 08:04
Mach dir keinen Stress.
Hätte ich Zeit für private Projekte, hätte ich schon mitprogrammiert.
|
|
Fiete
Beiträge: 611
Erhaltene Danke: 347
W7
Delphi 6 pro
|
Verfasst: Sa 26.01.19 15:48
Moin jasocul,
die neue Version ist fertig zum Testen, habe sie hochgeladen.
Gruß Fiete
_________________ Fietes Gesetz: use your brain (THINK)
Für diesen Beitrag haben gedankt: Horst_H, jasocul
|
|
Horst_H
Beiträge: 1653
Erhaltene Danke: 243
WIN10,PuppyLinux
FreePascal,Lazarus
|
Verfasst: Sa 26.01.19 17:58
Hallo,
den Schaltknopf "Rekuto selbst lösen" könnte man vielleicht größer machen und/oder fablich absetzen, oder oben/unten setzen.Wahrscheinlich bin ich kantenfixiert
Ich gebe zu, über Bedienbarkeit habe ich mir nie Gedanken gemacht.
Gruß Horst
P.S.:
Lazarus kennt scheinbar TColorBox nicht.
Zitat: | Rekuto.pas(24,13) Error: Identifier not found "TColorBox"
Rekuto.pas(24,22) Error: Error in type definition
Rekuto.pas(24,5) Error: Symbol cannot be published, can be only a class |
|
|
Fiete
Beiträge: 611
Erhaltene Danke: 347
W7
Delphi 6 pro
|
Verfasst: Sa 26.01.19 18:14
Moin Horst_H,
bei diesem Programm habe ich die Schaltknöpfe gleich groß gestaltet , die Farbe für die Rechtecke sollte der Spieler selbst bestimmen können.
Wenn in Lazarus keine TColorBox existiert könnte die Komponente vielleicht durch ein konstantes äquivalentes Array[0..14] of TColor ersetzt werden.
Gruß Fiete
_________________ Fietes Gesetz: use your brain (THINK)
|
|
Th69
Beiträge: 4782
Erhaltene Danke: 1055
Win10
C#, C++ (VS 2017/19/22)
|
Verfasst: So 27.01.19 08:00
Hallo Horst_H,
laut TColorBox sowie ColorBox sollte diese auch bei Lazarus (FreePascal) existieren (evtl. bei den LCL-Komponenten, ansonsten direkt Lazarus Code and Component Repository - ColorBox).
|
|
ub60
Beiträge: 762
Erhaltene Danke: 127
|
Verfasst: So 27.01.19 13:36
TColorBox funktioniert in Lazarus wunderbar. Lediglich die ShellExecute-Zeile müsste man (für Windows) ändern:
Delphi-Quelltext 1:
| ShellExecute(0, nil, PChar('cmd'),PChar('/c start https://www.janko.at/Raetsel/Rekuto/Beispiel.htm'), nil, 0); |
ub60
|
|