Afficher un "chronometre"

Question

Bonjour

Je souhaiterai afficher une sorte de chronom&#232;tre dans mon form, c'est &#224; dire qu'il affiche le temps &#233;coul&#233; pour l'execution d'une &#233;tape de mon programme.
J'ai trouv&#233; un composant qui affiche l'heure en directe (TRxClock), j'aimerai la m&#234;me chose sauf qu'au lieu que ca soit l'heure, il m'affiche le temps pass&#233;.
Comment faire ?

Merci

cupracing · Answer

Voici une solution pour faire un chronom&#232;tre.

Tu places un composant TTimer tu l'actives et tu met l'interval &#224; 1000 pour chaque seconde.
Tu releves l'heure de depart gr&#226;ce a la fonction Time que tu places dans une premi&#232;re variable. Puis chaque seconde grace au TTimer tu rel&#232;ves la nouvelle heure, tu enl&#232;ves l'heure de d&#233;part &#224; la nouvelle et tu &#233;crit la diff&#233;rence d'heure dans un label. 

Voici un exemple ces plus explicite: 

Var  Tps1, Tps2: TTime;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Tps2 := Time;
    Label1.caption := Timetostr(Tps2 - Tps1);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
     Tps1 := Time;
end;

@+

... c'est un peu dur &#224; expliquer ma soluce... peut &#234;tre qu'il y a une autre solution ?? en tout cas celle ci fonctionne.

cs_oluha · Answer

J'ai utilis&#233; la m&#233;thode de Cupracing. Le chrono d&#233;marre bien quand j'appuie sur le bouton mais il s'arr&#234;te d&#232;s que le programme envoie des requ&#234;tes sql (c'est &#224; dire au bout de 3sec).
Comment faire ? :-/

jmp77 · Answer

C'est juste l'affichage qui se coupe ou il n'incremente plus ? 

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_oluha · Answer

Il n'incremente plus car &#224; la fin du traitement le chrono reste &#224; 3sec :(

cupracing · Answer

c'est juste l'affichage qui bloque non ? car je vois pas pourquoi le Timer s'arr&#234;terais. Si c'est juste l'affichage il faut alors rafraichir la Form (Refresh).

jmp77 · Answer

Est ce que par hasard quand tu lances tes requetes sql &#224; la fin de celle ci tu ne quitterais pas automatiquement ton soft??

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_oluha · Answer

Ben non :(

Voil&#224; un bout de mon code quand on clique sur le bouton

     Tps1 := Time;
     Timer1.enabled := true;
     {hdebut := timetostr(time);}
     ///////////////////////////////
     // (1) Transfert des donn&#233;es //
     ///////////////////////////////
     application.Title := 'Transfert des donn&#233;es';
     Form1.Caption := 'D&#233;duplication : transfert des donn&#233;es';
     form1.Update;
     PEtat.caption := 'Transfert';
     // on v&#233;rifie que la table de d&#233;duplication n'existe pas d&#233;j&#224; sur SQL Server
     Query_move.close;
     Query_move.sql.clear;     Query_move.sql.add('if exists (select 1 from sysobjects where  id object_id(''dedup'+NomTable+''') and type ''U'')');
     Query_Move.sql.Add('  drop table dedup'+NomTable);
     Query_Move.Prepare;
     Query_Move.ExecSQL;
     // on transfert la table Access vers SQL Server
     BMAccess.Execute;
     // on ajoute une colonne qui dit s'il s'agit d'un doublon avec le degr&#233; de certitude
     Query_Move.close;
     Query_move.sql.clear;
     Query_move.sql.add('alter table dedup'+NomTable+' add DOUBLON varchar(2) null');
     Query_Move.Prepare;
     Query_Move.ExecSQL;
     // on ajoute une colonne contenant l'identifiant le plus petit du ou des doublons
     Query_Move.close;
     Query_move.sql.clear;
     Query_move.sql.add('alter table dedup'+NomTable+' add NUM_DMIN int null');
     Query_Move.Prepare;
     Query_Move.ExecSQL;
     ////////////////////////////////////////////////////////////////////////////////////////////////////
     // (2) D&#233;tection des doublons suivant le type de d&#233;duplication : "Personnes/Foyers" OU "Soci&#233;t&#233;s" //
     ////////////////////////////////////////////////////////////////////////////////////////////////////
     application.Title := 'D&#233;tection des doublons';
     Form1.Caption := 'D&#233;duplication : d&#233;tection des doublons';
     form1.Update;
     PEtat.caption := 'D&#233;tection';
     if (RbDedupPers.Checked = true) then
     begin
         dedup_personnes();
     end
     else if (RbDedupFoyer.Checked = true) then
     begin
          dedup_personnes();
     end
     else if (RbDedupSoc.checked = true) then
     begin
         dedup_societes();
     end
     else
     begin
         messagedlg('Erreur dans le type de d&#233;duplication !',mtError,[mbOK],0);
     end;
   
      [...]

         //////////////////////////////////////////////////////////
    // (5) Cr&#233;ation des nouveaux fichiers sans les doublons //
    //////////////////////////////////////////////////////////
    application.Title := 'Cr&#233;ation des fichiers';
    Form1.Caption := 'D&#233;duplication : cr&#233;ations des fichiers';
    form1.Update;
    PEtat.caption := 'Cr&#233;ation fichiers';
    creation_fichiers();
    // le traitement est termin&#233;
    Timer1.enabled := false;
    {hfin := timetostr(time);
    duree := timetostr(strtotime(hfin) - strtotime(hdebut));}
    application.Title := 'D&#233;duplication termin&#233;e';
    Form1.Caption := 'D&#233;duplication : traitement termin&#233;';
    form1.Update;
    {PEtat.caption := 'Temps total : '+duree;}
    messagedlg('La d&#233;duplication est termin&#233;e !',mtInformation,[mbOK],0);

jmp77 · Answer

Hello,



Essaye ces deux liens :

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=389

et

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=336

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Afficher un "chronometre"

8 réponses

Votre réponse

Discussions similaires