PLC及PC机通讯的VB源程序
点击数：7885 次 录入时间：03-04 11:45:41 整理：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程序
