hoby500
Messages postés86Date d'inscriptionmardi 25 février 2003StatutMembreDernière intervention26 mai 2019
-
27 sept. 2005 à 22:50
michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010
-
13 mai 2006 à 09:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010 13 mai 2006 à 09:05
Bonjour,
Pour les doublons moi je traite ce probleme dans l'unite U_sudoku3.
A+
elody2
Messages postés4Date d'inscriptiondimanche 17 avril 2005StatutMembreDernière intervention11 mai 2006 11 mai 2006 à 12:32
Bonjour, bonjour!
Merci beaucoup pour votre aide des couleurs. J'avais comme même réussi, mais avec du mal, à trouver une autre manière de faire en attendant que vous me répondiez.
C'est comme même gentil d'avoir répondu!
Il me reste simplement le problème des doublons en colonnes, ligne, et zone. Je travaille simplement sur le stringgrid de départ, comme si c'était un tableau quoi.
Bonne journée!
djtexas
Messages postés20Date d'inscriptionmardi 16 avril 2002StatutMembreDernière intervention 9 mai 2006 10 mai 2006 à 23:17
salut à tous, moi j'ai essayé de prendre le problème à l'envers, a partir d'un grille de sudoku de départ trouver la solution... mon code fonctionne pour des grilles de niveau 1 et 2, mais j'ai du mal à implémenter des techniques avancé de résolution... je ne veux pas faire un truc style brute force sans interet, mon but c'est une aide à la résolution pour les personne qui son bloqués (ce qui arrive souvent à ma femme d'ailleur), si quelqu'un avait une piste... (je ne voudrais pas non plus entrer dans un système de calcul de probabilité pour chaque case...)
djtexas
Messages postés20Date d'inscriptionmardi 16 avril 2002StatutMembreDernière intervention 9 mai 2006 10 mai 2006 à 23:17
salut à tous, moi j'ai essayé de prendre le problème à l'envers, a partir d'un grille de sudoku de départ trouver la solution... mon code fonctionne pour des grilles de niveau 1 et 2, mais j'ai du mal à implémenter des techniques avancé de résolution... je ne veux pas faire un truc style brute force sans interet, mon but c'est une aide à la résolution pour les personne qui son bloqués (ce qui arrive souvent à ma femme d'ailleur), si quelqu'un avait une piste... (je ne voudrais pas non plus entrer dans un système de calcul de probabilité pour chaque case...)
michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010 10 mai 2006 à 18:33
Bonjour
Dans l'unité (U_Sudoku1) il faut modifier les valeurs de couleur1 et couleur2 pour changer la couleur des cases
Extrait de l'unite U_SUDOKU1
.
.
procedure TForm1.FormCreate(Sender: TObject);
var
Col, Row : integer;
begin
Couleur1 := $00CEFFF9;
Couleur2 := $001EADFF;
SetLength(Cellule,StringGrid1.ColCount);
For Col := 0 to High(Cellule) do SetLength(Cellule[Col],StringGrid1.RowCount);
For Col := 0 to High(Cellule) do
Begin
For Row := 0 to High(Cellule[Col]) do Cellule[Col][Row] := False;
end;
Form1.Height := 580;
Etc....
.
.
A+ Michel
elody2
Messages postés4Date d'inscriptiondimanche 17 avril 2005StatutMembreDernière intervention11 mai 2006 5 mai 2006 à 19:45
Bonsoir!
C'est encore Elody.
Je suis toujours en train de faire un Sudoku. Mais j'arrive pas à mettre les couleurs pour certaines cases du stringgrid, ni à éviter les doublons.
J'ai vu comment vous avez fait pour votre programme, mais je ne connais pas les "case", et d'autres fonctions.
A la rigueur, si vous savez juste m'aider pour les couleurs ça peut déjà être bien.
Merci d'avance pour l'attention que vous porterez à ma demande.
Cordialement.
Elody
michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010 8 avril 2006 à 18:33
Remplace Case
If ZZ = '1' then ....
If ZZ = '2' then ....
If ZZ = '3' then ....
If ZZ = '4' then ....
Par exemple
cs_needle
Messages postés34Date d'inscriptionmardi 31 août 2004StatutMembreDernière intervention11 juillet 2006 7 avril 2006 à 19:03
Merci beaucoup j'ai compris...
Mais c'est pas un peu bourrin comme methode?
Merci encore!
elody2
Messages postés4Date d'inscriptiondimanche 17 avril 2005StatutMembreDernière intervention11 mai 2006 7 avril 2006 à 13:13
Bonjour,
Je trouve votre petit programme super sympa.
Je connais un petit peu le langage Delphi, mais j'ai quelques petits soucis pour comprendre vos codes. J'aimerais savoir comment il est possible de remplacer un "Case ZZ of
1:
2:..."
Merci d'avance.
Cordialement,
Elody.
elody2
Messages postés4Date d'inscriptiondimanche 17 avril 2005StatutMembreDernière intervention11 mai 2006 7 avril 2006 à 13:13
Bonjour,
Je trouve votre petit programme super sympa.
Je connais un petit peu le langage Delphi, mais j'ai quelques petits soucis pour comprendre vos codes. J'aimerais savoir comment il est possible de remplacer un "Case ZZ of
1:
2:..."
Merci d'avance.
Cordialement,
Elody.
michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010 1 avril 2006 à 19:01
A la premiere case vide:
Je recherche dans la ligne dans la colonne et dans le carre 9X9 tous les chiffres deja en place
Puis je prend au hasard un chiffre parmis les chiffres restant à mettre que je mets dans la case vide
Ansi de suite...... En cas d'impossibilite je recommence au debut
En cas ou je ne trouve pas de solution j'arrete la boucle et je met un message pas trouve de solution
Cela peut prendre du temps il faut redonner la main avec l'intruction
Application.ProcessMessages;
J'espere que ça reponds à ta qestion !! A+
paulgresh
Messages postés1Date d'inscriptionjeudi 30 mars 2006StatutMembreDernière intervention30 mars 2006 30 mars 2006 à 11:07
good work--very impressed
cs_needle
Messages postés34Date d'inscriptionmardi 31 août 2004StatutMembreDernière intervention11 juillet 2006 27 mars 2006 à 18:41
J'arrive pas vraiment a comprendre comment tu fais pour resoudre un Sudoku...
Tu pourrais m'expliquer le principe?
Merci
cs_needle
Messages postés34Date d'inscriptionmardi 31 août 2004StatutMembreDernière intervention11 juillet 2006 27 mars 2006 à 17:55
Ouahou je vien de ma lancer dans la creation d'un Sudoku aussi et ton code est super bien!
Felicitation!
Bon j'ai pas eu le temps de tous regarder en profondeur, mais a premiere vu ca a l'air bien complet!
michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010 20 févr. 2006 à 18:27
Bonjour,
J'ai une version en D7 qui se compile. Donnes moi une adresse email pour que je te l'envoi ce n'est pas en .Net
A+
Michel
auron97
Messages postés1Date d'inscriptiondimanche 19 février 2006StatutMembreDernière intervention19 février 2006 19 févr. 2006 à 16:16
salut michelroc !
j'ai telechargé ton jeu de sudoku car j'essai d'en faire un en ce moment, mais le tient ne fonctionne pas sur mon PC.
je precise que j'ai une version 7 de delphi.
Est ce que ton code est en .net ? si oui, c'est surement la raison pour laquelle je ne peut pas compiler ton code source (il n'y as pas d'.exe dans le dossier .zip ); si tu peut m'aider ce serais cool !
un develeppeur passionné, mais non innitié au .net !
cs_Den
Messages postés18Date d'inscriptionmardi 23 janvier 2001StatutMembreDernière intervention20 août 2007 19 oct. 2005 à 20:04
A propos l'impression de la grille ne se fait
pas correctement chez moi.
Mais bravo encore !!!
michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010 19 oct. 2005 à 18:26
Des que j'ai un peu de temps je l'amoliore A+
cs_Den
Messages postés18Date d'inscriptionmardi 23 janvier 2001StatutMembreDernière intervention20 août 2007 18 oct. 2005 à 21:28
Pour un truc de Débutant c'est super bon.
Fonctionnement Ok en .net, reste cependant
des optimisations à effectuer.
Je note 9 sur 10
Bravo !!!
gagah1
Messages postés509Date d'inscriptionsamedi 28 juin 2003StatutMembreDernière intervention 3 août 2010 28 sept. 2005 à 13:53
13 mai 2006 à 09:05
Pour les doublons moi je traite ce probleme dans l'unite U_sudoku3.
A+
11 mai 2006 à 12:32
Merci beaucoup pour votre aide des couleurs. J'avais comme même réussi, mais avec du mal, à trouver une autre manière de faire en attendant que vous me répondiez.
C'est comme même gentil d'avoir répondu!
Il me reste simplement le problème des doublons en colonnes, ligne, et zone. Je travaille simplement sur le stringgrid de départ, comme si c'était un tableau quoi.
Bonne journée!
10 mai 2006 à 23:17
10 mai 2006 à 23:17
10 mai 2006 à 18:33
Dans l'unité (U_Sudoku1) il faut modifier les valeurs de couleur1 et couleur2 pour changer la couleur des cases
Extrait de l'unite U_SUDOKU1
.
.
procedure TForm1.FormCreate(Sender: TObject);
var
Col, Row : integer;
begin
Couleur1 := $00CEFFF9;
Couleur2 := $001EADFF;
SetLength(Cellule,StringGrid1.ColCount);
For Col := 0 to High(Cellule) do SetLength(Cellule[Col],StringGrid1.RowCount);
For Col := 0 to High(Cellule) do
Begin
For Row := 0 to High(Cellule[Col]) do Cellule[Col][Row] := False;
end;
Form1.Height := 580;
Etc....
.
.
A+ Michel
5 mai 2006 à 19:45
C'est encore Elody.
Je suis toujours en train de faire un Sudoku. Mais j'arrive pas à mettre les couleurs pour certaines cases du stringgrid, ni à éviter les doublons.
J'ai vu comment vous avez fait pour votre programme, mais je ne connais pas les "case", et d'autres fonctions.
A la rigueur, si vous savez juste m'aider pour les couleurs ça peut déjà être bien.
Merci d'avance pour l'attention que vous porterez à ma demande.
Cordialement.
Elody
8 avril 2006 à 18:33
If ZZ = '1' then ....
If ZZ = '2' then ....
If ZZ = '3' then ....
If ZZ = '4' then ....
Par exemple
7 avril 2006 à 19:03
Mais c'est pas un peu bourrin comme methode?
Merci encore!
7 avril 2006 à 13:13
Je trouve votre petit programme super sympa.
Je connais un petit peu le langage Delphi, mais j'ai quelques petits soucis pour comprendre vos codes. J'aimerais savoir comment il est possible de remplacer un "Case ZZ of
1:
2:..."
Merci d'avance.
Cordialement,
Elody.
7 avril 2006 à 13:13
Je trouve votre petit programme super sympa.
Je connais un petit peu le langage Delphi, mais j'ai quelques petits soucis pour comprendre vos codes. J'aimerais savoir comment il est possible de remplacer un "Case ZZ of
1:
2:..."
Merci d'avance.
Cordialement,
Elody.
1 avril 2006 à 19:01
Je recherche dans la ligne dans la colonne et dans le carre 9X9 tous les chiffres deja en place
Puis je prend au hasard un chiffre parmis les chiffres restant à mettre que je mets dans la case vide
Ansi de suite...... En cas d'impossibilite je recommence au debut
En cas ou je ne trouve pas de solution j'arrete la boucle et je met un message pas trouve de solution
Cela peut prendre du temps il faut redonner la main avec l'intruction
Application.ProcessMessages;
J'espere que ça reponds à ta qestion !! A+
30 mars 2006 à 11:07
27 mars 2006 à 18:41
Tu pourrais m'expliquer le principe?
Merci
27 mars 2006 à 17:55
Felicitation!
Bon j'ai pas eu le temps de tous regarder en profondeur, mais a premiere vu ca a l'air bien complet!
20 févr. 2006 à 18:27
J'ai une version en D7 qui se compile. Donnes moi une adresse email pour que je te l'envoi ce n'est pas en .Net
A+
Michel
19 févr. 2006 à 16:16
j'ai telechargé ton jeu de sudoku car j'essai d'en faire un en ce moment, mais le tient ne fonctionne pas sur mon PC.
je precise que j'ai une version 7 de delphi.
Est ce que ton code est en .net ? si oui, c'est surement la raison pour laquelle je ne peut pas compiler ton code source (il n'y as pas d'.exe dans le dossier .zip ); si tu peut m'aider ce serais cool !
un develeppeur passionné, mais non innitié au .net !
19 oct. 2005 à 20:04
pas correctement chez moi.
Mais bravo encore !!!
19 oct. 2005 à 18:26
18 oct. 2005 à 21:28
Fonctionnement Ok en .net, reste cependant
des optimisations à effectuer.
Je note 9 sur 10
Bravo !!!
28 sept. 2005 à 13:53
http://www.cppfrance.com/code.aspx?id=33318
28 sept. 2005 à 12:22
Merci
27 sept. 2005 à 22:50
Le jeu ne se compile pas sous D5 ni D6 !!
Quelle manière tordue de dessiner la grille :
Il y a plus facile .. suffit de voir mon source n° : 33874
Je l'ai vu dans un quotidien et ne sachant pas comment ca s'appelle, je l'ai appelé "Les 9 carrés magiques".
Mais au moins ca marche !
Vous avez un bug lors de la création d'une nouvelle grille :
message : " Pas de solution relancer une nouvelle grille"