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.
Merci d'avance!
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 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
Partager