VB串口通信与PLC实例
VB与PLC通信程序(欧姆龙PLC).doc
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 ’读完应答帧上述程序具有相当的通用性，对于其它设备不同的只是各自的数据帧格式，因而只需做相应少量修改即可。
vb与plc通讯(以西门子S7-200为例)
vb与plc通讯(以西门子S7-200为例)S7-200 PLC之PPI协议通过硬件和软件侦听的方法，分析PLC内部固有的PPI通讯协议，然后上位机采用VB编程，遵循PPI通讯协议，读写PLC数据，实现人机操作任务。
这种通讯方法，与一般的自由通讯协议相比，省略了PLC的通讯程序编写，只需编写上位机的通讯程序资源S7-226的编程口物理层为RS-485结构，SIEMENS提供MicroWin软件，采用的是PPI(Point to Point)协议，可以用来传输、调试PLC程序。
在现场应用中，当需要PLC与上位机通讯时，较多的使用自定义协议与上位机通讯。
在这种通讯方式中，需要编程者首先定义自己的自由通讯格式，在PLC中编写代码，利用中断方式控制通讯端口的数据收发。
采用这种方式，PLC 编程调试较为烦琐，占用PLC的软件中断和代码资源，而且当PLC的通讯口定义为自由通讯口时，PLC的编程软件无法对PLC进行监控，给PLC程序调试带来不便。
SIEMENSS7-200PLC的编程通讯接口，内部固化的通讯协议为PPI协议，如果上位机遵循PPI协议来读写PLC，就可以省略编写PLC的通讯代码。
如何获得PPI协议？可以在PLC的编程软件读写PLC数据时，利用第三个串口侦听PLC的通讯数据，或者利用软件方法，截取已经打开且正在通讯的端口的数据，然后归纳总结，解析出PPI协议的数据读写报文。
这样，上位机遵循PPI协议，就可以便利的读写PLC内部的数据，实现上位机的人机操作功能。
软件设计系统中测控任务由SIEMENSS7-226PLC完成，PLC采用循环扫描方式工作，当定时时间到时，执行数据采集或PID控制任务，完成现场的信号控制。
计算机的监控软件采用VB编制，利用MSComm控件完成串口数据通讯，通讯遵循的协议为PPI协议。
PPI协议西门子的PPI（Point to Point）通讯协议采用主从式的通讯方式，一次读写操作的步骤包括：首先上位机发出读写命令，PLC作出接收正确的响应，上位机接到此响应则发出确认申请命令，PLC则完成正确的读写响应，回应给上位机数据。
上位机VB实现与三菱PLC的串行通讯
上位机VB实现与三菱PLC的串行通讯上位机VB实现与三菱PLC的串行通讯1. 通行原理与方法上位机要能够通过PLC监控下层设备的状态，就要实现上位机与PLC间的通信，一般工业控制中都是采用RS232C实现。
上位机首先向PLC发送查询数据的指令(实际上是查询PLC中端子的状态和DM 区的值等)，PLC接收了上位的指令后，进行校验(FCS校验码)，看其是否正确，如果正确，则向上位机传送数据(包含首尾校验字节)。
否则，PLC拒绝向上位机传送数据。
上位接收到PLC传送的数据，也要判断正确与否，如果正确，则接收，否则，拒绝接收。
由于CPM1A没有提供串行通信口，我们利用其提供的外设端口实现通信。
PLC与计算机之间的连接是通过OMRON提供的专用电缆CQM1-CIF01来实现的，其硬件连接图如图1所示。
(见附图）2. PLC与计算机间的通信规约计算机与PLC间的通信是以“帧”为单位进行的，并且在通信的过程中，计算机具有更高的优先级。
首先，计算机向PLC发出命令帧，然后，PLC作出响应，向计算机发送回响应帧。
其中命令帧和响应帧的格式如下:(1) 命令帧格式。
为了方便计算机和PLC的通讯，CPM1A对在计算机连接通信中交换的命令和响应规定了相应的格式。
当计算机发送一个命令时，命令数据主准备格式如图2所示。
(见附图）其中@放在首位，表示以@开始，设备号为上位机识别所连接的PLC的设备号。
识别码为命令代码，用来设置用户希望上位机完成的操作，FCS为帧检验代码，一旦通信出错，通过计算FCS可以及时发现。
结束符为“*”和CR回车符，表示命令结束。
(2) 响应帧格式。
由PLC发出的对应于命令格式的响应帧格式如图3所示。
(见附图）其中，异常码可以确定计算机发送的命令是否正确执行。
其它的与正文中的含义相同。
正文仅在有读出数据时有返回。
3. 通信程序的设计为了充分利用计算机数据处理的强大功能，我们可以采用计算机有优先权的方式，在计算机上编写程序来实现计算机与PLC的通信，计算机向PLC发出命令发起通信，PLC自动返回响应。
plc网口vb 通讯
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实现电脑与三菱Q00PLC的串行通信
在Windows平台下利用VB实现电脑与三菱Q00PLC的串行通信发布: 2011-9-8 | 作者: —— | 来源:liujiada| 查看: 445次| 用户关注：摘要：本文分析了Windows环境下串行通信的编程技术，介绍了在Windows环境下用VB6.0语言编写串行通信程序，实现了PC机与三菱Q00PLC之间的串行通信，并提出了在实际应用中提高串行通信性能的方法。
关键词：VB；Win32API函数；串行通信；Q00PLC一概述在工业控制中,串口是常用的计算机与外部串行设备之间的数据传输通道。
由于串行通信结构简单、可靠性强、实现及使用成本低、通讯标准统一，因此在测控系统和工程中应用十分广泛。
目前Wi摘要：本文分析了Windows环境下串行通信的编程技术，介绍了在Windows环境下用VB6.0语言编写串行通信程序，实现了PC机与三菱 Q00PLC之间的串行通信，并提出了在实际应用中提高串行通信性能的方法。
关键词：VB；Win32API函数；串行通信；Q00PLC一概述在工业控制中,串口是常用的计算机与外部串行设备之间的数据传输通道。
由于串行通信结构简单、可靠性强、实现及使用成本低、通讯标准统一，因此在测控系统和工程中应用十分广泛。
目前Windows在工业生产监控管理系统中已成为主流平台，Windows环境下的上、下位机之间的串行通信是设计与开发监控管理系统和集散控制系统的重要组成部分。
Microsoft公司的VB++6.0是一种高级编程语言，它提供的串列通信控件封装了封装了Win32API中的标准通信函数，可以让开发者方便开发串列通信上位机程序。
PLC是现在控制领域不可缺少的部分，已经非常普及，如何简便的与PLC交互已经成为众多厂商新的竞争战场。
由此产生了人机界面、组态软件等产品。
这些产品的产生大大简化了对PLC的控制，操作，使用更方便。
但也有共同的缺点：价格过高和开放性较差。
VB作为“原始＂的编程语言在这两方面无疑有着明显的优势。
PLC与VB6.0串口通讯案例
1、引言可编程控制器以其高可靠性，配置灵活和完善的功能，在工业控制系统中得到越来越广泛的应用。
但对于操作员所需要的报表打印、趋势图形显示、工况查寻、参数在线修改等功能，PLC却不能直接方便地提供。
所以通常采用计算机PC与PLC组成一个完整的监控系统。
本文以台安TP02系列PLC为例，讨论用Visual Basic(VB)实现PLC与上位机的通讯2、VB在通讯控件中的使用可编程控制器PLC与上位机PC之间的通信，下位机为PLC，基于其可靠性极高，主要承担控制功能，而上位PC机主要承担监察管理功能，有时兼备部分控制功能，如发出运行，停止命令。
VB语言是基于WINDOWS操作系统的功能强、易学易用、主要是面向学习对象的程序设计语言。
VB带有专门管理串行通讯的MSComm控件，只需设置几个主要参数就可以实现PLC与PC串行通讯。
要完成通信必须设置MSComm的相关属性值：（1）CommPort：设置或传回通信连接端口代号（2）Settings：设置初始化参数。
以字符串的形式设置或传回连接速度、奇偶校验、数据位、停止位等4个参数（3）PortOpen：设置或传回通信连接端口的状态（4）Input：从输入寄存器传回并移除字符（5）Output：将一个字符串写入输出寄存器（6）InputLen：指定由串行端口读入的字符串长度（7）InBu FF erCount：传回在接收寄存器中的字符数3、软硬件之间：台安TP02与上位机PC通信时，为了实现两者的通信需要配备通信线。
4、通信程序的实现4.1 通信初始化程序首先，在窗体开始设计之前，添加MSComm控件。
4.2程序编写：4.2.1 通信控件MSComm1属性设置：mPort = 1 设置端口号MSComm1.Settings = "19200,E,7,2" 设置通信参数MSComm1.InputLen = 0 设置读入字符串长度MSComm1.PortOpen = True 设置通信端口状态4.2.2 PLC运行程序：STX$ = "::"TransmitBuf$ = "01?5RUN"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBu FF erCount >= 12In1$ = MSComm1.Input4.2.3 从PLC读取资料，将寄存器内的数据资料在PC上显示以便观察监控（反应时间50ms）：STX$ = "::"transmitBuf$ = "01?5MRVD000102"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 20InData$ = MSComm1.InputLabel2.Caption = Mid$(InData$, 10, 4)Label3.Caption = Mid$(InData$, 14, 4)4.2.4从PLC读取资料，将RelayC0001状态通过PC显示进行监控（反应时间50ms）：STX$ = "::"transmitBuf$ = "01?5MCRC0001"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 13In4$ = MSComm1.InputCoil$ = Mid$(In4$, 10, 1)C1% = CInt(Coil$)Label6.Caption = C1%4.2.5 设定Relay状态，将Relay设定为ON（反应时间50ms）：Dim C1 As IntegerSTX$ = "::"transmitBuf$ = "01?5SCSY00011"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 12In2$ = MSComm1.Input4.2.6 PLC停止运行：STX$ = "::"transmitBuf$ = "01?5STP"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 12In3$ = MSComm1.Input4.2.7 VB6.0下CheckSum函数代码如下：Private Function CheckSum(transmitBuf$)L = Len(transmitBuf$)Add = 0Dim k, sum As IntegerFor k = 1 To LTJ$ = Mid$(transmitBuf$, k, 1)Add = Add + Asc(TJ$)Next kDo While Add >= 256Add = Add - 256LoopAdd = 255 - Add + 1tempBuf$ = Hex$(Add)CheckSum = LTrim(tempBuf$)End Function5、结论PLC与上位机的结合，并通过VB6.0传送数据所构成的计算机监控系统，对于近距离传输数据的现场控制来说是一种性价比很高的解决方案。
VB实现PC与欧姆龙PLC通讯的串口编程
VB实现PC与欧姆龙PLC通讯的串口编程第一篇：VB实现PC与欧姆龙PLC通讯的串口编程Private Sub Form_Load()Dim i As Integer'OPEN COM1If ComTrue(1)= 0 ThenIf ComOpen(1, 38400, 7, 1, 1, “sjh”)= 1 Then 'MsgBox(“已注册”)'sjh为你的注册账号Call SetDelayNum(64)End IfEnd Ifjisujisu1jisu2End Sub第二篇：VB中串口通讯的实现VB中串口通讯的实现.txt VB中串口通讯的实现------------------一、概述串口通讯作为一种古老而又灵活的通讯方式，被广泛地应用于PC 间的通讯以及PC和单片机之间的通讯之中。
提到串口通讯的编程，人们往往立刻想到C、汇编等对系统底层操作支持较好的编程语言以及大串繁琐的代码。
实际上，只要我们借助相关ActiveX控件的帮助，即使是在底层操作一向不被人看好的VB中，一样能够实现串口通讯，甚至其实现方法和C、汇编相比，要更加快捷方便。
下面，笔者就介绍一下在VB 中实现串口通讯的方法。
在Visual Basic中有一个名为Microsoft Communication Control（简称MSComm）的通讯控件。
我们只要通过对此控件的属性和事件进行相应编程操作，就可以轻松地实现串口通讯。
下面，笔者就简要地介绍一下MSComm控件的使用方法。
二、MSComm控件的主要属性、事件1、MSComm的属性由于MSComm控件属性很多，在此笔者仅介绍与实现串口通讯密切相关的核心属性。
Commport：设置通讯所占用的串口号。
如设成1（默认值），表示对Com1进行操作。
Setting：对串口通讯的相关参数。
包括串口通讯的比特率，奇偶校验，数据位长度、停止位等。
其默认值是“9600,N,8,1”，表示串口比特率是9600bit/s，不作奇偶校验，8位数据位，1个停止位。
VB串口通信程序设计典型实例{修}
V B串口通信程序设计典型实例利用VB开发串口通信程序既可以使用MSComm控件也可以调用Windows API函数实现。
不过，只要MSComm控件可以被选用，我们推荐选择此控件实现，因为MSComm控件的功能和API调用一样强，甚至比它还好且使用起来更加简单。
在本章提供的串口通信程序设计中，除了PC与PC串口通信外，PC与单片机、PC与智能仪表、PC与PLC、PC与GSM短信模块等串口通信任务的实现均采用MSComm控件。
6.1 PC与PC串口通信程序设计当两台串口设备通信距离较近时，可以直接连接，最简单的情况，在通信中只需3根线（发送线、接收线、信号地线）便可实现全双工异步串行通信。
本设计通过两台PC串口3线连接，介绍了利用API函数和MSComm控件设计串口通信程序的方法，包括字符与文件的发送与接收。
6.1.1 PC与PC串口通信程序设计目的（1）掌握PC与PC串口通信的线路连接方法。
（2）利用MSComm控件和API函数实现PC与PC串口通信的程序设计方法。
6.1.2 PC与PC串口通信程序设计用软、硬件本设计用到的硬件和软件清单如表6-1所示。
表6-1设计用软、硬件6.1.3 PC与PC串口通信程序硬件线路图线路说明，在计算机通电前，按图6-1所示将两台PC通过串口线连接起来：计算机A 串口COM1端口的TXD与计算机B串口COM1端口的RXD相连，计算机A串口COM1端口的RXD与计算机B串口COM1端口的TXD相连，计算机A串口COM1端口的GND与计算机B串口COM1端口的GND相连。
图6-1 PC与PC串口通信线路6.1.4 设计任务利用MSComm控件和VB API函数编写程序实现PC与PC串口通信。
任务要求，两台计算机互发字符并自动接收，如一台计算机输入字符串“Please return abc123”，单击“发送字符”命令，另一台计算机若收到，就输入字符串“abc123”，单击“发送字符”命令，信息返回到第一组的计算机。
VB与PLC通讯
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校验，然后将结果添加到消息结尾。
基于VB的上位机与PLC的串行通信
基于VB的上位机与PLC的串行通信1 引言在现代控制系统中，pc机作为上位机负责系统管理、状态监控、信息处理和打印报表等工作，plc作为下位机进行面向现场的实时控制已成为一种典型的系统结构。
因此，pc机与plc之间的通信问题便成了系统能否实现的关键。
串行通信以其接线简单、容易实现的特点得到了广泛的应用。
visual basic编程软件简单易学、功能强大，利用它可以很方便的实现pc机与plc间的串行通讯。
本文以omron公司的cpm2a plc为例，介绍了利用vb6.0实现pc机与plc串行通讯的具体方法。
omron公司的cpm2a plc支持host-link通信协议，可以与上位计算机进行通信。
使用host-link通信协议构成的通信网络，可以很方便的实现上位pc对下位plc的实时监控。
2 原理设计2.1 系统结构系统结构如图1所示，计算机作为上位机，plc作为下位机，因omron cpm2a本身带有rs-232串口，因此，利用rs-232电缆将其与pc机的串口(com1或com2)相连，便构成了一个1：1的简单的通讯系统[1]。
图1 系统结构2.2 host-link通信协议[2]omron公司的host-link通信系统是由上位计算机(ibm pc或兼容机)通过安装在各台p lc上的host-link单元连接多台plc构成的网络。
上位机对系统中的plc进行集中管理与监控，通过与host link单元的通信，可以编辑或修改各台plc的程序，实时监控其运行过程，实现自动化系统的集散控制。
对于小型plc，也可以通过其rs 232c通信端口进行链接。
系统使用host-link通信协议进行通信，上位机具有传送优先权，总是首先发出命令并启动通信，host link单元收到命令交由plc执行，然后将执行结果返回上位机，二者以通信帧为单位，轮流交换数据。
通信时一组传送的数据称为“块”，它是命令或响应的单位，从上位机发送到host -link单元的数据块称为命令块，反过来，从host- link单元发送到上位机的数据块称为响应块。
VB与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只电容即可。
怎样才能让VB和PLC相互通讯传输数据
性)按钮，打开属性对话框。将“MPI”栏中的“TransmissionRate”(波特率)设置为187．5 kbit／s，其他参数可以采用默认设置。在“Local Connection”选项卡“COM Port”选择框中设置实际使用的Pc串口的编号，波特率可以设置为19．2 kbit／s
2．用OPC Server软件实现通信连接
西门子的PLC,除了用组态软件可以和PLC通讯外,也可以用VB和它通讯,但是必须利用西门子公司发布的PRODAVE软件包(其实就是一个库函数包).PRODAVE提供了大量函数,我门可以利用这些函数解决PLC与PC的数据交换和处理.当然这些函数是可以在VB中调用的,只要在模块里声明一下就可以了. 给你举两个简单例子: load tool.这个用来将计算机与PLC连接起来, unload tool.是用来断开连接的. a_field_read(a,b,c).这个可以从PLC读取数据到计算机 a_field_write(a,b,c).用来写数据到PLC. 就举这么四个典型例子,看起来似乎挺简单,其实还有好多好多问题需要解决,比如从PLC不同的数据存储区读取数据所用的函数不同.还有初始的参数设置,地址设置,读写函数的参数设置,即使参数都设置对了,如何判断连接上否,即使连上了如何判断,数据读写有没有错误,有了错误如何判断是哪种错误.所以,也许你能看出,PLC和PRODAVE的知识在编写中的关键性并不低于VB. 一般都是用PLC的串口编一个协议，然后利用VB里面的通讯控件进行通讯的。例如omron是用hostlink来做的。三菱一般是用RS指令，松下是用trns来做的。
vb与plc通讯(以西门子S7-200为例)
vb与plc通讯(以西门子S7-200为例)S7-200 PLC之PPI协议通过硬件和软件侦听的方法，分析PLC内部固有的PPI通讯协议，然后上位机采用VB编程，遵循PPI通讯协议，读写PLC数据，实现人机操作任务。
这种通讯方法，与一般的自由通讯协议相比，省略了PLC的通讯程序编写，只需编写上位机的通讯程序资源S7-226的编程口物理层为RS-485结构，SIEMENS提供MicroWin软件，采用的是PPI(Point to Point)协议，可以用来传输、调试PLC程序。
在现场应用中，当需要PLC与上位机通讯时，较多的使用自定义协议与上位机通讯。
在这种通讯方式中，需要编程者首先定义自己的自由通讯格式，在PLC中编写代码，利用中断方式控制通讯端口的数据收发。
采用这种方式，PLC 编程调试较为烦琐，占用PLC的软件中断和代码资源，而且当PLC的通讯口定义为自由通讯口时，PLC的编程软件无法对PLC进行监控，给PLC程序调试带来不便。
SIEMENSS7-200PLC的编程通讯接口，内部固化的通讯协议为PPI协议，如果上位机遵循PPI协议来读写PLC，就可以省略编写PLC的通讯代码。
如何获得PPI协议？可以在PLC的编程软件读写PLC数据时，利用第三个串口侦听PLC的通讯数据，或者利用软件方法，截取已经打开且正在通讯的端口的数据，然后归纳总结，解析出PPI协议的数据读写报文。
这样，上位机遵循PPI协议，就可以便利的读写PLC内部的数据，实现上位机的人机操作功能。
软件设计系统中测控任务由SIEMENSS7-226PLC完成，PLC采用循环扫描方式工作，当定时时间到时，执行数据采集或PID控制任务，完成现场的信号控制。
计算机的监控软件采用VB编制，利用MSComm控件完成串口数据通讯，通讯遵循的协议为PPI协议。
PPI协议西门子的PPI（Point to Point）通讯协议采用主从式的通讯方式，一次读写操作的步骤包括：首先上位机发出读写命令，PLC作出接收正确的响应，上位机接到此响应则发出确认申请命令，PLC则完成正确的读写响应，回应给上位机数据。
用VB写的程序与施耐德PLC(PLC型号BMX P34 2020)实现以太网通信.
用VB写的程序与施耐德PLC（PLC型号：BMX P34 2020）实现以太网通信。
调用winsock 控件，采用modbus协议。
已经顺利实现读线圈、写线圈、读寄存器整数、读寄存器浮点数。
（唯独没有写寄存器成功，原因在下）因为有个很奇怪的问题，在所有的读写过程中，不管是地址还是数据内容，每个字节都不可以超过&H80（十六进制数80）。
比如：向字寄存器%MW42 写数据，该寄存器存的是整数，数据长度为一个字（也就是16位二进制，4位16进制字符）：运行结果如下：一、向寄存器%MW42（其地址为十六进制数002A）写入字符&H000F,运行结果如下：%MW42数据类型如下：整数1、VB里的发送数据程序：（1）Private Sub Command1_Click()（2）Dim str2(12) As Byte（3）str2(0) = &H0 '交换识别号高字节，通常为0（4）str2(1) = &H0 '交换识别号低字节，通常为0（5）str2(2) = &H0 '协议识别号高字节，为0（6）str2(3) = &H0 '协议识别号低字节，为0（7）str2(4) = &H0 '字节长度高字节（8）str2(5) = &H6 '字节长度低字节（9）str2(6) = &HFF '单元识别号，确省为255（10）str2(7) = &H6 'modbus功能码，06为预置单寄存器（11）str2(8) = &H0 '寄存器的起始地址高字节（12）str2(9) = &H2A '寄存器的起始地址低字节（13）str2(10) = &H0 '数据内容高字节（14）str2(11) = &HF '数据内容低字节（15）Dim bStrQ As String（16）Dim Q As Integer（17）For Q = 0 To 11（18）bStrQ = bStrQ & Chr(str2(Q))（19）Next（20）Winsock1.SendData bStrQ（21）Exit Sub（22）End Sub1、运行之前2、运行之后一切正常。
VB控件Mscomm控件与PLC进行RS485(Modbus)通讯源码
V B控件M s c o m m控件与P L C进行R S485(M o d b u s)通讯源码本人用的是ModbusRTU通讯模式，通过计算机串口转RS485与外围设备通行通讯，读写外围设备指定地址里的数据，从而达到自动化控制远端设备。
DimHiByteAsByteDimLoByteAsByteDimCRC16LoAsByteDimCRC16HiAsByteDimReturnData(1)AsByteDimKAsIntegerDimCmdLenthAsIntegerPrivateSubCommand1_Click()K=Text9.Text'写6个字节Text13.Text=""'===========数组赋值输入代码=============================================================================== ========'<<算法一>>DimWriteStr()AsByteDimuAsIntegerReDimWriteStr(K+2)Foru=0ToKWriteStr(u)=Val("&H"&Text1(u).Text)Next'<<算法二>>DimCRC_2()AsByteDimvAsIntegerReDimCRC_2(K)Forv=0ToKCRC_2(v)=Val("&H"&Text1(v).Text)Next'============================================================================== ====================CallCRC161(CRC_2())CallCRC16(WriteStr(),K)MSComm1.InBufferCount=0'==========显示发送代码=============================================================================== =========DimmAsIntegerForm=0To23Ifm<=KThenText8(m).Text=Hex(WriteStr(m))ElseText8(m).Text=""EndIfNext'============================================================================== ====================WriteStr(K+1)=LoByteWriteStr(K+2)=HiByte'发送代码Text4.Text=""DimgAsIntegerForg=0ToK+2Text4.Text=Text4.Text+""+Hex(WriteStr(g))Next'写命令发送后,当接收到8个字节时中断CmdLenth=8MSComm1.RThreshold=CmdLenthMSComm1.Output=WriteStrEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()Label34.Caption="="Text13.Text=""K=Text9.Text'写6个字节'===========数组赋值输入代码=============================================================================== ========'<<算法>>DimCRC_2()AsByteDimvAsIntegerReDimCRC_2(K)Forv=0ToKCRC_2(v)=Val("&H"&Text1(v).Text)Next'============================================================================== ====================CallCRC161(CRC_2())CallCRC16(WriteStr(),K)MSComm1.InBufferCount=0'==========显示发送代码=============================================================================== =========DimmAsIntegerForm=0To23Ifm<=KThenText8(m).Text=Hex(WriteStr(m))ElseText8(m).Text=""EndIfNext'============================================================================== ====================WriteStr(K+1)=LoByteWriteStr(K+2)=HiByte'发送代码Text4.Text=""DimgAsIntegerForg=0ToK+2Text4.Text=Text4.Text+""+Hex(WriteStr(g))Next'读命令发送后,当接收5+SendStr(5)*2个字节时产生中断CmdLenth=5+WriteStr(5)*2MSComm1.RThreshold=CmdLenthMSComm1.Output=WriteStr'发送命令'****************************************************************************** **********************************************************'****************************************************************************** *************************************'****************************************************************************** **********************************************************'DimsAddrAsString''DimCheckStringAsString'DimCheckCodeAsString'DimCmdCodeAsString'DimSumAsInteger'DimaAsInteger'DimtmpAsString'a=0'tmp=0''''DoWhileLen(tmp)<8''tmp=tmp+MSComm1.Input'testNO.Caption=testNO.Caption+""+Str(Hex(Asc(tmp)))'a=a+1'Ifa>=3000Then'MSComm1.PortOpen=False'ExitFunction'ExitDo'EndIf'Loop'Label33.Caption=tmp'Text16.Text=Len(tmp)'DimnsAsInteger'Forns=1ToLen(tmp)'Label34.Caption=Label34.Caption+"+"+Str(Asc(Mid(tmp,ns,1))) ''Next'Label35.Caption=Str(Val(Asc(Mid(tmp,6,1)))/10)'''tmp=Mid$(tmp,6,4)'''DimstrHexAsString'DimHex2DecAsLong'DimstrTmpAsString'DimlongTmpAsLong'DimlongDecAsLong'DimintLenAsInteger'Dimn1AsInteger''strHex=Right$(tmp,2)+Left$(tmp,2)''intLen=Len(strHex)'Forn1=1TointLen'strTmp=Mid(strHex,n1,1)'SelectCaseAsc(strTmp)'Case48To57'longTmp=Val(strTmp)'Case65To70'longTmp=Asc(strTmp)-55'CaseElse'Hex2Dec=0''ExitFunction'EndSelect'Text13.Text=Text13.Text+"+"+Str(Asc(strTmp))'longDec=longDec+longTmp*16^(intLen-n1)'Nextn1''Hex2Dec=longDec'Text13.Text=Hex2Dec'****************************************************************************** **********************************************************'****************************************************************************** *************************************'****************************************************************************** **********************************************************EndSubPrivateSubMSComm1_OnComm()DimNeAsIntegermEventCasecomEvReceiveDimBufferAsVariantMSComm1.InputMode=comInputModeBinaryMSComm1.InputLen=0Buffer=MSComm1.InputForNe=LBound(Buffer)ToUBound(Buffer)Text13.Text=Text13.Text&"+"&Buffer(Ne)Label34.Caption=Buffer(3)&""&Buffer(4)NextNeCaseElseEndSelectBeepEndSubPrivateSubCommand4_Click()EndSubPrivateSubCommand5_Click()Label34.Caption="="EndSubPrivateSubForm_Load()MSComm1.Settings="9600,N,8,1"mPort=1MSComm1.SThreshold=0IfNotMSComm1.PortOpenThenMSComm1.PortOpen=TrueEndSubPrivateSubTimer1_Timer()'显示<<算法一>>结果Text2.Text=Hex(HiByte)Text3.Text=Hex(LoByte)'显示<<算法二>>结果Text6.Text=Hex(CRC16Hi)Text7.Text=Hex(CRC16Lo)IfText5.Text<>""Then'十进制转十六进制Text10.Text=Hex(Text5.Text)EndIfIfText11.Text<>""Then'十六进制转十进制Text12.Text=Val("&H"&Text11.Text)EndIfText14.Text=MSComm1.OutBufferCountEndSub'==========CRC校验<<算法二>>=========================================================================== =============FunctionCRC161(data()AsByte)AsString'CRC计算函数'DimCRC16LoAsByte,CRC16HiAsByte'CRC寄存器DimCLAsByte,CHAsByte'多项式码&HA001DimSaveHiAsByte,SaveLoAsByteDimIAsIntegerDimFlagAsIntegerCRC16Lo=&HFFCRC16Hi=&HFFCL=&H1CH=&HA0ForI=0ToUBound(data)CRC16Lo=CRC16LoXordata(I)'每一个数据与CRC寄存器进行异或ForFlag=0To7CRC16Hi=CRC16Hi\2'高位右移一位CRC16Lo=CRC16Lo\2'低位右移一位If((SaveHiAnd&H1)=&H1)Then'如果高位字节最后一位为1CRC16Lo=CRC16LoOr&H80'则低位字节右移后前面补1EndIf'否则自动补0If((SaveLoAnd&H1)=&H1)Then'如果LSB为1，则与多项式码进行异或CRC16Hi=CRC16HiXorCHCRC16Lo=CRC16LoXorCLEndIfNextFlagNextIDimReturnData(1)AsByteReturnData(0)=CRC16Hi'CRC高位ReturnData(1)=CRC16Lo'CRC低位asd=Right("00"+Hex(CRC16Lo),2)+Right("00"+Hex(CRC16Hi),2)EndFunctionPrivateSubmscomm_OnComm()EndSub。
VB与PLC通讯示例
2. 啤酒稀释的人机操作界面：
人机操作主要用来输入啤酒浓度数据、操作命令，直观显示各种流量数据并记录偏差曲线，界面图如下：
3. 硬件配置
本例子中上位机PC选用联想奔腾Ⅱ品牌机，外加RS232转RS485通讯转换卡。下位机PLC选用三菱FX2N-16MR，另加模拟输入模块FX2N-2AD 和模拟输出模块FX2N-2DA各一块,外加一个485串口通讯模块PC-485BD。
表格中粗体字为需要求和效验的部分；
和效验为每一项的ASCII值的总和转换成十六进制后，取其低两位；
站号、PLC号、元件数量、和效验都是以十六进制表示；
等待延时为0-150毫秒,以十六进制0H-FH表示，如100ms为AH。
1) 批量读出位元件—BR指令格式
1 2 3 4 5 6 7 8 15 16 17
PC侧： ENQ 站号 PLC号 BR 延时 首地址 数量 和校验 ACK 站号 PLC号
PLC侧： STX 站号 PLC号 数据 EXT 和校验
9 10 11 12 13 14
2) 计算出加水量的百分比 [(B-A) / A]*100% ；
3) 根据此百分比和高浓酒的瞬时流量，计算出脱氧水要达到的流量；
4) 比较水的瞬时流量和计算出的流源自，来控制水调节阀的开度，使水瞬时流量等于计算流量。
由于酒和水的瞬时流量是变化的，所以3）、4）步要反复进行。以上所有的计算功能和PID调节功能都由PLC完成。
cha = Val("&H" & iNum) * 4 ''数据寄存器的值为十六进制表示，占4个字符
Case "M", "X", "Y" ''查询继电器触电的值
vb与plc通讯
vb与plc通讯(以西门子S7-200为例)S7-200 PLC之PPI协议通过硬件和软件侦听的方法，分析PLC内部固有的PPI通讯协议，然后上位机采用VB编程，遵循PPI通讯协议，读写PLC数据，实现人机操作任务。
这种通讯方法，与一般的自由通讯协议相比，省略了PLC的通讯程序编写，只需编写上位机的通讯程序资源S7-226的编程口物理层为RS-485结构，SIEMENS提供MicroWin软件，采用的是PPI(Point to Point)协议，可以用来传输、调试PLC程序。
在现场应用中，当需要PLC与上位机通讯时，较多的使用自定义协议与上位机通讯。
在这种通讯方式中，需要编程者首先定义自己的自由通讯格式，在PLC中编写代码，利用中断方式控制通讯端口的数据收发。
采用这种方式，PLC 编程调试较为烦琐，占用PLC的软件中断和代码资源，而且当PLC的通讯口定义为自由通讯口时，PLC的编程软件无法对PLC进行监控，给PLC程序调试带来不便。
SIEMENSS7-200PLC的编程通讯接口，内部固化的通讯协议为PPI协议，如果上位机遵循PPI协议来读写PLC，就可以省略编写PLC的通讯代码。
如何获得PPI协议？可以在PLC的编程软件读写PLC数据时，利用第三个串口侦听PLC的通讯数据，或者利用软件方法，截取已经打开且正在通讯的端口的数据，然后归纳总结，解析出PPI协议的数据读写报文。
这样，上位机遵循PPI协议，就可以便利的读写PLC内部的数据，实现上位机的人机操作功能。
软件设计系统中测控任务由SIEMENSS7-226PLC完成，PLC采用循环扫描方式工作，当定时时间到时，执行数据采集或PID控制任务，完成现场的信号控制。
计算机的监控软件采用VB编制，利用MSComm控件完成串口数据通讯，通讯遵循的协议为PPI协议。
PPI协议西门子的PPI（Point to Point）通讯协议采用主从式的通讯方式，一次读写操作的步骤包括：首先上位机发出读写命令，PLC作出接收正确的响应，上位机接到此响应则发出确认申请命令，PLC则完成正确的读写响应，回应给上位机数据。
vb 网口与plc 通讯
vb 网口与plc 通讯在现代工业领域中，VB（Visual Basic）和PLC （Programmable Logic Controller）在实现设备之间的通讯中起到了重要的作用。
而VB与PLC间的网口通讯更是实现了数据传输的便捷与高效。
本文将探讨VB网口与PLC通讯的相关知识，介绍其基本原理、通讯方式以及应用案例等。
一、VB网口与PLC通讯的基本原理VB网口与PLC通讯的基本原理是通过网线将VB程序与PLC 设备连接起来，实现数据的传输与交互。
在这个过程中，VB程序可以向PLC发送命令，读取或写入PLC内部的数据，同时也可以获取PLC发送的状态或数据。
这种通讯方式具有高速、稳定的特点，为工业自动化控制提供了一种可靠的手段。
二、VB网口与PLC通讯的方式1. Modbus通讯方式Modbus通讯是一种广泛使用的通讯协议，被众多PLC设备所支持。
在VB与PLC通讯中，可以通过Modbus协议实现数据的读写。
通过这种方式，VB程序可以向PLC发送Modbus命令，读取PLC中的参数或状态，并将结果反馈给用户。
2. 自定义通讯协议除了Modbus通讯方式外，还可以根据实际需求自定义通讯协议。
采用自定义通讯协议的方式可以更加灵活地进行数据的传输与处理。
VB程序与PLC通过网口连接后，通过自定义的通讯协议进行数据的读写操作，实现设备间的通讯与控制。
三、VB网口与PLC通讯的应用案例VB网口与PLC通讯的应用案例非常丰富，下面以自动化生产线为例进行说明。
假设在一条自动化生产线上，需要对不同工位的设备进行监控和控制。
通过VB网口与PLC通讯，可以实现以下功能：1. 监测设备状态：通过读取PLC中的状态位，可以实时监测设备的运行情况，如设备是否正常工作、是否存在故障等。
当设备出现异常时，VB程序可以及时发出警报并采取相应的措施。
2. 设备控制：通过向PLC发送控制命令，可以实现对设备的远程控制。
例如，当需要停止某个工位的设备时，VB程序可以向PLC发送关闭信号，PLC接收到信号后即可停止对应设备的运行。