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 !

Sujet : Fonction Rnd marche t'elle vraiment ? [ Archives Visual Basic / Divers ] (idealyo)

mercredi 3 mars 2004 à 17:40:26 | Fonction Rnd marche t'elle vraiment ?

idealyo


For i = 0 To 4
Shape2(i).BackColor = TabColor(Int((4 * Rnd) + 0))
triche(i).BackColor = Shape2(i).BackColor
Next i

voila je souhaite générer une combinaison de couleur, voici haut dessus mon code mais le probleme c'est que j'ai toujours la meme combinaison ? est ce normal?.
Merci

mercredi 3 mars 2004 à 17:49:33 | Re : Fonction Rnd marche t'elle vraiment ?

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Oui, car il faut initialiser le générateur de nombre aléatoire. Pour ce faire, mets cette intruction avant l'appel à Rnd :

Randomize

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

mercredi 3 mars 2004 à 22:30:31 | Re : Fonction Rnd marche t'elle vraiment ?

idealyo


ah ok c'est nikel maintenant je te remercie :)



Cette discussion est classé dans : fonction, marche, vraiment, rnd, backcolor


Répondre à ce message

Sujets en rapport avec ce message

problème avec la fonction rnd (randomize) [ par kleuvert ] Salut !Voilà, j'ai un gros souci avec la fonction randomize : je veut en fait créer une petite fonction qui me donne un jours dans l'année au hasard, Code natif [ par Cask ] Bon, salut les gars, ya un truc qui me tracasse. Le code natif permet bien d'integrer les dll et ocx dans l'exe pour qu'il soit independant ? c bien c fonction d'arrondi qui marche? [ par SYL666 ] BonjourLes petit rigolos de chez Microsoft nous ont pondu une fonction round buggé. enfin, en tout cas en ce qui concerne ma version de VB.en effet : conversion access97 a 2000.La fonction 'date' ne marche plus..? [ par oliv76n ] Salut a tous,J'ai un pt soucis sur ma base Access97, je dois la faire fonctionner sur Access2000, seulement voila, il ne reconnais pas la fonction : ' Sendkeys ne marche pas!!!!! [ par David75000 ] Quand on applique la fonction Sendkeys"{****}",true à une fentre qui a le focus cela marche Maintant je veut creer à partir de cette fonction à une au Fonction FORMAT qui marche pas ! :-( [ par KC62 ] Bonjour a tous ! j'ai encore besoin de vous ! Aprés un mise en production de ma base sur un server SQL je me suis rendu compte qu'il était en anglais Stealthbot [ par kymry ] Salut,voila j'ai un probleme Stealthbot est un bot pour Starcraft qui possede une partie de programmation en visual basic (toutes les fonction ne marc fonction RND [ par Deamoncrack ] Bonjour,pourquoi lorsque je mets :Int((7 * Rnd) + 1)il me renvoie toujours au premier coup le chiffre 4 !!!!merci de m'aider car je comprends vraiment Fonction Trim [ par ShadowWisp ] VoilaJ'ai un code plein de Trim qui marche niquel, et en changeant de poste, ben il marche plus du tout, parce que d'après le compilateur VBA, le Trim Server php [ par crashtest ] Bonjour je voudrai commencer a aprendre le php, donc j'est intaller easyphp1-8 il marche que en lan sur internet il ve pas. Pourtant j'ai deja un otre


Nos sponsors

Sondage...

CalendriCode

Téléchargements



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.