模糊控制-基于VB和7000模块的模糊调节器的设计121106介绍.doc

模糊控制-基于VB和7000模块的模糊调节器的设计121106介绍.doc

  1. 1、本文档共15页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
基于VB和7000模块的模糊调节器的设计 实验目的:综合运用《模糊控制》、《VB》、《过程控制系统》等课程的知识,在计算机中用VB设计出模糊调节器,通过鸿格7000分布式模块组成的数据通道,实现单回路液位控制。熟悉和掌握串行通讯RS-232/485的相关知识。掌握A/D、D/A、DI、DO通道的组成结构和通讯方法。熟悉7000系列分布式模块的结构、命令格式以及利用Visual Basic 6.0及其MSComm控件的实现串行通讯。 实验设备: 水箱 2、压力变送器 计算机 7017、7024、7043、7520等模块 VB开发平台,串口调试助手软件 实验步骤: 安装图1所示,构建采用液位单回路控制系统。硬件组态:先根据控制系统的各组成要素绘制出系统的组成框图及接线图。然后用导线将各部件连接起来。只有在教师检查无误后方可通电运行。 图1 控制系统框图 使用《串口调试助手》软件,按照《附录》中叙述的方法调试AI、AO等数据通道,同时熟悉7017、7024等模块的命令格式。 在VB开发环境中构建模糊数字控制器。控制器的界面风格不限,但应功能全面,美观大方,符合工业现场常用界面的布局。此调节器应具有以下功能:SV、PV、OP等参数的实时显示及修改,手自动状态的切换。鼓励学生在完成基本模糊调节器的设计后扩展新功能,例如实时曲线的显示,历史数据的保存等。 示例: 下图为模糊调节器的参考界面。 图2 调节器外观设计 图3 模糊控制器框图 对于本次设计所需参考资料请参阅附件。 附件一:计算机控制实验部分模块介绍 本装置在计算机控制和通讯上采用台湾威达数据采集模块。 7520是RS-232转485通讯模块,RS-232/RS-485双向协议转换。速度为300-115.200BPS,一个RS-485网上可挂256个模块,3000V隔离,支持多种速率多种数据格式。通讯距离:2.1公里/9600BPS;2.7公里/4800BPS;3.6公里/2400BPS。 7024是D/A模块,4通道模拟输出模块。电流输出:4~20 mA,0~20 mA;电压输出:+/-10V,0~10V,+/-5V。精度14Bit。 7017是A/D模块,8通道模拟输入模块。模拟输入:mV mA ;输入范围:+/-150 mV,+/- 500mV,+/- 1V,+/- 5V,+/- 10V,+/- 20 mA。采样频率10Hz。 7043D是16路开关量输出模块。 查阅RS-232/485通讯的相关方法。 提前复习Visual Basic中常用控件的使用方法。预习MSComm控件属性设置的方法。 实验时携带《计算机过程控制》、《Visual Basic》、ASCII码表。 在实验开始前应学会使用串口调试助手熟悉7000系列模块的命令格式。 串口调试助手如下图 模拟量输入通道-7017 观察过程控制实验装置上的7017模块,它是A/D转换模块,有8通道模拟量输入通道。 7017的命令格式为:#AA(VBcr)。其中#为命令特殊字符(参阅7000手册),AA为模块地址,本实验装置上有两块7017,地址为00、01。VBcr为回车符。本次实验默认的模拟量输入通道为00模块第0路。 启动Visual Basic编辑环境。在窗体上放置三个按钮,分别命名为cmdOpenCOM、cmdStart、cmdEnd,将其Caption属性分别修改为打开通讯端口、开始检测、结束。 在窗体上放置一个MSComm控件。 在窗体上放置一个标签,将其名称修改为lblValue。 在窗体上放置一个标签,将其名称修改为lblMsg。 放置一个计时器控件。 最后窗体应该如下图。 3. 在程序代码中加入如下代码: 单击【开始检测】按钮后激活此事件 将定时器激活或关闭,并显示对应的文字在按钮上,以指示用户操作 Private Sub cmdStart_Click() Timer1.Enabled = Not Timer1.Enabled If Timer1.Enabled Then cmdStart.Caption = 停止检测 Else cmdStart.Caption = 开始检测 lblMsg.Caption = 已停止检测 End If End Sub 定时器的Timer事件引发后,就不断地执行其中的程序。 将模拟读值命令送出,再取得返回字符串并判断。 Private Sub Timer1_Timer() Dim Buf$, ValueStr As Single, Pos1% MSComm1.Output = # 00 Chr(13) 组合完整的命令字符串 lblMsg.Caption = 联机 Buf 中… Buf = WaitR

您可能关注的文档

文档评论(0)

1112111 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档