besoin d'aide pour un mode aléatoireRésolu

Question

Bonjour &#224; tous,
j'aurais besoin d'aide

J'explique : 
j'ai une liste de 80 mots num&#233;rot&#233;s de 1 &#224; 80 et je voudrais les faire appara&#238;tre dans contr&#244;le textbox pendant un certain nombre de temps mais dans un ordre al&#233;atoire.
J'ai essayer avec la fonction Rnd(number) mais il ne fait que donner un nombre suivant al&#233;atoire. Ce qui fait qui si le nombre 78 est tir&#233; en premier, il ne peut y avoir que deux autres mot qui d&#233;file. Ce que je voudrais c'est que le prog m'affiche tous les mots dans un ordre al&#233;atoire.
Autre chose encore :  je voudrais que l'ordre al&#233;atoire ne soit pas le m&#234;me &#224; chaque fois que je relance la s&#233;rie d'affichage des mots.

Merci pour votre aide
je n'est peut-&#234;tre pas &#233;t&#233; tr&#232;s clair; mais c'est le mieux que j'ai pu faire.

[mailto:M@xwells M@xwells] M@ni@c
La vie est injuste et il nous faut l'accepter comme elle nous vient.

cs_Tipo · Accepted Answer

Bonjour,

Pour tirer un nombre al&#233;atoire entre 1 et 80, tu peux utiliser ceci : 

nombre = Cint(80 * Rnd) + 1

cs_maxwells · Answer

ouai d'accord merci mais tu pourrais expliquer
&#231;a veut dire quoi Cint(80 * Rnd) + 1
int c'est peut integer

[mailto:M@xwells M@xwells] M@ni@c
La vie est injuste et il nous faut l'accepter comme elle nous vient.

econs · Answer

petite pr&#233;cision pour que tu n'obtiennes pas toujours les m&#234;mes nombres :


Randomize Timer

nombre = Cint(80 * Rnd) + 1






Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Cint() transforme une expression en nombre entier.

Ici, la fonction Int() aurait suffit.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_maxwells · Answer

merci &#224; tous mais a fait quoi concr&#233;tement Randomize Timer

[mailto:M@xwells M@xwells] M@ni@c
La vie est injuste et il nous faut l'accepter comme elle nous vient.

galopin01 · Answer

Bonjour,
Voil&#224; une 'tite macro VBA qui fait un tirage unique (fa&#231;on loto) 
C'est du VBA, mais il ne doit pas y avoir un gros effort &#224; faire pour l'adapter.

Sub Tirage()
Dim i%, j%, k%, x%, Tablo()
k = 80
ReDim Tablo(k)
Randomize
For i = 0 To k - 1
Tablo(i) = i + 1
Next
For i = 0 To k - 1
j = Int(((k - i) * Rnd) + 1)
x = Tablo(k - 1 - i)
Tablo(k - 1 - i) = Tablo(j - 1)
Tablo(j - 1) = x
Next
For i = 0 To k - 1
MsgBox Tablo(i)
Next
End Sub

Besoin d'aide pour un mode aléatoire

6 réponses

Discussions similaires