wxz11
级别: 略有小成
精华主题: 0
发帖数量: 305 个
工控威望: 338 点
下载积分: 1245 分
在线时间: 384(小时)
注册时间: 2006-10-01
最后登录: 2020-11-29
查看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
发帖数量: 305 个
工控威望: 338 点
下载积分: 1245 分
在线时间: 384(小时)
注册时间: 2006-10-01
最后登录: 2020-11-29
查看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