Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 06:28:55

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

+ de logiciels à télécharger

1 329 728 membres
74 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 800 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RANDOM UBOUND LBOUND ETC...

Information sur la source

Catégorie :ASP Classé sous : random, ubound, lbound Niveau : Débutant Date de création : 15/03/2001 Vu : 10 941

Auteur : Mr_Mask

Ecrire un message privé

Note :

9,57 / 10

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

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!

Source

<%
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)&" "
Response.Write typedeasaisonement(toto2)&" "
Response.Write typedesandwish(toto3)&" "
Response.Write typeaccompagnement(toto4)&" "
%>

<%
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 :)

 retour a la ligne en html

Sources de la même categorie

[VB 8][.NET 2]APPELER UN FICHIER DISTANT AVEC LES MÉTHODES P... par FREMYCOMPANY

RAPIDO par mimiZanzan

CRYPTER DES PAGES ASP par Yoyo2B

DIRECTX TUTO 9 : DIRECTINPUT LA SOURIS .... par ciberrique

SSA (SCRIPT SERVEUR ACTIF) COMME ASP POUR VOS SERVEURS HTTP par DeadlyPredator

Toutes les sources de la catégorie ASP

Sources en rapport avec celle ci

TABLEAU INITIALISE par CGSI3

NOMBRES ALEATOIRE AVEC LA METHODE RANDOM par amsdiop

CASINO - SIMULATION DU JEUX CASINO (RANDOM EN VB.NET) par danie57_8

PARADOXE DES ANNIVERSAIRES par MisterWhiteLapin

SUPPRIMER UN ÉLÉMENT D'UN TABLEAU par Simboy

Commentaires et avis

Commentaire de petit_lapin le 10/02/2004 08:51:14

Bonjour
c'est vraiment ce que je cherche depuis tres longtemps
malheureusement je ne sais pas comment l'utiliser
il doit manqué quelque chose !!!
emilian

Commentaire de Squall____ le 05/07/2007 17:28:21

Franchement, merci beaucoup pour ce petit bou de code super utile.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

matrice de corrélation [ par adlecodeur ] Bonjour à tous,est-ce que qq1 pourrait m'aider: je cherche à calculer à partir d'une matrice n*p(p<n), une matrice de corrélati MATRICE [ par mimosa803 ] Salut tout le monde,j'ai un petit code dont je n'ai pas compris quelques chose,j'espere que vous m'aider,le voila:dim tabmoy() as doubleRedim tabmoy ( Générateur de random paramètrable [ par pluplu ] ( Pour les spécialistes du random ou les Matheux )Bonjour, Je cherche faire un générateur de r [VBA Excel] [ par Nyck0las ] bonjour,j'ai quelques problèmes pour réaliser une macro avec du calcul matriciel.voici une sub qui calcule le produit A*B et le met dans C :Sub PMAT(A Problème de génération de nombre aléatoire [ par fdiedler2000 ] Bonjour à tous,Je voudrais générer dans une boucle deux nombre aléatoire. Voila ce que j'ai fais :***************** While testersolution() = Fa fichier random [ par darkmalcolm ] Salut a tous, Je suis actuellement sur un projet dont la base de donnée est basée sur des fichiers random. Je n'ai pas eu de souci pour y acceder mais Fonction Random ! Rnd ? [ par robapt ] Bonjour à tous !Voila, je fais un petit prog qui utilise la fonction Rnd et je voudrais savoir un truc.Voici mon code : RandomizeList1.AddItem Int((50 Next without For [ par argentin7 ] bonjour a toute la communaute VBFRANCESVP j'ai un probleme avec la boucle for_________________________________________________________________Label1:F Impression via LisBox erreur1004 [ par oasisjf ] Bonjour le Forum, Besoins d'aide en effet j'ai réalisé un Userform dans lequel il ya un bouton pour pouvoir visualiser les plages à imprimer de ma F Fonction UBound [ par code_vb_source ] Bonjour,c'est quoi la fonction "UBound"