Discussion :

[Lam83]

bonjour à tous,
grâce aux bons conseils d'intervenants, j'ai réalisé un code pour automatiser le jeu des tours de Hanoï.
tout va bien, si je fais le défilement au pas à pas. aucun bog.
si je lance en direct, je n'ai pas le temps de voir ce qui se passe et j'arrive sur l'écran final avec les tours
à la bonne place, et le message "voulez-vous rejouer?"
au chrono moins d'1mn pour 12 disques, 4095 mouvements.
j'aimerai bien voir les disques évoluer d'une tour à l'autre,.. m'enfin !.
la boucle for...next de 1 à 1.000.000 ne change rien. problème de localisation de cette boucle?
je recherche à nouveau des conseils
cordialement
Lam83

PS : je ma plante pour passer du code. Où est la méthode sur le forum? merci.

[ARTURO83]

Bonjour,

PS : je ma plante pour passer du code. Où est la méthode sur le forum? merci.

Dans votre prochaine réponse, collez votre code, sélectionnez-le entièrement puis, cliquez sur l'icône la plus à droite "#" balise de code

D'après vos dires, avant la temporisation, écrivez cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True

puis celle-ci après la remporisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

Cdlt

[Lam83]

Bonjour Arturo83,
merci pour l'utilisation de la balise de code.
mais pour la tempo j'ai fait plusieurs essais, sans succès
j'ai placé avant et après la sub Tempo vos lignes de code proposées
cette Tempo intervient à chaque appel de deplacement, ça devrait ralentir, mais rien!
ai-je mal compris?
puis-je passer un bout de code des essais?
merci d'avance
Lam83

[jurassic pork]

hello,

Bonjour Arturo83,
j'ai placé avant et après la sub Tempo vos lignes de code proposées
cette Tempo intervient à chaque appel de deplacement, ça devrait ralentir, mais rien!

ta tempo m'inquiète ! montres-nous le code où elle est utilisée.

Ami calmant, J.P

[Lam83]

bonjour à tous,
je vous passe le bout de code de mon projet.
j'évite ttes les procédures de debut, fin, comptage, qui sont basiques et n'interviennent très peu.
le coeur du projet tient sur les déplacements des tours de Hanoï.
merci.
Lam83

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub tempo()
Dim j As Double
For j = 1 To 1000000
Next
End Sub

'**************************************************

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub deplace(X, Z, n)
Dim Gr As String
 
Application.ScreenUpdating = True
   tempo
Application.ScreenUpdating = False
 
Gr = X & Z
Select Case Gr
   Case "AB"
      lever_A n
      deplmt 305, n
      poser_B n
   Case "AC"
      lever_A n
      deplmt 610, n
      poser_C n
   Case "BC"
      lever_B n
      deplmt 305, n
      poser_C n
   Case "BA"
      lever_B n
      deplmt -305, n
      poser_A n
   Case "CA"
      lever_C n
      deplmt -610, n
      poser_A n
   Case "CB"
      lever_C n
      deplmt -305, n
      poser_B n
End Select
nbcoups cpt
End Sub
 
Function nbcoups(k)
   Range("H3").Value = k
   k = k + 1
End Function
Sub jouer(n)
   HanoiJ n, "A", "B", "C"
End Sub
 
Function HanoiJ(n, X, Y, Z)
   If n = 1 Then
      deplace X, Z, n
   Else
      HanoiJ n - 1, X, Z, Y
      deplace X, Z, n
      HanoiJ n - 1, Y, X, Z
   End If
End Function

[ARTURO83]

A la place de votre tempo, essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Application.ScreenUpdating = True
Application.Wait Now + TimeValue("00:00:10") 'tempo de 10 secondes
Application.ScreenUpdating = False