CodeS-SourceS
Rechercher un code, un tuto, une réponse

Generer un nombre aleatoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 46 662 fois - Téléchargée 28 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

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.