西门子(许昌)模块代理商

目前，在国内外PLC已广泛应用冶金、石油、化工、建材、机械制造、电力、汽车、轻工、环保及文化娱乐等各行各业，随着PLC性能价格比的不断提高，其应用领域不断扩大。从应用类型看，PLC的应用大致可归纳为以下几个方面：

1.开关量逻辑控制

利用PLC基本的逻辑运算、定时、计数等功能实现逻辑控制，可以取代传统的继电器控制，用于单机控制、多机制、生产自动线控制等，例如：机床、注塑机、印刷机械、装配生产线、电镀流水线及电梯的控制等。这是PLC基本的应用，也是PLC广泛的应用领域。

 2.运动控制

大多数PLC都有拖动步进电机或伺服电机的单轴或多轴位置控制模块。这一功能广泛用于各种机械设备，如对各种机床、装配机械、机器人等进行运动控制。

3.过程控制

大、中型PLC都具有多路模拟量I/O模块和PID控制功能，有的小型PLC也具有模拟量输入输出。所以PLC可实现模拟量控制，而且具有PID控制功能的PLC可构成闭环控制，用于过程控制。这一功能已广泛用于锅炉、反应堆、水处理、酿酒以及闭环位置控制和速度控制等方面。

   4.数据处理

 现代的PLC都具有数学运算、数据传送、转换、排序和查表等功能，可进行数据的采集、分析和处理，同时可通过通信接口将这些数据传送给其它智能装置，如计算机数值控制（CNC）设备，进行处理。

 5.通信联网

 PLC的通信包括PLC与PLC、PLC与上位计算机、PLC与其它智能设备之间的通信，PLC系统与通用计算机可直接或通过通信处理单元、通信转换单元相连构成网络，以实现信息的交换，并可构成“集中管理、分散控制”的多级分布式控制系统，满足工厂自动化（FA）系统发展的需要。

