Gauge qui avance en fonction d'un Timer

Version imprimable

Bonjour

J'aimerai faire une feuille qui force l'utilisateur à attendre une durée définie par lui, en montrant la progression de l'attente.
La variable Attendu correspond au temps déjà écoulé en minutes depuis le début du traitement (avant que la feuille d'attente passe en ShowModal).
La variable IntervalleUser correspond au temps d'attente en minutes entré par l'utilisateur (au tout début).
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 var FormAttente: TFormAttente; Tmp : real ; TpsEcoule : real ; procedure TFormAttente.FormActivate(Sender: TObject); begin G_TpsRestant.Progress := trunc(Unit1.Attendu*100/Unit1.IntervalleUser) ; TpsRestant.Caption := FloatToStr(Unit1.IntervalleEnvoi-Unit1.Attendu) ; Tmp := 0 ; Timer_DelaiEntr.Interval := 5000 ; Timer_DelaiEntr.Enabled := true ; end; procedure TFormAttente.FormDeactivate(Sender: TObject); begin Timer_DelaiEntr.Enabled := false ; end; procedure TFormAttente.Timer_DelaiEntrTimer(Sender: TObject); begin if G_TpsRestant.PercentDone < 100 then begin //Compteur du temps écoulé en % de la duree totale en min G_TpsRestant.AddProgress(trunc((Timer_DelaiEntr.Interval/60000)*100/Unit1.IntervalleUser)) ; if tmp >=30 then begin //Temps restant en min TpsRestant.Caption := FloatToStr(StrToFloat(TpsRestant.Caption)-0.5) ; tmp := 0 ; end else begin //Compteur du temps écoulé en s tmp := tmp+(Timer_DelaiEntr.Interval/1000) ; end ; if G_TpsRestant.PercentDone = 100 then FormAttente.close ; end else begin FormAttente.close ; end ; end; procedure TFormAttente.FormClose(Sender: TObject; var Action: TCloseAction); begin FormAttente.ModalResult := mrOK ; end;
C'est ce qui est en rouge qui pose problème.
Cela donne une valeur en minute. Du coup tres proche de 0. AddProgress n'accepte que des entiers. Donc il faut arrondir... Mais là trunc renvoie 0...
Du coup la barre n'avance pas.

Est-ce que quelqu'un aurait une idée?? Merci d'avance!

08/06/2006, 15h36
Harry

Et si tu changeais la durée du timer et que tu le fesait 'tic' qu'une fois par minute ? Alors dans le OnTimer tu fais progresser de '1' la progressbar.

Et ton progressbar.Max tu le définie au nombre de minutes d'attente demandé.
08/06/2006, 15h49
Alyx²

Citation:

Et si tu changeais la durée du timer et que tu le fesais 'tic' qu'une fois par minute ?

Oui, c'est ce que je me disais mais pour l'utilisateur, l'avance 1 fois par minutes ca risque de lui paraitre treeeeeeees long!
Bon au pire ca pourrait se faire (tant pis pour lui!! :mrgreen: ), sauf que si il s'amuse à rentrer une durée longue (genre 300 minutes) le problème se pose à nouveau.
Dans l'absolu, le temps d'attente ici pourrait aller facilement à 2 ou 3h. C'est pas dit que ca ne monte pas jusqu'à 5h...

Citation:

Et ton progressbar.Max tu le définie au nombre de minutes d'attente demandé.

Ca aussi ca pourrait être pas mal, mais les % ne ressembleront plus à rien?
Si l'utilisateur demande 60 minutes d'attente, la fin de la barre sera à 60% ?

On peut pas enlever le % d'ailleurs??

merci de ton aide! ;)
08/06/2006, 15h59
Harry

Citation:

Envoyé par Alyx²

