Problema de suma de comprobación de VB CRC

Lea aproximadamente. El tipo de definición de variable es incorrecto, modifíquelo de la siguiente manera:

Público

Función

crc16(ByRef

cmdstring()

Como

Byte,

DataLen

Como

Entero)

Como

Cadena

Atenuar

datos

Como

Entero

Atenuar

i

Como

Entero

Dim

Dim.p>CRCHi

Como

long,

CRCLo

As

long' debe definirse como long aquí, porque la siguiente asignación es de tipo long. amigo.

Atenuar

iIndex

Como

Largo

Atenuar

CRCStr p>

Como

Cadena

Dim

DataStr

Como

Cadena

CRCLo

=

amp; HFF'Mira la tarea aquí. Tipo largo

CRCHi

=<. /p >

amp; HFF'Mira la tarea aquí; HFF

For

i

Para

DataLen

iIndex

=

CRCLo

Xor

cmdstring(i)

CRCLo

=

CRCHi

Xor

GetCRCLo(iIndex)

' Procesamiento bajo

CRCHi

=

GetCRCHi(iIndex)

'Procesamiento alto

DataStr

=

DataStr

amp;

Chr(cmdstring(i))

Siguiente

i

Dim

ReturnData(1)

Como

Byte

ReturnData(1)

=

CRCHi

ReturnData(0)

=

CRCLo

CRCStr

=

StrConv(ReturnData,

vbUnicode)

crc16

=<

DataStr

CRCStr

Fin

Función