نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

کد زیر مربوط به الگوریتم تشخیص خطای CRC-16 است:

    Private Function CRC16(ByVal modbus() As Byte) As Int32
        Dim crc As Int32 = 0
        For i As Integer = 0 To modbus.Length - 1
            crc = crc Xor modbus(i)
            For j As Byte = 1 To 8
                If crc And &H1 Then
                    crc = (crc >> 1) Xor &H8408
                Else
                    crc = crc >> 1
                End If
            Next
        Next
        Return crc
    End Function