当前位置:
利用VB实现PC与PLC的联机控制
回复 | 人气 | 打印
江湖再见-余辉 个人主页 给TA发消息 加TA为好友 发表于:2015-04-04 11:40:22 楼主

近年来,随着可编程控制器(以下简称PLC)技术的不断发展,速度、功能、可靠性和稳定性的不断提升,其在工业控制中的运用越来越广泛。个人计算机(以下简称PC)具有人机界面好,编程软件丰富,数据处理快,信息存储方便,图像功能完善等优点。以PLC为下位机,以PC机为上位机的联机控制模式,结合了PLC与PC各自的优点,提高了控制能力和可靠性,不仅操作使用方便,产品造价也较低,因而成为工业控制中应用较多的模式。本文以电动机正反转控制为实例,说明松下FP1系列PLC与PC实现联机控制的方法。

1. 松下FP1系列PLC与PC机的通信连接

松下FP1系列PLC均设有一个RS422串行通信接口。该接口既可用于PLC与PC机联机进行梯形图程序编程与调试,也可用于正常工作时的数据通信。PC机一般均设有一个以上的RS232C串行通信接口。由于RS232C和RS422属于不同的串行通信接口,通信信号的类型和工作方式不一样,因此,PLC与PC进行串行通信连接时,必须在中间安装一个RS422/RS232C适配器来完成信号的转换(部分PLC也具有RS232C口,此时可直接连接)。FP1系列PLC与PC机的通信连接如图1所示。

2. PLC控制电机正反转电路设计  

PLC控制电机正反转,其中SB0、SB1、SB2开关按钮分别用于控制电机的正转、反转和停止;KM1、KM2分别为电机正反转控制的接触器。由于PLC直接控制交流接触器,所以PLC应选择继电器输出型,并在接触器回路采用互锁来保证电路的安全。
3. PC与PLC的联机控制程序

按上述图1完成PLC与PC机的通信连接后,还需采用PLC联机编程软件或手持编程器对PLC内部通信参数专用的系统寄存器No.410~No.418进行设定,具体为:串口选择为COM1,波特率为9600bps,数据位长度为8位,停止位为1位,奇校验,单元号为1。
4.PLC控制程序
PLC的控制程序要既能现地控制,又能使PC机通过串口通信实现上位机对电动机的正反转控制和电机状态信息反馈。具体程序如图3所示。

程序中为实现PC机对电机的控制使用了R100、R101和R102三个内部继电器。内部继电器可由PC机按松下FP1系列PLC的NEWTOCOL专用通信协议(具体协议可参考厂家资料),以发送特定字符串的形式进行读写。为了仿效按钮操作的效果,三个内部继电器由上位机置位后启动对应的定时器,经0.8S后由定时器对内部继电器自动进行复位。

5. PC机控制程序与界面

作为上位机,PC机通过人机界面,将操作人员的操作指令转换成相应的通信字符串并经串口发送至PLC,实现对电机的控制;另一方面,PC机定时读取PLC寄存器的数据,从而可判断出PLC对电动机的控制状态并在人机界面上显示出来。
PC机的程序利用Visual Basic 6.0进行开发,首先,从菜单“工程”→“部件…”→“控件”中添加串行口通信控件Microsofc Comm Control 6.0到工具箱中,然后从工具箱中往窗体添加下表所列的控件。

序号

控件类型

控件名称

说  明

1

form

frmmain

程序主窗体

2

frame

Frame1

框架

3

MSComm

MSComm1

串口通信控件

4

Timer

Timer1

定时器

5

CommandButton

cmdzz

正转按钮

6

CommandButton

cmdfz

反转按钮
7

CommandButton

cmdtj

停机按钮
8

Label

Labdjzt

电机状态显示标签

添加上述控件后的程序窗体如图4所示。

PC机的控制程序如下:
Private Sub Form_Load()     '窗体加载过程
MSComm1.CommPort = 1    '通信控件选用PC机的串口1
MSComm1.Settings = "9600,o,8,1"      '设定串口1的波特率为9600bps,奇校验,8位数据位,1位停止位
MSComm1.PortOpen = True     '打开串口1
Timer1.Interval = 1000      '定时器1的定时值为1s
Timer1.Enabled = True       '启动定时器1   
End Sub

Function com(a As String, b As Integer) '向PLC读写寄存器内容函数
MSComm1.InBufferCount = 0   '清空串口的接收缓冲区
MSComm1.Output = a  '将要发送的字符串从串口发送出去
Do
DoEvents
Loop Until MSComm1.InBufferCount >= b   '等待PLC的响应字符至一定位数
com = MSComm1.Input     '读入串口接收到的字符串
End Function

Private Sub Timer1_Timer() '定时读取Y0、Y1的值以判断电机当前状态
a = "%01#RCP2Y0000Y0001**" + Chr(13)    '定义读Y0、Y1值的通信字符串
s = com((a), 9)     '读Y0、Y1的当前值
If Mid(s, 7, 1) = "1" Then '返回字符串中第7位为1表示Y0接通,电机正转
cmdzz.Enabled = False   '电机已正转,禁止操作正转按钮但可操作反转按钮
cmdfz.Enabled = True   
Labdjzt.Caption = "电机当前状态:正转"
ElseIf Mid(s, 8, 1) = "1" Then '反转
cmdfz.Enabled = False   '电机反转,禁止操作反转按钮但可操作正转按钮
cmdzz.Enabled = True
Labdjzt.Caption = "电机当前状态:反转"
ElseIf Mid(s, 7, 1) = "0" And Mid(s, 8, 1) = "0" Then '停机
cmdfz.Enabled = True    '电机已停止,可操作正转或反转按钮
cmdzz.Enabled = True
Labdjzt.Caption = "电机当前状态:停止"
End If
End Sub

