Discussion :

[Cestmoi3056]

Bonjour à tous,

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

Actuellement je fais ça :

Code :

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

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 :

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

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 :

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

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 !

[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)

[Invité]

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.

[Pol63]

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^©

[Cestmoi3056]

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...

[Cestmoi3056]

Voilà ce que ca donne :

Code :

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

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 :

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

1
2
3
4
lstBytes.Add(&H1F)
lstBytes.Add(&HE0)
lstBytes.Add(&H0)
lstBytes.Add(&HD)

A comme bon checksum 153

Maintenant avec

Code :

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

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 ?

[Pol63]

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

[Cestmoi3056]

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.

[Pol63]

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)

[Cestmoi3056]

La commande :

Code :

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

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

A un checksum de 166

[Pol63]

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 :

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

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

[Cestmoi3056]

Alors là je dis chapeau !

Bravo et merci !