I try to convert the sample code to vb.net 2008 without success :-( do have try ? any help ?
Or do you have understand how the CRC16 working on the vb.net ?
What i was try without success is:
Private Function Calc_crc()
Temp_crc = Temp2 * 256
Crc = Temp_crc Xor Crc
For Temp1 = 0 To 7
If Crc > 32767 Then
Crc = Crc * 2
Crc = Crc Xor Crcpoly
Else
Crc = Crc * 2
End If
Crc = Crc And 65535
Next
Calc_crc = Crc
Crc2 = Microsoft.VisualBasic.Left(Hex(Crc), 2)
Crc1 = Microsoft.VisualBasic.Right(Hex(Crc), 2)
End Function