Couleurs aleatoire en 1 seule ligne !

Soyez le premier à donner votre avis sur cette source.

Vue 4 494 fois - Téléchargée 189 fois

Description

alterne 15 couleurs aleatoirement.

Source / Exemple :


Private Sub Timer1_Timer()

Label1.ForeColor = Int(Rnd * QBColor(15))

End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Weado
Messages postés
119
Date d'inscription
mercredi 19 juin 2002
Statut
Membre
Dernière intervention
21 avril 2009
-
Sache jeune enfant que l'utilisation spirituelle d'une valeure aléatoire ne fera pas évoluer ton carma pour t'élever aux stades d'appache. Tu dois innover et non copier les pensées des autres

médite là-dessus
lucky07ir
Messages postés
133
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 avril 2004
-
ah bon et j'ai copier ca ou monsieur je parle bien la france?c'est peut etre deja dans le site je sais pas j'ai pas regarder.Mais ta rien compris toi c pas pour moi que je fait ca j'en suis pu a ce stade moi.c'est pour les debutants je sais pas ce que vous avez tous avec les debutants mais vous les aimez pas bcp pourtant vous etes passer par la aussi non? alors merde a ce qui sont la pour raler je vous dit merde.t pas content tu va voir ayeur point virgule!!!
sur ce bonne prog a tous et vive vbfrance!!!!!
sebmafate
Messages postés
4947
Date d'inscription
lundi 17 février 2003
Statut
Modérateur
Dernière intervention
14 février 2014
30 -
ouaih...
juste un truc normalement les couleurs sont des long...
tu pouvais aussi faire ca : couleur = rgb(cint(rnd*256,rnd*256,rnd*256) comme ca tu as toute la palette de couleurs !

Séb
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
et si c pour t'enerver comme ca, ca vo pas le coup... pour regler ses comptes, rien de mieux que le mp (oué car on s'en fout de vos problemes !). sinon ben moi aussi je prefere la solution de sebmafate, que ca ne génére pas que 15 couleurs et il faut regarder si les sources que tu poste sont déja sur le site :-)

enfin quand on poste un code aussi insinifiant que celui ci (malgrè le fait qu'il soit utile aux débutants) on prend le temps d'expliquer le pourquoi du comment de la chose... exemple :
ce code utilise la fonction Rnd() multipliée par la fonction QBColor() pour générer un nombre entre 0 (qui est la couleur noir) et 16777215 (qui est la couleur blanche, representée aussi par rvb(255,255,255) ou qbcolor(15)), ce qui générera de fait une couleur aléatoire en 24bits.
de plus la remarque de seb est injustifiée, les couleurs vont de 0 a plus de 16Millions, alors que les Integer vont que jusqu'a 65000 et quelques... mais la fonction Int() ne renvoi pas un entier mais la partie entière d'un nombre... donc le type n'est changé que du double au long par exemple... car la fonction QBColor() renvoi a fortiori un entier, mais la fonction Rnd() sans parametre renvoi un nombre entre 0 et 1, donc un flottant... il faut donc transformer ce flottant en entier.

voili voila...

A+ et bonne prog !
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
ha oui aussi, pour ceux qui ne savent pas utiliser Rnd(), fo dire que l'appel en début de code de Randomize() est obligatoire pour générer des couleurs vraiment aléatoires... sans ce passage, la premiere couleur crée sera toujours la meme...

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.