Random

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 959 fois - Téléchargée 62 fois

Contenu du snippet

La fonction Rnd donne souvent les mêmes nombres. Avec ce code c'est des nombres différents

Source / Exemple :


Function rndd(jusqa)
    'jusqua veut dire que le nombre retourné peut être entre 0 et jusqua

Dim Heure , Min , Sec , tmp

    Heure = Hour(Time)   'L'heure actuelle
    Min = Minute(Time)  'Minute actuelle
    Sec = Second(Time)  'Seconde actuelle
    
    'Ça pourrait être plus court, mais ça donne un nombre plus random
    tmp = (Sec + Min + Min) * (Heure * Min / (Min + Sec) + (Heure - Sec * Min)) * -1
    
    tmp = tmp Mod jusqa + 1 'Modulo
    tmp = Abs(tmp)  'Donne un nombre absolu
    
    rndd = tmp  'retourne le nombre
End Function

A voir également

Ajouter un commentaire

Commentaires

Messages postés
209
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
6 novembre 2009

Peut être utile mais en tout cas quand il doit en générer 4 l'un apres l'autre se sont tous les mêmes !!!
Et comment faire si par exemple dans 6 textBox je met
text1.text = int(Rnd * 50)
text2.text = int(Rnd * 50)
text3.text = int(Rnd * 50)
text4.text = int(Rnd * 50)
text5.text = int(Rnd * 50)
text6.text = int(Rnd * 50)
comment faire pour qu'il n'y aie pas 2X le même chiffre dans les textBox ????

bon ben celui qui trouve me mail la réponse SVP
MERCI
sympa l'alternative a RND mais c vrai que de mettre "Randomize Timer" au debut du code revient au même :)
pour blindman:
randomize
a=int(rnd*20)-10

il me semble que c'est juste...
si qulqu'un sait il pourra m'aider pour avoir des nombre aléatoire de -10 à + 10
merci
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.