problème CRC16Résolu

Question

Bonsoir à tous !

Je dois calculer un CRC16 avec le polynome x16+x15+x2+1 ( MODBUS ) et hélas mon programme ne marche pas. Pouvez me dire ou se trouve l'erreur et si mon polynome est correctement traduit.

Merci d'avance.

CODE: 

Private Sub cmdCalculer_Click()

Dim crc16 As Long
Dim n As Long

Dim poly As Long
Dim i As Integer
Dim octet(0 To 1) As String
Dim ret As Byte

poly = 98309
i = 0
crc16 = 65535
n = 0
        
                   
crc16 = crc16 Xor Hex(Val(txtCRC(i).Text))
n = 0
                

                  
    While n < 7
                ret = crc16 Mod 2
                crc16 = crc16 / 2
                If ret <> 0 Then
                       crc16 = crc16 Xor poly
                End If
                
                n = n + 1
        
                octet(i) = Str(crc16)
    Wend

txtResultat.Text = Hex(octet(0)) & Hex(octet(1))

End Sub

cs_Galain · Accepted Answer

Salut Kevin16

J'ai déposé une source à ton intention qui calcule les CRC16
Inspires-en toi pour ton programme

A+

GRENIER Alain

cs_Galain · Answer

Salut Kevin16

Je ne sais pas ce qu'est un CRC16 mais il y a 2 choses qui me choquent dans le code 

- A quoi correspond TxtCRC
- i dans octet(i) vaut toujours 0 . Or dans le résultat on trouve octet(0) et octet(1) 

Si tu expliques le raisionnement du CRC16 je pourrais peut-être d'aider beaucoup plus

GRENIER Alain

cs_Galain · Answer

Si tu expliques le raisonnement : excuse pour la faute de frappe

GRENIER Alain

cs_kevin16 · Answer

Bonjours Alain, 

je te remercie du fond du coeur de ton aide et de la source que tu as mise a mon intention. J'ai réussit a trouver mes erreurs grace a toi.

A++

cs_Galain · Answer

De rien
Moi aussi j'ai appris quelque chose : qu'est-ce qu'un CRC ?
Merci à toi

A+

GRENIER Alain

Problème CRC16

5 réponses

Votre réponse

Discussions similaires