PLC PC机通讯的VB源程序
点击数:7909 次 录入时间:03-04 12:00:56 整理:http://www.55dianzi.com PLC程序
End Sub
Private Function SumChk(Dats$) As String
Dim i&
Dim CHK&
For i = 1 To Len(Dats)
CHK = CHK + Asc(Mid(Dats, i, 1))
Next i
SumChk = Right(Hex$(CHK), 2)
End Function
上一页 [1] [2]
本文关键字:源程序 PLC程序,plc技术 - PLC程序