找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開始

搜索
查看: 4985|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

單片機(jī)熱敏電阻測(cè)溫源代碼

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:77322 發(fā)表于 2018-1-21 11:51 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
單片機(jī)熱敏電阻測(cè)溫
源程序如下:

  2. #include<reg52.h>
  3. #define uint unsigned int
  4. #define uchar unsigned char

  6. sfr P1ASF=0x9d;
  7. sfr ADC_RES=0xbd;
  8. sfr ADC_CONTR=0xbc;

  10. #define ADC_POWER 0x80
  11. #define ADC_FLAG 0x10
  12. #define ADC_START 0x08

  14. #define ADC_SPEEDLL 0x00 //0000 0000
  15. #define ADC_SPEEDL 0x20  //0010 0000
  16. #define ADC_SPEEDH 0x40  //0100 0000
  17. #define ADC_SPEEDHH 0x60 //0110 0000

  19. void delay(uint z); //延時(shí)函數(shù)
  20. void initADC();        //初始化AD功能


  23. uint code Ttable[42][2]={// 此數(shù)組保存熱敏電阻的溫度值（從2-43攝氏度），2℃對(duì)應(yīng)25.7K;超出無效
  24. {2,257},{3,246},{4,236},{5,225},{6,216},
  25. {7,207},{8,198},{9,190},{10,182},{11,174},
  26. {12,167},{13,160},{14,154},{15,148},{16,142},
  27. {17,136},{18,131},{19,126},{20,121},{21,116},
  28. {22,112},{23,107},{24,103},{25,100},{26,96},
  29. {27,92},{28,89},{29,86},{30,82},{31,80},{32,77},
  30. {33,74},{34,71},{35,69},{36,66},{37,64},{38,62},
  31. {39,60},{40,58},{41,56},{42,54},{43,52}
  32. };   

  34. uchar code table[13]={//共陰 數(shù)碼管數(shù)字0-9
  35. 0x3F, 0x06, 0x5B, 0x4F, 0x66, 0x6D,0x7D, 0x07, 0x7F, 0x6F/*0-9*/,
  36. 0x00/*無*/, 0x02/*|*/, 0x39/*C*/,};

  38. uchar code table_wela [4]={//數(shù)碼管位置0-3
  39. 0xef,0xdf,0xbf,0x7f};//1110 1111;        1101 1111;        1011 1111;        0111 1111

  41. uchar  show[4];

  43. void delay(uint z)
  44. {
  45.         uint x,y;
  46.         for(x=20;x>0;x--)
  47.         for(y=z;y>0;y--);
  48. }

  50. /****************************************************
  51. 函數(shù)名稱 : void adc_isr() interrupt 5
  52. 功能描述 : AD 中斷 , 獲取 AD 數(shù)據(jù)
  53. 輸 入 : 無
  54. 輸 出 : show
  55. 全局變量 : show
  56. 調(diào)用模塊 : delay **************************/
  57. void Adc_isr() interrupt 5//Interrupt Service Routines=ISR中斷服務(wù)程序
  58. {
  59.         uchar i;
  60.         uint m;
  61.         m=ADC_RES; // 計(jì)算此時(shí)熱敏電阻阻值
  62.         m=(100*m)/(255-m); // 計(jì)算此時(shí)的溫度值
  63.         for(i=41;i<42;i--)
  64.         {
  65.                 if(m>=Ttable[i][1]&&m<Ttable[i-1][1])
  66.                 {
  67.                         show[0]=(Ttable[i][0]+1)/10; //十位
  68.                         show[1]=(Ttable[i][0]+1)%10; //個(gè)位
  69.                         show[2]=11;                                 //溫度符號(hào)       
  70.                         show[3]=12;
  71.                         break;
  72.                 }
  73.         }
  74.         ADC_CONTR=ADC_POWER|ADC_SPEEDLL|ADC_START|0x01; // 重新 使能 AD 轉(zhuǎn)換
  75. }

  77. /******************************************************
  78. 函數(shù)名稱 : void initADC()
  79. 功能描述 : 初始化 AD 功能
  80. 輸 入 : 無
  81. 輸 出 : 無
  82. 全局變量 : 無
  83. 調(diào)用模塊 : delay *********************************************************/
  84. void initADC()
  85. {
  86.         P1ASF=0xff;
  87.         ADC_RES=0;
  88.         delay(800);
  89.         ADC_CONTR=ADC_POWER|ADC_SPEEDLL|ADC_START|0x01;// 使能 P11 為 AD 輸入
  90.         IE=0xa0;//1010 0000等價(jià)于: EA=1; EADC=1;
  91.         delay(5);
  92. }

  94. void main()
  95. {
  96. ……………………

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

所有資料51hei提供下載:
附源碼-單片機(jī)設(shè)計(jì)之熱敏電阻測(cè)溫.rar (1.33 KB, 下載次數(shù): 85)


分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表