Discussion :

[stacker_junior]

bonjour,
je voudrai faire un changemen de couleur de mon form1 toutes les seconde des ke j'appui sur un bouton mais je ny arrive po
si qq1 pourrai maider merci
++

[damienlann]

qu'as tu deja essayer.... Tu n'arrive pas à quoi... ou ca bloc... quel est le message d'erreur s'il y en a un?

moi j'utiliserai un timer qui lirai la valeur de la couleur dans un tableau de couleur deja défini.

[stacker_junior]

dans un timer je met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
{
Fomr1->Color= ...... ;
sleep(1);
Form1->Color=........;
}

[damienlann]

bon alors:
dans le timer tu ne met pas de sleep.
Le Timer posede une propriété Interval (il me semble... il faut y regarder, je ne sais plus). Tu regles cet interval
ATTENTION: l'interval est en ms.
ensuite le timer se debrouille tout seul.
Tu n'as plus qu'a activer ou desactiver le timer dans ton boutton.

Je n'arrive pas à savoir si je suis clair.

ps: de meme que l'interval du timer sleep est en ms (sleep(1) -> 1ms).

[pottiez]

bon alors:
dans le timer tu ne met pas de sleep.
Le Timer posede une propriété Interval (il me semble... il faut y regarder, je ne sais plus). Tu regle cet interval
ATTENTION: l'interval est en ms.
ensuite le timer se debrouille tout seul.
Tu n'as plus qu'a activer ou desactiver le timer dans ton boutton.

Je n'arrive pas à savoir si je suis clair.

ps: de meme que l'interval du timer sleep est en ms (sleep(1) -> 1ms).

C'est bien la propriété Interval, alors pour etre un peu plus clair (au cas ou ), il faut que tu mette dans la propiete Interval le temps entre deux changement de couleur, attention, comme damienlann l'as dit, le temps est en ms, donc pour que la couleur change toute les seconde il faut mettre 1000, ensuite dans l'evenement OnTimer de ton Timer tu écrit le code pour changer la couleur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form1->Color = LaCouleurDeLaForm ;

Voila, j'espère que tu auras compris.
A plus

[damienlann]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form1->Color = LaCouleurDeLaForm ;

Salut,
Un truc tout bête, tu peux te faire un tableau des couleurs que tu désires

Oui c'est mieux parce que si LaCouleurDeLaForm est constant on vas pas voir grand chose.
moi j'aurais fais comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
TColor Couleur[9]={clWhite,clLime,clBlue,
          clOlive,clNavy,clPurple,
          clYellow,clFuchsia,clRed,
          clBlack};

maintenant c'est a toi de choisir.

[bandit boy]

Salut,
Un truc tout bête, tu peux te faire un tableau des couleurs que tu désires et à chaque top de ton timer (que tu paramètres) tu changes. Et tu mets ton bouton pour lancer ou non ton timer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
TColor TabCouleur[10];
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    TabCouleur[0]= clBtnFace;
    TabCouleur[1]= clSkyBlue;
    TabCouleur[2]= clMoneyGreen;
    TabCouleur[3]= clRed;
    TabCouleur[4]= clLime;
    TabCouleur[5]= clYellow;
    TabCouleur[6]= clBlue;
    TabCouleur[7]= clFuchsia;
    TabCouleur[8]= clAqua;
    TabCouleur[9]= clWhite;
    TabCouleur[10]= clNavy;
}
 
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
    static int couleur;
    if(couleur++ == 11)
    {
        couleur = 0;
    }
    Form1->Color = TabCouleur[couleur];
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if(Timer2->Enabled == false)
    {
        Timer2->Enabled = true;
    }
    else
    {
        Timer2->Enabled = false;
    }
}

[damienlann]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if(Timer2->Enabled == false)
    {
        Timer2->Enabled = true;
    }
    else
    {
        Timer2->Enabled = false;
    }
}

plus simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 void __fastcall TForm1::Button2Click(TObject *Sender)
{Timer2->Enabled=!Timer2->Enabled;}

[kmaniche]

bonjour,

je te propose d'utiliser un bouton et un timer :

dans l'évenement onclick tu bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Timer1 -> Enabled = !Timer1 -> Enabled ;

et dans le timer tu met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
taForme -> Color = (TColor)RGB(random(255),    // rouge
                                           random(255),    // vert
                                           random(255)) ;  //bleu

sans oublier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
#include <math.h>

voilà;

@+