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 p>
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> p>
Como
Cadena
Dim
DataStr
Como
Cadena p>
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 p>
=
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