Obliczanie sumy kontrolnej checksum dla wartości 010203 w Visual Basic jak w Bascom

zibi11 napisał:

010203 to string danych

unsigned char liczLRC(char ramka[],dlugosc)
{
  unsigned char suma=0;
  char i;
  unsigned char lrc;

  for (i=1;i<=dlugosc;i++)
      suma+=ramka[i];
  
  lrc=~suma+1;
  return lrc;  
}

tmgofer napisał:

zibi11 napisał:

010203 to string danych

Jeśli to string, to CRC liczysz w następujący sposób:
-Sumujesz kody ASCII tych znaków. Suma powinna być zadeklarowana jako unsigned char, żeby była brana bez znaku i działała modulo 256.
-sumę zmieniasz na liczbę ujemną (a w kodzie uzupełnien do 2: negacja bitowa, zwiększenie o 1)
no i gotowe

skleciłem prosty kodzik na poczekaniu, może zadziała

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka

unsigned char liczLRC(char ramka[],dlugosc)
{
  unsigned char suma=0;
  char i;
  unsigned char lrc;

  for (i=1;i<=dlugosc;i++)
      suma+=ramka[i];
  
  lrc=~suma+1;
  return lrc;  
}

Pozdrawiam!