Discussion :

[klbsjpolp]

Actuellement c'est très soleil, très chaud, très humide et il y a un risque d'orage fort pour ce soir (il est presque 15h ici).

Le problème de la syntaxe des accolades c'est qu'il faut choisir une technique. Soit l'indirection en utilisant les accolades et en passant une chaîne (très pratique si plus d'une fenêtre utilise la même procédure pour gérer la jauge), soit l'accès direct (plus simple mais 1 seule jauge peut être gérée). Le plus simple serait donc d'enlever toutes accolades et d'appeler directement Articles.Jauge1.

Pour le timer, ce n'est qu'une idée, mais c'est la meilleur solution pour un traitement qui ne devrait pas bloquer l'interface ou qui dit être annulable. Si l'application ne peut rien faire pendant ce temps, bloquer l'interface et faire bouger une jauge est suffisant.

Si tu as une idée du nombre d'enregistrement que ta requête retourne, tu peux aussi utiliser HNbEnr avec le paramètre hNonBloquant afin d'afficher une jauge plus précise (et utile).

[Raptor92]

Bonjour Klbsjpolp,

J'ai tenté d'enlever les accolades, mais du coup j'ai un message d'erreur, il me souligne que je ne peut pas écrire:

Code :

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

Articles.Jauge1,indChamp..BorneMin=0

Ainsi que pour les autres lignes de la procédure.

Et de fait, je reste avec le même code que j'ai communiqué plus haut en répondant à Tatayo

Une petite question:

Doit il y avoir un code dans le champ Jauge que j'ai inséré dans ma fenêtre Articles. ?

Merci

Bonne journée

[N_Ron]

Salut Raptor92,

En fait il faut enlever le indchamp car c'est pour l'indirection avec les accolades.

Code :

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

1
2
 
{"NomObjetEnChaine",ind<typeObjet>}

Si tu utilises le nom du champ directement, ce n'est plus de l'indirection:

Code :

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

Articles.Jauge1..BorneMin=0

Le code la jauge peut être vide.

[Raptor92]

Bonjour N_Ron,

En effet, ta solution ne me donne plus d'erreur, pour autant, ma jauge ne fonctionne toujours pas.

Je récapitule:

Ca, c'est ma requête:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Req est une chaîne:"............................................."
Articles.Jauge1..Visible=Vrai
Articles..Etat=Inactif
ThreadExécute("Thread1", threadNormal, ProcédureJauge,Articles.Jauge1)
SI SQLExec(Requete,"REQ1") ALORS
	SQLTable("REQ1",TABLE_ARTICLES)
 
	FIN
ThreadArrête("Thread1")
Articles.Jauge1..Visible=Faux
Articles..Etat=Actif

Et ça, c'est ma procédure globale (j'avais au début mis la procédure en locale, mais tatayo m'a dit qu'elle devait être en globale)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
PROCEDURE ProcédureJauge(Jauge1 est une chaîne)
 
SI ChampExiste(Articles.Jauge1) ALORS
Articles.Jauge1..BorneMin=0
Articles.Jauge1..BorneMax=1000
 
BOUCLE
	Articles.Jauge1++
	MultitâcheRepeint(Articles) // Pour réafficher la fenêtre
	ThreadPause(100) // Pause d'1/10ème de secondes
	SI Articles.Jauge1=100 ALORS Articles.Jauge1=0
A FAIRE TANTQUE Vrai
FIN

Lorsque je test, je vois bien que le champ jauge s'affiche et qu'il disparait à la fin de l'exécution de la requête, donc, je me dis que je suis sur la bonne voie, d'autant que je commence à comprendre le fonctionnement.

Mais au point de comprendre pourquoi ma jauge n'avance pas

En tout cas, déjà merci pour ton aide

[N_Ron]

Tu peux essayer de mettre un trace("ok") dans le thread pour voir si la condition champexiste(...) est vrai.

Ensuite si tu utilises le nomFenetre.NomJauge tu n'as plus besoin de paramètre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
PROCEDURE ProcédureJauge()
 
SI ChampExiste(Articles.Jauge1) ALORS
Articles.Jauge1..BorneMin=0
Articles.Jauge1..BorneMax=1000
 
BOUCLE
	Articles.Jauge1++
	MultitâcheRepeint(Articles) // Pour réafficher la fenêtre
	ThreadPause(100) // Pause d'1/10ème de secondes
	SI Articles.Jauge1=100 ALORS Articles.Jauge1=0
A FAIRE TANTQUE Vrai
FIN

