【最新版】基于plc的电梯控制系统的设计毕业论文初稿3481476
河北科技师范学院
本科毕业设计基于plc的电梯控制系统的设计
院系名称：机电科学与工程系
专业名称：电气工程及其自动化
学生姓名：杨超
学生学号：
指导教师：陈秀宏
2013年5月21日
河北科技师范学院教务处制
学术声明
本人呈交的学位论文，是在导师的指导下，独立进行研究工作所取得的成果，所有数据、图片资料真实可靠。尽我所知，除文中已经注明引用的内容外，本学位论文的研究成果不包含他人享有著作权的内容。对本论文所涉及的研究工作做出贡献的其他个人和集体，均已在文中以明确的方式标明。本学位论文的知识产权归属于河北科技师范学院。
本人签名：日期：
指导教师签名：日期：
摘要
随着社会的发展，尤其是现代城市的建设高速发展所带来的高层建筑猛烈的增多，在高层建筑之间的垂直交通工具——电梯，对人们生活也就显得特别重要。
在电梯出现的早期，其控制方式多为继电器控制方式，但这种控制方式有个致命的缺点——安全性差。随着微电子技术、计算机技术、和自动控制理论技术的发展，电梯的逻辑控制也由PLC代替了原来的继电器控制，安全性、可靠性得到了质的飞越。本文针对某楼栋六层电梯模型控制系统。
对其PLC系统的设计和调试进行了详细的阐述。其系统控制的核心部分是日本三菱公司制造的FX2NC系列的PLC，其控制适应性强、控制速度快、安装调试简便、运行费用较低 PLC控制技术已成为现代电梯控制的一个热点。
Abstract
With the development of society, especially the construction of modern city brought by rapid growth of the the ! In the early, when lift is invented, its control way is relay control way, but this kind of control mode this paper, the design and debugging of PLC system are stated in detail in a storied building six elevator model control system. The core of the system control part is made of mitsubishi Japan FX2NC series of PLC. PLC control technology elevator control of a , lower operation cost. So PLC control technology elevator control of a .Width * 0.7 '设置窗口初始大小
Me.Height = Screen.Height * 0.8
Me.Hide '设置首先登录窗口
frmLogin.Show
End Sub
（2）主界面如图4-2所示。
图4-2 主界面
4.2.2 用户管理模块
用户管理模块，包括用户的登录和退出。
（1）登录界面的控件如表4-1所示。
表4-1 登录界面各对象属性设置
对象属性设置对象属性设置
窗体Caption 登录界面标签2 Caption Label2
名称Form1 其他属性在代码中设置
文本框1 Caption Text1 按钮1 Caption Command1 Text 置空名称登录
文本框2 Caption Text2 按钮2 Caption Command2 Text 置空名称退出
标签1 Caption Label1 Adodc控件名称密码
名称用户名Caption Adodc1 （2）用户登录界面主要代码。
‘*************登录界面代码***************
Private Sub Command1_Click()
Static micount As Integer '用于记录输入密码次数
Dim sqlstr As String
Adodc1mandType = adCmdUnknown ‘查询数据库的用户表
sqlstr = "Select * From 用户表 Where 用户名= '" & Text1 & "'"
Adodc1.RecordSource = sqlstr
Adodc1mandType = adCmdUnknown
Adodc1.Refresh
If Adodc1.Recordset.BOF Then '若没找到符合Where条件的记录
MsgBox "用户名错误，重新输入", vbExclamation, "警告"
Text1.Text = " "
Text1.SetFocus ' Text1获得焦点
Else ' 判断密码是否正确
If Adodc1.Recordset.Fields("密码") = Text2 Then
MDIForm1.Show
MDIForm1.Enabled = True
Unload Me
Else
MsgBox "密码错误，重新输入 ", vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
micount = micount + 1
If micount = 3 Then Unload Me
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me '退出按钮
End
End Sub
Private Sub Form_Load()
Me.Left = 0 '设置登录界面的起始位置
Me.Top = 0
End Sub
（3）登录界面如图4-3所示。
图4-3 登录界面运行图
4.2.3数据存储模块
数据存储模块包括发送单片机设置参数、循环提取数据和显示数据等功能。把这些功能安排在同一模块中，可以方便用户操作上下位机之间的通信。
（1）数据存储模块控件表如表4-2所示。
表4-2 数据存储界面各对象属性设置
对象属性设置对象属性设置
窗体Caption 数据存储文本框Caption Text2 名称Form2 Text 置空
标签1 Caption Label1 按钮Caption Command1 名称时间名称打开串口
续表
对象属性设置对象属性设置
标签2 Caption Label2 按钮Caption Command2 名称温度值名称测试温度标签3 Caption Label3 MSComm控
Caption MSComm1
件
名称置空其他属性在代码中
设置
文本框Caption Text1 Timer控件Caption Timer1 Text 置空其他属性在代码中
设置（2）数据存储模块主要代码。
‘***********数据存储界面代码****************
If Command1.Caption = "打开串口" Then
MSComm1.PortOpen = True
a = MsgBox("串口已经打开", vbOKOnly, "提示")
Command1.Caption = "关闭串口"
ElseIf Command1.Caption = "关闭串口" Then
MSComm1.PortOpen = False
a = MsgBox("串口已经关闭", vbOKOnly, "提示")
Command1.Caption = "打开串口"
End If
End Sub
Private Sub Command2_Click()
If Command2.Caption = "开始测试" Then
If MSComm1.PortOpen = False Then
a = MsgBox("请先打开串口", vbDefaultButton1, "提示") Else
a = MsgBox("测试已经开始", vbOKOnly, "提示")
Command2.Caption = "结束测试"
Timer1.Enabled = True
End If
ElseIf Command2.Caption = "结束测试" Then
a = MsgBox("测试已经结束", vbOKOnly, "提示")
Command2.Caption = "开始测试"
End If
End Sub
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False ' 先判断串口是否打开，如果打开则先关闭
End If
Unload Me ' 卸载窗体，并退出程序
'End
End Sub
（3）数据存储模块图如图4-4所示。
图4-4 数据存储运行图
4.2.4数据记录查询模块
历史数据记录查询模块包括查询自设定时间段的地下水数据记录并显示在相应控件中的功能。
（1）数据查询模块控件表如表4-3所示。
表4-3 数据查询界面各对象属性设置
对象属性设置对象属性设置
窗体Caption
名称数据查询文本框Caption Text2
Form3 Text 在代码中
设置
续表
对象属性设置对象属性设置
标签1 Caption Label1 文本框Caption Text3
名称开始时间Text 在代码中
设置
标签2 Caption Label2 文本框Caption Text4
名称终止时间Text 在代码中
设置
标签3 Caption Label3 文本框Caption Text5
名称查询日期Text 在代码中
设置
标签4 Caption Label4 按钮Caption Command1 名称起始时间名称查询
（小时）
标签5 Caption Label5 按钮Caption Command2
名称查询
名称终止时间
（小时）
文本框Caption Text1 SSTab控件Caption 按日期查
询
续表对象属性设置对象属性设置
Text 在代码中
名称SSTab1
设置
DataGrid
Caption 查询结果Adodc控件Caption Adodc1
控件
名称DataGrid1 其他属性在代码中
设置（3）数据查询运行图如图4-5所示。
图4-5 数据查询模块运行图
4.2.5数据分析功能模块
数据分析功能模块主要是选择图的样式，并生成相应的图类型，以便总体的地下水温度的变化。
（1）数据分析模块控件表如表4-4所示。
表4-4 数据分析界面各对象属性设置
对象属性设置对象属性设置
窗体Caption 数据分析按钮Caption Command3 名称Form4 名称生成散点
图
按钮Caption Command1 按钮Caption Command4
名称生成立体
直方图名称生成直方
图
按钮Caption Command2 按钮Caption Command5
名称生成折线
图名称生成饼状
图
（2）数据分析运行图如图4-6，图4-7，图4-8，图4-9所示。
图4-6折线图图4-7立方图
图4-8 饼状图图4-9直方图
4.2.6数据管理模块
数据管理模块主要是通过控件显示数据库中地下水温度的数值并且能查到某一个精确时间的地下水温度。
（1）数据管理模块运行图如图4-10所示。
图4-10 数据管理界面图
（2）数据管理模块控件表如表4-5所示。
表4-5 数据管理界面各对象属性设置
对象属性设置对象属性设置
窗体Caption 数据管理按钮Caption Command3 名称Form5 名称下一条
按钮Caption Command1 按钮Caption Command4
名称首记录名称尾记录
按钮Caption Command2 按钮Caption Command5 名称上一条名称返回
续表对象属性设置对象属性设置
DataGrid 控件Caption 地下水温
度表
Adodc控件Caption Adodc1
名称DataGrid1 其他属性在代码中
设置
4.2.7关于模块
关于模块用于显示软件版本，软件简要介绍等信息，关于界面运行图如图4-11所示。
图4-11 关于界面图
4.3 系统工作流程图
4.3.1登录界面
（1）用户输入用户名和密码。
（2）系统检查用户名是否存在，如果存在则进行后台提交查询用户信息；否则提示用户“用户名不存在!”,并要求用户重新输入。
（3）系统检查密码是否有效，如果有效则进入主界面；否则提示用户“密
码错误！”，并要求用户重新输入。
表4-2 登录界面流程图
4.3.2数据存储
（1）进入用户存储界面。
（2）点击“打开串口”，系统检查串口打开是否成功，如果成功则点击“测试数据”；否则提示“串口打开有误”,并要求重新打开串口。
（3）点击“测试数据”后，显示测试数据，系统检查系统是否循环，如果是循环则重新测试数据；否则结束测试数据，并且关闭串口。
图4-3 数据显示流程图 图4-4 数据存储流程图
4.3.3 数据查询
（1）进入数据查询界面。
（2）用户输入查询日期，系统检查日期是否合法，如果日期合法则进行后台提交查询日期，并进行数据库查询；否则提示“日期不合法!”,并要求重新输入日期。
（3）系统查询数据是否有效，如果存在则显示数据；否则提示“查询数据不存在！”，并要求用户重新输入日期。
图4-5 数据查询流程图
4.3.4数据分析
（1）进入数据分析界面。
（2）选择图的类型并点击其按钮，则显示相应类型的图。例如：点击折线图按钮，则显示折线图。
图4-6 数据分析流程图图4-7 数据管理界面流程图
4.3.5数据管理
（1）进入数据管理界面。
（2）选择条件按钮并点击，则执行相应的功能。例如：点击首记录按钮，则指向首记录的数据。
4.4 通信程序设计
通信程序的设计主要是行通信程序设计。上位机通过RS-485 串行通讯口，该串口完成串行数据转换和串行数据接收、发送任务，采用RS-485 通信标准，其结构和使用比较简单。而地下水监测系统界面设计软件VB 的MSComm 控件[17]提供了事件驱动和查询方式两种方法实现串行通信。其中事件驱动是处理串行通信的一种非常有效的方法，实时性较强。本设计采用事件驱动方式实现。
4.4.1 串口初始化
我们在系统主界面窗体中放置一个MSComm控件（MSComm控件名为mscom），主界面程序开始运行时执行串口初始化操作[18]。程序如下：
mscommPort = 1 '选用COM1 串行口
mscom.Settings = "9600,n,8,1" '9600 波特率，无校验，8 位数据，1 位停止位