Random ubound lbound etc...
Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 560 fois - Téléchargée 37 fois
Contenu du snippet
Ce code permet d'utiliser les arrays
un array est un tableau
ex: jour=array("lundi","mardi" etc...)
response.write jour(1) on affiche lundi
bon pour pouvoir utiliser un for avec un array
on utilise ubound qui retourne la valeur maximale de l'array (combien il contient de valeurs differentes)
ex: for i=1 to ubound(jour)
voila son petit frere lbound retourne la valeur minimale (utile pour le random)
le random se declare :
Int((MAX - MIN + 1)*Rnd() + MIN)
un exemple de rnd sur array a suivre ne pas oublier randomize
Have fun!
ce petit code vous fait un sandwish au hasard :)
<BR> retour a la ligne en html
un array est un tableau
ex: jour=array("lundi","mardi" etc...)
response.write jour(1) on affiche lundi
bon pour pouvoir utiliser un for avec un array
on utilise ubound qui retourne la valeur maximale de l'array (combien il contient de valeurs differentes)
ex: for i=1 to ubound(jour)
voila son petit frere lbound retourne la valeur minimale (utile pour le random)
le random se declare :
Int((MAX - MIN + 1)*Rnd() + MIN)
un exemple de rnd sur array a suivre ne pas oublier randomize
Have fun!
Source / Exemple :
<%
typedepain=array("une baguette","un buns","une pita")
typedeasaisonement=array("du ketchup","de la moutard","de la mayonaise")
typedesandwish=array("fromage","viande","merguez","merguez-frite")
typeaccompagnement=array("salade","comcombres","tomates")
randomize
toto =Int((ubound(typedepain) - lbound(typedepain)+ 1)* Rnd() + lbound(typedepain))
toto2 =Int((ubound(typedeasaisonement) - lbound(typedeasaisonement)+ 1)* Rnd() + lbound(typedeasaisonement))
toto3 =Int((ubound(typedesandwish) - lbound(typedesandwish)+ 1)* Rnd() + lbound(typedesandwish))
toto4 =Int((ubound(typeaccompagnement) - lbound(typeaccompagnement)+ 1)* Rnd() + lbound(typeaccompagnement))
Response.Write typedepain(toto)&"<BR>"
Response.Write typedeasaisonement(toto2)&"<BR>"
Response.Write typedesandwish(toto3)&"<BR>"
Response.Write typeaccompagnement(toto4)&"<BR>"
%>
Conclusion :
ce petit code vous fait un sandwish au hasard :)
<BR> retour a la ligne en html
A voir également
- Random ubound lbound etc...
- Ubound vba ✓ - Forum Visual Basic 6
- Fonction UBound - Forum Visual Basic 6
- UBound (Pff) ✓ - Forum VB.NET
- Random java ✓ - Forum Java
- Delphi random - Forum Delphi / Pascal
6 oct. 2002 à 15:14
ps : Je vais présenter ce script à Macdo pour qu'il sortent de nouveau hamburger ;)
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.