Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de suma de comprobación de VB CRC

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