太阳能热水器工程联箱自动控制系统 单片机源程序

太阳作为免费的清洁能源，利用得当非常实惠方便，坐标大同市偏远县区农村，空气清新无雾霾，光照条件良好，计划利用太阳能取暖。
      分析：太阳能电池板和太阳能真空热水管两种途径，太阳能电池板转换效率较低，需配备电池组，成本较高，放弃！
      太阳能真空管，技术比较成熟，成本相对较低，安装需要专业技术，管路防冻等困难较多；
最终选择太阳能真空管方案小试效果，某个宝弄的50管太阳能工程联箱，带支架运费共1450元，太阳能热水管及接头若干，循环泵一个100+，水空调一个400+，储水桶暂用水桶代替，其余配件过程中描述。
      利用不长的假期开始组装，真空管安装不小心碰碎2根，好在卖家多发有结余有惊无险；管路三通各部件连接到位，安装顺序：水桶——水泵——单向阀——太阳能联箱——水空调——水桶，室外部分管路做保温，特别说明太阳能管最顶端需安装自动排气阀，用于排空管路积水时进气，否则强大的大气压强回把真空管吸进去，把联箱吸瘪，开始因为排气阀太小，导致联箱已被吸瘪，等待通水测试；
       首次上水要在早晨太阳没出来之前，太阳出来管内温度太高回造成爆管，上水就比较不顺利，水泵买的是暖气循环泵，离心泵，100W，功率小上水一半后上不动了，多次寻找原因后无法解决，直接接到自来水先利用自来水压力完成上水，冬天光照较弱，暂时不需要循环；临近春节，再买水泵已经不发货了，没办法，找到一个喷农药用的配件隔膜泵，压力没问题，噪音太大，暂时忍受吧！还有不知道隔膜泵在热水工作能撑多久！
      进入正题，控制思路简单介绍一下：元件：单片机STC12单片机，光线传感器模块，继电器模块。控制思路：白天：管顶温度高于60度，循环泵开始循环，开20秒停20秒；管顶温度高于90度，循环泵一直工作；低于3度，循环泵开始工作（防冻）；夜晚：管路温度低于3度，循环泵开始工作，管路温度高于10度，循环泵停止工作；
      测温部分：DS18B20温度传感器，暂用4个，分别检测：1.联箱顶部排气阀温度防止结冰影响工作，2.联箱顶部温度，检测水温，决定是否循环；3.联箱底部底部温度，总想测一下，暂时没用；4.管路温度，测温决定水泵循环防止冻管；
      增加功能：温度数据上传物联网，远程监控：乐为物联！

制作出来的实物图如下：


单片机源程序如下:

1. #include"shuiliu.h"
   
2. #include"ESP8266.h"
   
3. //#include<STC12C5A60S2.h>
   
4. #define uchar unsigned char
   
5. #define uint unsigned int
   
6. uchar  table12[]="当前水流:00.0L/h";//数组形式
   
7. uint shui,js,ls;                          //shui传感器计数，js定时器1计数，        ls流速
   
8. /*******************************************************************************
   
9. * 函 数 名         : Int0Init()
   
10. * 函数功能                   : 设置外部中断0
    
11. * 输    入         : 无
    
12. * 输    出         : 无
    
13. *******************************************************************************/
    
14. void Int0Init()                         //外部中断0
    
15. {
    
16.         //设置INT1
    
17.         IT0=1;//跳变沿出发方式（下降沿）
    
18.         EX0=1;//打开INT1的中断允许。        
    
19.         EA=1;//打开总中断        
    
20. }
    
21. void InitTimer1(void)
    
22. {
    
23.          AUXR = AUXR|0x40;  // T1, 1T Mode
    
24.      TMOD = 0x10;
    
25.     TH1 = 0x0D4;
    
26.     TL1 = 0x0CD;
    
27.     EA = 1;
    
28.     ET1 = 1;
    
29.     TR1 = 1;
    
30. }
    
31.    void diplaysl(void) //写指令
    
32. {        shui=0;
    
33.         js=0;
    
34.         ls=0;
    
35.         EX0=1;
    
36.         ET1=1;
    
37.         Delay_ms(400);
    
38.         table12[9]=ls/100+0x30;
    
39.         if(table12[9]==0)
    
40.         table12[9]=0x2D;
    
41.         table12[10]=ls%100/10+0x30;
    
42.         table12[12]= ls%10+0x30;
    
43.         Display_String(1, table12);
    
44.         }
    
45. /*******************************************************************************
    
46. * 函 数 名         : Int0()        interrupt 2
    
47. * 函数功能                   : 外部中断0的中断函数
    
48. * 输    入         : 无
    
49. * 输    出         : 无
    
50. *******************************************************************************/
    
51. 
    
52. void Int0()        interrupt 0                //外部中断1的中断函数
    
53. {                                 //过零中断计数        k，n调温计时
    
54. //ET1=1;                 //延时消抖
    
55. shui++;        
    
56. }
    
57. 
    
58. 
    
59. void Timer1Interrupt(void) interrupt 3
    
60. {
    
61.     TH1 = 0x0D4;           //1ms
    
62.     TL1 = 0x0CD;
    
63.     //add your code here!
    
64.         js++;
    
65.         if(js>=1000)  //10ms
    
66.         {
    
67.         EX0=0;
    
68.         ET1=0;
    
69.         ls= shui*60/45;//shui计数除以450除以10=流速L/s；        shui计数除以450X6=流速L/min；
    
70.         //Display_String(1, table12);
    
71. 
    
72.         shui=0;
    
73.         js=0;
    
74. 
    
75.         }
    
76. }
    

复制代码

所有程序51hei提供下载:
简单测试.rar (472.63 KB, 下载次数: 23)

2020-10-18 18:42 上传

点击文件名下载附件

请收下我膝盖