VB与永宏PLC通信源码.pdfVIP

1范B 系离烁 的能 系离烁 系烁 网股始必情必 商 噪 系离烁 范B 展 系离烁 环B始系离烁 商W随高prol跳采采量r噪 环B始系离烁 环B始系离烁 网股始必情必 系离烁 商 噪 商清股烁的的 0必留噪 商清股烁的的 0情留噪 环B始系离烁 度抗 商清股烁的的 意0留~意状留噪 系离烁 系离烁 速长量速额sum 0~抗00 清股烁的的 系离烁 商网芳算噪 窗跳st量r 股能藉 商0必留噪 0 商情0留噪 度 商情度留噪 意 商情意留噪 度 商情度留噪 度 商情度留噪 环 商意控留噪 普 商情普留噪 状能藉 商0情留噪 系离烁 股能藉 商0必留噪 0 商情0留噪 度 商情度留 噪 意 商情意留 噪 度 商情度留 噪 0 商情0留 噪 环 商意控留 噪 方 商情方留 噪 状能藉 商0情留噪 展 网0 网意 网度 网必 网情 藊0 藊度 藊必 系烁 商窗跳st量r 噪 系离烁 商股l跳v量噪 网股始始必情必 www.PLC 2藊情 藊意 藊抗 藉必 系离烁 网0 网意 系离烁 藉度 www.PLC 3范B 系烁 网股必情必 系离烁 普控00过ps 范B 环orm象离o跳采商噪 poll随高钮 系离烁 范B 股量高采环r跳m量商然跳t跳如 算o噪 系离烁 范B 股量高采象网量f象烁l随速额商噪 系离烁 范B 股量高采烁m采象烁l随速额商噪 www.PLC 4藊0 藊度 藊情 藊意 www.PLC 5五、 系烁 环B始系离烁 范B 的高t量r高量t 网股意方抗 范过 方0抗度 普0 环B始 网股始必情必 七、VB 程序代码 Form1程序代码如下： Dim Status1(15) 和的高put 藉 Dim Status2(12) 和Output 藊 Dim bx(15) 和藉 Dim by(12) 和藊 Dim Reg Dim flag 和 Dim flag1 和 系离烁 便意清便 Dim flag2 和 系离烁 便意B便 Dim page_no 和 Public Sub SendFrame(Data, No) 和 商噪 Select Case No Case 0: Check = Calculate_LRC(Data, 0) 和 离网烁 sendtxt = Chr$(H2) Trim(ClientNo) Trim(CmdNo) Trim(Data) Trim(Check) Chr$(H3) 和 增 增 增 增 增 Case 1: Check = Calculate_LRC(Data, 1) 和 离网烁 sendtxt = Chr$(H2) Trim(ClientNo) Trim(Data) Trim(Check) Chr$(H3) 和 增 增 增 增 Case 2: sendtxt = Chr$(H2) Trim(ClientNo) Trim(Data) Trim(Check_RegText) Chr(H3) 和 增 增 End Select MSComm.Output = sendtxt 和 网股始必情必 End Sub Public Function Calculate_LRC(Data, No) As String 和 离网烁 商噪 Select Case No Case 0: LRC = 2 + Asc(Left(ClientNo, 1)) + Asc(Mid(ClientNo, 2, 1)) + Asc(Left(CmdNo, 1)) + Asc(Mid(CmdNo, 2, 1)) 和 烁长r准商参留必噪 Case 1: LRC = 2 + Asc(Left(ClientNo, 1)) + Asc(Mid(ClientNo, 2, 1)) End Select For i = 1 To Len(Data) LRC = LRC +Asc(Mid(Data, i, 1)) 和 然跳t跳 离网烁 Next www.PLC 6LRC_Remain = LRC Mod 16 和 离网烁 LRC_Quotient = LRC \ 16 和 LRC_Quotient = LRC_Quotient Mod 16 和离网烁 Calculate_LRC = Hex(LRC_Quotient) Hex(LRC_Remain) 和 End Function Private Sub B_Y_Click(Index As Integer) 和藊 商噪 If Index = 0 Then 和 0 If by(Index) = 1 Then 和 留随钮长如 离ow sendtxt = 424Y0000 和 0 by(Index) = 0 和 过y商的高采量x噪 离ow 藊 Else 和 离ow如 留随钮长 sendtxt