Discussion :

[miripesage]

Bonjour à tous,
Je suis débutant en Windev9 et je dois afficher le poids (en KG ou Tonnes) dans un champ de saisie et je bute sur la conversion de cette trame en valeur numérique. Voici mon code ‘il fonctionne bien mis à part la conversion de la trame en valeur numérique (poids).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Résultat est un booléen
Résultat = sOuvre(1,200,200,sTimeoutDéfaut)
SI Résultat = Vrai ALORS
 
sFixeParamètre(1, 1200, 1, 8,0)
sEcrit(1,Caract(0x24))
 
 
 
Multitache(50)
 
Bf est un Buffer
Bf=sLit(1,sDansFileEntrée(1))
SAI_Digit=Bf // Voici la trame affichée « P$ )‚¹0Mø ».pour une un certain poids

Ma question est : Comment convertir cette trame en valeur numérique pour afficher le poids correspondant ? Merci pour toute aide.

TRACE de POIDS (de l’indicateur en question)

Trace STX Etat Poids CR

N° Bytes 1 1 8 1
Exemple Hexa 02 41 20 20 20 32 2E 30 30 30 0D

Exemple ASCII STX A 2 . 0 0 0 CR

[fucce]

Dans un premier temps, as-tu tester ta commande avec un programme de com genre hyperterminal? Les données reçues ressemblent à de mauvais paramètres de com.

[miripesage]

Bonjour,
Non, mais les données sont bonnes et varient suivant le poids. Ce que je cherche, c'est comment convertir cette chaine de caractères en valeur numérique (chiffre décimales)

[fucce]

C'est toi qui voit!

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
sPoids est une chaîne = ""
rValPoids est un réel = 0
Résultat est un booléen
Bf est un Buffer

Résultat = sOuvre(1,200,200,sTimeoutDéfaut)
SI Résultat = Vrai ALORS
sFixeParamètre(1, 1200, 1, 8,0)
sEcrit(1,Caract(0x24))
FIN

Multitache(50)

Bf=sLit(1,sDansFileEntrée(1)) //Tester la taille de la chaine reçue voir boucler pour obtenir une trame complète

sPoids = Milieu(Bf,3, 5)
rValPoids  = Arrondi(Val(mPoids), 3) //je m'appuie sur la trame théorique et non sur ce que tu as reçu

SAI_Digit=rValPoids

[miripesage]

MERCI Fucce, je vais essayer ton code et te tiendrai aucourant.

[fucce]

De rien mais je ne pense pas que cela va résoudre ton pb!

[miripesage]

Toujour rien, mais lorque j'essaye le même montage avec un autre logicel, il donne le poids exact. Ou est le problème ?

[fucce]

quel autre logiciel? Pourquoi ne veux-tu pas tester avec un logiciel de com?

[mogwai162]

Normalement tu as l'explication de tout ça dans la doc de ton instrument de pesée.

Ensuite tu nous as donné un resultat en exemple. Bien mais il correspond a quel poids ?

[miripesage]

Bonjour Patrick,
c'est l'exemple de la Trace de poids donné par le constructeur. Moi je cherche comment convertir et afficher la trame reçu en valeur décimale(poids en Kg par exemple)

Fucce, C'est un logiciel de pesage(Winpont). Mais comment dois-je essayer avec un autre com ?

[fucce]

Pour moi, tu ouvres Hyperterminal, tu configures ton port de COM1 en 1200bps, Pair, 8bits, 1stop.
Tu écris $ (0x24) et tu vois la réponse.
Quels sont les caractéristiques de ta balance? Au moins le marque...

[miripesage]

Fucce, ton code fonctionne très bien, avec seuleument un petit changement (sPoids = Milieu(Bf,4,10). Maintenant, comment puis-je avoir l'affichage du poids en continu ? (sans clic sur le bouton de validation)

[fucce]

Cela dépend de ta balance : si tu peux la passer en mode maître, tu vas lire ce qu'elle t'envoie tout le temps sinon un thread avec une procédure qui fait une demande et qui lit le résultat.
Au fait, c'était quoi le problème?

[miripesage]

pour mon code, je ne sais pas encore ce qui cloche, mais avec ton code, ça marche très bien. Comment dois-je ce un thread avec une procédure ? Merci pour ton aide (l'indicateur : EPELSA BC 60)

[fucce]

Chez moi (version XII), je crée une procédure locale que j'appelle selon un intervalle. Dans ta version, je te conseille de rechercher dans la doc la fonction TimerSys()

[miripesage]

meci de ton conseil,je vais chercher .

[YDJ31]

Bonjour
Les données que tu recoit sont en HEXADECIMAL
tu doit les convertir en decimal pour pouvoir les lire et les afficher dans un champ numérique