基于mscomm控件的大棚温度监测系统软件实现

《基于mscomm控件的大棚温度监测系统软件实现》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、基于MSCOMM控件的大棚温度监测系统软件实现摘要：本文介绍基于VB的MSCOMM控件来实现大棚温度的监测和控制，通过在大棚内安装温度传感器进行温度测定和监测，然后将所采集的多点温度数据显示在监测界面上，可以定时每隔10S进行温度数据的刷新显示；还能自动生成温度变化趋势曲线，以便于更好的进行温度监测和分析。关键词：MSCOMM控件；温度监测；数据采集；串行接口中图分类号：TP274.2在农业生产领域温度采集监测和控制系统已得到广泛应用，许多中小型规模的农业生产基地出于硬件软件投资利润率和性能价格比方面的考虑，往往自行开发使用监测系统[1]。本软件系统主要是基于以上原因来研制开发的

2、，采用VB语言，简单易学、编程效率高、开发周期短，使用VB的MSCOMM通信控件可以很容易实现串口数据的采集。6本文的实例为大棚多点温度监测，由于大棚温度变化较为迅速，以往一般采用人工定点定时巡检各温度点的温度情况，不但人力投入很大，而且不能准确掌握大棚情况，还会有遗漏现象。现在改为计算机+数据采集+智能显示+自动监测的方案，由上位微机通过MSCOMM控件定时对串口的温度数据进行采集，对于超过测温范围的进行软件报警，同时绘制温度变化曲线，以便于更好的进行监测和分析，及时地掌握变化情况[2]。1系统实现本系统是采集从串口传送的数据，计算机要求能够运行Windows7（或更高版本）操

3、作系统和开发环境VB6.0，具有标准的RS232串口，主要功能为数据采集处理和系统控制，是人机交互的平台。用单片机作为下位机，完成测温任务，测量结果通过下位机与上位微机（PC机）之间的RS-232串行接口传送，给出采集结果和提示信息[3]。VisualBasic语言是可视化面向对象的采用事件驱动技术的结构化程序设计语言，本系统上位机执行的是在Windows环境下利用VB语言开发的微机温度监测控制系统程序。本软件功能丰富，界面良好，使用简单，可以很方便的实现温度的自动监测和报警控制。2软件详细结构设计2.1监测程序主窗口在监测程序框架中，主窗口可以实现权限设置和任务切换。在数据库中

4、设置一个用户数据库，在其中添加若干个用户名和密码，再将其分别交给使用本系统的用户，通过登录进入系统，然后可以通过界面上的菜单或工具栏选择要执行的任务实现窗口切换。当界面切换到其他窗口时，实际上是将主窗口隐藏起来，使它在后台工作。6打开系统的主窗口可以看见菜单和工具栏，但是它们都是灰色的无效不可用状态。只有单击了“登录”按钮，在动态出现的登录文本框中输入正确的用户名和密码后，菜单和工具栏才可以使用，这个设置只要通过对象的Enabled属性就可以实现。当登录成功后，登录所用到的文本框又自动消失了，这可以通过对Visible属性进行设置来实现，能够让用户在操作时心情舒畅、方便易学[4]

5、。2.2温度数据采集模块现场温度采集点共有9路，在微机中采用VB6.0编程，并选用MSCOMM控件进行串行口通讯。MSComm控件是Microsoft提供的扩展控件，用于支持VB程序对串口的访问，同时支持查询方法和事件驱动通讯的机制。事件驱动通讯是交互方式处理串口事务的一种非常有效的方法，特别适合Windows程序的编写。因此用其实现微机串口的数据通讯相当简单，以很少的程序代码就可以轻松实现串口的访问和数据通讯[5]。2.3温度数据保存和查询模块数据保存采用Aeeesss数据库，创建一个数据库tdata.mdb和一张temp表，表中包括存放温度数据和日期时间的10个字段，通过AD

6、O控件来实现数据的保存，控件与Access数据库的连接数据显示采用DataGrid控件，可以显示数据库中的所有字段和记录。6PrivateSubForm_Load（）DimstrconnAsStringstrconn=“Provider=Microsoft.Jet.OLEDB.4.0；DataSource=“&App.Path&”＼tdata.mdb”Adodc1.ConnectionString=strconn‘temp为数据库里的一个表Adodc1.RecordSource=“temp”Adodc1.RefreshTimer2.Enabled=TrueEndSub利用SQL语

7、言可以对数据进行各种查询。如查询某一时间段内的温度值或者查询某一时刻所有监测点的温度值。查询代码如下：PrivateSubCommand1_Click（）DimstQAsString，date1AsDate，date2AsDatedate1=CDate（Txtbegin.Text）date2=CDate（Txtend.Text）strQ=“select*fromtempwheretdate>=date1andtdate<=date2”Adodc1.RecordSource=str