JEU DU SUDOKU
hoby500
Messages postés
86
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
26 mai 2019
-
27 sept. 2005 à 22:50
michelroc Messages postés 84 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 2 janvier 2010 - 13 mai 2006 à 09:05
michelroc Messages postés 84 Date d'inscription lundi 19 mai 2003 Statut Membre Derniè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.
https://codes-sources.commentcamarche.net/source/33992-jeu-du-sudoku
https://codes-sources.commentcamarche.net/source/33992-jeu-du-sudoku
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"