Discussion :

[karim15]

Bonjour

Dans un programme, je récupère des informations que je saisi sur un indicateur de pesage et après validation ces informations sont transférées à partir du port série vers une table mémoire dans une fenêtre WinDev en utilisant la commande WinDev tableajouteligne et pour cela j'utilise une procédure qui est appelée par la commande sEvénement de WinDev
Voilà le code

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
initialisation de la fenêtre
sOuvre(6, 5000, 5000,sTimeoutDéfaut,Vrai)
sFixeParamètre(6, 9600, 0, 8, 0)
sEvénement(6,sEveCaractèreReçu,"lect")
 
le code de ma procédure "lect"
 
PROCEDURE lect()
 
m=""
mes=""
mes=sLit(6,sDansFileEntrée(6))   
CBM_Case1..Valeur=CBM_Case1..Valeur+mes
m=SansEspace(CBM_Case1..Valeur)
Table.raison_soc=SansEspace(Milieu(m,5,17))
Table.Raison_cli=SansEspace(Milieu(m,23,18))
Table.Produit=SansEspace(Milieu(m,54,8))
Table.date_pesée_1..Valeur=DateSys()
Table.heure_pesée_1..Valeur=HeureSys()
Table.date_pesée_2..Valeur=DateSys()
Table.heure_pesée_2..Valeur=HeureSys()
Table.Matricule..Valeur=SansEspace(Milieu(m,63,9))
Table.Pesée_1..Valeur=SansEspace(Milieu(m,73,6))
Table.etat_pesée_1..Valeur=SansEspace(Milieu(m,79,1))
Table.pesée_2..Valeur=SansEspace(Milieu(m,81,6))
Table.etat_pesée_2..Valeur=SansEspace(Milieu(m,87,1))
Table.net..Valeur=SansEspace(Milieu(m,89,6))
 
 
TableAjouteLigne(Table,"",Matricule,raison_soc,Raison_cli,Produit,date_pesée_1,heure_pesée_1,Pesée_1,etat_pesée_1,date_pesée_2,heure_pesée_2,pesée_2,etat_pesée_2,net,"","NON")
 
sEcrit(6,Caract(6))
BOUCLE
   SI sDansFileSortie(6)=0 ALORS
      SORTIR
   FIN
FIN
 
sFinEvénement(6,sEveEnvoiTerminé)
 
ecris_donnes() // procédure pour enregistrer les données dans une table hyperfile
 
 
PROCEDURE ecris_donnes()
ind est un entier=TableSelect(Table)
 
HLitRecherchePremier(Pesée,n_tick,Table[ind][1]..Valeur)
SI HTrouve(Pesée)=Faux ALORS
       HLitDernier(Pesée,n_tick)
       Table[ind][1]..Valeur=Pesée.n_tick+1
       pesée.n_tick=Table[ind][1]..Valeur
       pesée.pesée_liv=0
       pesée.Raison_cli=Table[ind][4]..Valeur
       pesée.Produit=Table[ind][5]..Valeur
       Pesée.date_pesée_1=Table[ind][6]..Valeur
       pesée.heure_pesée_1=Table[ind][7]..Valeur
       Pesée.Pesée_1=Table[ind][8]..Valeur
       pesée.etat_pesée_1=Table[ind][9]..Valeur
       Pesée.date_pesée_2=Table[ind][10]..Valeur
       Pesée.heure_pesée_2=Table[ind][11]..Valeur
       Pesée.pesée_2=Table[ind][12]..Valeur
       Pesée.etat_pesée_2=Table[ind][13]..Valeur
       Pesée.net=Table[ind][14]..Valeur
       pesée.Chauffeur=""
       Pesée.Etat_ticket=Table[ind][15]..Valeur
       Pesée.facture=Table[ind][16]..Valeur
       HAjoute(Pesée)
FIN

le problème que je rencontre c'est que la procédure "ecris_donnes()" ne s'exécute pas

Alors quelqu'un pourrait me dire où est l'erreur dans ce code

merci d'avance

[michel.souris]

Juste une question... tu l'as passé au débugueur ? je crois que c'est quand même le plus simple....

[elfasys]

Bonjour

Pour moi, il y a plusieurs choses qui vont poser problème.

D'abord, quand tu appelles la procédure Lect, il n'y a qu'un caractère qui est arrivé et tu en attends plusieurs (la durée nécessaire pour recevoir un message, c'est l'éternité pour un PC)

Et, dans ta boucle de fin, il faut qu'une fonction vide le buffer : sinon, tu boucles : c'est ce qui doit t'arriver.

Et pour qu'une liaison série fonctionne sans problème, il faut vraiment tout prévoir, faire des tests complets sur le message que tu reçois, vérifier sa vraisemblance, gérer un time-out (si ton système ne renvoie qu'un demi message, par exemple...

J'adore les liaisons RS232 !!!

[karim15]

Bonjour et merci pour vos réponses

effectivement je reçois la totalité du message qui est envoyé vers des champs dans une fenêtre.

le problème qui ce pose, il est dans la procédure "ecris_donnes" que je n'arrive pas a exécuter.

sinon comment faire pour tester si le buffer du port série est vide

merci pour votre aide

[sanomory]

Regarde ta fonction Htrouve...

SI Htrouve(Pesé)= Vrai et non Faux ...

[WebJaseur]

la boucle d'attente de fin devrait etre avec
sDansFileEntrée(...
et pas sortie (ecriture)

ensuite il faut revoir la notion de flux un event peux etre a n'import quel moment dans le flux (complet ou pas) c'est Window$ qui emet l'event quand il passe dans la gestion de l'uart ... il faut donc gérer des rupture de debut ou de fin à voir suivant le protocole (rupture sur STX,EOT,CR,LF, ...)

ensuite pourquoi un htrouve alors que hlitrecherchepremier renvoi deja vrai ou faux si trouvé ou pas ...