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 !