超碰成人av-青青草97-天天做天天躁天天躁-久久精品国产亚洲一区二区-亚洲天堂狠狠干-在线观看欧美精品-国产精品美女一区二区视频-国产成人欧美日韩在线电影-一级片免费看视频-免费国产视频在线观看-伊人网久久久-无码人妻丰满熟妇啪啪网不卡-精品欧美乱码久久久久久-国产真实夫妇视频-中文久草

wxz11
級別: 略有小成
精華主題: 0
發帖數量: 280 個
工控威望: 338 點
下載積分: 1245 分
在線時間: 384(小時)
注冊時間: 2006-10-01
最后登錄: 2025-08-30
查看wxz11的 主題 / 回貼
樓主  發表于: 2010-10-14 20:36
1)、LRC 演算法校驗的實現

Public Function LRC(str As String) As String
c = 0
l = Len(str)
For c = c + 1 To l
c_data = Mid$(str, c, 2)
d_lrc = d_lrc + Val("&H" + c_data)
c = c + 1
Next c
If d_lrc > &HFF Then
    d_lrc = d_lrc Mod &H100
End If
h_lrc = Hex(&HFF - d_lrc + 1)
wxz11
級別: 略有小成
精華主題: 0
發帖數量: 280 個
工控威望: 338 點
下載積分: 1245 分
在線時間: 384(小時)
注冊時間: 2006-10-01
最后登錄: 2025-08-30
查看wxz11的 主題 / 回貼
1樓  發表于: 2010-10-14 20:38
不好意思還有一點  接上面的

If Len(h_lrc) > 2 Then
     h_lrc = Mid(h_lrc, Len(h_lrc) - 1, 2)
End If
LRC = h_lrc
End Function
ydp
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看ydp的 主題 / 回貼
2樓  發表于: 2010-10-14 20:55
好似是解決一段字符串,然後生成16進制碼送到PLC