Après ce n'est qu'un avis personnel mais ce qui génait était peut-être le nom du paramètre identique au nom de la jauge.

[vmolines]

Multitache ne fonctionne pas dans les threads

[N_Ron]

Il n'est pas obligatoire dans ce cas le multitacherepeint non?
C'est pas automatique pour les jauges?

Sinon il y a FenRepeint(...)
N_Ron

[Raptor92]

Bonjour Vmolines,

J'ai enlevé la commande, mais cela ne change rien

Par avance merci

[Raptor92]

Bonjour N_Ron,

J'ai inséré une trace, et j'ai une erreur

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
Erreur à la ligne 4 du traitement Procédure globale ProcédureJauge.
Le champ Articles.Jauge1 est inconnu.
 
Informations techniques
 
Projet : TRACKING_DATA_SYSTEME
 
Dump de l'erreur du module <WD140VM.DLL> <14.00Gp>.
 
- Appel WL :
Traitement de <Procedures globales de TRACKING_DATA_SYSTEME.ProcédureJauge>, ligne <4>, thread <0>
 
- Niveau : erreur fatale (EL_FATAL)
 
- Code erreur : 1017
 
- Code erreur WD55 : 0
 
- Pas de code d'erreur système
 
- Pas de message d'erreur système
 
- Que s'est-il passé ?
Le champ Articles.Jauge1 est inconnu.
 
- Pas d'info de debug
 
- Infos attachées :
EIT_PILEWL :
Procédure globale ProcédureJauge (Procedures globales de TRACKING_DATA_SYSTEME.ProcédureJauge), ligne 4
EIT_COMPOSANT :
 
EIT_DATEHEURE : 12/08/2009 15:31:07
 
- Identifiant dans le .err : 1017
 
 
Assistance

Et en effet, je n'ai aucun résultat dans la trace.

Pour autant, sommes nous d'accord:

- Ma fenêtre s'appelle : Articles
- Le champ jauge : Jauge1

[tatayo]

Pour autant, sommes nous d'accord:

- Ma fenêtre s'appelle : Articles
- Le champ jauge : Jauge1

Nous oui, mais apparemment Windev ne l'est pas . Pour en être sûr, dans l'init de la jauge:

Code :

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

1
2
 
info(moimeme..nomcomplet)

Et question subsidiaire: au lancement du thread, est-ce que la fenêtre Articles est ouverte ?

Tatayo.

[Raptor92]

Re bonjour Tatayo,

J'adore le "Nous oui, mais pas Windev"

Oui, en effet, ma fenêtre est ouverte.
En fait, lorsque l'utilisateur ouvre la fenêtre de visualisation des articles, qu'il vois la jauge avancé, dû que cette requête est assez longue (+/- 150 000 articles)

J'ai résolu le problème de l'erreur que j'ai mentionné lors de mon précedent message.

Et à l'insertion de la commande dans l'init de la jauge, j'ai bien le nom du champ qui apparait dans un message au lancement : Articles.Jauge1

[klbsjpolp]

Rebonjour,

Encore quelque petit problèmes, tu appels ThreadPause avec 100 comme arguments. Mais ThreadPause prend des centièmes de seconde et non pas des millièmes, ta boucle attend donc 1 seconde entre chaque, c'est donc un peu normal que tu ne vois pas l'avancement.

Multitache ou MultitacheRepeint ne sont pas nécessaire pour les jauges, ce sont les seuls champs qui se repeignent seuls.

Deux autres petites choses, ton paramètre est complètement inutile puisque tu utilises directement le champ. Il y a aussi une syntaxe plus simple pour faire une boucle infinie, BOUCLE FIN.

[Raptor92]

Rebonjour,

Encore quelque petit problèmes, tu appels ThreadPause avec 100 comme arguments. Mais ThreadPause prend des centièmes de seconde et non pas des millièmes, ta boucle attend donc 1 seconde entre chaque, c'est donc un peu normal que tu ne vois pas l'avancement.

Multitache ou MultitacheRepeint ne sont pas nécessaire pour les jauges, ce sont les seuls champs qui se repeignent seuls.

Deux autres petites choses, ton paramètre est complètement inutile puisque tu utilises directement le champ. Il y a aussi une syntaxe plus simple pour faire une boucle infinie, BOUCLE FIN.

Bonjour,

