标题: NTC热敏电阻与MAX6675热电偶测温（51单片机代码+Proteus仿真） [打印本页]
作者: 18701931930    时间: 2021-4-17 09:51
标题: NTC热敏电阻与MAX6675热电偶测温（51单片机代码+Proteus仿真）
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）

完整代码，请下载附件！谢谢支持！！

51单片机NTC热敏电阻配合MAX6675热电偶测量温度的源程序如下：
  1. //2021-04-18

  3. #include "1602.h"
  4. #include "reg51.h"
  5. #include "MAX6675.h"
  6. #include "ADC1031.H"
  7. #include <math.h>

  9. //proteus仿真软件 ADC0831是8位的，测出来的温度有些偏差实属正常。
  10. //仿真毕竟不是真实的，如有兴趣，可自己搭电路验证。

  12. //NTC 10K  B3950
  13. //检测温度0-100
  14. //数组下标就是对应温度
  15. code u8 Temp_adc[101]={
  16. 196,        194,        191,        189,        186,        184,        181,        179,        176,        173,        170,        168,        
  17. 165,        162,        159,        157,        154,        151,        148,        145,        142,        139,        136,        134,        
  18. 131,        128,        125,        122,        120,        117,        114,        112,        109,        106,        104,        101,        
  19. 99,        96,        94,        91,        89,        87,        84,        82,        80,        78,        76,        74,        71,        70,        68,        66,        64,        62,        
  20. 60,        59,        57,        55,        54,        52,        51,        49,        48,        47,        45,        44,        43,        41,        40,        39,        38,        37,        
  21. 36,        35,        34,        33,        32,        31,        30,        29,        28,        27,        27,        26,        25,        24,        24,        23,        22,        22,        
  22. 21,        21,        20,        20,        19,        18,        18,        17,        17,        16,        16};


  25. //查找相近值，并返回下标
  26. u8 Find_data(u8 *a,u8 x,u8 len)
  27. {
  28.         u8 i,min,r=0;
  29.         
  30.         min=abs(*a-x);
  31.         for(i=0;i<len;i++)
  32.         {
  33.                 if(abs(a[i]-x)<min)
  34.                 {
  35.                         min=abs(a[i]-x);
  36.                         r=i;
  37.                 }
  38.         }
  39.         
  40.         return r;
  41. }


  44. void Timer0_init() //50MS
  45. {
  46.   TMOD=0X01;
  47.   TH0=0X4B;
  48.   TL0=0XFD;
  49.   TR0=1;
  50. }

  52. void ISR_init()
  53. {
  54.    EA=1;
  55.    ET0=1;
  56. }

  58. void isr_timer0() interrupt 1
  59. {
  60.   static u8 i;
  61.   TH0=0X4B;
  62.   TL0=0XFD;
  63.   i++;
  64.   if(i==6)  //300ms
  65.   {
  66.     i=0;
  67.           MAX6675_ReadTemper();  
  68.   }
  69. }

  71. void main()
  72. {
  73.         u8 ad;
  74.         
  75.   LCD_init();  //LCD初始化
  76.   Timer0_init(); //50MS
  77.   ISR_init();
  78.         Max6675_Init();
  79.   while(1)
  80.   {
  81.                 ad=read_0831();
  82.                
  83.                 Show_string(0,0,"MAX6675=");
  84.                 show_nuber(8,0,(u16)MAX6675_Temper);
  85.                 Show_string(12,0,"C");
  86.                
  87.                 Show_string(0,1,"10K NTC=");
  88.                 Show_string(12,1,"C");
  89.                
  90.                 show_nuber(8,1,Find_data(Temp_adc,ad,101));
  91.   }
  92. }
复制代码

Proteus仿真与代码下载：
NTC MAX6675 Proteus仿真.zip (577.88 KB, 下载次数: 251)

作者: 1ZZC    时间: 2021-12-9 10:36
为啥我打开仿真以后什么装置都没有啊
作者: 666648676494    时间: 2021-12-9 10:44
仿真打不开啊
作者: heicad    时间: 2021-12-9 19:34
1ZZC 发表于 2021-12-9 10:36
为啥我打开仿真以后什么装置都没有啊

要用Proteus8.8才能打开这个仿真,你看我打开后的效果

51hei.gif (310.82 KB, 下载次数: 118)

51hei.gif
作者: mick32    时间: 2022-4-13 00:26
Simulation working ok
You must locate clock.hex file and put in proteus working dir

CLOCK.rar

4.48 KB, 下载次数: 11, 下载积分: 黑币 -5

作者: 红花无常    时间: 2022-4-13 10:39
不错，AD6675的方案比较实惠
作者: hezezeze    时间: 2022-4-13 17:20
最近就在做这个东西，很实用！



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1