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)

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

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