En effet, une erreur de frappe, je l'ai remis à 10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
PROCEDURE ProcédureJauge()
SI EnModeTest() ALORS Trace("Vérification de l existance du champ - ", ChampExiste("Articles.Jauge1"))
SI ChampExiste("Articles.Jauge1") ALORS
Articles.Jauge1..BorneMin=1
Articles.Jauge1..BorneMax=100
FIN
BOUCLE
	Articles.Jauge1++
	ThreadPause(10) // Pause d'1/10ème de secondes
	SI Articles.Jauge1=100 ALORS Articles.Jauge1=0
A FAIRE TANTQUE Vrai

Alors:

- Lorsque je test si le champ existe, il m'indique 1, donc je part du principe que oui.

- Pourtant, et je crois avoir compris le principe:

J'ai déclaré les bornes Mini et maxi
Le thread fait une pose
Et chaque fois que la jauge (est censée) arrive à 100, elle retourne à 0
Et cela tant que ma requête tourne.

Et du coté de la requête:

Code :

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

1
2
3
4
5
6
7
8
9
10
Articles.Jauge1..Visible=Vrai
Articles..Etat=Inactif
ThreadExécute("Thread1", threadNormal, ProcédureJauge)
SI SQLExec(Requete,"REQ1") ALORS
	SQLTable("REQ1",TABLE_ARTICLES)
 
	FIN
ThreadArrête("Thread1")
Articles.Jauge1..Visible=Faux
Articles..Etat=Actif

-Je fais apparaitre la jauge à l'ouverture de la fenêtre
- Le thread demarre
-Après la requête, le thread s'arrette
- Et la jauge disparait

Mais je ne vois pas ou est mon erreur

Désolé de persévéré, mais si je n'arrive pas à maitriser celui là, je n'arriverais pas à comprendre le fonctionnement qui est très intéressant

PS: Comme toi, nous avons la chance d'avoir un super temps, mais pas d'orage en vue

[N_Ron]

Salut,

Je ne vois pas, mais tu peux essayer d'utiliser :

Code :

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

Temporisation(100,tempoSourisEtClavier)

tempoSourisEtClavier:
Les champs et les fenêtres peuvent être redessinés.
Les timers peuvent être exécutés.
Les actions souris (clic sur les champs par exemple) ou les événements clavier peuvent être exécutés.

à la place du threadpause:

Il est conseillé d'utiliser la fonction ThreadPause à la place des fonctions Multitâche ou Temporisation lorsque plusieurs threads sont utilisés (y compris pour le thread principal de l'application) si la temporisation n'a pas besoin de traiter les actions de l'utilisateur.

Je t'avouerai ne pas être trop convaincu moi même par ce que je viens de dire mais ça prend 30sec pour être fixé.

Bonne journée à tous,

N_Ron

[Raptor92]

Bonjour à Tous et à N_Ron,

J'avoue que ça ce complique

J'ai inséré plusieurs trace afin de voir comment ce comporte la procédure.
Et en fait, seul la trace de "SI ChampExist" me donne le résultat = 1

Toutes les autres restent muettes, à croire qu'il ne détecte rien de la borne mini et maxi et qu'il ne fait pas la boucle

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
PROCEDURE ProcédureJauge()
 
SI EnModeTest() ALORS Trace("Vérification de l existance du champ - ", ChampExiste("Articles.Jauge1"))
SI ChampExiste("Articles.Jauge1") ALORS
	Trace(Articles.Jauge1)
	Trace("BorneMini", Articles.Jauge1..BorneMin=1)
	Articles.Jauge1..BorneMin=1
	Trace("BorneMaxi", Articles.Jauge1..BorneMax=100)
	Articles.Jauge1..BorneMax=100
 
FIN
BOUCLE
 
	Trace("toto")
	Articles.Jauge1++
	ThreadPause(10) // Pause d'1/10ème de secondes
	SI Articles.Jauge1=100 ALORS Articles.Jauge1=0
A FAIRE TANTQUE Vrai

J'ai pensé mettre la trace "TOTO" pour voir combien de fois la trouve il, mais sans résultat.

Pour N_Ron: La temporisation ne donne rien (après test bien sur)

Par cette belle journée, par avance merci

[N_Ron]

C'est vraiment bizarre!
Si tu ne laisses que la boucle avec les trace dans la procédure as-tu quelque chose?

Sinon tu peux peut-être copier ton code et refaire la procédure ou recréer la jauge.
J'ai déjà été bloqué plusieurs fois plusieurs jours avant de me rendre compte que ll'objet ou la procédure était corrompu.
Juste recréer et recopier le code est cela fonctionné.

