Discussion :

[periplo94]

Boun jour, j'ai besoin d'aide,
cliquez sur le bouton BTN_UPDATE vous exécutez ce code pour mettre à jour la table PARCO_AUTOMEZZI:

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
HLitPremier(PARCO_AUTOMEZZI_AGGIORNATO,PARCO_AUTOMEZZI_AGGIORNATO.n°az)
TANTQUE PAS HEnDehors(PARCO_AUTOMEZZI_AGGIORNATO)
	HLitRecherchePremier(PARCO_AUTOMEZZI,n°az,PARCO_AUTOMEZZI_AGGIORNATO.n°az)
	SI HTrouve(PARCO_AUTOMEZZI) ALORS
		PARCO_AUTOMEZZI.targa =PARCO_AUTOMEZZI_AGGIORNATO.targa
		PARCO_AUTOMEZZI.tipobus=PARCO_AUTOMEZZI_AGGIORNATO.tipobus
		PARCO_AUTOMEZZI.telaio=PARCO_AUTOMEZZI_AGGIORNATO.telaio
		PARCO_AUTOMEZZI.'aria condizionata'=PARCO_AUTOMEZZI_AGGIORNATO.'aria condizionata'
		PARCO_AUTOMEZZI.'abs-asr'=PARCO_AUTOMEZZI_AGGIORNATO.'abs-asr'
		PARCO_AUTOMEZZI.carrozzeria=PARCO_AUTOMEZZI_AGGIORNATO.carrozzeria
		PARCO_AUTOMEZZI.'CV fisc'=PARCO_AUTOMEZZI_AGGIORNATO.'CV fisc'
		SI PAS HModifie(PARCO_AUTOMEZZI) ALORS
			DélaiAvantFermeture (1000)
			Erreur(HErreurInfo())
		FIN
	FIN
	HLitSuivant(PARCO_AUTOMEZZI_AGGIORNATO,PARCO_AUTOMEZZI_AGGIORNATO.n°az)
FIN

Je voudrais associer ce code avec une barre de progression PROGBAR_bar1, comment pouvez-vous faire?
Quel code dois-je utiliser?
Merci à tous
Francis

[b_reda31]

Bonsoir,

Il suffit de compter au préalable le nombre d'enregistrements à parcourir n. Puis faire progresser la barre avec un pas égal à 100/n à chaque itération :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
n=HNbEnr(PARCO_AUTOMEZZI_AGGIORNATO);
 
HLitPremier(PARCO_AUTOMEZZI_AGGIORNATO,PARCO_AUTOMEZZI_AGGIORNATO.n°az)
TANTQUE PAS HEnDehors(PARCO_AUTOMEZZI_AGGIORNATO)
//	...TRAITEMENT ....
 
	HLitSuivant(PARCO_AUTOMEZZI_AGGIORNATO,PARCO_AUTOMEZZI_AGGIORNATO.n°az)
        Jauge+=n/100;     
FIN

[periplo94]

bonjour, merci pour la solution, mais dans le code il ya une erreur à la ligne ....

Jauge+=n/100;

vous pouvez régler le code exact?
merci

[Toytoy31]

bonjour,

pour la jauge, la syntaxe suivante conviendrait mieux sans doute :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
iNbretraitement est un entier = HNbEnr(PARCO_AUTOMEZZI_AGGIORNATO)
Inbre est un entier
 
HLitPremier(PARCO_AUTOMEZZI_AGGIORNATO,PARCO_AUTOMEZZI_AGGIORNATO.n°az)
TANTQUE PAS HEnDehors(PARCO_AUTOMEZZI_AGGIORNATO)
Inbre++
Jauge(Inbre, iNbretraitement , "TON_TEXTE_QUE_TU_SOUHAITES_VOIR_AFFICHE")
//	...TRAITEMENT ....
 
	HLitSuivant(PARCO_AUTOMEZZI_AGGIORNATO,PARCO_AUTOMEZZI_AGGIORNATO.n°az)   
FIN

Cordialement

[periplo94]

merci

le code est parfait:
comment puis-je combiner le tout à une barre de progression appelé "progbar_bar1" de sorte que vous pouvez voir combien de temps l'exécution
merci

[Toytoy31]

Pour moi (paix à mon âme si un puriste m'entends.... )

la jauge et la barre de progression sont la même chose...

donc je pense que tu peux utiliser la jauge tranquillement