HANOI GRAPHIQUE AVEC CHOIX DE L INTERVALLE - 1 A 10 ANNEAUX
cs_neria
Messages postés319Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention16 février 2009
-
12 mars 2004 à 18:57
Utilisateur anonyme -
13 mars 2004 à 15:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Select Case CInt(List1.Text)
Case 1: Label1.Visible = True
Case 2: Label2.Visible = True
Case 3: Label3.Visible = True
Case 4: Label4.Visible = True
Case 5: Label5.Visible = True
Case 6: Label6.Visible = True
Case 7: Label7.Visible = True
Case 8: Label8.Visible = True
Case 9: Label9.Visible = True
Case 10: Label10.Visible = True
End Select
Et tu pourrais aussi utiliser une collection.
Voila =)
cs_neria
Messages postés319Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention16 février 2009 12 mars 2004 à 18:58
Salut !
Une dernière choise que j'ai oubliée : déclare ta fonction sleep en private et met la dans ta feuille au lieu de prendre un module.
C'est tout !
@+ Neria
cs_neria
Messages postés319Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention16 février 2009 12 mars 2004 à 18:57
Salut !
La tour de Hanoi, en voila un bon jeux de reflexion !!! Vieux Lion en a poster un pas mal du tout. Bref Voila quelques reproches :
Le jeux plante quel que soit l'interval au bout de quelques coups
Il faudrait enlever le caption des labels dans la source
Ca manque un peu de commentaires tout ca ( surtout pour un algo de maths !!! )
Pour les tableaux, fait les dynamiques et utilise un redim ( sans preserve ) pour les vider, c'est plus rapide !
Tu pourrais utiliser des index pour les labels ainsi qu'une boucle dans Form_Load pour les afficher.
Il faudrait utiliser un algo pour positionner les étages et pas y aller à la bourrin
Ce n'était pas la peine de mettre un code aussi long dans la case de texte d'en haut !
Sinon l'idée de départ est bonne. Au fait tu as pioché l'algo dans un bouquin ou tu as essayé d'en créer un toi même ?
13 mars 2004 à 15:41
Remplace ton immense select case de la fin par :
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Select Case CInt(List1.Text)
Case 1: Label1.Visible = True
Case 2: Label2.Visible = True
Case 3: Label3.Visible = True
Case 4: Label4.Visible = True
Case 5: Label5.Visible = True
Case 6: Label6.Visible = True
Case 7: Label7.Visible = True
Case 8: Label8.Visible = True
Case 9: Label9.Visible = True
Case 10: Label10.Visible = True
End Select
Et tu pourrais aussi utiliser une collection.
Voila =)
12 mars 2004 à 18:58
Une dernière choise que j'ai oubliée : déclare ta fonction sleep en private et met la dans ta feuille au lieu de prendre un module.
C'est tout !
@+ Neria
12 mars 2004 à 18:57
La tour de Hanoi, en voila un bon jeux de reflexion !!! Vieux Lion en a poster un pas mal du tout. Bref Voila quelques reproches :
Le jeux plante quel que soit l'interval au bout de quelques coups
Il faudrait enlever le caption des labels dans la source
Ca manque un peu de commentaires tout ca ( surtout pour un algo de maths !!! )
Pour les tableaux, fait les dynamiques et utilise un redim ( sans preserve ) pour les vider, c'est plus rapide !
Tu pourrais utiliser des index pour les labels ainsi qu'une boucle dans Form_Load pour les afficher.
Il faudrait utiliser un algo pour positionner les étages et pas y aller à la bourrin
Ce n'était pas la peine de mettre un code aussi long dans la case de texte d'en haut !
Sinon l'idée de départ est bonne. Au fait tu as pioché l'algo dans un bouquin ou tu as essayé d'en créer un toi même ?
@+ Neria