Generer un nombre aleatoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 47 225 fois - Téléchargée 34 fois


Contenu du snippet

En fait, ce code est très simple, il prend le nombre de secondes depuis une date (ici 31/12/95) et il lui colle à la suite (et non pas en plus) un chiffre aléatoire entre 1 et 1 000 000 donc, normalement, la possibilité pour qu'il y ai 2 fois le même chiffres est casi impossible (vous serez mort avant :) )

Source / Exemple :


<%
'---------- Generation d'un Numero aleatoire
Function GenereAlea()
		Dim RefreshAlea		'Num Aleatoire
		Dim RefreshSec		'Nb de secondes depuis le 31/12/95
		Dim RefreshNum
		Randomize
		RefreshAlea = Int((1000000 * Rnd) + 1)
		RefreshSec = DateDiff("s", "12/31/95", Now)
		RefreshNum = CStr(RefreshSec) & CStr(RefreshAlea)
		GenereAlea = RefreshNum
End Function
'---------- Fin Fonction Generation d'un Numero aleatoire
%> <br>
Voici un chiffre aléatoire unique : <%=GenereAlea%>

Conclusion :


T'as pensez à jouer au lotto ? bah vas-y reste pas devant ton écran :)

A voir également

Ajouter un commentaire

Commentaires

nul !!!!!!!!!!!!!!!!
pardon ? Pourquoi Nul, peux-tu aller jusqu'au bout de ta pensé, cela fonctionne très bien et tu es sûr (presque à 100%) de ne jamais avoir 2 fois le même Numéro...

Nix
magnifique !
cs_monstermax
Messages postés
36
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
5 décembre 2002
-
ouais c pas con. enfin le + important c le randomize et le rnd
sinon, Nix t'as triché pour ta note chui sur ;)

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.