1、Module PLCtoPCCall 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指令 </param>Public outdata() As Byte'令數據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>''' 發送命令函數''' </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) 元素個數為 length+1outdata(0) = &H2'outdata(length + 1) = &H3For i = 1 To length'送數組outdata(i) = Asc(Mid(inString, i, 1)Next i定義發送數組，用來存放轉換后的命定義接收到的數據長度 定義接收數組，用來存放接收到的數據定義輸入命令字符串定義接收完成標志標志定義讀命令 定義接收到數據的最終長度變量 定義輸入命

5、令暫存字符串變量定義存放每次接收到的數據的暫存接收數據存放數組的下標初始化求形參傳遞過來的字符串的長度重新定義發送數據數組，其命令報文以控制代碼STX開始字符串轉換為 ASCII 碼，送入發產生校驗和，形成重新定義發送數發送命令' 求和校驗子程序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、可用最大下標CheckSum = 0 ' For i = LBound(outdata) + 1 To UBound(outdata) 括的控制代碼CheckSum = (CheckSum + outdata(i) And &HFF) 數組的元素求和，只保留低位字節Next i定義字符串定義校驗和變 求 outdata 數 初始化校驗和求和時不包對 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) ' 校驗和轉換為 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調用發送子程序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調用發送子程序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調用發送子程序As Object, e As EventArgs) Handles調用發送子程序As Object, e As EventArgs) Handles調用發送子程序As Object, e As EventArgs) HandlesY2.ClickY3.ClickY4.ClickY5.Clickflag += 1ElseinString = "80505&qu

12、ot;flag = 0調用發送子程序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) ' 調用發送子程序End SubY7.ClickPrivate Sub Y7_Click(sender As Object, e As EventArgs) Handles Static Dim flag As