Discussion :

[Exentius]

Bonjour, j'ai un soucis avec une barre de progression que j'essaye de faire boucler car je ne connais pas le nombre d'iterations à traiter.
J'appelle la fonction suivante pour afficher ma barre :

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
PROCEDURE lancerJaugeInfinie(libBarre est une chaîne)
i est un entier
Multitâche(-1)
SI FenEtat(FEN_Progression) = Inexistant ALORS
	OuvreFille(FEN_Progression)	
	{"FEN_Progression.LIB_messageProgression", indChamp}..Libellé = libBarre
FIN
{"FEN_Progression.JAUGE_Progression", indChamp}..BorneMax = 100
 
TANTQUE Vrai
	//On remplis la barre
	POUR i = 1 A 100
		{"FEN_Progression.JAUGE_Progression", indChamp}..Valeur = i
		Temporisation(0.01)
	FIN
	//On vide la barre
	POUR i = 100 A 1 PAS -1
		{"FEN_Progression.JAUGE_Progression", indChamp}..Valeur = i
		Temporisation(0.01)
	FIN
FIN

Et je la ferme avec l'appel de la fonction :

Code :

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

1
2
3
4
PROCEDURE arretJaugeInfinie()
SI FenEtat(FEN_Progression) = Actif ALORS
	Ferme(FEN_Progression)	
FIN

Le problème c'est que la barre de progression ne veux pas se fermer
Merci de me dire comment faire pour la fermer.

[hpascal]

Bonjour

Je ne vois rien qui permet de sortir de ta boucle (TANTQUE Vrai), donc ... ça boucle :-)

Pour la fermeture je ferais plutôt :

Code :

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

SI FenEtat(FEN_Progression) <> Inexistant ALORS

Maintenant je ne vois pas l'intérêt d'une barre de progression comme ça, autant mettre un gif animé (il y a en a dans le catalogue qui simulent une jauge en aller-retour)

[mail.spam]

Bonjour,

Je suis aussi pour le gif animé.
et +1 pour SI FenEtat(FEN_Progression) <> Inexistant ALORS.

Sinon si tu veux vraiment utiliser une jauge lance la procédure "lancerJaugeInfinie" dans un thread ainsi quand tu n'en a plus besoin tu arrête le thread puis tu ferme la fenêtre de jauge.

[Exentius]

J'ai utilisé un GIF animé.
Merci de vos réponses