绿色智能晾衣架性能介绍(已有专利).pptx

区域共享课程之 龙人宝贝车 组长 李经 组员 王浩宇 项目 绿色智能晾衣架 学校 上海市晋元高级中学 作品摘要 作品设计思路 具体实施 作品摘要 应用范围 这是一样以智能化解决生活中实际问题的创新之作 以科技节能的实际案例 生活中上班族及一些生活节奏快的人群常常使用烘干机或带烘干机的全自动洗衣机 而使用日晒方式的人群主要是住宿的学生和工房的主妇们 Back 设计理念之 节能 人工智能地解决生活中的实际问题 以现代科学技术 来替代传统产品的高能耗 本产品充分利用机械能的转换 以降低 所需的能量 Nextpage 人们选择烘干机的理由大多是不受天气影响 便捷快速等 这一绿色智能晾衣架不但有烘干机的优点 而且没有烘干机无人看管衣物过热引起的火灾隐患 设计理念之 安全 Back 效果图 Back 作品设计思路 生活中的问题 因为住校所以不能使用烘干机烘干衣服 常常为能不能穿上干衣服犯困 每次都是快要晒干的时候 放学前的一场雨把已经干的衣服打湿 又想到可以放在室内晾干 但每次都很湿 室内也很潮湿 于是就想出要做一个可以在下雨时自动把衣服收到雨水打不到的地方 又可以在不下雨是自动将衣服晒出去的装置 Back 解决方案 下雨时 将衣物收入避雨处 雨停时 将衣物伸出晾晒 Back 具体实施 所需配件 湿度检测套件 Nextpage 所需配件 龙人宝贝车模板 Nextpage 所需配件 龙人宝贝车之 LCD显示器 Nextpage 所需配件 龙人宝贝车部分完成 Nextpage 所需配件 框架模型 Back 线路图 程序 tC摄氏度的赋值rhLin湿度的赋值 原主程序Main DOGOSUBSend DataPAUSE5000LOOP 每5000毫秒 5秒采一次数据 运行一次子程序 SendData Nextpage 程序 要与上一次的采样值进行比较 于是增加新定义赋值 t rh 来储存上一次的值 可得程序 Main DOt tC rh rhLinGOSUBSend DataPAUSE5000LOOP Nextpage 程序 当温度在一次判断中下降超过2 或湿度下降超过20 就将衣物收入避雨处 也就是让舵机正传 IF tC t 2 OR rhLin rh 10 2 THENFORcounter 1TO15PULSOUT13 850PULSOUT12 650PAUSE20NEXTENDIF Nextpage 程序 当湿度在一次判断中回升超过20 且温度回升超过2 就将衣物伸出避雨处 也就是让舵机倒传 IF rh rhLin 10 2THENFORcounter 1TO15PULSOUT12 850PULSOUT13 650PAUSE20NEXTENDIF Nextpage 程序 可能有人会疑惑 当已将衣物收入时 温度持续下降怎么办我也考虑过了 可加入标志变量 flag Main flag 0DOt tC rh rhLinFORcounter 1TO10GOSUBSend DataPAUSE5000NEXTIF tC t 2 OR rhLin rh 10 2 and flag 0 THENFORcounter 1TO15PULSOUT13 850PULSOUT12 650PAUSE20NEXTflag 1ENDIF 接下页 Nextpage 程序 接上页 IF rh rhLin 10 2and t tC 2 and flag 1 THENFORcounter 1TO15PULSOUT12 850PULSOUT13 650PAUSE20NEXTflag 0ENDIFLOOP 以上仅为主程序的介绍 Nextpage 程序 温湿度机器人的子程序 LCD显示器的子程序 Back Nextpage 任务分配 文稿主讲拍摄 录像 装配部件 李经 任务分配 文稿助手设计 策划 绘图 模型组建 文稿排版程序编辑与调试 王浩宇 Back 上学期作品展示 STAMPBS2 PBASIC2 5 DEBUG programrunning irDetectLeftVARBitirDetectRightVARBitpulseLeftVARWordpulseRightVARWordloopCountVARBytepulseCountVARByteFREQOUT4 2000 3000DOFREQOUT8 1 38500irDetectRight IN0FORloopCount 1TOpulseCountPULSOUT13 pulseLeftPULSOUT12 pulseRightPAUSE20NEXTLOOP IF irDetectLeft 0 AND irDetectRight 0 THENpulseCount 1pulseLeft 850pulseRight 650ELSEIF irDetectRight 1 THENpulseCount 10pulseLeft 650pulseRight 650ELSEIF irDete