Private Sub cmdzz_Click() '正转指令
a = "%01#WCSR01001**" + Chr(13) '定义将R100置1,启动正转的通信字符串
s = com((a), 7)    
End Sub

Private Sub cmdfz_Click() '反转指令
a = "%01#WCSR01011**" + Chr(13) '定义将R101置1,启动反转的通信字符串
s = com((a), 7)
End Sub

Private Sub cmdtj_Click() '停机指令
a = "%01#WCSR01021**" + Chr(13) '定义将R102置1使电机停转的通信字符串
s = com((a), 7)
End Sub
运行上述程序,既可在PC机上实现对电机正反转以及停止的控制,也可在现地通过SB0、SB1和SB2按钮实现对电机的控制;既可在现地启动或停止电机转动,也可在PC机上实现停机或电机转动控制。由于PC机定时读取PLC内部Y0、Y1的值,所以在现地操作改变电机的工作状态时,在PC机程序中可显示出当前电机的工作状态并禁止相应的操作,真正实现了PC与PLC的联机控制。

6. 结束语

上述设计已在实践中应用。经验证,可在此基础上,增加联机通信故障自动检测报警功能,利用数据读写命令实现联机大批量数据传送,根据现地来的状态信息增加PC机动画演示功能,从而使PC与PLC的联机控制程序更加完善,控制界面更加形象。根据上述原理,结合PC与PLC控制的特点,可在其它控制场合使用上述方法实现双机甚至多机联机控制。

分享到: 关注收藏 邀请回答 回复 举报
王者之师——小刀刀 个人主页 给TA发消息 加TA为好友 发表于:2015-04-04 12:04:10 1楼
 

哈哈哈,现在都用.net了

  回复 引用 举报
hyldg-工控人生 个人主页 给TA发消息 加TA为好友 发表于:2015-04-04 14:57:31 2楼
 

谢谢分享........

  回复 引用 举报
zhu860423060 个人主页 给TA发消息 加TA为好友 发表于:2015-04-04 19:42:38 3楼
 

谢谢分享,好资料哦。 

  回复 引用 举报
fengenquan 个人主页 给TA发消息 加TA为好友 发表于:2015-05-10 22:59:27 4楼
 

非常感谢你的分享!我正好看懂了

  回复 引用 举报
hozi208m 个人主页 给TA发消息 加TA为好友 发表于:2017-01-08 16:11:29 5楼
 

感谢分享 万分感谢!

  回复 引用 举报
junhong 个人主页 给TA发消息 加TA为好友 发表于:2017-03-19 17:24:36 6楼
 

学习,谢谢分享!!!!

  回复 引用 举报
旦旦三剑 个人主页 给TA发消息 加TA为好友 发表于:2017-03-24 23:55:35 7楼
 

不知道用delphi能否做出这样的软件

  回复 引用 举报
ZHI_GOOD 个人主页 给TA发消息 加TA为好友 发表于:2017-03-29 08:42:52 8楼
 

谢谢楼主的分享!!!!!

  回复 引用 举报
CWK 个人主页 给TA发消息 加TA为好友 发表于:2017-05-28 21:53:26 9楼
 

楼主厉害.............

  回复 引用 举报
zyuanlong11 个人主页 给TA发消息 加TA为好友 发表于:2017-05-28 22:01:03 10楼
 

dingqi~﹉…1111111

  回复 引用 举报
李1990 个人主页 给TA发消息 加TA为好友 发表于:2017-07-04 09:23:57 11楼
 

孤为何看不懂!我不会VB啊

  回复 引用 举报
花花公子@123 个人主页 给TA发消息 加TA为好友 发表于:2018-05-28 16:11:41 12楼
 

这个资料很实用,要努力学习

  回复 引用 举报
zenguwyc 个人主页 给TA发消息 加TA为好友 发表于:2018-11-06 16:04:27 13楼
 

多谢楼主!

  回复 引用 举报
ACID 个人主页 给TA发消息 加TA为好友 发表于:2018-12-24 16:16:31 14楼
 

出现错误,调试时,,,image.png

  回复 引用 举报
清南李生 个人主页 给TA发消息 加TA为好友 发表于:2019-04-21 18:15:34 15楼
 

谢谢楼主分享

  回复 引用 举报
大花王 个人主页 给TA发消息 加TA为好友 发表于:2019-08-07 09:52:39 16楼
 

正在学习,多谢分享

  回复 引用 举报
hfj1234 个人主页 给TA发消息 加TA为好友 发表于:2019-08-08 18:36:38 17楼
 

谢谢,虽然看不懂

  回复 引用 举报
PLC123 个人主页 给TA发消息 加TA为好友 发表于:2019-10-21 10:42:47 18楼
 

这个资料很实用,要努力学习


  回复 引用 举报

周点击排行
周回复排行
最新求助