VBforfun
Messages postés10Date d'inscriptionlundi 24 septembre 2007StatutMembreDerniè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.
neamar
Messages postés26Date d'inscriptionvendredi 9 septembre 2005StatutMembreDernière intervention12 avril 2009 12 avril 2009 à 12:00
Merci MattMatt ! Et bien joué pour CCDS :p
Matmatmatt
Messages postés1Date d'inscriptionjeudi 29 juin 2006StatutMembreDerniè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és158Date d'inscriptionmardi 17 janvier 2006StatutMembreDerniè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és158Date d'inscriptionmardi 17 janvier 2006StatutMembreDerniè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és26Date d'inscriptionvendredi 9 septembre 2005StatutMembreDernière intervention12 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és301Date d'inscriptionlundi 27 février 2006StatutMembreDernière intervention17 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és26Date d'inscriptionvendredi 9 septembre 2005StatutMembreDernière intervention12 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és158Date d'inscriptionmardi 17 janvier 2006StatutMembreDerniè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és26Date d'inscriptionvendredi 9 septembre 2005StatutMembreDernière intervention12 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és158Date d'inscriptionmardi 17 janvier 2006StatutMembreDerniè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és158Date d'inscriptionmardi 17 janvier 2006StatutMembreDerniè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és2496Date d'inscriptionjeudi 14 juillet 2005StatutContributeurDernière intervention 5 juin 20161 28 avril 2008 à 21:38
Bien !
VBforfun
Messages postés10Date d'inscriptionlundi 24 septembre 2007StatutMembreDerniè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és301Date d'inscriptionlundi 27 février 2006StatutMembreDernière intervention17 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és26Date d'inscriptionvendredi 9 septembre 2005StatutMembreDernière intervention12 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és30Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention11 juin 20081 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és26Date d'inscriptionvendredi 9 septembre 2005StatutMembreDernière intervention12 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és10Date d'inscriptionlundi 24 septembre 2007StatutMembreDerniè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).
24 janv. 2018 à 10:23
12 avril 2009 à 12:00
8 avril 2009 à 22:48
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 !
18 nov. 2008 à 16:30
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
4 oct. 2008 à 08:10
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
1 oct. 2008 à 13:28
J'ai voulu aller trop vite...tu as bien évidemment raison.
1 oct. 2008 à 00:12
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?
30 sept. 2008 à 20:23
30 sept. 2008 à 20:21
merci
30 sept. 2008 à 20:12
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 !
30 sept. 2008 à 18:08
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
30 sept. 2008 à 11:20
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
28 avril 2008 à 21:38
20 avril 2008 à 11:15
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 !
14 avril 2008 à 22:21
"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.
14 avril 2008 à 12:57
14 avril 2008 à 12:18
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.
14 avril 2008 à 11:54
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.
14 avril 2008 à 11:15
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).