Oui, c'est ce que je me disais mais pour l'utilisateur, l'avance 1 fois par minutes ca risque de lui paraitre treeeeeeees long!
Bon au pire ca pourrait se faire (tant pis pour lui!! :mrgreen: ), sauf que si il s'amuse à rentrer une durée longue (genre 300 minutes) le problème se pose à nouveau.
Dans l'absolu, le temps d'attente ici pourrait aller facilement à 2 ou 3h. C'est pas dit que ca ne monte pas jusqu'à 5h...

Ca aussi ca pourrait être pas mal, mais les % ne ressembleront plus à rien?
Si l'utilisateur demande 60 minutes d'attente, la fin de la barre sera à 60% ?

On peut pas enlever le % d'ailleurs??

merci de ton aide! ;)

Dans ce cas tu calcule la longeur de la barre à nb de minutes * 60 et tu fait 'tic' ton timer tous les secondes et tu fais progresser de 1 à chaque tic ;)
08/06/2006, 17h05
Alyx²

tu veux dire que tu mettrais

Code:

barre.width := IntervalleUser*60

?
08/06/2006, 17h08
Harry

non,

Code:

Barre.MaxValue := IntervalleUser*60;
08/06/2006, 17h24
Alyx²

ok!
Mais alors les % se gèrent tout seul ?

Je veux dire, si je met max=30 par exemple
et si j'augmente de 1 à chaque seconde.
Le programme va afficher 3% de plus comme un grand?? :D
(euh...? 1*100 / 30 ... = 3.33% vi donc 3%)
08/06/2006, 17h27
Harry

Citation:

Envoyé par Alyx²

ok!
Mais alors les % se gèrent tout seul ?

Je veux dire, si je met max=30 par exemple
et si j'augmente de 1 à chaque seconde.
Le programme va afficher 3% de plus comme un grand?? :D
(euh...? 1*100 / 30 ... = 3.33% vi donc 3%)

Gagné, ils sont calculés :D
08/06/2006, 17h40
Alyx²

olé!!
Mais c'est parfait ca!! :D

Alors je m'embete pour rien depuis le début!! :cfou:
Merci mille fois pour ton aide! :merci:

S'il y en a que ca intéresse un jour.
Voici le code final :

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
var
  FormAttente: TFormAttente;
  Tmp : real ;
  TpsEcoule : real ;

procedure TFormAttente.FormActivate(Sender: TObject);
begin
  //Passage de toutes les valeurs en secondes
  G_TpsRestant.MinValue := 0 ;
  G_TpsRestant.MaxValue := IntervalleUser*60 ;
  G_TpsRestant.Progress := Trunc(Attendu*60) ;
  //Initialisations  
  TpsRestant.Caption := FloatToStr(Unit1.IntervalleUser-Unit1.Attendu) ;
  Tmp := 0 ;
  Timer_DelaiEntr.Interval := 1000 ;
  Timer_DelaiEntr.Enabled := true ;
end;

procedure TFormAttente.FormDeactivate(Sender: TObject);
begin
  Timer_DelaiEntr.Enabled := false ;
end;

procedure TFormAttente.Timer_DelaiEntrTimer(Sender: TObject);
begin
  if G_TpsRestant.PercentDone < 100 then
     begin
      //Compteur du % de temps écoulé (gauge)
      G_TpsRestant.AddProgress(trunc(Timer_DelaiEntr.Interval/1000)) ;

      if tmp >=30 then
         begin
            //Temps restant en min
            TpsRestant.Caption := FloatToStr(StrToFloat(TpsRestant.Caption)-0.5) ;
            tmp := 0 ;
         end
         else
         begin
            //Compteur du temps écoulé en s
            tmp := tmp+(Timer_DelaiEntr.Interval/1000) ;
         end ;
      if G_TpsRestant.PercentDone >= 100 then FormAttente.close ;
     end
     else
     begin
         FormAttente.close ;
         Form1.FocusControl(Form1.Button1) ;
     end ;
end;

procedure TFormAttente.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FormAttente.ModalResult := mrOK ;
end;

02/03/2007, 14h06
djeckelle

Bonjour,

Merci cela m'a été très utile.

Bye