Discussion :

[Arkham46]

Bonjour à tous,

Vous pouvez sur cette discussion commenter l'article suivant :
Créez un formulaire d'attente pour les longs traitements

Aperçu :


Commentaires, critiques, remerciement, ... Tout est bienvenu si c'est constructif.

Pensez également à ajouter une note. ("Noter la discussion" en haut à droite)
Votre avis nous intéresse.

[Domi2]

Bonjour,

Tout simplement excellent !

J'ai particulièrement apprécié le fait que ce tutoriel s'adresse à un large public.

Une première partie qui permet de mettre rapidement en oeuvre une barre de progression avec un minimum de connaissances, puis une très belle démonstration pratique de l'utilisation d'un module de classe pour faciliter l'utilisation du formulaire et enfin ajouter l'animation.

On en redemande !

Domi2

[nico84]

Pour l'instant je me contente de la barre d'avancement standard syscmd mais peut-être qu'un jour...

[Jean-Philippe André]

je viens de m'y soumettre à mon tour, pour combler un peu les périodes d'attente de mes utilisateurs.
Un vrai plaisir à lire, super simple à comprendre et à appliquer, et que dire de la satisfaction des utilisateurs

[Jeannot45]

Bravo
J'ai beaucoup apprécié :

• La description des propriétés utilisées
• La simplicité des explications
• Les illustrations documentées

On ne peut que le conseiller à tout développeur

[User]

Même commentaire : Simple et excellent.

Je me posais juste une question:

Je me mets à la place d'un utilisateur lambda...
et j'espère ne pas compliquer les choses car j'ai bien vu dans ton article que tu précises pour le test que tu te fixe un intervalle de mise à jour (500 itérations).

Pour un utilisateur quelconque qui souhaite utiliser ce formulaire, l'idée c'est donc d'adapter les choses en fonction du nombre d'itérations (lNbIterations) ici égales à 10000.

Dans ce cas si on souhaite des pas (incréments) de 5% (1/20) de la barre de progression, 1 incrément représentera donc 500 itérations sur un total de 10000 itérations (500/10000=1/20).

Donc, on "incrémente" la barre si (lCptIteration1 modulo 500 = 0)

Si maintenant on a 20000 itérations (lNbIterations=20000) alors on fera modulo 1000 (1000/20000=1/20) si on souhaite gardé des pas de 5%.

C'est un peu l'idée non

PS: on peut peut-être faire la même chose sur le parcours d'un recordset avec la propriété recordset.PercentPosition.

[Arkham46]

Si maintenant on a 20000 itérations (lNbIterations=20000) alors on fera modulo 1000 (1000/20000=1/20) si on souhaite gardé des pas de 5%.

C'est un peu l'idée non

Oui c'est un peu l'idée.

Il faut trouver le bon pas d'affichage pour :
- ne pas raffraichir inutilement l'écran toutes les 2 millisecondes pour ne pas ralentir le traitement
- raffraichir quand même assez fréquemment pour ne pas avoir d'impression d'application plantée

Sur des traitements courts, on peut envisager de masquer la barre de progression et se contenter d'un formulaire fixe.

PS: on peut peut-être faire la même chose sur le parcours d'un recordset avec la propriété recordset.PercentPosition.

Oui oui PrecentPosition peut être utile pour un recordset.
Je parlerai des recordsets dans le deuxième épisode de l'article.

[ilank]

Bonjour à tous,

je profite de cette discussion pour vous soumettre un code qui semble permettre de simuluer du multitâche.
Bref, ça semble marcher en testant
Sous Access 2000, Windows XP SP3 (Pentium4 2.6 Ghz 51 cache) 640 Mo de ram.

Les fonctions à éxécuter doivent obéir au même protocole (prototypage et séquence de traitement)
Pour exemple; la boucle d'Arkham devient

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
Public Function Arkham (Code As Integer, ByRef lParam as variant) As Variant
 Dim lCptIteration2 As Long, lString As String
 Select Case Code
  Case acLBInitialize
   Arkham = True 
  Case acLBOpen
   lParam = 1
   Arkham = True
  Case acLBGetPrompt
   Arkham = "Veuillez patienter durant le traitement"
  Case acLBGetRowCount
   Arkham = 10000
  Case acLBGetValue
   For lCptIteration2 = 1 To 1000
     lString=Chr(lParam + lCptIteration2) mod 256)
   Next lCptIteration2
   lParam = lParam + 1
   Arkham = lParam
  Case acLBEnd
   Arkham = (lParam >= 10000)
 End Select
End function

j'ai oublié de préciser, pour lancer plusieurs traitements cliquer plusieurs fois sur le bouton MultiThread du formulaire FormTest, le code lancera le nombre de traitements indiqué dans la textbox.
Puisqu'il s'agît d'une ébauche de travail ne lancer pas plus de 5 traitements.

[ilank]

Bonsoir,

Voilà un aperçu de ce que j'obtiens en cliquant 4 fois le bouton MultiThread.
1 seul traitement est lancé à chaque click.

[facteur]

salut Arkham46

je viens de lire ton tutoriel sur la création d'un formulaire d'attente.
Si j'ai bien compris la procéduure decrite est reserve uniquement en cas de boucle.
Comment faitre si mon formulaire ne contient pas de boucle mais uniquement des données ( graphique dynamique qui indique un nbre de produits tous les 10 minutes).
Puis je appliquer ton programme ?

[Dolphy35]

Bonjour,

L’intérêt de ce formulaire est le traitement de données dans ton cas c'est un soucis de timer. Pourquoi mettre un form d'attente ?

@+

[facteur]

Mon formulaire est parametré avec une date début et une date fin.
A l'ouverture du formulaire, une boite de dialogue apparait pour inscrire une date début et une date fin.
Lorsque les dates ont été mentionnées, un sablier apparait puis disparait laissant croire à l'utilisateur que le programme à buguer.
Je souhaitais donc inserer une petite application ( type formulaire d'attente ) pour avertir l'utilisateur que le programme est en cours et qu'il patiente.
Si tu as une autre idée que le formulaire d'attente, je suis preneur..

[dragos]

Félicitation , grâce à vous j'ai enfin réussi à animer mon code pendant le traitement car il faut avouer que 8 minutes à attendre devant un ecran ou rien ne se passe sans savoir ou es ce qu'on en est, c'est long ^^.

Encore merci