Générateur de nombres aléatoires

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 671 fois - Téléchargée 36 fois

Contenu du snippet

Ce code a un seul défaut : il lui faut 3 nombres de départ. A vous de les lui fournir. Vous pouvez les générer avec un mélange entre la date, le temps, le nombre de secondes écoulées depuis l'ouverture de la session...
Ce code est à metre dans un module. Pour recevoir un nombre x, où 0<x<1, appelez la fonction AleatoirNumber().

Source / Exemple :


Public x as double, y as double, z as double

Public Functon AleatoirNumber() as double
AleatoirNumber =((((x/13)+y)/13)+z)/13
End Function

Conclusion :


Vola, si vous avez qqchose à ajouter, ou a suggérer, n'ésitez pas :)
Psykocrash

A voir également

Ajouter un commentaire

Commentaires

KaViDee
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 février 2019
-
si tu veux des remarques constructives:
ça peut pas marcher ton générateur vu que tu ne mets pas les arguments nécéssaires lors dans la déclaration de la fonction, en + t'as marqué "functon".
faut mettre ça et ça devrait marcher:

Public Function AleatoirNumber(ByVal x As Double, ByVal y As Double, ByVal x As Double) As Double
AleatoirNumber = ((((x/13)+y)/13)+z)/13
End Function

@+
KaViDee
PS: ça risque de renvoyer des nombres a virgules
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
autre sugestion :

Public Function AleatoirNumber(Min as double , Max as Double) As Double
Randomize Timer
AleatoirNumber = (rnd * (Max+1))+ Min
End Function
SatanCorporation
Messages postés
124
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
13 septembre 2003
-
dites moi si je dis une connerie mais un rnd c'est pas mieu ou la meme chose ?

MsgBox Int(Rnd * 100) + 1
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
si, c'est bien ce que j'ai dit !!!
SatanCorporation
Messages postés
124
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
13 septembre 2003
-
dsl quand jai posté ma source javais pas vu que tu avais posté ton message
dsl

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.