Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VS C na Basic - jak to ma wygladac w vbasicu ?

29 Kwi 2013 17:00 897 2
  • Poziom 10  
    Witam
    Mam pilna sprawe kto pomoze mi zmienic ponizszy kod z C na VBasic :
    Kod: csharp
    Zaloguj się, aby zobaczyć kod

    unsigned short Crc16 (unsigned char *dpointer, unsigned char amount)
    {
    unsigned short crc16;
    unsigned char i;

    crc16 = 0;
    for (i = 0; i < amount; i++)
    crc16 = (crc16 << 8) ^ crc16_table[((crc16 >> 8) ^ *(dpointer + i)) & 0xff];

    return ~crc16;
    }
    Kod: csharp
    Zaloguj się, aby zobaczyć kod
  • Pomocny post
    Poziom 30  
    Kod: basic4gl
    Zaloguj się, aby zobaczyć kod
  • Poziom 10  
    Kod: vbnet
    Zaloguj się, aby zobaczyć kod

    Public Function crc16r(ByVal amount As Byte) As Long
    Dim i As Integer
    crc16r = 0
    For i = 0 To amount
    crc16r = CLng((crc16r << 8) Xor CLng(crc_table((CInt((crc16r >> 8) Xor bufr(i)) And 255))))
    crc16r = crc16r And &HFFFF
    Next i
    crc16r = Not crc16r
    crc16r = crc16r And &HFFFF
    End Function
    Kod: text
    Zaloguj się, aby zobaczyć kod

    Działająca funkcja CRC16, powinna być jeszcze być 256 elementowa tablica CRC_table ze stałymi 16bit ale nie będe jej tu umieszczał jak coś to wyśle na maila