PC与三菱PLC的通信程序.doc

Module PLCtoPC Public outdata() As Byte 定义发送数组，用来存放转换后的命令数据 Public Rcvlen As Integer 定义接收到的数据长度 Public Rcv() As Byte 定义接收数组，用来存放接收到的数据 Public inString As String 定义输入命令字符串 Public RcvFinFlag As Boolean 定义接收完成标志 Public ReadFlag As Boolean 标志定义读命令 Public FinalDataLen As Integer 定义接收到数据的最终长度变量 Public SaveString As String 定义输入命令暂存字符串变量 Public P_duanFlag As Byte Public P2_duanFlag As Byte Public Rcvtemp As String 定义存放每次接收到的数据的暂存 Public outdata_1 As String Public Y(100) As Boolean 发送命令函数 指令 Public Sub send(inString As String) Dim length As Byte Rcvlen = -1 接收数据存放数组的下标初始化 length = Len(inString) 求形参传递过来的字符串的长度 ReDim outdata(0 To length) ReDim outdata(0 To length + 1) 重新定义发送数据数组，其元素个数为length+1 outdata(0) = &H2 命令报文以控制代码STX开始 outdata(length + 1) = &H3 For i = 1 To length 字符串转换为ASCII码，送入发送数组 outdata(i) = Asc(Mid(inString, i, 1) Next i Call FCScheck(outdata) 产生校验和，形成发送帧 length = UBound(outdata) ReDim Preserve outdata(0 To length) 重新定义发送数据数组 outdata_1 = BitConverter.ToString(outdata) frmParam.SerialPort1.Write(outdata, 0, outdata.Length) 发送命令帧 frmPlc.ListBox1.Items.Add(outdata_1) End Sub 求和校验子程序 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) 求outdata数组可用最大下标 CheckSum = 0 初始化校验和 For i = LBound(outdata) + 1 To UBound(outdata) 求和时不包括的控制代码 CheckSum = (CheckSum + outdata(i) And &HFF) 对outdata数组的元素求和，只保留低位字节 Next i 若校验和只有一位，则高位添零，补足为2 Buf = IIf(Len(Hex(CheckSum) = 1, 0 & Hex(CheckSum), Hex(CheckSum) ReDim Preserve outdata(BufLen + 2) outdata(BufLen + 1) = Asc(Mid(Buf, 1, 1) 校验和转换为ASCII码，低位在前 outdata(BufLen + 2) = Asc(Mid(Buf, 2, 1)End Sub Private Sub Y0_Click(sender As Object, e As EventArgs) Handles Y0.Click Static Dim flag As Boolean If flag = 0 Then inString = 70005 flag += 1 Else inString = 80005 flag = 0 End If Call send(inString) 调用发送子程序 End Sub Private Sub Y1_Click(sender As Object, e As EventArgs) Handles Y1.Click Static Dim flag As Boolean If flag = 0 Then inString = 70105 flag += 1 Else inString = 80105 flag = 0 End If Call send(inString) 调用发送子程序 End Sub Private Sub Y2_Click(sender As Object, e As EventArgs) Handles Y2.Click Static Dim flag As Boolean If flag = 0 Then inString = 70205 flag += 1 Else inString = 80205 flag = 0 End If Call send(inString) 调用发送子程序 End Sub Private Sub Y3_Click(sender As Object, e As EventArgs) Handles Y3.Click Static Dim flag As Boolean If flag = 0 Then inString = 70305 flag += 1 Else inString = 80305 flag = 0 End If Call send(inString) 调用发送子程序 End Sub Private Sub Y4_Click(sender As Object, e As EventArgs) Handles Y4.Click Static Dim flag As Boolean If flag = 0 Then inString = 70405 flag += 1 Else inString = 80405 flag = 0 End If Call send(inString) 调用发送子程序 End Sub Private Sub Y5_Click(sender As Object, e As EventArgs) Handles Y5.Click Static Dim flag As Boolean If flag = 0 Then inString = 70505 flag += 1 Else inString = 80505 flag = 0 End If Call send(inString) 调用发送子程序 End Sub Private Sub Y6_Click(sender As Object, e As EventArgs) Handles Y6.Click Static Dim flag As Boolean If flag = 0 Then inString = 70605 flag += 1 Else inString = 80605 flag = 0 End If Call send(inString) 调用发送子程序 End Sub Private Sub Y7_Click(sender As Object, e As EventArgs) Handles Y7.Click Static Dim flag As Bool