Discussion :

[Alyx²]

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 :

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
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!

[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é.

[Alyx²]

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!! ), 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...

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!

[Harry]

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!! ), 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

[Alyx²]

tu veux dire que tu mettrais

Code :

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

barre.width := IntervalleUser*60

?

[Harry]

non,

Code :

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

Barre.MaxValue := IntervalleUser*60;

[Alyx²]

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

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
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;

[djeckelle]

Bonjour,

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

Bye