Mais je pense que le mieux que tu es à faire est de mettre un point d'arrêt de déboguer la proc pas à pas avec F7.

N_Ron

[Raptor92]

Bon Après midi tout le monde,

Et bien, comme je suis tenace, et que j'aurais dû mieux écouter Guardian, j'ai trouvé un composant qui traite des threads .

Et le plus drôle, c'est qu'il s'appelle "Les threads", comme quoi, si les ânes volaient, je serais vraisemblablement chef d'escadrille...........

Ceci mis à part, ma jauge (ou devrais je dire cauchemar) tourne maintenant comme il faut........sauf qu'elle a la bonne idée de tourner après l'exécution de ma requête.

Alors:

Pour la procédure:

Code :

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

1
2
3
4
5
6
PROCEDURE ProcédureJauge()
i est un entier
POUR i=0 A 100
	Articles.Jauge1=i
	ThreadPause(10) // Pause d'1/10ème de secondes
	FIN

J'ai tenté de remplacer ThreadPause par Temporisation, mais cela n'a pas d'importance, car la différence se limite au fait que dans le cas de la temporisation, cela bloque les boutons de la fenêtre le temps de l'avancement de la jauge

Pour la requête:

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
//LISTE DES ARTICLES
Articles.Jauge1..Visible=Vrai
Articles..Etat=Inactif
Requete est une chaîne="SELECT ART_NOMAPPEL, ART_LIBRE1, ART_CODIM1, ART_CODIM2, ART_CODE, ART_CODEBARRE, ART_MARQUE, ART_COLLECTION, "+...
"ART_FOURUVC, ART_LIBRENUM1, ART_LIBRENUM2, ART_LIBRENUM3, ART_LIBRENUM4, ART_NOM FROM ARTICLES "+...
" GROUP BY ART_NOMAPPEL, ART_LIBRE1, ART_CODIM1, ART_CODIM2, ART_CODE, ART_CODEBARRE, ART_MARQUE, ART_COLLECTION, "+...
"ART_FOURUVC, ART_LIBRENUM1, ART_LIBRENUM2, ART_LIBRENUM3, ART_LIBRENUM4, ART_NOM ORDER BY ART_NOMAPPEL, ART_CODIM1, ART_CODIM2 ASC  "
SI EnModeTest() ALORS Trace(Requete)
 ThreadExécute("monthread1",threadNormal,"ProcédureJauge")	
SI SQLExec(Requete,"REQ1") ALORS
  	SQLTable("REQ1",TABLE_ARTICLES)
 
	FIN	
Articles..Etat=Actif
//Articles.Jauge1..Visible=Faux

La commande "ThreadArrete" est placée dans le code de "Fermeture de la fenêtre"

Je pense ne pas être loin, sauf que pas très loin est encore de trop...

A ce stade, votre avis éclairé serait une bénédiction

Par avance merci

[Raptor92]

Re...........

Je pense avoir trouvé d'où vient le problème, même si je ne sais pas le résoudre:

Je me suis créé une fenêtre test dans laquelle j'ai inséré un champ jauge avec la procédure mais SANS ma requête des articles.

Et cela fonctionne impeccable.

Mais dés que je met ma requête, la jauge ne démarre qu'après.

Ce qui m'amène à vous demander si quelqu'un saurait pourquoi, car mon thread est censé fonctionner en parallèle à ma requête.

Bonne AM

[mail.spam]

Bonjour,

Je peux me tromper mais je crois que c'est le Thread principale (ton programme) qui gère l'affichage de la fenêtre donc si ton thread principale se bloque pendant l'exécution de la requête, l'affichage se bloque aussi..

Je pense qu'il vaux mieux que tu exécute ta requête dans le thread secondaire.

en gros tu déclare REQ1 en tant que variable globale au projet.
tu lance l'affichage de ta jauge,
tu exécute ta requête dans un thread
et avec un threadAttend dans ton thread principale tu attend la fin de l'exécution de la requête.
puis tu stop ta jauge

[Raptor92]

Bonjour Mail.Spam,

Si je comprends bien:

Dans le code de déclaration globale du projet:

REQ1 est une chaîne
Et à cet endroit, j'insère un threadAttend pour lui signaler d'attendre la fin de ma requête.

Dans le code de déclaration de ma fenêtre, je lance ma jauge
Et je remplace la jauge actuellement dans le thread par la requête
Et ensuite, j'arrête la jauge

Peut tu me confirmer si j'ai compris le principe, après je tente

Merci beaucoup de ton aide