- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验四 物联网中央空调温度控制
1实验目的
>采用温度传感器采集相关数据。
>掌握串口通信的编程技巧。
>通过传感器采集的数据,实现采用数字PID实现房间的温度控制。
2实验环境
> 硬件:UIZB CC2530节点板,温度传感板,USB接口 CC2530仿真器, PC机,交叉串口线,PLC;
> 软件:Windows 7/Windows XP, IAR集成开发环境,串口调试工具, dephi软件,hwstar PLC编程软件。
3实验内容
通过温度传感器,采用PID实现对房间温度的控制。
4实验原理
采集温度检测的数据,通过串口从节点模块采集数据,用delphi编写控制程序,并将 控制结果下载到下位机PLC,进行执行输出。
5实验步骤
1) 按照实验平台模块参考程序,采集数据,同时,数据会通过串口传输到PC超 级终端上。
2) 编写上位机串口通信程序,采集数据;
并编写控制程序实现下述功能:
采用数字PID实现对温度的控制
数字増量型PID控制算法公示:
△u伙)=u(k) -u(k 一 1)
=Kp \e(k) — e(k -1)] + Kte(k) + KD \e(k) - 2e 伙一 1) +幺伙一 2)]
“伙-l) = Kp e仗一 1) + 壬士e(i) + 7/伙 T);伙一习
11 /=0 」
3) 在PC对节点模块的串口设置波特率为19200, 8数据位,1停止位,无硬件 流控;对PLC的串口设置波特率为57600, 8数据位,1停止位,奇校验。
4) 上位机程序对传感器数据的采集,编写RTU协议将控制结果下传到PLC;
5) 程序编好后,观察PLC输出点的运行。
7实验总结
在实验中,我们通过串口从节点模块的温度传感器采集数据,用delphi编写控制程 序,并将控制结果下载到下位机PLC,进行执行输出到PC超级终端上,并采用数字 PID实现对温度的控制。?实验较为简单,但是实用性很强,方便了家庭生活。. 希望该物联网技术未来能更好的得到普及推广和应用。
附件:
procedure Tcommthread.getWMorder;
var
order,ecc:string;
begin
order := *01 05,+inttohex(Forml.Mset.adr,4);
if Form l.Mset.value= 1 then
order := order +FF 00*
else
order := order +00 001;
ecc: =getCRC 16(order);
Morder[0]:=strtointC$+ecc[l]+ecc [2]);
Morder[l]:=strtoint($+ecc [3]+ecc[4]);
Mordcr[2]:=strtoint($+ccc[5]+ccc [6]);
Morder[3]:=strtoint($+ecc[7]+ecc [8]);
Morder[4]:=strtoint($+eccl9]+ecc[ 10J);
Morder ⑸:=stnoint($+ccc[ ll]+eccfl2]);
Morder[6] :=strtoint($+ecc[ 13]+ecc[ 14]);
Morder[7] :=strtoint(r$f+ecc[ 15]+ecc[ 16]);
end;
procedure Tcommthread.getRMDcontrol;
var
order,ccc:string;
begin
order:=01 03 00 3C 00 06 *; 〃连续读多个字 功能3
ecc:=getCRC 16(order);
Morder[0]:=strtoint($+ecc[l]+ecc [2]);
Mordcr[ 1 ]:=strtoint(,$+ecc[3]+ecc[4]);
Morder[2]:=strtoint(;$,+ecc[5]+ecc [6]);
Morder [3]:=strtoint(r$+ecc[7]+ecc[8]);
Morder[4]:=strtointC$+ecc [9]+ecc[10]);
Morder[51:=strtoint(,$,+ecc[l l]+ecc[12]);
Mordcr[6]:=strtoint($+ccc[ 13]+ccc[ 14]);
Morder[7]:=strtoint(r$,+ecc[15]+ecc[16]);
end;
procedure Tcommthread.getRDorder;
var
order,ccc:string;
begin
order:=*01 03 00 3C 00 IE*; 〃连续读多个字 功能3 ecc:=getCRC 16(order);
Morder[0]:=strtoi
文档评论(0)