Discussion :

[Suxen]

Bonjour,

j'ai un léger soucis pour traduire ce morceau de code en vb6
Est ce que quelqu'un saurait m'aider svp?
D'avance merci

Code C :

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
#define MA_VAR 0x08408
unsigned int GetCRC16(unsigned char* bufData, unsigned int sizeData)
{
unsigned int CRC, i;
unsigned char j;
CRC = 0;
for(i=0; i < sizeData; i++)
{
CRC ^= bufData[i];
for(j=0; j < 8; j++)
{
if(CRC & 0x0001) {CRC >>= 1; CRC ^= MA_VAR;}
else CRC >>= 1;
}
}
return CRC;
}

[DarkVader]

Bonsoir,

Approximativement (VB ne gère pas les représentations non signées)

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
Function GetCRC16(bufData() As Byte, sizeData As Long) As Long
    Const MA_VAR As Long = &H8408  '? + 65536 ?
    Dim CRC As Long, i As Long, j As Byte, b As Boolean
 
    For i = 0 To sizeData - 1
        CRC = CRC Xor bufData(i)
        For j = 0 To 7
            b = (CRC And 1)
            CRC = CRC \ 2
            If b Then CRC = CRC Xor MA_VAR
        Next
    Next
 
    GetCRC16 = CRC
End Function