SwingeyP
Member
Hello again.
Does anyone have any routines for crc16 checksum?
CRC-CCITT 0x1021 x16 + x12 + x5 + 1
I have no idea where to even start.
Regards - Paul
Does anyone have any routines for crc16 checksum?
CRC-CCITT 0x1021 x16 + x12 + x5 + 1
I have no idea where to even start.
Regards - Paul
Code:
Dim ch(45) As Byte
Dim chr As Byte
Dim i As Byte
Hseropen 9600
For i = 0 To 41
ch(i) = LookUp("M0TVU,n,192633.0,5233.736,00153.799,00181"), i
Next i
'check we have the string
For chr = 0 To i
Hserout ch(chr)
Next chr
'now create a value which is the crc_16 checksum
'now add this value to the end of the string
'now output the whole string.
Last edited: