Probleme de différents événements sur un seul bouttons

Version imprimable

Bjr, je m'explique,
Je dois afficher dans un label, les nombres allant de 0 a short_max (ce que j'arrive à faire) mais je dispose d'un boutton : Start / Pause / Resume qui doit me permettre d'arréter et de reprendre l'affiche du compteur, j'arrive à afficher correctement et a pouvoir selectionner les bouttons, mais le compteur ne s'arrete pas d'incrémenter.

Voila mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 if (click==true) { Quit->Enabled=false; // put the button quick to off while(nb<SHRT_MAX) { init=nb; number->Caption = nb; number->Refresh(); nb++; Application->ProcessMessages(); //interrupt the execution of an application click=false; } } else { number->Caption = init; Quit->Enabled=true; // put the button quick to on click=true; // next time we push the button action, it will resume }
Pense aux balises de code ce sera plus lisible pour tout le monde

Salut,

Je te propose un code, je ne sais pas si il te conviendra :

Voici le .h

Code:

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
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
        TButton *Start;
        TLabel *Label1;
        TButton *Pause;
        TButton *Resume;
        TButton *Stop;
        void __fastcall StartClick(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall PauseClick(TObject *Sender);
        void __fastcall ResumeClick(TObject *Sender);
        void __fastcall StopClick(TObject *Sender);
private:	// Déclarations de l'utilisateur
public:		// Déclarations de l'utilisateur
        __fastcall TForm1(TComponent* Owner);
 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
const NbMax = 50000;
int Nb;
bool Continue;
//---------------------------------------------------------------------------
#endif

Voici le .cpp

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Nb=0;
  Label1->Caption = IntToStr(Nb);
  Pause->Enabled = False;
  Resume->Enabled = False;
  Stop->Enabled = False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StartClick(TObject *Sender)
{
  Continue = True;
 
  Start->Enabled = False;
  Pause->Enabled = True;
  Resume->Enabled = False;
  Stop->Enabled = True;
  while ((Nb<NbMax) && (Continue))
  {
    Nb++;
    Label1->Caption = IntToStr(Nb);
    Application->ProcessMessages();
  }
  if (Nb>=NbMax)
  {
    Start->Enabled = True;
    Pause->Enabled = False;
    Resume->Enabled = False;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PauseClick(TObject *Sender)
{
  Continue = False;
  Pause->Enabled = False;
  Resume->Enabled = True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ResumeClick(TObject *Sender)
{
  Start->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StopClick(TObject *Sender)
{
  Nb=0;
  Continue = False;
  Start->Enabled = True;
  Pause->Enabled = False;
  Resume->Enabled = False;
  Stop->Enabled = False;
  Label1->Caption = IntToStr(Nb);
}
//---------------------------------------------------------------------------

J'espère que ça t'aidera, j'ai fait ça vite fait.
A+ ;)

PS: Lorsque tu mets du code, utilises le # du menu (dans la barre d'outils). Merci

02/12/2007, 23h14
kpn59

Désolé pour la balise code, j'avais zappé !
Merci de ta réponse ero-sennin mais en faite, je me suis surement mal expliqué, mais je n'ai qu'un seul bouton ayant pr caption : Start / Pause / Resume.

Donc je dois gérer la pause et le reprise du compteur dans ma boucle while. C'est pourquoi j'ai esssayer avec des booléans mais sans résultats.

Merci quand meme, je continue encore et encore !

Bon bah cà y est, j'ai trouver :D
Je vous met quand meme le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        if (Quit->Enabled==true)
        {
              click=true;
              Quit->Enabled=false;     // put the button quick to off
 
              while(nb<SHRT_MAX && click)
              {
                nb++;
                number->Caption = nb;
                // allow the erasing of the last number & print the new one
                number->Refresh();
                Application->ProcessMessages(); //interrupt the execution of an application
              }
        }
        else
        {
                Quit->Enabled=true;   // put the button quick to on
                click=false;         //  allow to stop the counter
                number->Caption = nb;
 
        }

VOila