bonjour à tous ,

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
21
22
23
24
25
26
27
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é(8) = &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)
voilà je viens de faire ce programme mais maintenant je ne sais pas comment faire pour convertir un nombre decimal en Hexa puis le stocker dans un byte
Merci de votre aide