fonction random, les doubles?

Question

hello

J'ai une question, peut-etre stupide à poser. Est-il possible d'éviter les doubles sur des tirages par random?
je m'explique.
Si je fais temp = Int((rnd*24)+1)
est-ce qu'il existe un moyen que temp n'ai qu'une seule fois la même valeur, et pas 2 ou trois fois?
merci =)

cboulas · Answer

Salut,

Il suffit que tu créer un historique de ce que Temp à pris comme valeur et ensuite tu fait une boucle qui tournera jusqu'à ce que temp soit différent des nombres de ton historique.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cboulas · Answer

Exemple :


dim StrHistorik as String
StrHistorik="Historik:"
do until instr(StrHistorik,str(Temp) & ";")=0
   Temp=Int((rnd*24)+1)
   if instr(StrHistorik,str(Temp) & ";")=0 then
      StrHistorik=StrHistorik & str(Temp) & ";"
      exit do
   end if
loop
msgbox "Valeur Actuelle de Temp : " & str(Temp)
msgbox "Valeurs déjà trouvées : " & StrHistorik


Normalement ça devrais marché

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

Fonction random, les doubles?

2 réponses

Discussions similaires