Ralentir une boucle

Bonjour!

Bon mon petit prog arrive en bout de chaine, grâce à vous, et j'aimerais lui ajouter un effet sympa.

J'ai un Bouton, qui représente un dés à 8 faces. Je lui ai ajouté un Rnd pour générer un nombre "aléatoire". Le résultat s'affichant directement sur le bouton.

Ce que j'aimerai faire, c'est qu'en cliquant dessus, avant que le résultat s'affiche, il y est une petite animation des chiffres qui défile de 1 à 8 puis de 8 à 1 puis de 1 au résultat.

J'utilise donc des boucles For, et sur la derniere je sort lorsque mon resultat correspond à mon affichage en cours
Sauf que bien entendu, l'execution des boucles pour est bien trop rapide et on ne vois pas les nombres défiler.

Comment puis-je faire pour ralentir le tout? J'ai essayer le "sleep" fourni en exemple dans la Faq VB mais ça ne donne rien.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub d81_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles d81.Click For i = 1 To 8 d81.Text = i Next For i = 8 To 1 d81.Text = i Next res = Int(Rnd() * 8) + 1 For i = 1 To 8 d81.Text = i If i = res Then 'au passage si quelqu'un a une solution plus "propre" pour sortir de la boucle, d'ailleur chui en train de penser que "Next" fonctionne peut etre? i = 8 End If Next End Sub

---

Merci d'avance!

Moi j'utiliserais bien un timer pour ça. Quand tu cliques sur le bouton, tu déclenches un timer. Dans le tick du timer, tu affectes un nombre aléatoire à ton bouton. Ensuite il te suffit juste de bien définir l'intervalle et le nombre de 'tours' pour le dé.
Par exemple un intervalle de 50ms, avec 10 changements avant la valeur finale. Dans le dizième Tick, tu désactives le timer.

C'est original de vouloir ralentir une boucle... Moi je cherche plutot à les optimiser :mouarf:
Tiens voila cette fonction utilise poura ralentir ta boucle :

Code:

---

1 2 3 4 5 6 7

Friend Sub wait(ByVal ms_to_wait As Long) Dim hb As Double hb = Environment.TickCount + ms_to_wait While Environment.TickCount < hb Application.DoEvents() End While End Sub

---

Appel de la fonction :

Code:

---

wait(100) 'attend 100ms

---

++

Merci!

On m'a finalement donné une solution, je la met ici au cas où d'autres seraient interessé. Je n'ai pas testé votre solution Aspic mais je vous remercie d'avoir prit le temps de me répondre!

Code:

---

1 2 3 4 5 6

For i = 1 To 8 System.Threading.Thread.Sleep(50) 'Le code de ralentissement (en milliseconde) BtnD82.Text = i.ToString BtnD82.Refresh() Next

---

Citation:

---

Envoyé par Aspic

Moi je cherche plutot à les optimiser

---

Chef, chef ! On a un problème, le programme fonctionne trop bien, les utilisateurs gagnent du temps, il faut ralentir les boucles !

Si seulement... :roll:

:mrgreen:

Citation:

---

Envoyé par Jidewe

Merci!

On m'a finalement donné une solution, je la met ici au cas où d'autres seraient interessé. Je n'ai pas testé votre solution Aspic mais je vous remercie d'avoir prit le temps de me répondre!

Code:

---

1 2 3 4 5 6

For i = 1 To 8 System.Threading.Thread.Sleep(50) 'Le code de ralentissement (en milliseconde) BtnD82.Text = i.ToString BtnD82.Refresh() Next

---

---

Cette solution marche aussi très bien !

Merci pour l'info celà va pouvoir me sevir dans mes programmes.
:yaisse2:

Mais comment fait-on pour intégrer cette fonction dans le programme ?

Lorsque je l'incorpore, les variables lui sont méconnues...