Bonjour à tous,
Comment dois-je faire pour calculer le "checksum" de tout ceci ?
Merci pour votre aide!
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
Partager