В чем ошибка?

[vrodo]

Код: Выделить всё

Public Function CRC16(DataArray() As Byte, Optional wInitCRC As Long = 0) As Long
Dim crc As Integer, j As Byte, size As Integer, i As Long
crc = wInitCRC
For i = 0 To DataArray(1) - 3
    crc = crc Xor PDL((DataArray(i)), 8)
    For j = 0 To 7
        If crc And &H8000 Then
            crc = PDL(crc, 1) Xor &H1021
        Else
            crc = PDL(crc, 1)
        End If
    Next j
Next i
CRC16 = crc
End Function


в строчке

Код: Выделить всё

For i = 0 To DataArray(1) - 3

немогу понять что такое DataArray(1) он как правило равен "0" и вся функция не выполняется и вообще почему &H8000 и &H1021 могут ли быть другие числа?
DataArray = "[string]"
PDL это функция сдвига (если надо могу тоже прислать)

[Vasya]

[DataArray = "[string]"

Ну какой же это string, если в заголовке функции написано - Byte??

[RayShade]

DataArray(1) это первый элемент массива DataArray.

А почему &H8000 и &H1021 это надо спросить у авторов алгоритма.



ЗЫ: раскопал-таки что то по CRC UART?

[vrodo]

2Vasia

попробуй сделать

Код: Выделить всё

dim Bytearr() as byte
dim strText as string
strText = "abcdefg"
Bytearr = strText

а уж тогда и рассказывай про типы данных

2ОЛЛ
Объясните мне на пальцах алгоритм расчета плз
со сдвигом я вроде разобрался а вот сам алгоритм от меня ускользает
ну зациклило меня

[Cyrax]

вот тут про алгоритмы можно почитать: http://algolist.manual.ru/
а еще... вот что выдал Яndex

[XPraptor]

Тут у тебя алгоритм проверки контрольной суммы.
For i = 0 To DataArray(1) - 3 скорее всего должна быть записана как:
For i = 0 To Len(DataArray(1)) - 3 или вообще как For i = 0 To Len(DataArray()) - 3
и потом идет проверка каждого символа на предмет соответствия.
При встрече символа &H8000 алгоритм сдвига должен завершиься позицией &H1021 (скорее всего переход на начальный адрес строки)
во всех остальных случаях сдвигается на единицу вправо.

[vrodo]

а попроще никак нельзя?
или
как это сделать через таблицы?
скиньте код плиз
в инете ссылок много но нужного не нашел