標(biāo)題: 智能溫控器單片機源程序 熱敏電阻+ADC0809檢測 Proteus仿真 [打印本頁]

作者: 王培鵬    時間: 2017-4-12 11:47
標(biāo)題: 智能溫控器單片機源程序 熱敏電阻+ADC0809檢測 Proteus仿真
51單片機做的智能溫控器設(shè)計:ADC0809,proteus與程序,用一個可變電阻代替熱敏電阻來實現(xiàn)仿真控制.
下面是仿真原理圖:



51單片機源程序:
  1. //設(shè)計要求:智能溫控設(shè)
  2. //用ADC0809檢測溫度,如果大于設(shè)定溫度則斷開回路,小于
  3. //則進行加熱,等于設(shè)定溫度則保持不變
  4. //其中分別用數(shù)碼管顯示設(shè)定溫度與實際溫度
  5. //用兩個按鍵進行加減設(shè)定溫度
  6. //收獲ADC0809高位應(yīng)該與單片機低位連接
  7. //在讀取溫度時必須先將P1口復(fù)位為1,不然會發(fā)生短路現(xiàn)象
  8. #include<reg51.h>
  9. #include<intrins.h>
  10. #define Duan P0

  11. sbit wei1=P2^0;//數(shù)碼管選通
  12. sbit wei2=P2^1;
  13. sbit wei3=P2^2;
  14. sbit wei4=P2^3;
  15. sbit Relay=P2^4;//控制電路繼電器閉合,使加熱
  16. sbit Start=P2^5;//AD0809開始轉(zhuǎn)化端口
  17. sbit EOC=P2^6; //ADC0809轉(zhuǎn)化標(biāo)志口
  18. void System_Init();          //系統(tǒng)初始化
  19. unsigned char  M[10]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};//數(shù)碼管段位
  20. char shezhi=50;
  21. int val;//轉(zhuǎn)化值
  22. char i=0;
  23. void delay1ms(void)   //誤差 0us
  24. {
  25.     unsigned char a,b,c;
  26.     for(c=1;c>0;c--)
  27.         for(b=142;b>0;b--)
  28.             for(a=2;a>0;a--);
  29. }

  30. void main()
  31. {
  32.   System_Init();
  33.   while(1)
  34.   {
  35.     P1=0xff;
  36.     Start=0;
  37.     Start=1;  //開始轉(zhuǎn)化
  38.     _nop_();
  39.     Start=0;       
  40.     _nop_();
  41.     while(!EOC);   //轉(zhuǎn)化結(jié)束
  42.         val=(P1*100/256); //量程轉(zhuǎn)化
  43.         if(val>shezhi)//是否繼續(xù)加熱
  44.         Relay=0;
  45.         else
  46.         Relay=1;
  47.   }
  48. }
  49. void System_Init()
  50. {
  51.   TMOD=0x01;
  52.   EA=1;
  53.   ET0=1;
  54.   TH0=(65535-5000)/256;
  55.   TL0=(65535-5000)%256;
  56.   TR0=1;
  57.   EX0=1;
  58.   EX1=1;
  59.   

  60. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復(fù)制代碼


全部資料下載(仿真工程文件和源碼):
智能溫控器.zip (84.57 KB, 下載次數(shù): 260)

作者: xmch    時間: 2017-6-4 23:09
感謝了。
作者: 1234567890qwer    時間: 2017-11-14 13:27
謝謝前輩,學(xué)習(xí)到了
作者: 15316933092    時間: 2018-4-24 19:09
非常感謝樓主的奉獻
作者: yzh123    時間: 2018-4-24 20:35
謝謝樓主分享
作者: 1231235555    時間: 2019-6-22 11:37
厲害厲害
作者: 鵬博士PBs    時間: 2019-6-23 06:45
個人感覺熱敏電阻可以采用變阻箱進行替換
作者: 1231235555    時間: 2019-6-23 17:54
厲害  受教了真的是
作者: 杜平生    時間: 2020-2-27 15:12
感謝 樓主 非常有用
作者: jyk    時間: 2020-5-17 12:08
感謝分享
作者: 小學(xué)    時間: 2020-6-4 23:20
大神,上面的代碼還差多少





歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1