AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid
Thema durchsuchen
Ansicht
Themen-Optionen

Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

Ein Thema von Delphi-Narr · begonnen am 24. Mai 2010 · letzter Beitrag vom 28. Mai 2010
Antwort Antwort
Benutzerbild von Delphi-Narr
Delphi-Narr

Registriert seit: 29. Aug 2009
Ort: Duisburg
437 Beiträge
 
Delphi 2007 Professional
 
#1

Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

  Alt 24. Mai 2010, 12:37
Hallo,

da es viel Bedarf nach Sudokugeneratoren gibt, deren Ergebnisse auch in anderen Programmen nutzbar sind, habe ich ein kleines Tool geschrieben, welches ein Sudoku generiert und an ein anderes Programm übergibt.

Die SudokuCreate.Exe in der zip Datei muss nur in das Verzeichnis kopiert werden, in dem sich die aufrufende exe befindet.

Um dann ein Sudoku ins Programm zu laden, muss nur folgender Code eingearbeitet werden:
Delphi-Quellcode:

uses ..., ShellAPI;

//...

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure GetSudokuClick(Sender: TObject);
    procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA; //<- Die Zeile ist wichtig!

//...

var
  Form1: TForm1;
  S:array [0..8] of array [0..8]of integer;
 {In diesem Array ist später das Sudoku gespeichert, aufgerufen werden die Werte über S[Reihe][Spalte]}

implementation


//Hier werden die empfangenen Daten verarbeitet

procedure TForm1.WMCopyData(var Msg: TWMCopyData);
var x,y,i,j:integer;
    p:string;
begin
     j:=1;
     p:=string(PChar(Msg.CopyDataStruct.lpData));
     for x:=0 to 8 do
     for y:=0 to 8 do
     begin
          S[x][y]:=StrToInt(p[j]);
          j:=j+1;
     end;

     for i:=0 to 8 do
         for j:=0 to 8 do
         begin
              Stringgrid1.Cells[j,i]:=IntToStr(S[i][j]);
         end;
end;


procedure TForm1.GetSudokuClick(Sender: TObject); //Muss aufgerufen werden, wenn man ein Sudoku erstellt haben will
var
  aCopyData: TCopyDataStruct;
  p: PChar;
begin
//Falls die Sudokucreate.exe nicht im Programmverzeichnis liegt, muss dies angepasst werden
  winexec(ExtractFilePath(ParamStr(0))+'Sudokucreate.exe', SW_SHOWNORMAL);

  
  p := PChar('TForm1'); //Der unter type deklarierte Name muss hier eigetragen werden

  with aCopyData do begin
    dwData := 0;
    cbData := StrLen(p) + 1;
    lpData := p;
  end;
 
  // Die Fensterdaten werden an die SudokuCreate.exe übergeben, damit die Daten auch zurückkommen
  SendMessage(FindWindow('TSDokCreate', nil), WM_COPYDATA, Longint(Handle),
              Longint(@aCopyData));

end;
Im Anhang befindet sich sowohl die SudokuCreate.exe alleine (SudokuCreate.zip) und ein Testprogramm, welches den Code zum Aufruf
enthält und anwendet.

