TOUS LES SUDOKU DU MONDE

VBforfun Messages postés 10 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 9 juin 2008 - 14 avril 2008 à 11:15
 oasisk1949 - 24 janv. 2018 à 10:23
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/46327-tous-les-sudoku-du-monde

Bravissimo ! Ce code est tout simplement génial !
neamar Messages postés 26 Date d'inscription vendredi 9 septembre 2005 Statut Membre Dernière intervention 12 avril 2009
12 avril 2009 à 12:00
Merci MattMatt ! Et bien joué pour CCDS :p
Matmatmatt Messages postés 1 Date d'inscription jeudi 29 juin 2006 Statut Membre Dernière intervention 8 avril 2009
8 avril 2009 à 22:48
Pour convertir en .NET, il suffit de remplacer "ByRef Grille_A_Afficher()", "ByRef Grille_A_Solver()" et "ByRef Grille()" par "ByRef Grille_A_Afficher(,)", "ByRef Grille_A_Solver(,)" et "ByRef Grille(,)" après conversion.

Sinon, très bonne source, très souple avec un temps d'exécution minimum, et bien commentée en plus : 10/10 !

PS : Neamar, j'ai terminé CCDS !
garnier54 Messages postés 158 Date d'inscription mardi 17 janvier 2006 Statut Membre Dernière intervention 9 décembre 2018
18 nov. 2008 à 16:30
bonjour

j'ai passé ce programme en vb.net 2008, comme cela on peut l utiliser avce une version gratuite de VB
si ca interesse qq un je le depose. encore bravo pour ton programme.

nicolas
garnier54 Messages postés 158 Date d'inscription mardi 17 janvier 2006 Statut Membre Dernière intervention 9 décembre 2018
4 oct. 2008 à 08:10
bonjour,

le code de ce programme utilise pour la saisie un textboxarray qui pernet une saisie tres sympa (verification numerique, passage automatique a la zone suivante etc ..)
comment faire la meme chose en net ?

merci
neamar Messages postés 26 Date d'inscription vendredi 9 septembre 2005 Statut Membre Dernière intervention 12 avril 2009
1 oct. 2008 à 13:28
Oups ! rien ne sert de courir, il faut partir à point !
J'ai voulu aller trop vite...tu as bien évidemment raison.
mimiZanzan Messages postés 301 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 décembre 2017
1 oct. 2008 à 00:12
NEAMAR,
Au sujet de ta formule pour convertir le tableau, il faut sûrement l'écrire
Tab2D(i,j)=Tab_1D(i*10+j)
car sinon, on a par ex Tab2D(0,9)=Tab_1D(9)
et aussi Tab2D(1,0)=Tab_1D(9)

N'est-ce pas?
neamar Messages postés 26 Date d'inscription vendredi 9 septembre 2005 Statut Membre Dernière intervention 12 avril 2009
30 sept. 2008 à 20:23
Et bien, j'avoue ne pas connaitre le VB.net...demande à notre ami commun google !
garnier54 Messages postés 158 Date d'inscription mardi 17 janvier 2006 Statut Membre Dernière intervention 9 décembre 2018
30 sept. 2008 à 20:21
merci pour cette astuce, mais ca devait etre possible en vb.net car cela etait possible en vb6 !

merci
neamar Messages postés 26 Date d'inscription vendredi 9 septembre 2005 Statut Membre Dernière intervention 12 avril 2009
30 sept. 2008 à 20:12
Tu peux essayer de passer le tableau en unse seule dimension :
Ainsi, soit ton tableau : Tab_2D(9,9)
Tu peux le tranformer en un seul : Tab_1D(81),
avec la relation suivante :
Tab2D(i,j)=Tab_1D(i*9+j)

J'espere m'être fait comprendre...n'hésite pas à en demander plus !
garnier54 Messages postés 158 Date d'inscription mardi 17 janvier 2006 Statut Membre Dernière intervention 9 décembre 2018
30 sept. 2008 à 18:08
bonjour

