PC與三菱PLC的通信程序

1、Module PLCtoPCCall FCScheck(outdata) 發(fā)送幀length = UBound(outdata)ReDim Preserve outdata(0 To length) 據(jù)數(shù)組outdata_1 = BitConverter.ToString(outdata) frmParam.SerialPort1.Write(outdata, 0, outdata.Length) 幀frmPlc.ListBox1.Items.Add(outdata_1)End Sub指令 </param>Public outdata() As Byte'令數(shù)據(jù)Public

2、 Rcvlen As Integer'Public Rcv() As BytePublic inString As String'Public RcvFinFlag As Boolean'Public ReadFlag As Boolean'Public FinalDataLen As Integer'Public SaveString As String'Public P_duanFlag As BytePublic P2_duanFlag As BytePublic Rcvtemp As String'Public outdata_1

3、 As StringPublic Y(100) As Boolean''' <summary>''' 發(fā)送命令函數(shù)''' </summary>''' <param name="inString">''' <remarks></remarks>Public Sub send(inString As String)Dim length As ByteRcvlen = -1'length = L

4、en(inString)'ReDim outdata(0 To length)ReDim outdata(0 To length + 1) 元素個數(shù)為 length+1outdata(0) = &H2'outdata(length + 1) = &H3For i = 1 To length'送數(shù)組outdata(i) = Asc(Mid(inString, i, 1)Next i定義發(fā)送數(shù)組，用來存放轉(zhuǎn)換后的命定義接收到的數(shù)據(jù)長度 定義接收數(shù)組，用來存放接收到的數(shù)據(jù)定義輸入命令字符串定義接收完成標(biāo)志標(biāo)志定義讀命令 定義接收到數(shù)據(jù)的最終長度變量 定義輸入命

5、令暫存字符串變量定義存放每次接收到的數(shù)據(jù)的暫存接收數(shù)據(jù)存放數(shù)組的下標(biāo)初始化求形參傳遞過來的字符串的長度重新定義發(fā)送數(shù)據(jù)數(shù)組，其命令報文以控制代碼STX開始字符串轉(zhuǎn)換為 ASCII 碼，送入發(fā)產(chǎn)生校驗和，形成重新定義發(fā)送數(shù)發(fā)送命令' 求和校驗子程序Private Sub FCScheck(ByRef outdata() As Byte)Dim BufLen As Integer, Buf As String'長度變量和字符串變量Dim i As Integer'Dim CheckSum As Long'量BufLen = UBound(outdata)'組

6、可用最大下標(biāo)CheckSum = 0 ' For i = LBound(outdata) + 1 To UBound(outdata) 括的控制代碼CheckSum = (CheckSum + outdata(i) And &HFF) 數(shù)組的元素求和，只保留低位字節(jié)Next i定義字符串定義校驗和變 求 outdata 數(shù) 初始化校驗和求和時不包對 outdata' 若校驗和只有一位，則高位添零，補足為 2Buf= IIf(Len(Hex(CheckSum)= 1, "0" & Hex(CheckSum), Hex(CheckSum)ReDi

7、m Preserve outdata(BufLen + 2)outdata(BufLen + 1) = Asc(Mid(Buf, 1, 1) ' 校驗和轉(zhuǎn)換為 ASCII 碼，低位在前outdata(BufLen + 2) = Asc(Mid(Buf, 2, 1)End SubPrivate Sub Y0_Click(senderStatic Dim flag As BooleanIf flag = 0 Then inString = "70005" flag += 1Else inString = "80005" flag = 0End IfC

8、all send(inString) 'End SubAs Object, e As EventArgs) Handles Y0.Click調(diào)用發(fā)送子程序Private Sub Y1_Click(senderStatic Dim flag As BooleanIf flag = 0 Then inString = "70105" flag += 1ElseAs Object, e As EventArgs) Handles Y1.ClickinString = "80105"flag = 0End IfCall send(inString)End

9、 Sub調(diào)用發(fā)送子程序Private Sub Y2_Click(senderStatic Dim flag As BooleanIf flag = 0 Then inString = "70205" flag += 1Else inString = "80205" flag = 0End IfCall send(inString) 'End SubPrivate Sub Y3_Click(senderStatic Dim flag As BooleanIf flag = 0 Then inString = "70305" fl

10、ag += 1Else inString = "80305" flag = 0End IfCall send(inString) 'End SubPrivate Sub Y4_Click(senderStatic Dim flag As BooleanIf flag = 0 Then inString = "70405" flag += 1Else inString = "80405" flag = 0End IfCall send(inString) 'End SubPrivate Sub Y5_Click(send

11、erStatic Dim flag As BooleanIf flag = 0 Then inString = "70505"As Object, e As EventArgs) Handles調(diào)用發(fā)送子程序As Object, e As EventArgs) Handles調(diào)用發(fā)送子程序As Object, e As EventArgs) Handles調(diào)用發(fā)送子程序As Object, e As EventArgs) HandlesY2.ClickY3.ClickY4.ClickY5.Clickflag += 1ElseinString = "80505&qu

12、ot;flag = 0調(diào)用發(fā)送子程序End IfY6.ClickCall send(inString) End SubPrivate Sub Y6_Click(sender As Object, e As EventArgs) Handles Static Dim flag As BooleanIf flag = 0 Then inString = "70605" flag += 1Else inString = "80605" flag = 0End IfCall send(inString) ' 調(diào)用發(fā)送子程序End SubY7.ClickPrivate Sub Y7_Click(sender As Object, e As EventArgs) Handles Static Dim flag As