delphi语言在远程红外测温报警系统中的应用

《delphi语言在远程红外测温报警系统中的应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、DELPHI语言在远程红外测温报警系统中的应用［字体：太虫尘］［日期：2011-04-16］来源：指尖划过作者:摘要：本文主要介绍了DELPHI串行通信，以及怎样使用Delphi语言编程实现温度的实时采集以及处理显示。0引言温度是一个十分重要的物理量,对它的测量与控制有着十分重要的意义，在现代工业生产屮温度也是常见的工艺参数2—，任何物理变化和化学反应过程都与温度密切相关，随着时代的不断发展，现代工农业技术的不断进步，人们对生活环境要求的提高，使得对于温度的测量和控制的要求越来越高，迫切需要检测与控制温度。1系统总体介绍本系统主要包括三个模块：下位机硬件设计部分、下位机软件设计部分

2、和上位机软件设计部分。本文涉及的主要是上位机软件程序设计部分，使用高级语言Delphi编制上位机监控程序，并通过RS-232串行通信口与下位机系统实现实时通信。同时为了操作方便，系统还附加了遥控器部分。其中系统的原理框图如图1所示：图1系统的原理框图2主要控件介绍：2.1TComm控件：用Delphi实现串口通讯，常用的几种方法为：使用控件如TConrni，使用APT函数或者在Delphi中调用其它串口通讯程序。下面详细介绍TComm的使用。a)TComm的主要属性Name:对象的名称，对象放置完成后，是第一个必须要设置的属性。CommPort:通信端口的选择。PortOpen:打

3、开或关闭通信端口。BaudRatc:传输速度的选择。a)TComin的主要事件ONReceiveData:当接收到数据时触发。OnReceiveError:当接收数据错误时触发。OnModemSTatcChangc:当引脚的宜压发生变化时触发。d)TComm的主要方法Outputstring:输出文字数据到串行端口。OutputByte:输出字节数据到串行端口。ReadTnputByte:以字节方式读取缓冲区内的数据。2.2TChart组件：TChart是Delphi里而一个标准的图形显示控件。它可以静态设计(atdesigntime)也可以动态生成。TChart的实时绘制对机器性

4、能要求比较高，因此在编程的时候要注意：(1)使用2d图形；⑵Chart尽可能包含少的点。a)TChart组件的主要事件OnPageChange:当改变页的时候，此事件发生。OnMouseDown:当鼠标按下时产生。OnAfterDraw事件：该事件是在绘制所有的Series时发牛的。OnCITCk事件：该事件是在用户单击Series点吋发生的。OnZoom事件：该事件是在图表放大时触发。b)TChart组件的主要方法ActiveSeriesLegend函数：该函数用于返回当刖活动的Series,如果所有的Series都是活动的，需要为该函数确定要返冋Series的序号。AddSer

5、ies过程：该过程用丁-添加一个Series对象。3系统各具体模块设计3.1系统主界面设计用户登录到主界面之后，在主界面中，可以实现通过面板或者菜单来设置温度的上下限，系统实时显示测试时间，同时在面板上通过状态灯显示当前系统的工作状态。亦实时温度变化曲线8040506070时间（秒）90100110120图2系统主界而同时在主界面的菜单中，可以进行通信端口的选择、通信波特率的选择、修改密码、帮助以及退出系统。3.2修改密码模块设计为了系统的安全，系统增加了修改密码模块。如果要修改密码，首先要输入原来的密码，而后输入新密码，最后重新输入新密码并确定，如果输入的两次新密码相同，则修改密

6、码成功，如果输入的两次新密码不同，则修改密码失败，则重新输入新密码。3.3通信模块的设计本次设计使用RS232转RS485转换器实现远程监控的，采用的是半双工的数据传输方式和异步通信方式，串行口工作于模式1。传输数据的格式如下：首先上位机发送FF给下位机，下位机检测到时，将温度传送给上位机。向单片机发送上限温度命令，格式：FE,XX；向单片机发送下限温度命令，格式：FD,XX；设置监控，格式：FC；取消监控，格式：FB；向单片机发送点击上限按钮，格式：FA；向单片机发送点击下限按钮，格式：F9oa)接收数据上位机采用事件驱动方式接收数据。当下位机传送一帧数据上来输入缓存时，将触发T

7、COMM组件的OnReceiveData事件，对数据进行接收。然后对接收的数据进行判断，分别转相应的处理程序。下面是数据接收的程序段：begintrycount:=forml.Comml.ReadlnputByte(pt);if((count+1)mod400)thenbeginforml.Comml.DataCount:=0;exit;end;fori:=0to3dobeginre[i]:二ptf;inc(pt);end;…//数据处理部分b)发送数据发送数据采用异