en fait j'ai trouvé d'ou vient le probleme mais je ne sais pas comment le resoudre.
Le programme passe en parametre un tableau a 2 dimension mais la procedure n'accepte qu'un tableau à 1 dimension et plante

Private Sub AfficherSolution(ByRef Texte As String, ByRef Grille_A_Afficher() As Integer)

pouvez vous m 'aider

merci
garnier54 Messages postés 158 Date d'inscription mardi 17 janvier 2006 Statut Membre Dernière intervention 9 décembre 2018
30 sept. 2008 à 11:20
bonjour,

bravo pour ton programme qui est tres belle exenple de recurcuvité. j'ai simplement essayé de le passer en VB.net 2008 j'ai un message sur les tableau (le compilateur est plus stricte en vb.net concernant les tableaux). Pouvez vous n'aider en rendre ce programme compatible VB.net

Merci de votre aide
ghuysmans99 Messages postés 2496 Date d'inscription jeudi 14 juillet 2005 Statut Contributeur Dernière intervention 5 juin 2016 1
28 avril 2008 à 21:38
Bien !
VBforfun Messages postés 10 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 9 juin 2008
20 avril 2008 à 11:15
Bonjour,
Suite à mon premier commentaire, je tenais à signaler que sous Win XP pro FR ça marche très bien. Bizarre que sous une version US il y ait un problème. Mais cela vient peut-être de la personnalisation de la version que j'ai (corporate grande société).
En tout cas merci pour cette appli complète bien sympa !
mimiZanzan Messages postés 301 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 décembre 2017
14 avril 2008 à 22:21
A propos de Sudoku, ne chargez surtout pas le SudoPlanet qui est mentionné en pub sous la rubrique de cette page
"TOUS LES SUDOKU DU MONDE", Jeu Sudoku 100% gratuit: il vous colle un logiciel SpywareSecure_trial_setup qui perturbe le PC et dont je ne sais comment me débarrasser.
Quelqu'un est-il au courant de la procédure à adopter?
La restauration du système est aussi neutralisée.
Merci d'avance.
neamar Messages postés 26 Date d'inscription vendredi 9 septembre 2005 Statut Membre Dernière intervention 12 avril 2009
14 avril 2008 à 12:57
Tu peux télecharger le fichier ZIP : il y a un fichier .ex_ : modifie son extension en .exe, et c'est terminé !
cs_Lapou Messages postés 30 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 juin 2008 1
14 avril 2008 à 12:18
Bonjour,

Ce code à l'air GENIAL, cependant je ne suis pas développeur !!! :-)
En fait j'aimerais me servir de cette source pour m'aider à résoudre certains sudokus que je fait lol :-)
Serait-il possible d'avoir ce type de source avec un exécutable car je ne dipose pas de vb ?

Par avance merci.
neamar Messages postés 26 Date d'inscription vendredi 9 septembre 2005 Statut Membre Dernière intervention 12 avril 2009
14 avril 2008 à 11:54
Bonjour,
Il s'agit de bugs minimes qui peuvent être facilement corrigés dans le code source associé à la Form. (Form_Resize et Sudoku_Valeur_Change).
Cependant, je rappelle que le but de ce code n'est pas d'avoir une application parfaite graphiquement, mais plutôt de disposer d'un framework opérationnel (le module) pour pouvoir l'utiliser dans une application plus complète.
Merci quand même pour cette remarque, que je corrigerais dès que je serai de nouveau sous Windows.
VBforfun Messages postés 10 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 9 juin 2008
14 avril 2008 à 11:15
Bonjour,
Je rencontre quelques problèmes sous Win XP SP2 version US :
Quand je minimise l'appli, un message d'erreur apparait lorsqu'on la rappelle (Erreur d'exécution '380': Valeur de propriété incorrecte).
D'autre part, lorsque je rentre un chiffre dans la dernière case en bas à droite (comme si le curseur voulait passer à la case suivante), cela provoque une erreur (Erreur d'exécution '340': L'élément du groupe de contrôle '81' n'existe pas).
Rejoignez-nous