日韩床上生活一级视频|能看毛片的操逼网站|色悠悠网站在线观看视频|国产免费观看A淫色免费|国产av久久久久久久|免费A级视频美女网站黄|国产毛片av日韩小黄片|热久久免费国产视频|中文字幕无码色色|成人在线视频99久久久

Function CRC16(data() As Byte) As bbbbbb ’CRC計(jì)算函數(shù)

      Dim CRC16Lo As Byte, CRC16Hi As Byte   ’CRC寄存器

      Dim CL As Byte, CH As Byte            ’多項(xiàng)式碼&HA001

      Dim SaveHi As Byte, SaveLo As Byte

      Dim I As Integer

      Dim Flag As Integer

      CRC16Lo = &HFF

      CRC16Hi = &HFF

      CL = &H1

      CH = &HA0

      For I = 0 To UBound(data)

        CRC16Lo = CRC16Lo Xor data(I) ’每一個(gè)數(shù)據(jù)與CRC寄存器進(jìn)行異或

        For Flag = 0 To 7

          SaveHi = CRC16Hi

          SaveLo = CRC16Lo

          CRC16Hi = CRC16Hi \ 2            ’高位右移一位

          CRC16Lo = CRC16Lo \ 2            ’低位右移一位

          If ((SaveHi And &H1) = &H1) Then ’如果高位字節(jié)最后一位為1

            CRC16Lo = CRC16Lo Or &H80      ’則低位字節(jié)右移后前面補(bǔ)1

          End If                           ’否則自動補(bǔ)0

          If ((SaveLo And &H1) = &H1) Then ’如果LSB為1，則與多項(xiàng)式碼進(jìn)行異或

            CRC16Hi = CRC16Hi Xor CH

            CRC16Lo = CRC16Lo Xor CL

          End If

        Next Flag

      Next I

      Dim ReturnData(1) As Byte

      ReturnData(0) = CRC16Hi              ’CRC高位

      ReturnData(1) = CRC16Lo              ’CRC低位

      asd = Right("00" + Hex(CRC16Lo), 2) + Right("00" + Hex(CRC16Hi), 2)

    End Function
程序是不是很簡單呀?。。。。?BR>