begin process at 2010 02 10 07:56:40
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > COULEUR DE FOND ALEATOIRE (PARFAIT) :)

COULEUR DE FOND ALEATOIRE (PARFAIT) :)


 Information sur la source

Note :
7 / 10 - par 2 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Niveau :Débutant Date de création :24/05/2003 Date de mise à jour :24/05/2003 04:21:16 Vu :2 171
Auteur : fragmatyc

Ecrire un message privé
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 Description

bon... c pas du nouveau mais je suis debutant et je voulais tester les
public sub Allo()
'code
end sub
Commenter beaucoup svp

Source

  • Public Sub CouleurFond(Form As Form)
  • Dim Rouge As Integer 'Déclare la variable Rouge
  • Dim Vert As Integer 'Déclare la variable Vert
  • Dim Bleu As Integer 'Déclare la variable Bleu
  • Randomize Timer 'Pour avoir un nombre aleatoir parfait
  • Rouge = Int(Rnd * 255) 'Rouge vaut un nombre aleatoir compris entre 0 et 255
  • Vert = Int(Rnd * 255) 'Vert vaut un nombre aleatoir compris entre 0 et 255
  • Bleu = Int(Rnd * 255) 'Bleu vaut un nombre aleatoir compris entre 0 et 255
  • Form.BackColor = RGB(Rouge, Vert, Bleu) 'La couleur de l'arrière plan = une couleur RGB aleatoire
  • End Sub
  • 'Pour apeler:
  • CouleurFond me 'ou autre
Public Sub CouleurFond(Form As Form)
Dim Rouge As Integer                    'Déclare la variable Rouge
Dim Vert As Integer                     'Déclare la variable Vert
Dim Bleu As Integer                     'Déclare la variable Bleu

Randomize Timer                         'Pour avoir un nombre aleatoir parfait
Rouge = Int(Rnd * 255)                  'Rouge vaut un nombre aleatoir compris entre 0 et 255
Vert = Int(Rnd * 255)                   'Vert vaut un nombre aleatoir compris entre 0 et 255
Bleu = Int(Rnd * 255)                   'Bleu vaut un nombre aleatoir compris entre 0 et 255

Form.BackColor = RGB(Rouge, Vert, Bleu) 'La couleur de l'arrière plan = une couleur RGB aleatoire
End Sub

'Pour apeler:
CouleurFond me 'ou autre

 Conclusion

commenter svp


 Sources du même auteur

Source avec Zip Source avec une capture BINGO FOLIE
Source avec Zip Source avec une capture MOTEUR DE JEUX DE CARTES
Source avec Zip WDM: WEB DIAPORAMA MAKER
Source avec Zip Source avec une capture WEB DIAPORAMA MAKER
Source avec Zip MK SCORPION'S FURY
Toutes les sources de fragmatyc

 Sources de la même categorie

Source avec Zip ALBUM PHOTOS par ayoube2009
Source avec Zip Source avec une capture EDITEUR D'AUTOMATES CELLULAIRES par PADYVEN
Source avec Zip Source avec une capture PROGRAMME DE DESSIN À LA SOURIS AVEC OUVERTURE ET ENREGISTRE... par SnkVrt
Source avec Zip Source avec une capture Source .NET (Dotnet) PHOTOSEXPRESS - TRAITEMENT DE PHOTOS par zozo14
Source avec Zip Source avec une capture ÉCRIRE SUR LE WALLPAPER par Rafale71
Toutes les sources de la catégorie Graphique

Commentaires et avis

Commentaire de Renfield le 24/05/2003 05:04:24 administrateur CS

hélas, ce n'est pas parfait !!
tu voulait tester les procédures, c'est fait, pas de problème, seulement, si tu fait int(rnd*255) , tu ne pourra atteindre que les nombres de 0 à 254 !!

Commentaire de max12 le 24/05/2003 05:09:26 administrateur CS

Tu n'a pas besoin de variable ...

Commentaire de Renfield le 24/05/2003 05:20:26 administrateur CS

ca on peut lui accorder,je pense : débutant, il priviligiera la clarté.......

Commentaire de fragmatyc le 24/05/2003 05:32:58

Ben moi je voulais juste messayer avec les public sub

Commentaire de Renfield le 24/05/2003 06:04:41 administrateur CS

on ne le conteste pas, et c'est réussi ! mais tu constatera que tu ne peux atteindre RGB( 255,255,255)

Commentaire de ICIoBRa le 24/05/2003 13:01:25

Me.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))

Commentaire de Renfield le 24/05/2003 13:44:53 administrateur CS



abs(rnd * (vbwhite +1))

Commentaire de Saros le 25/05/2003 21:48:09

Il y a plus simple :
Me.BackColor = int(rnd * 16777216)
Ce qui équivaut à ce que Renfield a mis...
Mais bon pour un débutant c'est déjà pas mal, je mettrais 7/10 pour encourager ;

Commentaire de Renfield le 25/05/2003 23:59:25 administrateur CS

ca n'equivaut pas a ce que j'ai mis !!
vbwhite evite de connaitre la couleur par coeur, mais bon, chacun ses goûts , a la limite, tu evite une addition.......

et encore, j'ai utilisé abs, et pas int , pour une raison simple ! un integer est trop court, pour une couleur ;-)

Commentaire de leMiniGrand le 02/06/2003 14:57:30

regarde une de mes sources y a une fenetre qui rebondit contre les bords de l ecran et qui change de couleur aleatoirement mais progressivement c est deja un peu plus ardu

Commentaire de Crax55 le 26/09/2004 23:07:31

Je suis un debutant , et je voulai savoir si quelqu'un pourrait me renseigner sur ce qu'est un PUBLIC SUB  et la signification de Couleur Fond Me (surtout le Me)
Merci beaucoup par avance , cela m'aiderai beaucoup pour mes debuts. ;-)
xav

Commentaire de Renfield le 27/09/2004 11:54:11 administrateur CS

public sub :

une procedure, un bout de code que l'on peut rappelr en utilisant son nom...

le 'ME' est une variable qui est la fenetre courante (par ex: Form1)

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Console Microsoft Xbox 360 Elite
Entre 299€ et 300€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,702 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)