求求大家。我在线等。

Question

我现在想求68 01 00 00 00 00 00 68 01 02 43 C4,我现在要求它门的校验和，偶校验,
   请各位大虾告诉我怎么求可以吗，最好有算发，程序也可以。

Answer 1

Modbus(CRC)校验例程
Public Function CrcResult(ByVal Data As Long, ByVal Genpoly As Long, ByVal CrcData As Long) As LongDim TmpI As IntegerData = Data * 2For TmpI = 8 To 1 Step -1Data = Fix(Data / 2)
If ((Data Xor CrcData) And 1) ThenCrcData = Fix(CrcData / 2) Xor GenpolyElseCrcData = Fix(CrcData / 2)End If
Next TmpICrcResult = CrcDataEnd Function　//函数应用方法Dim fx(7)Dim crc As Longfx(0) = Val(Text2.Text)fx(1) = &H3fx(2) = &H0fx(4) = &H0fx(5) = &H1fx(3) = MDI.Combo3.ListIndexcrc = &HFFFF&For TmpI = 0 To 5crc = CrcResult(CLng(fx(TmpI)), &HA001&, crc)Nextfx(6) = CByte(crc And &HFF&) ‘得到的校验高位fx(7) = CByte(Fix(crc / 256) And &HFF&) ‘得到的校验低位