Discussion :

[NeoRonin]

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

[Pol63]

c'est un peu la base !

la fonction te demande un tableau d'octet (byte()) et tu lui donnes un string
donc c'est normal qu'il ne veuille pas, il faut lui donner un tableau d'octet

[NeoRonin]

Oui, j avais vu mais je ne sais pas comment convertir le textbox en byte.
Comme indiqué je suis débutant.

[wallace1]

Oui, j avais vu mais je ne sais pas comment convertir le textbox en byte.
Comme indiqué je suis débutant.

Etre débutant n’excuse absolument rien donc un peu de lecture ne te fera certainement pas de mal :

http://plasserre.developpez.com/cours/vb-net/

A+

[NeoRonin]

Ok, j'ai trouve :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
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
 
Textbox1.text = "FFFFFFFFFFFFFFFFFFFFAAAABBCCDD"
 
Dim Value As String = textbox1.text
Dim array() As Byte = System.Text.Encoding.ASCII.GetBytes(value)
 
TextBox2.Text = Crc8(array, Len(TextBox1.Text))

Le résultat est 242 alors que je devrait obtenir AE

Et si je fais : TextBox2.Text = hex(Crc8(array, Len(TextBox1.Text)))

Il me donne comme resultat F2