Bonjour,

voila j'ai récupéré un code en VB.net pour calculer un CRC8 mais celui si ne fonctionne pas comme je voudrais.

Ma textbox1.text contient "FF FF FF FF FF FF FF FF FF FF AA AA BB CC DD"


Le resultat du checksum devrait etre AE

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Public Shared Function Crc8(ByVal data As Byte(), ByVal size As Integer) As Byte
        Dim checksum As Byte = 0
        For i As Integer = 0 To size - 1
            checksum = (CInt(checksum) + data(i)) Mod 256
        Next
        If checksum = 0 Then
            Return 0
        Else
            Return CByte(256 - checksum)
        End If
    End Function
Textbox2.Text = Crc8(Textbox1.text, 31)

Il me renvoi une erreur : impossible de convertir un string en tableau 1 dimension. Le String etant le Textbox1.text

Meme si dans la fonction je le passe le byte en string cela ne change rien.

Merci