Pb Calcul Checksum

Bonjour à tous,

Je dois envoyer une trame via RS qui contient un checksum...

Actuellement je fais ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Buffer(lstBytes.Count) As Byte For i = 0 To lstBytes.Count - 1 Buffer(i) = lstBytes(i) Next   Dim checksum As Integer = 0   For Each x As Byte In Buffer checksum = (x + checksum) Next Buffer(lstBytes.Count) = CByte(checksum) 'J'ai testé avec And &HFF, ou Mod 256   SerialPort1.Write(Buffer, 0, Buffer.Count)

---

Dans la doc il me mettent ça :

Code:

---

All commands have a checksum byte appended. The sum of all bytes in the command, including the checksum byte, should add up to A5h.

---

Et une commande type ressemble à ça :

Code:

---

1 2 3 4

lstBytes.Add(&H1F) lstBytes.Add(&HE0) lstBytes.Add(&H0) lstBytes.Add(&HD)

---

Mais l'équipement me renvoie une erreur de calcul de checksum. Surtout je ne comprend pas le should add up to A5h.

Pouvez-vous m'aider ?! Merci !

je ne vois pas trop ce qu'ils veulent dire par là

après il n'y a que 256 possibilité pour le checksum, tu peux tenter les 256 dans une boucle pour repérer le bon, et après tu cherches le rapport avec A5 (165 dec)

Bonsoir,
Il serait intéressant de donner ta définition de checksum!

Car a ma connaissance c'est la somme de bits à 1 en ne comptant pas la retenue.

Ainsi 255 + 1= 0.

10 xor Ff nous retourne 1 bit (je parle d'un xor bit à bit)'qui devait être sommé à la valeur précédente sans retenue!

Je n'ai pas l'impression que c'est ce que fait ton code.

chaque protocole de dialogue peut implémenter sa propre somme de controle, en la définissant ; parfois elle est beaucoup plus complexe qu'une simple somme modulotée^©

Citation:

---

Envoyé par Pol63

je ne vois pas trop ce qu'ils veulent dire par là

après il n'y a que 256 possibilité pour le checksum, tu peux tenter les 256 dans une boucle pour repérer le bon, et après tu cherches le rapport avec A5 (165 dec)

---

J'ai suivi ton conseil, le bon checksum est 153 dec. Je vais tester une autre commande et voir pour trouver une correspondance...

Voilà ce que ca donne :

Code:

---

1 2 3 4

lstBytes.Add(&H1F) lstBytes.Add(&HE0) lstBytes.Add(&H0) lstBytes.Add(&H1)

---

A comme bon checksum 165

et la commande original où seul le dernier byte change (13 et non 1 comme précédemment)

Code:

---

1 2 3 4

lstBytes.Add(&H1F) lstBytes.Add(&HE0) lstBytes.Add(&H0) lstBytes.Add(&HD)

---

A comme bon checksum 153

Maintenant avec

Code:

---

1 2 3 4

lstBytes.Add(&H1F) lstBytes.Add(&HE0) lstBytes.Add(&H0) lstBytes.Add(&H2)

---

le bon checksum est 164

Une idée d'un calcul logique ?

oui, tu peux me donner le chk pour AA et 05 pour être sûr ?

Pour 5, le checksum est 161.

Mais je ne peux pas te donner pour AA.

L'équipement n'accepte, en décimal, qu'une valeur qui va de 0 à 15.

en fait je veux une somme qui fait entre 166 et 255 (modulo 256) pour voir
donc tu prends l'exemple que tu veux (tes 3 exemples sont en dessous ou égal à 165 (somme puis modulo 256), il m'en faudrait une au dessus)

La commande :

Code:

---

1 2	lstBytes.Add(&H7) lstBytes.Add(&HF8)

---

A un checksum de 166

donc
sum de tous les bytes
modulo 256
165 - le modulo trouvé ci dessus
là il faudrait refaire un modulo 256, sous excel ca marche bien, les nombres négatifs sont remis en positif, mais le modulo de .net ne fait pas ca donc j'ai ajouté un test et une somme

Code:

---

1 2 3 4

Dim chk = 165 - (From b In lstBytes Select CInt(b)).Sum Mod 256 If chk < 0 Then chk = chk + 256   lstBytes.Add(CByte(chk)) ' ajout du checksum aux octets à envoyer

---

Alors là je dis chapeau !

Bravo et merci !