Forums ProgMatique

[vincent33]

Bonjour à tous ,
voilà j'ai réalisé ce programme qui permet de calculer le checksum d'une trame à envoyé sur une liaison série


Sub Calcul_checksum()
Dim TabEnvoyé As Byte() = New Byte(12) {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

TabEnvoyé(0) = &H2 ' initialisation_connection(0)
TabEnvoyé(1) = &H3F ' initialisation_connection(1)
TabEnvoyé(2) = &H30 ' Id(0)
TabEnvoyé(3) = &H31 ' Id(1)
TabEnvoyé(4) = &H31 ' Id(2)
TabEnvoyé(5) = &H44 ' Type_registre(0)
TabEnvoyé(6) = &H52 ' Type_registre(1)
TabEnvoyé(7) = &H48 ' Registre(0)
TabEnvoyé( = &H52 ' Registre(1)
TabEnvoyé(9) = &H30 ' Nb_registre(0)
TabEnvoyé(10) = &H31 ' Nb_registre(1)
TabEnvoyé(11) = &H30 ' Nb_registre(2)
TabEnvoyé(12) = &H31 ' Nb_registre(3)


Dim Somme As Integer = 0


' Calcul du Cheksum de la trame Envoyé
For Each x As Byte In TabEnvoyé
Somme = Somme + x
Next

Dim aa As String = Hex(Somme)

 
Maintenant lorsque je teste mon programme , j'ai comme résultat pour aa= 2C5
Je n'arrive pas à avoir le résultat C5 et ce que je veux c'est convertir en decimal puis en hexa mais je vois pas comment
Peut on m'aider?

[vincent33]

Personne ??????????????????