VB与PLC通讯
- 格式:wps
- 大小:27.00 KB
- 文档页数:3
VB与PLC通信程序(欧姆龙PLC)关于VB的MSCOMM控件可参考相关资料。
通信程序摘要如下:(1)初始化程序mport=2 ’选择COM2Mscomm1.Settings=”9600,N,8,2”’设置通信参数Mscomm1.Inputlen=0 ’读入接收缓冲区全部字符Mscomm1.OutbufferSize=256 ’设置发送缓冲区大小Mscomm1.InbufferSize=512 ’设置接收缓冲区大小Mscomm1.PortOpen=True ’打开COM2(2)发送命令程序比如读取节点号03的PLC中IR000到IR009的内容,并放到tag1字符串变量中,此时有:Dim Command, node, begin, number as stringDim Answerlen as integernode=”03”’节点号Command=”RR”’命令为读IR区begin=”0000”’从IR000开始number=10 ’读取长度Answerlen=51 ’计算接收字符串长度进行命令发送和接收应答处理:Dim FCS, I as integerDim s ,f as strings=”@”+node+Commad+begin+numberFCS=0For i=1 to Len(s)FCS=FCS xor Asc(Mid$(s,i,1) ) ’帧校验码FCSNext if=Hex$(FCS)If Len(f)=1 Then f=”0”+fCommfrm.MSComm1.Output=s + f + ”*” + CHR$(13) ’命令帧发送DoDummy=DoEvents()Loop Untill Commfrm.MSComm1.InbufferCount >= Answerlen ’等待应答帧Do tag1= Commfrm.MSComm1.InputLoop Untill Commfrm.MSComm1.InbufferCount=0 ’读完应答帧上述程序具有相当的通用性,对于其它设备不同的只是各自的数据帧格式,因而只需做相应少量修改即可。
Private Sub MSComm1_OnComm()Select Case mEventCase comEvReceive'此处添加处理接收的代码End SelectEnd Sub'发送主代码frmMain.MSComm1.Output = bytSendByte在使用MSComm控件时需注意接收是以ASCII码或二进制码详细可参阅“人名邮电出版社”的“VISUAL BASIC 串口通讯实例导航”一书。
按你提供的C2C7FAE1看为16进制数,其10进制值为-1027081503,如何处理成-99.99要看下位机是如何约定数据的来定.Text1 = &HC2C7FAE1 或Text1 = VAL(&HC2C7FAE1)一般上下位机对数字值传递通常以16位二进制数字传递,而小数点不传递,仅乘一定倍率来实现.同时16位二进制数字按两个8位(ASCII码值)输送,上位机通过程序代码处理成10进制数.串口传送数据实质是传送ASCII码,如是8位二进制数据,其ASCII码值(10进制)为0-255。
用二进制表示为00000000 - 1111111116进制表示为00 - FF传送数据大于255,则用16位二进制(即2字节ASCII码组成)。
10进制范围-32768到+32767。
如有小数,则应由上下位机约定,不进行发送。
串口通信中数制转换必须相当重视。
以上是以二进制方式收发数据。
也可直接以ASCII码的文本方式发送数据,而字节量大。
如何实现串口数据采集,如何分析这些数据?MSCOMM控件在VB6的企业版中有,需通过部件添加方式加载。
Private Sub MSComm_OnComm()Dim bytInput() As ByteDim intInputLen As IntegerSelect Case mEventCase comEvReceiveIf blnReceiveFlag ThenIf Not frmMain.ctrMSComm.PortOpen ThenmPort = intPortfrmMain.ctrMSComm.Settings = strSetfrmMain.ctrMSComm.PortOpen = TrueEnd If'此处添加处理接收的代码frmMain.ctrMSComm.InputMode = comInputModeText '按ASCII 接收intInputLen = frmMain.ctrMSComm.InBufferCountReDim bytInput(intInputLen)bytInput = frmMain.ctrMSComm.InputText1 = bytInputText2 = Text1jscd = Len(Text1)If Left(Text1, 1) <> Chr(27) Or jscd > 25 Then 'bel3.BackColor = vbRedbel3.ForeColor = vbWhitebel3.Caption = "接收信号出错!"ElseIf Left(Text2, 1) = Chr(27) And Mid(Text2, 25, 1) = Chr(13) Thenbel3.BackColor = vbGreenbel3.ForeColor = vbBlackbel3.Caption = "接收信号正常!"If Left(Text2, 6) = Chr(27) & "R0032" And jscd = 25 ThenIf Val(fa2) >= 0 And Len(fa2) = 4 Thenfa2 = "0" & Mid(fa2, 2, 3)End IffrmMain.txtSend = Chr(27) & fa0 & fa1 & "9999" & zhenkong & fa2 & fa3 & fa4 & Chr(13)lenTxtSend = Len(txtSend)bel8.Caption = txtSendbel11.Caption = lenTxtSendIf lenTxtSend = 24 ThenCall commFasongElsebel3.BackColor = vbRedbel3.ForeColor = vbWhitebel3.Caption = "发送信号出错!"End IfblL1 = Mid$(Text2, 19, 2)If blL1 = "01" Thenrecord_jmm(0) = Val(Mid$(Text2, 21, 4)) / 10 '制品1温度ElseIf blL1 = "02" Thenrecord_jmm(1) = Val(Mid$(Text2, 21, 4)) / 10 '制品2温度ElseIf blL1 = "03" Thenrecord_jmm(2) = Val(Mid$(Text2, 21, 4)) / 10 '制品3温度ElseIf blL1 = "04" Thenrecord_jmm(3) = Val(Mid$(Text2, 21, 4)) / 10 '制品4温度ElseIf blL1 = "05" Thenrecord_jmm(4) = Val(Mid$(Text2, 21, 4)) / 10 '制品5温度ElseIf blL1 = "06" Thenrecord_jmm(5) = Val(Mid$(Text2, 21, 4)) / 10 '制品6温度End Ifrecord_jm(0) = Val(record_jmm(0))record_jm(1) = Val(record_jmm(1))record_jm(2) = Val(record_jmm(2))record_jm(3) = Val(record_jmm(3))record_jm(4) = Val(record_jmm(4))record_jm(5) = Val(record_jmm(5))blL = Mid$(Text2, 7, 6)Call Hex_bin '输出口状态鉴别blLg = Mid$(Text2, 13, 6)Call hex_bin1 '输出口故障状态鉴别txtSend = ""ElsetxtSend = ""End IfEnd IfIf Not blnAutoSendFlag And Not blnReceiveFlag ThenfrmMain.ctrMSComm.PortOpen = FalseEnd IfEnd IfEnd SelectEnd Sub以上是一段MSCOMM的ONCOMM事件代码,接收的数据按上下位机约定取出赋值于全局变量,在其它窗体进行数据记录(写入数据库).至于数据分析确如一楼说的可以海阔天空,通过数据控件及SQL语句来完成任务.以下提供MSDN参考:OnComm 常数常数值描述comEvSend 1 发送事件。
基于VB6.0的上位机与PLC实时通信技术基于VB6.0的上位机与PLC实时通信技术主要是通过VB6.0编程语言与PLC进行通信,实现实时数据的传输和控制操作。
要实现VB6.0与PLC的通信,首先需要通过串口连接VB6.0和PLC。
VB6.0中提供了MSComm控件,可用于实现与PLC的串口通信。
该控件可以配置串口的波特率、数据位、校验位等参数,并可以通过编程实现串口的打开和关闭操作。
在VB6.0中需要编写相应的程序代码,通过串口与PLC进行数据的发送和接收。
VB6.0提供了相应的函数和方法,可以用于读取和写入串口的数据。
通过与PLC进行数据交互,可以实现对PLC的监控和控制操作。
在进行通信时,需要定义好数据的格式和协议,以确保VB6.0与PLC之间能够正确地进行数据的传输和解析。
对于不同的PLC型号和厂商,通信协议可能会有所不同,因此需要按照PLC的通信协议进行编程开发。
在实时通信过程中,需要注意以下几个关键点。
要确保VB6.0与PLC的通信速度要足够快,以实现实时数据的传输和控制操作。
要确保数据的准确性和可靠性,可以通过校验位等方式进行数据的校验和验证。
还需要进行错误处理和异常处理,以避免通信故障和数据丢失等问题的发生。
通过使用VB6.0编程语言,结合PLC的串口通信功能,可以实现上位机与PLC的实时通信。
这样,就能够方便地进行工业控制和监测等操作,提高了生产效率和设备的运行稳定性。
基于VB6.0的上位机与PLC实时通信技术也为后续的数据分析和处理提供了基础。
这对于工业自动化领域的发展和应用具有重要意义。
基于VB6.0的上位机与PLC实时通信技术VB6.0是一种编程语言,可用于开发上位机与PLC之间的实时通信技术。
PLC是一种可编程逻辑控制器,用于控制和监控自动化设备。
通过实时通信,上位机可以与PLC进行数据交换和控制操作。
1. 通信协议选择:PLC与上位机之间的通信需要选择适当的通信协议。
常见的通信协议包括Modbus、OPC、Profibus等。
根据实际需求和设备的支持情况选择合适的通信协议。
2. 串口通信:VB6.0通过串口通信与PLC进行连接。
通常采用RS232、RS485等串口通信方式。
在编程中,需要设置串口的波特率、数据位、停止位、校验位等参数。
通过VB6.0的串口通信类库,可以实现数据的读取和写入。
3. 数据采集和监控:通过VB6.0实现对PLC数据的采集和监控。
可以使用定时器触发方式,周期性的读取PLC设备的数据。
通过VB6.0的数据处理和显示功能,可以实时显示PLC设备的状态和数据信息,如温度、压力、流量等。
4. 控制指令的发送:通过VB6.0向PLC发送控制指令,实现对设备的控制。
根据PLC 的控制逻辑,编写相应的控制程序,将控制指令发送给PLC设备。
通过串口通信,将控制指令发送出去,实现设备的开关、调节等操作。
5. 异常处理:在实时通信中,可能会出现通信故障、数据错误等异常情况。
需要在编程中添加异常处理的代码,对异常情况进行处理,保证通信的稳定性和可靠性。
基于VB6.0的上位机与PLC实时通信技术可以广泛应用于自动化控制、工业监控、智能家居等领域。
通过实时通信,可以实现对设备的远程监控和控制,提高设备的自动化程度和工作效率。
在编程过程中,需要注意通信协议的选择和参数的设置,以确保通信的正确和可靠。
需要添加适当的异常处理机制,提升系统的稳定性和可靠性。
基于VB6.0的上位机与PLC实时通信技术一、引言随着自动化技术的不断发展,PLC(可编程逻辑控制器)已经成为自动化领域中不可或缺的设备。
PLC通常用于控制工业生产线上的设备和机器,而上位机则是用来监控和管理PLC系统的设备。
众所周知,实时通信是保证PLC系统正常运行的重要因素之一。
在这篇文章中,我们将重点介绍基于VB6.0的上位机与PLC实时通信技术。
二、VB6.0简介VB6.0是微软公司于1998年发布的一款集成开发环境(IDE),它是一种编程语言,被广泛用于开发Windows平台下的应用程序。
VB6.0具有简单易学、功能丰富、开发效率高等特点,因此在工业领域得到了广泛应用。
考虑到VB6.0的这些优势,我们可以利用它来开发上位机程序,并实现与PLC的实时通信。
三、PLC实时通信技术1. 串口通信PLC通常通过串口与上位机进行通信。
在VB6.0中,我们可以利用MSCOMM控件来实现串口通信。
通过在VB6.0的界面中添加MSCOMM控件,并设置相应的串口参数(如波特率、数据位、校验位、停止位等),就可以实现与PLC的串口通信。
2. Modbus通信Modbus是一种通信协议,被广泛用于工业控制领域。
通过Modbus协议,我们可以实现上位机与PLC之间的实时通信。
在VB6.0中,我们可以使用第三方的Modbus通信库来实现Modbus通信,例如Modbus ActiveX控件等。
通过这些控件,我们可以轻松地实现Modbus通信,从而实现上位机与PLC的实时数据交换。
3. Socket通信1. 配置MSCOMM控件接下来,我们需要编写VB6.0代码,实现与PLC的串口通信。
您可以编写相应的串口通信代码,例如打开串口、发送数据、接收数据等。
示例代码如下:Private Sub Form_Load()mPort = 1 ' 串口号MSComm1.Settings = "9600,n,8,1" ' 波特率、校验位、数据位、停止位MSComm1.PortOpen = True ' 打开串口End SubPrivate Sub Command1_Click()MSComm1.Output = "010*********FF01" ' 发送数据End Sub3. 运行程序并测试您可以运行程序,并测试与PLC的串口通信是否正常。
plc网口vb 通讯PLC网口VB通讯——实现智能化生产控制的利器随着工业自动化的快速发展,PLC(Programmable Logic Controller,可编程逻辑控制器)已经成为现代生产线上不可或缺的设备之一。
而要使PLC实现与计算机的通讯,以实现更高级别的控制和监测功能,则需要借助VB(Visual Basic)编程语言。
本文将介绍PLC网口VB通讯的基本原理以及其在实际应用中发挥的重要作用。
一、PLC网口VB通讯基本原理PLC网口VB通讯主要是通过以太网接口实现的。
PLC通过网口与上位机进行通信,由VB程序控制上位机与PLC之间的数据交换。
具体而言,PLC网口VB通讯需要解决以下几个关键问题:1. 协议选择:PLC通常支持多种通信协议,例如MODBUS、OPC等。
在选择协议时需要根据具体应用场景和PLC型号进行判断,并根据协议规范进行编程。
2. IP地址设置:为了确保上位机与PLC能够互相识别和连接,需要为PLC和上位机分配合适的IP地址,并设置子网掩码和默认网关等网络参数。
3. 数据格式与交换:在PLC网口VB通讯中,数据格式的定义和交换非常关键。
通常情况下,可以利用VB编程实现数据的读取、写入和解析,以实现与PLC之间的数据交互。
二、PLC网口VB通讯的实际应用PLC网口VB通讯在许多领域都得到了广泛的应用,为企业的生产控制和监测提供了可行的解决方案。
下面以几个实际案例进行介绍:1. 智能制造:在智能制造领域,PLC网口VB通讯可以实现生产流程的高度自动化和集成化管理。
通过与上位机的通讯,PLC 可以接收指令进行实时控制,并将生产数据反馈给上位机,以便进行数据分析和优化。
2. 物流仓储:在物流仓储领域,PLC网口VB通讯可以实现仓库的自动化控制和货物追踪。
利用上位机与PLC进行通讯,可以实时监测仓库存货情况,并对货物进行分类、分拣和入库等操作。
3. 能源管理:在能源管理领域,PLC网口VB通讯可以实现对能源设备的监控和控制。
vb与plc网口通讯在工业自动化领域,VB和PLC之间的网口通讯是非常重要的一项技术。
VB(Visual Basic)是一种基于Windows操作系统的编程语言,而PLC(Programmable Logic Controller)是一种专门用于控制工业过程的计算机控制系统。
通过实现VB与PLC之间的网口通讯,可以实现双方之间的数据交互,从而实现工业自动化系统的监控和控制。
一、背景介绍随着工业自动化的快速发展,PLC在工业控制领域中的应用越来越广泛。
而VB作为一种高级对象化、事件驱动的编程语言,具有编写人机界面友好的优点。
因此,将VB与PLC进行网口通讯,不仅可以充分发挥PLC的控制能力,还可以利用VB的强大的界面开发能力,实现工业自动化系统的可视化管理。
二、VB与PLC网口通讯的原理VB与PLC之间的网口通讯主要基于TCP/IP协议。
PLC通过提供基于TCP/IP的通信模块,作为服务器等待VB的连接请求。
而VB则作为客户端,向PLC发起连接请求。
一旦连接成功,VB就可以通过TCP/IP协议与PLC进行双向数据交互。
三、VB与PLC网口通讯的步骤1. 确定PLC的IP地址和端口号。
在进行VB与PLC的网口通讯之前,首先需要确定PLC的IP地址和端口号。
通常情况下,这些参数会在PLC的配置软件中进行设置。
2. 使用VB的Socket控件实现通信。
在VB中使用Socket控件,可以方便地实现与PLC的网口通信。
通过设置Socket的IP地址和端口号,VB可以与PLC进行连接,并通过Socket发送和接收数据。
3. 编写VB程序与PLC进行数据交互。
通过Socket控件,VB可以发送指令给PLC,以实现对PLC的控制。
同时,VB还可以从PLC中读取数据,实现对工业自动化过程的监控。
四、VB与PLC网口通讯的应用1. 监控工业过程。
通过VB与PLC的网口通讯,可以实时获取PLC中的数据,并将这些数据可视化地呈现在VB的界面上。
VB与PLC之间通讯VB与AB PLC之间通讯AB系列PLC一般都有专用驱动程序用于实现PLC和计算机之间通讯,如RSLINX 就是专门用于做这项工作,但使用RSLINX也具有一定局限性,这里提供一个使用VB编程实现PLC和计算机之间通讯程序,使用协议是DF1,可以支持Micrologix、SLC500等系列PLC。
使用代码如下:Option ExplicitDim tns%, comunicatingPrivate Sub Command1_Click()ReDim tb%(10)Dim stIf ReadTable(0, tb%()) ThenFor st = 0 To 9 '显示结果Text1.SelText = Str(tb%(st)) + Chr(32)Next stText1.SelText = Chr(13) + Chr(10)End IfEnd SubPrivate Sub Command2_Click()ReDim tm%(5)tm%(0) = Rnd * 32768tm%(1) = Rnd * 32768tm%(2) = Rnd * 32768tm%(3) = Rnd * 32768tm%(4) = Rnd * 32768If Not WriteTable(4, tm%()) Then Text1.SelText = "写入错误!!" End SubPrivate Sub Exit_Click()Unload MeEndEnd SubPrivate Sub Form_Load()Comm1.PortOpen = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer)Comm1.PortOpen = FalseEnd SubPrivate Sub CalcCRC(mes$)Dim byt%, res&'对消息进行crc校验,然后将结果添加到消息结尾。
基于VB6.0的上位机与PLC实时通信技术一、实时通信技术在工业控制系统中的重要性实时通信技术在工业控制系统中扮演着十分重要的角色。
在现代工业控制系统中,各种设备之间需要进行及时、准确的信息交换,以保证整个系统的正常运行。
在许多工业控制系统中,PLC往往承担着实时数据采集、逻辑控制、设备状态监测等任务,而上位机则需要通过实时通信技术与PLC进行数据交换和控制命令的下发。
实时通信技术的稳定性和可靠性对整个工业控制系统的运行至关重要。
基于此,基于VB6.0的上位机与PLC实时通信技术成为了工程师们需要深入研究和掌握的技术。
二、VB6.0在上位机开发中的应用VB6.0是一种非常成熟、功能强大的软件开发工具,拥有良好的可视化设计界面和强大的编程功能。
在工业自动化领域,基于VB6.0的上位机开发具有以下几个优势:1. 易于学习和使用。
VB6.0的编程语言结构清晰、简单易懂,对于工程师来说比较容易上手。
2. 丰富的控件库。
VB6.0提供了丰富的控件库,可以方便地实现各种窗体界面的设计和功能的实现。
3. 良好的可视化设计界面。
VB6.0提供了良好的可视化设计界面,可以直观地设计界面布局和控件功能。
4. 广泛的应用领域。
VB6.0已在工业控制系统中得到了广泛的应用,积累了大量的经验和案例,为工程师们提供了丰富的技术支持和解决方案。
基于VB6.0的上位机开发在工业控制系统中得到了广泛的应用。
在后文中,我们将结合VB6.0的优势,介绍基于VB6.0的上位机与PLC实时通信的具体实现方法。
基于VB6.0的上位机与PLC实时通信的具体实现方法通常包括以下几个步骤:1. 建立通信连接。
通常情况下,PLC与上位机之间的通信连接可以通过串口、以太网等方式实现。
在VB6.0中,我们可以利用其提供的串口通信、Socket通信等控件来建立与PLC的通信连接。
2. 设计数据交换协议。
在进行实时通信时,上位机与PLC之间需要进行数据的交换。
利用VB6.0 实现PC 与三菱PLC 的通信本文介绍的 PC 与三菱 FX 系列 PLC 通信,是通过 PLC 的编程口与 PC 机的串口进行的,采用编程电缆作为计算机与 PLC 通信的连线。
FX2系列PLC的编程接口采用RS-422标准,而计算机的串行口采用的是RS-232标准,因此作为实现PLC与计算机通信的接口模块FX-232AW,必须将RS-422标准转换成RS-232标准,同时在实现上述过程中采用光电隔离技术。
图1一、串口的相关知识1)串行通信的概念图2所谓“串行通信”是指外设和计算机间使用一根数据信号线(另外需要地线,可能还需要控制线),数据在一根数据信号线上一位一位地进行传输,每一位数据都占据一个固定的时间长度。
如图2所示。
这种通信方式使用的数据线少,在远距离通信中可以节约通信成本,当然,其传输速度比并行传输慢2)常见的串口通信规约:目前较为常用的串口有9针串口(DB9)和25针串口(DB25),通信距离较近时(<12m),可以用电缆线直接连接标准RS232端口(RS422,RS485较远),若距离较远,需附加调制解调器(MODEM)。
最为简单且常用的是三线制接法,即地、接收数据和发送数据三脚相连,且直接用RS232相连。
RS-232C: “1”=-3~-15;“0”=+3~+15速率:0~20000bps;一般传输距离:15m。
RS-422:采用平衡传输,平衡发送器、差动接收器,速率:10Mbps/15m;90Kbps/1200m抗干扰能力强。
DB9和DB25的常用信号脚说明由于FX 2-232AW 价格过贵所以我们选用选用MAXIM 公司的MAX202实现RS-232与TTL 之间的电平转换。
MAX202内部有电压倍增电路和转换电路,仅需+5V 电源就可工作,使用十分方便;选用MAX490实现RS-485与TTL 之间的转换。
每片MAX490有一对发送器/接收器,由于通信采用全双工方式,故需两片MAX490,另外只需外接4只电容即可。
5.3 利用VB
6.0编写通信程序
命令报文中10F6H为D123的地址,04H表示要读入4个字节的数据。
校验和SUM=30H+31H+30H+46H+36H+30H+34H+03 H=174H,溢出部分不计,故SUMH=7,SUAIL=4,相应的ASCⅡ码为“37H”,“34H”。
应答报文中4个字节的十六进制数,其相应的ASCⅡ码为8个字节,故应答报文长度为12个字节。
根据PC与FX系列PLC的传输应答过程,利用VB的MSComm控件可以编写如下通信程序实现PC与FX系列PLC之间的串行通信,以完成数据的读取。
MSComm控件可以采用轮询或事件驱动的方法从端口获取数据。
在这个例子中使用了轮询方法。
(1)通信口初始化
Private Sub Initialize()
MSComm1.CommPort =1
MSComm1.Settings = “9600,E,7,1”
MSComm1.InBufferSize = 1024
MSComml.OutBuffersize = 1024
MSComm1.InputLen = 0
MSComml.InputMode = comInputText
MSComm1.Handshaking = comNone
MSComm1.PortOpen = True
End Sub
(2)请求通信与确认
Private Function MakeHandshaking()As Boolean
Dim InPackage As String
MSComml.OutBufferCount = 0
MSComml.InBufferCount = 0
MSComml.OutPut = Chr(&H5)
Do
DoEvents
Loop Until MSComml.InBufferCount = 1
InPackage = MSComml.Input
If InPackage = Chr(&H6)Then
MakeHandShaking = True
Else
MakeHandshaking = False
End If
End Function
(3)发送命令报文
Private Sub SendFrame ()
Dim Outstring As String
MSComml.OutBufferCount = 0
MSComml.InBufferCount = 0
Outstrin = Chr(&H2)+″on″+″10F604″+Chr(&H3)+″74″
MSComml.Output = Outstring
End Sub
(4)读取应答报文
Private Sub ReceiveFrame()
Dim Instring As String
Do
DoEvents
Loop Until MSComml.InBufferCount = 12
InString = MSComml.Inpult
End Sub
5.4 MSCOMM控件的属性
CommPort:设定通信连接端口代号,程序必须指定所要使用的串行端口号,Windows系统使用所设定的端口与外界通信。
PortOpen:设定通信口状态,若为真,通信端口打开,否则关闭。
Settings:设定通信口参数,其格式是"bbbb,p ,d,s",其中bbbb为通信速率(波特率),p为通信检查方式(奇偶校验), d 为数据位数,s 为停止位数,其设定应与PLC的设定一致。
*Input:将对方传送至输入缓冲区的字符读入到程序。
Output:将字符写入输出缓冲区。
InBufferCount:传回接收缓冲区中的字符数。
*OutBufferCount:传回输出缓冲区中的字符数。
InputLen:设定串行端口读入字符串的长度。
*InputMode:设定接收数据的方式。
Rthreshold:设定引发接收事件的字符数。
CommEvent:传回OnComm事件发生时的数值
码 OnComm事件:无论是错误或事件发生,都会触发此事件。
(1) 控件参数的初始化。
初始化程序如下:
Port=2 `使用串口Com2
Mscomm.Settings="9600, E, 7, 2" `波特率9600,偶校验,7位数据位,2位停止位 Mscomm.PortOpen=True `打开通信端口,准备通信 (2) 计算校验码FCS,计算FCS的VB自定义函数如下
: Function FCS(ByVal InputStr As String) As String Dim Slen, i, Xorresult As Integer Dim Tempfes As String
Slen=Len(InputStr) `求输入字符串长度 Xorresult = 0
For i = 1 To Slen
Xorresult = Xorresult Xor Asc(Mid$(InputStr, i, 1)) `按位异或 Next i
Tempfes=Hex$(Xorresult) `转化为16进制
If Len(Tempfes)=1Then Tempfes =“0” Tempfes FCS = Tempfes End Function
(3) 计算机与PLC通信程序。
主要是一个自定义函数。
Function ReadData(ByVal InputStr As String, ByVal Num As Integer) As String Dim OutputStr As String Dim InString As String Dim ReturnStr As String Dim EndSt ring As String Dim FCSString As String
Dim ReturnFCSString As String) MSComm.InBufferCount=0
OutputStr=InputStr FCS(InputStr) “*” `给出命令
帧 MSComm.Output=OutputStr Chr$(13) `向PLC传送命令
帧 Do DoEvents Loop While MSComm.InBufferCount < 15 InString=MSComm.Inp ut `获取PLC的响应帧 `结束码判
断 EndString = Mid$(InString, Len(InString) - Num- 5, 2) If EndString = "13" Then ReadData = "Error" Exit Function
ElseIf EndString = "14" Then ReadData = "Error" Exit Function
ElseIf EndString = "15" Then ReadData = "Error" Exit Function
ElseIf EndString = "18" Then ReadData = "Error" Exit Function
ElseIf EndString = "A3" Then ReadData = "Error" Exit Function
ElseIf EndString = "A8" Then
ReadData = "Error" Exit Function End If
`响应帧校验
EndString = Mid$(InString, 1, Len(InString) - 4)
ReturnFCSString = Mid$(InString,Len(InString) - 3, 2) FCSString = FCS(EndStr ing)
If FCSString <> ReturnFCSString Then ReadData = "Error" Exit Function End I f
ReturnStr = Mid$(InString, Len(InString) - Num - 3, Num) ReadData = ReturnS tr End Function
从上面程序可以看到,计算机对PLC返回的响应帧要进行FCS校验,并利用异常码排除返回的异常数据,这样不但可以提高计算机获取信息的正确性,而且提高了计算机监控的实时性。