《智能家居软件毕业设计.docx》由会员分享，可在线阅读，更多相关《智能家居软件毕业设计.docx（55页珍藏版）》请在三一办公上搜索。
1、福建船政交通职业学院毕 业 论 文(设计)题目：智能家居软件设计 系 部： 信息工程系 姓 名： 学 号： 专 业： 计算机控制技术 年级班级：09计算机控制技术 指导教师(职称)：二0一二年一月52目录引言21、绪论31.1 研究智能家居的意义31.2 国内外智能家居的现状与发展趋势31.2.1国内外智能家居的发展现状31.2.2智能家居的发展趋势41.3智能家居的实验应用52、软件简介62.1 Visual Basic软件简介62.2 Proteus仿真软件简介72.3 keil uvision2编程软件简介83、系统总体方案设计93.1总体方案设计93.2 软件界面设计93.2.1总体系
2、统软件界面93.2.2空调软件界面103.3 程序总体设计113.3.1总体程序流程图123.3.2空调流程图133.3.3空调通讯设置134、系统软件仿真174.1系统软件仿真设计174.1.1 串口仿真与方法174.1.2软件虚拟串口174.1.3单片机串口184.2 串口参数设置194.3空调的仿真情况21结 论24谢 辞25主要参考文献26附录一：系统源程序28智能家居软件设计摘要：在科技飞速发展的当今社会，普通家居设备已经不能满足生活的需求。也是由于随着科技的发展和人民生活水平的提高，以及一浪高过一浪的房地产热潮，智能家居设备取得了迅猛的发展并日益渗透到平常百姓的生活当中。本系统设计
3、就是利用VB的通信模块实现在PC机上控制家居设备。此设计可以实现三个基本功能，一为控制三个房间家居灯的开/关与亮度调节，二是控制空调的开/关与温度调节，三为控制热水器的开/关与加热上限温度，并控制加热时间段。在控制的同时还能实时传送家居设备的状态，如家居的的亮度级别、外界温度以及热水的温度。这些功能都由一个切换按钮控制，以此完成家居设备的切换。本文重点介绍空调智能控制系统。关键词：智能家居；Visual Basic 6.0；联合仿真Abstract：In todays society, science and technology rapid development .The common h
4、ousehold devices can no longer meet the demands of life. It is also with the development of science and technology and the improvement of living standards of the people, as well as the wave height of a wave of real estate boom, intelligent home devices have achieved rapid development and increasing
5、penetration into peoples lives. The system design of communication module in PC machine is using VB to control the home devices. This design can achieve three basic functions.First，in order to control three rooms of the household lights turn on/off and brightness to adjust.Second，in order to control
6、 on/off of the air conditioning and temperature control.Third, in order to control on/off of the water heater and heating maximum temperature and controls the heating period. While real-time transmission of control of home devices, such as the brightness of the household level, the outside temperatu
7、re and the temperature of hot water. These functions are controlled by a toggle button; therefore complete the household devices of switching. This article focuses on intelligent control system of air conditioning.Key words：Intelligent home devices；Visual Basic6.0；Union simulation引言随着智能家居的迅猛发展，越来越多的
8、家居开始引进智能化系统和设备。智能化系统涵盖的内容也从单纯的方式向多种方式相结合的方向发展。本设计就是利用VB的通信模块，在此基础上实现在PC机上控制家居设备。实现系统设计需要解决两方面问题，一是关于系统软件与设备实物之间的结合。对此我们利用PC机模拟控制设备，单片机模拟家居设备。PC机通过串口实现和pt6000无线收发模块的通讯，从而实现与家居设备的通讯。二是关于PC机上的模拟控制设备。对此我们利用可视化软件VB的通讯控件，实现与pt6000无线收发模块的通讯控制家居设备。建立在这两方面基础上，就容易实现模拟对家电的控制，分别控制家居灯、热水器和空调。如今，安全、舒适、便利的生活环境已经不再
9、是一个遥远的梦想。由于智能家居系统能够为人们提供更加轻松、有序、高效的现代生活环境，因此已经成为房地产商追逐的热点。在未来，没有智能家居系统的住宅将像今天不能上网的住宅那样不合潮流。相信不远的将来，智能家居一定会更好地造福人类。1、绪论1.1 研究智能家居的意义进入20世纪90年代后期以来，数字化技术取得了更加迅猛的发展并日益渗透到各个领域。随着Internet网向普通家庭生活不断扩展，消费电子、计算机、通讯一体化趋势日趋明显，智能化信息家电产品已经开始步入社会和家庭。智能信息家电由于其安全、方便、高效、快捷、智能化等特点在21世纪将成为现代社会和家庭的新时尚。当家庭综合服务器(Integra
10、ted Home Server)将家庭中各种各样的智能信息家电通过家庭总线技术连接在一起时，就构成了功能强大、高度智能化的现代智能家居系统。随着人们生活水平的不断提高，人们不断地对居住环境提出更高的要求，越来越注重家庭生活中每个成员的舒适、安全与便利。因此从市场需求的角度看，智能家居必然是前景广阔。未来几十年的蓬勃发展，将使智能化家居系统的应用越来越广泛。对于智能化家居的研究，将在理论上推动智能化技术在家居领域的纵深发展，并为各类智能化家居新产品的设计与开发提供一定理论依据，产生一定的经济效益和社会效益，大大丰富并充实了家居系统理论。因此以此作为主要研究内容具有现实指导意义。1.2 国内外智能
11、家居的现状与发展趋势 1.2.1国内外智能家居的发展现状进入二十一世纪，日新月异的现代科技的力量，打破了传统的时空界限，计算机网络和层出不穷的信息技术，改变了人类的生产、生活方式，科技正以超乎想象的速度深刻地影响着人类的思维模式和生存状态。住宅作为人类生存的物质基础，必将受到信息技术的冲击和影响，传统住宅己不能满足现代社会对其使用功能及其所能提供的环境的更高要求，未来住宅应是高科技与传统技术的有机融合体：不仅功能齐全、居住舒适、使用方便，而且安全节能，有益人类健康和自然生态环境。目前，智能技术在家居行业中已经得到初步应用，一些智能化家居的雏形或前期产品己经出现。国外，如爱尔兰的兰开斯特大学与苏
12、黎世、德国、瑞典及芬兰等学府合作开发了一系列“智能家具”。用“智能沙发”可以开启电视机、激活电话录音机，还可以认出是谁坐在沙发上，懂得说欢迎辞，甚至根据输入的程序自动唤醒躺在特定位置的病人。“智能书架”会在负荷过重时做出投诉。“智能药品柜”会在药物过期时发出警告。 我国在智能化家具方面也作了一些初步探索，有些先进家具企业也开发了一些简单的智能化家具产品。智能化家居必然是世纪发展的趋势。我国的家居智能化水平还处在起步和尝试阶段，具体表现在基础比较薄弱、技术含量低等方面。国内家居智能化的研究仅仅停留在概要性论述和一些简单产品开发的层面上，缺乏系统的理论研究，有待于进一步开发设计。1.2.2智能家居
13、的发展趋势智能家居怎样做到实用、易用、人性化，真正提高人们的生活品质，才是智能家居的发展方向。智能家居的发展趋势有以下几个方向：1、智能化、人性化。随着人工智能的不断发展和机器人的出现，使得智能化不再是一个神话。智能化是智能控制发展的必然趋势。因此，家居的智能化也必然向智能化方向发展。智能化应服务于人们的生活，所以应更全面、更富有人性化，这是智能家居未来的一个发展方向。2、节能环保。智能化的本质之一是降低成本和提高效率,节能是降低成本的关键技术。绿色、环保、节能将成为未来家居的重要考核指标，甚至是首要考虑因素。在住宅实现了基本智能化后，绿色生态住宅成为必然的追求目标。提高生活环境的质量，这些也
14、是其未来发展必须考虑的因素。3、一体化。家居智能化需满足自动化管理、安全防范监控、火灾报警、对讲呼叫、设备监控等内容，把它们智能化功能集成,从而降低成本，也是未来发展的一个方向。4、规范化、标准化。由于智能家居发展较晚，新技术、新产品层出不穷，标准和规范还在制定之中，规范化、标准化是智能家居快速发展，走入国际市场的必由之路。致力于智能家居产品的应用接轨，很多问题并不在于技术水平的高低，而在于怎样去做到实用、易用、人性化，只有更加贴近实用、易用和人性化的智能家居概念，才能真正提高人们的生活品质，才能真正体现智能家居的价值，这也是现代科技价值的核心所在。1.3智能家居的实验应用智能家居作为家庭信息
15、化的实现方式，已经成为社会信息化发展的重要组成部分，物联网因其巨大的应用前景，将是智能家居产业发展过程中一个比较现实的突破口，对智能家居的产业发展具有重大意义。我国的家具智能化水平还处在起步和尝试阶段，具体表现在基础比较薄弱、技术含量低等方面。需要加大对智能家居的研究开发和实验应用，仅仅停留在概要性论述和一些简单产品开发的层面上，缺乏系统的理论研究，应进一步开发设计。本次系统设计基于容易实现，方便操作，贴近使用的实验理念，采用VB为控制核心，为控制终端，利用VB编写相应的代码，并采用单片机等在内的多个控制源来控制家用电器。重点研究电源电路、按键电路、DA转换电路、放大电路、稳压调节电路、电压电
16、源采样电路和AD转换电路和显示电路的使用等关键问题和理论。通过简易的系统设计，才能更加深入地了解智能家居的应用。2、软件简介2.1 Visual Basic软件简介Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。图2-1 Visual Basic 6.0启动界面2.2 Proteus仿真软件简介图2-2 Prot
17、eus 启动界面Proteus软件是英国Labcenter electronics公司出版的EDA工具软件。它不仅具有其它EDA工具软件的仿真功能，还能仿真单片机及外围器件。Proteus是世界上著名的EDA工具(仿真软件)，从原理图布图、代码调试到单片机与外围电路协同仿真，一键切换到PCB设计，真正实现了从概念到产品的完整设计。是目前世界上唯一将电路仿真软件、PCB设计软件和虚拟模型仿真软件三合一的设计平台，其处理器模型支持8051、HC11、PIC10/12/16/18/24/30/DsPIC33、AVR、ARM、8086和MSP430等，2010年即将增加Cortex和DSP系列处理器，
18、并持续增加其他系列处理器模型。在编译方面，它也支持IAR、Keil和MPLAB等多种编译器。使用Proteus 软件进行单片机系统仿真设计，是虚拟仿真技术和计算机多媒体技术相结合的综合运用。2.3 keil uvision2编程软件简介图2-3 keil uvision2 启动界面 Keil Software是美国Keil Software公司出品的51系列兼容单片机C语言软件开发系统，使用接近于传统c语言的语法来开发，与汇编相比，C语言在功能上、结构性、可读性、可维护性上有明显的优势，因而易学易用,而且大大的提高了工作效率和项目开发周期,他还能嵌入汇编，您可以在关键的位置嵌入，使程序达到接近
19、于汇编的工作效率。KEILC51标准C编译器为8051微控制器的软件开发提供了C语言环境,同时保留了汇编代码高效,快速的特点。C51编译器的功能不断增强， 使你可以更加贴近CPU本身，及其它的衍生产品。C51已被完全集成到uVision2的集成开发环境中，这个集成开发环境包含：编译器，汇编器，实时操作系统，项目管理器，调试器。uVision2 IDE可为它们提供单一而灵活的开发环境。3、系统总体方案设计3.1总体方案设计 智能家居控制系统主要是在家庭便捷、舒适方面起到智能控制的目的。本系统设计主要模拟控制家居灯、空调、热水器，可分为三个模块：一为软件系统，用VB串口通信控件实现功能代码的发送；
20、二为利用pt6000无线收发器无线实现无线发送与接收；三为利用单片机模拟家居设备。本组成员负责软件系统，根据现实情况设计各个模块要实现那些功能。并用VB串口通信控件实现功能代码的发送，以及接收家居设备的实时状态。首先要根据系统要实现的控制要求设计VB的模块和软件界面，然后编写代码和功能子程序，接着利用虚拟串口在PC机上实现与Proteus仿真软件相连，实现仿真系统功能。在此过程中，要发现错误和不足，经过不断修改来完善程序。3.2 软件界面设计3.2.1总体系统软件界面 在实现这些模块的功能的同时还要能实现串口的基本功能设置，各个功能模块的切换。智能家居系统的总体界面设计如下：图3-2 总体界面
21、3.2.2空调软件界面系统要实现控制空调的开和关、温度，还要实现实时接收当前的环境温度并显示。系统软件界面设计如下：图3-1 系统软件界面3.3 程序总体设计 在编写程序之前根据模块功能要设定好代码。代码如下（以下数字都是16进制）：80，81，82分别代表家居灯，空调，热水器三个功能模块。家居灯代码：83，84，85分别代表房间1，房间2，房间3。 0代表家居灯关，11代表家居灯开。 家居灯亮度十个级别用110表示。空调代码：14代表空调打开，33代表空调关掉。 温度范围为（1532），分别用数字1532代表。热水器代码：34代表打开，76代表关掉。 温度范围为（3575），分别用数字357
22、5代表。软件分为三个模块：家居灯、空调、热水器。在启动程序后总体工作流程为：窗体载入（串口初始化）默认在家居灯房间1状态（即发送80，再发送了83）。3.3.1总体程序流程图 图3-3 总体程序流程图 3.3.2空调流程图空调的工作流程：按切换键切换到空调的工作模式（即发送81）按启动键启动，空调默认温度为20度（即先发送14再发送20）按加减键调节温度按确定键发送温度代码按关掉键关掉空调（即发送33） 图3-4 空调流程图 3.3.3空调通讯设置串口设置和状态显示：默认串口打开、串口参数为串口1、波特率9600、无校验位、8位数据位、1位停止位。当串口打开时，串口设置参数显示在TxtStat
23、us文本控件里，标识串口打开的图片ImgSwitchon处于可见状态：图3-5 标识串口打开图片当串口关闭时，串口关闭信息要显示在TxtStatus文本控件里，标识串口打开的图片ImgSwitchoff处于可见状态：图3-6 标识串口关闭图片通讯模块串口可以设置的参数：图3-7 串口设置的参数通讯模块波特率可以设置的参数：图3-8 波特率设置的参数通讯模块校验位可以设置的参数：图3-9 校验位设置的参数通讯模块数据位可以设置的参数：图3-10 数据位设置的参数通讯模块停止位可以设置的参数：图3-11 停止位设置的参数 细节要求：1、 功能切换用于切换功能模块，当处于此功能模块时，另外两个功能模
24、块的功能按键不能被触发。2、 当分别处于各个功能模块之内时开始键和设定时间处于可触发状态，关掉按键和确定按键处于不可触发状态，启动按键按下后，启动按键处于不可触发状态，关掉按键和确定按键后处于可触发状态。3、 串口处于关闭状态时各个功能模块处于处于不可触发状态，主界面要显示串口的实时状态。4、系统软件仿真4.1系统软件仿真设计 4.1.1 串口仿真与方法串口仿真要求：仿真串口的基本设置包括数据位、停止位、校验位、串口、波特率，仿真开关按钮实现关闭/打开串口，仿真图片和串口状态栏显示当前串口状态。家居灯仿真要求：仿真家居灯开和关，仿真切换键实现切换房间，仿真加减键调节家居灯亮度确定键确定亮度，仿
25、真当前亮度级别接收返回的亮度级别。空调仿真要求：仿真空调开和关，仿真加减键调节空调温度确定键确定温度，仿真当前当前值接收返回的当前环境温度。热水器仿真要求：仿真热水器开和关，仿真加减键调节热水器温度确定键确定温度，仿真加热时间段控制热水器，仿真当前温度接收返回的热水温度。仿真方法：总结来说此系统要能设置串口，根据按钮发送指定数据，实时接收数据，设定特定的时间发送指定的数据，所以可以在计算机上模拟仿真。 4.1.2软件虚拟串口用Virtual Serial Port Driver软件在计算机上增加一对相连的虚拟串口。 图4-1 Virtual Serial Port Drive 7.14.1.3
26、单片机串口用单片机Proteus串口实时接收智能家居系统发送过来的数据，并显示验证发送数据是否正确，同时把数据倒发送给系统验证系统是否能正确接收数据。 单片机程序如下：ORG 0000HLJMP STARTORG 0023HLJMP EESORG 1000HSTART:MOV SP,#4FH MOV IE,#90H MOV SCON,#50H MOV TMOD,#20HMOV PCON,#0 MOV TH1,#0FDH MOV TL1,#0FDH SETB TR1 AA0:NOP NOP SJMP AA0EES:CLR EA CLR RIMOV A,SBUF MOV P2,A MOV SBUF
27、,A JNB TI,$CLR TI SETB EA RETIEND4.2 串口参数设置图4-2 串口参数设置图4-3 串口参数设置4.3空调的仿真情况发送81代码系统转到空调功能模块。图4-4 发送81代码按下启动按钮默认的温度为20度。图4-5 默认的温度为20度空调温度设置的上限值为32度，当超过上限值时，系统出现“空调温度已经达到极限”的提示信息：图4-6 空调温度设置的上限值空调温度设置的下限值为15度，当超过下限值时，系统出现“空调温度已经最低”的提示信息：图4-7 空调温度设置的下限值通过以上的仿真，可以基本实现空调的开关与温度的控制。可以实现实时接收外部环境温度的要求与显示，能在
28、设计指定的温度范围内。在超过范围后，会禁止操作，并发出提示信息。在完成这一模块后，当功能切换键按下之后，就可以切换到家居灯与热水器的功能模块，实现本次整体的智能家居控系统设计。结 论本文首先详细介绍了智能家居控制系统的意义和其在国内外的现状。在原有的智能家居系统技术的基础上对其进行的进一步研究和探索。本系统的设计主要是对家庭内的家居灯、空调、热水器三方面进行整体系统智能设计。设计系统旨在为人们提供具有安全、方便、高效、快捷、智能化，并具有个性化的独特魅力的智能家居系统。 在课题的设计过程中我所作的主要工作有下面几点：1、总体方案的设计和Visual Basic6.0软件通讯控件(MSComm
29、控件)的选择，利用VB程序通过虚拟串口与单片机进行仿真。2、设计了空调智能控制的软件界面和流程图。 3、编写控制空调开关与温度的VB程序。4、设计了PC机设置与数据显示的方法 5、设计VB串口通信控件实现功能代码的发送，以及接收空调的实时状态。 6、完成空调模块要实现的控制功能设计并仿真调试成功，组成完整的智能家居控制系统，生成可执行文件。完成设计后，使我懂得了如何运用课本知识结合实际来完成定时器的显示和编程方法，以及如何驱动数码显示电路，这样能够慢慢地适应现代控制技术发展的需求，同时也提高了我们的思维能力和实际操作能力。在设计过程中，本组成员都努力相互帮助，相互监督。在碰到问题或难点的时候积
30、极面对，共同解决，从而很好地完成各个模块，一起完成整体系统设计。谢 辞经过这一个多月的查资料、编写程序、系统设计与仿真、写作论文，今天终于可以顺利地完成论文的最后谢辞了。时光匆匆飞逝，随着论文的完成，终于让我在大学的生活得以划下完美的句号。论文得以完成，要感谢的人实在太多了，首先要感谢老师的悉心指导，才能顺利地完成整个毕业设计与论文。曾老师严谨的治学态度，精益求精的工作作风，平易近人的人格魅力对我影响深远。在我的毕业设计期间，曾老师为我提供了种种专业知识上的指导和一些富于创造性的建议，并引导我的论文写作方向和架构，使我有了思考的方向，然后顺利的完成论文。在此向曾凌静老师表示深深的感谢和崇高的敬
31、意。与此同时，还要感谢同组的各位同学，在毕业设计的这段时间里，你们给了我很多的启发，提出了很多宝贵的意见，对于你们的帮助和支持，在此我深表感谢。在临近毕业之际，我还要借此机会向在大学生涯中给予了我帮助和指导的所有老师表示由衷的谢意，感谢他们的辛勤栽培。在他们的悉心帮助和支持下，我能够很好地掌握和运用专业知识，并在设计中得以体现，顺利地完成毕业论文。主要参考文献【1】 孙秀梅，安剑，刘彬彬 编著VisualBasic开发技术大全（第2版） 人民邮电出版社 2009.10【2】 楼玉萍 编著VisualBasic上机实践指导 浙江大学出版社 2007.12【3】 付永平，宋向红 编著Visual
32、Basic语言程序设计 中国水利水电出版社 2006.08【4】 郑阿奇，梁敬东，曹弋，刘金定 编著VisualBasic实训 清华大学出版社 2010.8【5】 贾长云，朱香卫可视化编程应用VisualBasic 高等教育出版社 2006.5【6】林卓然 编著VB语言程序设计(第2版) 电子工业出版社 2009.1【7】孟德欣 编著VB程序设计 清华大学出版社 2009.7【8】龚运新 编著VisualBasic在自动控制中的编程技术 清华大学出版社 2008.9【9】杨克玉 编著VB6.0程序设计实训教程 机械工业出版社 2005.2【10】罗朝盛，余文芳，余平 编著Visual Basi
33、c6.0程序设计教程人民邮电出版社 2009.10【11】李玉东 编著Visual Basic 6.0中文版控件大全 电子工业出版社 2000.02【12】郭圣路 编著Visual Basic 6.0中文版从入门到精通 电子工业出版社 2008.1【13】杨聪，刘培涛 编著VisualBasic6.0程序设计案例实训教程 中国人民大学出版社 2009.1【14】赵俊岚 编著中文版VisualBasic6.0循序渐进教程 北京希望电子出版社 2005.2【15】张彦玲，于志翔 编著VisualBasic6.0程序设计教程 电子工业出版社 2009.9【16】沈祥玖 编著VB程序设计(第2版) 高
34、等教育出版社 2007.11附录一：系统源程序= 变量定义=OptionExplicit 强制显式声明Dim sumcount, temp, sumcount1, sumcount2 As IntegerDim Setup, open1, open2, stop1, stop2Dim ComSwitch As Boolean 串口开关状态判断Dim InputSignal As String 接收缓冲暂存Private Sub CmdAuto_Click() 房间切换按钮On Error GoTo Errwsumcount1 = sumcount1 + 1 If sumcount1 = 84
35、Then CmdOpen11.Visible = True Cmdcontrol11.Visible = True Cmdclose11.Visible = True CmdOpen22.Visible = False Cmdcontrol22.Visible = False Cmdclose22.Visible = False CmdOpen.Visible = False Cmdcontrol.Visible = False Cmdclose.Visible = False Frame4.Caption = 房间2 temp = sumcount1 Call textsend ElseIf
36、 sumcount1 = 85 Then CmdOpen22.Visible = True Cmdcontrol22.Visible = True Cmdclose22.Visible = True CmdOpen.Visible = False Cmdcontrol.Visible = False Cmdclose.Visible = False CmdOpen11.Visible = False Cmdcontrol11.Visible = False Cmdclose11.Visible = False Frame4.Caption = 房间3 temp = sumcount1 Call
37、 textsend Else sumcount1 = 83 CmdOpen.Visible = True Cmdcontrol.Visible = True Cmdclose.Visible = True CmdOpen22.Visible = False Cmdcontrol22.Visible = False Cmdclose22.Visible = False CmdOpen11.Visible = False Cmdcontrol11.Visible = False Cmdclose11.Visible = False Frame4.Caption = 房间1 temp = sumco
38、unt1 Call textsend End IfErrw:End Sub= 家居关掉按钮=Private Sub CmdClose_Click() 家居灯房间1关掉按钮CmdOpen.Enabled = TrueCmdclose.Enabled = FalseCmdcontrol.Enabled = Falsetemp = 0Call textsendEnd SubPrivate Sub CmdClose1_Click() 空调关掉按钮Cmdcontrol1.Enabled = FalseCmdOpen1.Enabled = TrueCmdclose1.Enabled = Falsetemp
39、 = 33Call textsendEnd SubPrivate Sub Cmdclose11_Click() 家居灯房间2关掉按钮CmdOpen11.Enabled = TrueCmdclose11.Enabled = FalseCmdcontrol11.Enabled = Falsetemp = 0Call textsendEnd SubPrivate Sub CmdClose2_Click() 热水器关掉按钮Cmdcontrol2.Enabled = FalseCmdOpen2.Enabled = TrueCmdclose2.Enabled = Falsetemp = 76Call te
40、xtsendEnd SubPrivate Sub Cmdclose22_Click() 家居灯房间3关掉按钮CmdOpen22.Enabled = TrueCmdclose22.Enabled = FalseCmdcontrol22.Enabled = Falsetemp = 0Call textsendEnd Sub= 家居控制按钮=Private Sub Cmdcontrol_Click() 家居灯房间1控制按钮temp = TxtSendIf temp 10 ThenMsgBox 亮度已经超过最大级别, 48, 智能家居控制系统temp = 5ElseIf temp 32 ThenMsgBox 空调温度已经超过最高温度, 48, 智能家居控制系统temp = 20ElseIf temp 10 ThenMsgBox 亮度已经超过最大级别, 48, 智能家居控制系统temp = 5ElseIf temp 75 ThenMsgBox 热水器温度已经超过最高温度, 48, 智能家居控制系统temp = 50ElseIf temp 35 ThenMsgBox 热水器温度已经低于最低温度, 48, 智能家居控制系统temp = 50ElseEnd IfCall textsend
