當(dāng)前位置：機(jī)電之家首頁 >> PLC技術(shù)>> PLC基礎(chǔ) >> PLC入門 >> MODBUS-RTU CRC校驗(yàn)碼計(jì)算 VB源代碼
MODBUS-RTU CRC校驗(yàn)碼計(jì)算 VB源代碼
Public Function CRC(STR1 As bbbbbb) As bbbbbb
Dim CRCREG As Long
Dim MVAL As Long
Dim R As Integer


CRCREG = 65535


For R = 1 To Len(STR1) Step 2
MVAL = Val("&H" + Mid(STR1, R, 2))

CRCREG = CRCREG Xor MVAL
CRCREG = CRCREG And 65535


For T = 1 To 8 Step 1
If (CRCREG And &H1) Then
CRCREG = (CRCREG \ 2) Xor &HA001
 CRCREG = CRCREG And 65535
 


    Else
    
   CRCREG = CRCREG \ 2
CRCREG = CRCREG And 65535
End If
Next 

Next
Dim A As Long
Dim B As Long
A = CRCREG And 255
B = CRCREG And 65280
A = A * 256
B = B / 256

If (A + B) < 16 Then
CRC = "000" + Hex(A + B)
ElseIf (A + B) < 256 Then

 


CRC = "00" + Hex(A + B)
ElseIf (A + B) < 4096 Then
CRC = "0" + Hex(A + B)
Else
CRC = Hex(A + B)
End If
作者：未知 點(diǎn)擊：4869次 [打印] [關(guān)閉] [返回頂部]
本文標(biāo)簽：MODBUS-RTU CRC校驗(yàn)碼計(jì)算 VB源代碼
* 由于無法獲得聯(lián)系方式等原因，本網(wǎng)使用的文字及圖片的作品報酬未能及時支付，在此深表歉意，請《MODBUS-RTU CRC校驗(yàn)碼計(jì)算 VB源代碼》相關(guān)權(quán)利人與機(jī)電之家網(wǎng)取得聯(lián)系。
電子樣本
SN系列樣冊
：鞏經(jīng)理
：13915946763
：南京塞姆泵業(yè)有限公司
個人求購
曾經(jīng)理 【求購】  定制酒店香...  2025-12-12
張瑜 【求購】  防靜電橡膠...  2025-12-12
劉強(qiáng) 【求購】  保溫板  2025-12-12
曹先生 【求購】  鎂合金  2025-12-12
趙經(jīng)理 【求購】  防火密封膠  2025-12-12
A 【求購】  鐵路接觸網(wǎng)...  2025-12-11
岳 【求購】  西門子ET...  2025-12-11
唐多 【求購】  DCS系統(tǒng)...  2025-12-11
VIP公司推薦