Liebe Grüße!
Angehängte Dateien
Dateityp: zip testprogramm_462.zip (382,2 KB, 25x aufgerufen)
Dateityp: zip sudokucreate_618.zip (175,9 KB, 26x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.993 Beiträge
 
Delphi 12 Athens
 
#2

Re: Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

  Alt 24. Mai 2010, 12:58
MSDN-Library durchsuchenWinExec
Zitat:
Note This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.
(oder eben ShellExecute)

Und noch was zum Code:
Genau für sowas wurden DLLs erfunden.
PS: seit Windows 7 sind messages kein zuverlässiges Kommunikationsmedium, da diese Aufgrund gewisser Sicherheitsmechianismen auch mal verboten/blockiert sein können.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von Delphi-Narr
Delphi-Narr

Registriert seit: 29. Aug 2009
Ort: Duisburg
437 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

  Alt 24. Mai 2010, 13:42
Zitat von himitsu:
MSDN-Library durchsuchenWinExec
Zitat:
Note This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.
(oder eben ShellExecute)
Ich dachte mindestens 16 bit... Bei meinen 32 klappts auch. Aber ich werde dann mal ShellExecute nutzen.
Danke für die Rückmeldung!
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

  Alt 24. Mai 2010, 14:17
Veröffentlichst du noch den Code der Sudokucreate.exe oder wieso ist das in Open-Source?

Open-Source ist es für mich dann, wenn der Code soweit einsehbar ist, dass man theoretisch auch ohne Exe auskommt, sondern den Code direkt im eigenen Programm verwenden kann.

Nachtrag: Habe ich es übersehen oder lässt sich der Schwierigkeitsgrad nicht festlegen? Ohne ist das nicht allzu sinnvoll.
  Mit Zitat antworten Zitat
Benutzerbild von Delphi-Narr
Delphi-Narr

Registriert seit: 29. Aug 2009
Ort: Duisburg
437 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

  Alt 27. Mai 2010, 19:51
Aus einem Sudoku werden eigentlich zufällig Einträge gelöscht.

also dann

Delphi-Quellcode:
var i,x,y:integer;

begin
     randomize;
     //b ist hier die MAXIMALE Anzahl der gelöschten einträge, da doppelt gelöscht werden kann...
     //S ist ein zweidimensionales Array von integer und beinhaltet das Sudoku
     for i:=0 to b do
     begin
          x:=Random(8);
          y:=Random(8);
          S[x][y]:=0; //Wenn später 0 eingetragen ist, reagieren und das Feld leer lassen...
     end;
end;
Es empfiehlt sich jedoch, vorher eine Kopie von S anzulegen um das Ergebnis hinterger zu prüfen...
Also bei mir gabs bisher keine Probleme, dass Sudoku selbst bei vielen leeren Feldern nicht mehr zu lösen war... Habs bisher immer hingekriegt...
  Mit Zitat antworten Zitat
Tryer

Registriert seit: 16. Aug 2003
200 Beiträge
 
#6

Re: Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

  Alt 27. Mai 2010, 20:09
Zitat von Delphi-Narr:
Also bei mir gabs bisher keine Probleme, dass Sudoku selbst bei vielen leeren Feldern nicht mehr zu lösen war... Habs bisher immer hingekriegt...
Das ist ja garnicht die Frage, selbst (oder gerade wenn) nur eine Zahl eingetragen ist findet man irgendeine Lösung.
Bedingung für ein Sudoku ist aber das es nur eine Lösung gibt.
Wie stellst Du sicher das das generierte Sudoku diese Bedingung erfüllt und es nicht vielleicht zwei Lösungen gibt? Dafür ist vermutlich etwas mehr Analyse notwendig, und in dem Zuge hat man "automatisch" den Schwierigkeitsgrad der sich aus der Komplexität der anzuwendenden Lösungsstrategien ergibt.


Grüsse, Dirk
  Mit Zitat antworten Zitat
Benutzerbild von Delphi-Narr
Delphi-Narr

Registriert seit: 29. Aug 2009
Ort: Duisburg
437 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

  Alt 27. Mai 2010, 22:09
Das von mir erstellte Programm, mit dem ich die Sudokus löse, kann jedoch (bisher) die Sudokus noch nicht so prüfen, dass es die regeln überprüft, sondern vergleicht es nur mit dem generierten.
Ein Sudoku hat bei wenigen Zahlen natürlich mehrere Lösungen. Wenn man irgendwo eine 1 reinschreibt es Billionen von Lösungen. Bei insgesamt
6.670.903.752.021.072.936.960 (also 6,6709 Trilliarden) Möglichkeiten eines 9*9 Sudokus sind Doppellösungen natürlich sehr wahrscheinlich.
Da ich (bisher!) immer auf die "generierte" Lösung hingearbeitet habe, gibt es anscheinend doch nicht so viele verschiedene Möglichkeiten. Denn von Versuch zu Versuch müsste die Wahrscheinlichkeit einer erneuten korrekten/vorgegebenen Lösung rapide (exponential) sinken. Bei je zwei Möglichkeiten hätten wir nach 50 Versuchen eine Wahrscheinlichkeit von 8,8817842 × 10^(-16), also 0,0000000000000088817842 (0,00000000000088817842%), dass alle 50 Versuche auf die vorgegebene Lösung treffen. Und das bei nur je 2 Lösungsmöglichkeiten... Wenn man nicht mehr als bis zu 40 Felder löscht, sollte sich kein Problem ergeben.
Außerdem kommt es doch eigentlich nur darauf an, das Sudoku zu lösen, nicht aber es bestimmt zu lösen...

Zitat:
Die Mindestanzahl vorbelegter Felder zu bestimmen, für die es ein eindeutig lösbares Sudoku gibt, ist ein ungelöstes Problem. Für die Standardvariante ist die kleinste bisher gefundene Anzahl 17.

Liebe Grüße!
  Mit Zitat antworten Zitat
Benutzerbild von JasonDX
JasonDX
(CodeLib-Manager)

Registriert seit: 5. Aug 2004
Ort: München
1.062 Beiträge
 
#8

Re: Sudoku Zufallsgenerator mit Anzeige in 9*9 Stringrid

  Alt 28. Mai 2010, 01:39
Zitat von Delphi-Narr:
Wenn man nicht mehr als bis zu 40 Felder löscht, sollte sich kein Problem ergeben.
Ganz im Gegenteil. Als Beispiel ein 2x2-Sudoku:
Code:
xx 34
34 12
43 21
xx 34
Dieses hat bereits 2 verschiedene Lösungen, obwohl fast alle Zahlen eingetragen sind. Natürlich machts für die Lösbarkeit keinen Unterschied (allerhöchstens für die Schwierigkeit), aber zumindest nach eigenem Empfinden ist die Uneindeutigkeit eines Logikpuzzles definitiv spielspaßraubend. Insb. wenn du dann (bisher) nur eine Lösung als richtig anrechnest ist eine solche Situation mindestens suboptimal
Einen effizienten Algorithmus, eindeutige Sudokus zu generieren gibts AFAIK (noch) nicht. Die Holzhammermethode wäre natürlich, alle möglichen Lösungen zu berechnen. Ein anderer Weg wäre, das Sudoku auf Aussagenlogik zurückzuführen und es mit einem Implikationsgraphen zu probieren. Die letzte Möglichkeit die mir einfällt wäre eine Annäherung, d.h. zumindest bestimmte Fälle von mehrfachen Lösungen zu vermeiden. Situationen wie oben im 2x2-Sudoku kann man relativ leicht feststellen und durch hinzufügen einer Zahl lösen. Eine Garantie, dass das Sudoku damit eine eindeutige Lösung hat, ist das definitiv nicht; Aber die für den Spieler (IMO) nervigen Situationen kann man damit eliminieren. (Wenn das Puzzle zwar mehrere Lösungen hat, aber mit einer frühen Entscheidung des Spielers nur eine Lösung möglich ist, merkt der Spieler meist gar nicht, dass es noch andere gäbe).

greetz
Mike
Mike
Passion is no replacement for reason
  Mit Zitat antworten Zitat
28. Mai 2010, 01:40
Dieses Thema wurde von "JasonDX" von "Open-Source" nach "Freeware" verschoben.
Ich verschieb das Thema mal nach Freeware; Wie Matze bemerkt hat fehlt der Code um OpenSource zu sein
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz