Bonjour à tous,

Comment dois-je faire pour calculer le "checksum" de tout ceci ?

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Dim InitCmnd(39) As Byte
InitCmnd(0) = &HFF
InitCmnd(1) = &H89
InitCmnd(2) = &H7
InitCmnd(3) = &H0
InitCmnd(4) = &H45
InitCmnd(5) = &H4
InitCmnd(6) = &H32
InitCmnd(7) = &H43
InitCmnd(8) = &H30
InitCmnd(9) = &H30
InitCmnd(10) = &H31
InitCmnd(11) = &H53
InitCmnd(12) = &H48
InitCmnd(13) = &H54
InitCmnd(14) = &H30
InitCmnd(15) = &H30
InitCmnd(16) = &H31
InitCmnd(17) = &H54
InitCmnd(18) = &H4B
InitCmnd(19) = &H30
InitCmnd(20) = &H30
InitCmnd(21) = &H31
InitCmnd(22) = &H5F
InitCmnd(23) = &H0
InitCmnd(24) = &H0
InitCmnd(25) = &H0
InitCmnd(26) = &H0
InitCmnd(27) = &H0
InitCmnd(28) = &H0
InitCmnd(29) = &H0
InitCmnd(30) = &H0
InitCmnd(31) = &H0
InitCmnd(32) = &H0
InitCmnd(33) = &H0
InitCmnd(34) = &H0
InitCmnd(35) = &H0
InitCmnd(36) = &H0
InitCmnd(37) = &H0
 
InitCmnd(38) = // ? <--CHECKSUM ?
 
PortCom.Output = InitCmnd
Merci pour votre aide!