　　可编程控制器以其高可靠性，配置灵活和完善的功能，在工业控制系统中得到越来越广泛的应用。但对于操作员所需要的报表打印、趋势图形显示、工况查寻、参数在线修改等功能，PLC却不能直接方便地提供。所以通常采用计算机PC与PLC组成一个完整的监控系统。本文以台安TP02系列PLC为例，讨论用Visual Basic(VB)实现PLC与上位机的通讯。<br><br>
　　2、VB在通讯控件中的使用<br><br>
　　可编程控制器PLC与上位机PC之间的通信，下位机为PLC，基于其可靠性极高，主要承担控制功能，而上位PC机主要承担监察管理功能，有时兼备部分控制功能，如发出运行，停止命令。VB语言是基于bbbbbbS操作系统的功能强、易学易用、主要是面向学习对象的程序设计语言。VB带有专门管理串行通讯的MSComm控件，只需设置几个主要参数就可以实现PLC与PC串行通讯。要完成通信必须设置MSComm的相关属性值：<br><br>
　　（1）CommPort：设置或传回通信连接端口代号<br>
　　（2）Settings：设置初始化参数。以字符串的形式设置或传回连接速度、奇偶校验、数据位、停止位等4个参数<br>
　　（3）PortOpen：设置或传回通信连接端口的状态<br>
　　（4）bbbbb：从输入寄存器传 回并移除字符<br>
　　（5）Output：将一个字符串写入输出寄存器<br>
　　（6）bbbbbLen：指定由串行端口读入的字符串长度<br>
　　（7）InBufferCount：传回在接收寄存器中的字符数<br><br>
　　3、软硬件之间：<br>
　　 台安TP02与上位机PC通信时，为了实现两者的通信需要配备通信线。<br><br>
　　4、通信程序的实现<br>
　　 4.1 通信初始化程序<br>
　　 首先，在窗体开始设计之前，添加MSComm控件。<br>
　　 4.2程序编写：<br>
　　 4.2.1 通信控件MSComm1属性设置： <br>
　　 MSComm1.CommPort = 1 设置端口号<br>
　　 MSComm1.Settings = "19200,E,7,2" 设置通信参数<br>
　　 MSComm1.bbbbbLen = 0 设置读入字符串长度<br>
　　 MSComm1.PortOpen = True 设置通信端口状态<br>
　　4.2.2 PLC运行程序：<br>
　　 STX$ = "::"<br>
　　 TransmitBuf$ = "01?5RUN"<br>
　　 sum$ = CheckSum(transmitBuf$)<br>
　　 ETX$ = Chr$(13)<br>
　　 SXD$ = STX$ + transmitBuf$ + sum$ + ETX$<br>
　　 MSComm1.Output = SXD$<br>
　　 Do<br>
　　 DoEvents<br>
　　 Loop Until MSComm1.InBufferCount >= 12<br>
　　 In1$ = MSComm1.bbbbb<br>
　　 4.2.3 从PLC读取资料，将寄存器内的数据资料在PC上显示以便观察监控（反应时间50ms）：<br>
　　 STX$ = "::"<br>
　　 transmitBuf$ = "01?5MRVD000102"<br>
　　 sum$ = CheckSum(transmitBuf$)<br>
　　 ETX$ = Chr$(13)<br>
　　 SXD$ = STX$ + transmitBuf$ + sum$ + ETX$<br>
　　 MSComm1.Output = SXD$<br>
　　 Do<br>
　　 DoEvents<br>
　　 Loop Until MSComm1.InBufferCount >= 20<br>
　　 InData$ = MSComm1.bbbbb<br>
　　 Label2.Caption = Mid$(InData$, 10, 4)<br>
　　 Label3.Caption = Mid$(InData$, 14, 4)<br><br>
　　
　　 4.2.4从PLC读取资料，将RelayC0001状态通过PC显示进行监控（反应时间50ms）：<br>
　　 STX$ = "::"<br>
　　 transmitBuf$ = "01?5MCRC0001"<br>
　　 sum$ = CheckSum(transmitBuf$)<br>
　　 ETX$ = Chr$(13)<br>
　　 SXD$ = STX$ + transmitBuf$ + sum$ + ETX$<br>
　　 MSComm1.Output = SXD$<br>
　　 Do<br>
　　 DoEvents<br>
　　 Loop Until MSComm1.InBufferCount >= 13<br>
　　 In4$ = MSComm1.bbbbb<br>
　　 Coil$ = Mid$(In4$, 10, 1)<br>
　　 C1% = CInt(Coil$)<br>
　　 Label6.Caption = C1%<br>
　　4.2.5 设定Relay状态，将Relay设定为ON（反应时间50ms）：<br>
　　 Dim C1 As Integer<br>
　　 STX$ = "::"<br>
　　 transmitBuf$ = "01?5SCSY00011"<br>
　　 sum$ = CheckSum(transmitBuf$)<br>
　　 ETX$ = Chr$(13)<br>
　　 SXD$ = STX$ + transmitBuf$ + sum$ + ETX$<br>
　　 MSComm1.Output = SXD$<br>
　　 Do<br>
　　 DoEvents<br>
　　 Loop Until MSComm1.InBufferCount >= 12<br>
　　 In2$ = MSComm1.bbbbb<br><br>
　　4.2.6 PLC停止运行：<br>
　　 STX$ = "::"<br>
　　 transmitBuf$ = "01?5STP"<br>
　　 sum$ = CheckSum(transmitBuf$)<br>
　　 ETX$ = Chr$(13)<br>
　　 SXD$ = STX$ + transmitBuf$ + sum$ + ETX$<br>
　　 MSComm1.Output = SXD$<br>
　　 Do<br>
　　 DoEvents<br>
　　 Loop Until MSComm1.InBufferCount >= 12<br>
　　 In3$ = MSComm1.bbbbb<br><br>
　　
　　4.2.7 VB6.0下CheckSum函数代码如下：<br>
　　 Private Function CheckSum(transmitBuf$)<br>
　　 L = Len(transmitBuf$)<br>
　　 Add = 0<br>
　　 Dim k, sum As Integer<br>
　　 For k = 1 To L<