標題: stc12c5a60s2單片機用自帶ADC采集電壓源程序 [打印本頁]
作者: zc95127    時間: 2017-6-13 11:37
標題: stc12c5a60s2單片機用自帶ADC采集電壓源程序
stc12c5a60s2采集電壓實物圖：



單片機源程序如下:
  1. /***********************************************************
  2. 程序功能：STC12C5A60S2自帶ADC采集電壓信號+DS18B20溫度傳感器+LCD1602液晶顯示
  3. MCU型號： STC12C5A60S2
  4. 晶振頻率：11.0892MHz
  5. 整理時間：2012年4月25號
  6. ************************************************************/

  8. #include "reg51.h"
  9. #include "intrins.h"
  10. sfr P4        = 0XC0;
  11. sfr ADC_CONTR = 0XBC;
  12. sfr ADC_RES   = 0XBD;
  13. sfr ADC_LOW2  = 0XBE;
  14. sfr P1ASF     = 0X9D;

  16. typedef unsigned char BYTE;
  17. typedef unsigned int WORD;

  19. #include "1602.h"
  20. #include "DS18B20.h"

  22. #define ADC_POWER   0X80
  23. #define ADC_FLAG    0X10
  24. #define ADC_START   0X08
  25. #define ADC_SPEEDLL 0X00
  26. #define ADC_SPEEDL  0X20
  27. #define ADC_SPEEDH  0X40
  28. #define ADC_SPEEDHH 0X60

  30. void InitADC();
  31. void Delay(WORD n);
  32. WORD GetADCResult(BYTE ch);
  33. void DisplayADCResult(BYTE Channel);
  34. void DisplayTemperature();

  36. char qian=0,bai=0,shi=0,ge=0;
  37. BYTE ly_dis[4];//定義顯示緩沖區(qū)

  39. void main()
  40. {
  41.         WORD i=0;
  42.         float tt;
  43.         int ltemp;
  44.         InitADC();
  45.         LCDInit();
  46.         DisplayListChar(0, 0, "Temp:");
  47.         DisplayListChar(0, 1, "Volt:");
  48.         while(1)
  49.         {

  51.                 if(i==0)
  52.                         tmpchange();              //溫度轉換
  53.                 if(i==100)
  54.                 {
  55.                         tt=tmp()*0.0625;          //得到真實十進制溫度值，因為DS18B20
  56.                                                                 //可以精確到0.0625度，所以讀回數(shù)據(jù)的最低位代表的是0.0625度。
  57.                           ltemp=tt*10+0.5;           //放大十倍，這樣做的目的將小數(shù)點后第一位也轉換為可顯示數(shù)字，同時進行一個四舍五入操作。

  59.                         if(ltemp<0)
  60.                         {                //判斷第一位顯示整數(shù)還是負號
  61.                                 ly_dis[0]=0xbf;
  62.                                 ltemp=0-ltemp;        
  63.                         }
  64.                         else
  65.                                 ly_dis[0]=ltemp/1000;//顯示百位值
  66.                         ltemp=ltemp%1000;
  67.                         ly_dis[1]=ltemp/100;        //顯示溫度十位值
  68.                         ltemp=ltemp%100;
  69.                         ly_dis[2]=ltemp/10;                //顯示溫度個位值
  70.                         ly_dis[3]=ltemp%10;                //顯示小數(shù)點后一位
  71.                 }
  72.                 i++;
  73.                 if(i==3000)
  74.                 {
  75.                         DisplayADCResult(0);
  76.                         i=0;
  77.                 }                        
  78.                 DisplayTemperature();        //調(diào)用顯示               
  79.         }
  80. }

  82. void DisplayADCResult(BYTE Channel)
  83. {

  85.         qian=GetADCResult(Channel)/1000;
  86.         bai=GetADCResult(Channel)%1000/100;
  87.         shi=GetADCResult(Channel)%1000%100/10;
  88.         ge=GetADCResult(Channel)%10;
  89.         if(0==qian)
  90.         DisplayOneChar(5,1,' ');
  91.         else
  92.         DisplayOneChar(5,1,table[qian]);

  94.         if(0==bai&&0==qian)
  95.         DisplayOneChar(6,1,' ');
  96.         else
  97.         DisplayOneChar(6,1,table[bai]);

  99.         DisplayOneChar(7,1,table[shi]);
  100.         DisplayOneChar(8,1,table[ge]);
  101.         
  102.         DisplayOneChar(9, 1, 'v');
  103.                
  104. }

  106. void DisplayTemperature()
  107. {
  108.         if(0==ly_dis[0])
  109.                 DisplayOneChar(5, 0, ' ');
  110.         else
  111.                 DisplayOneChar(5, 0, table[ly_dis[0]]);
  112.         DisplayOneChar(6, 0, table[ly_dis[1]]);
  113.         DisplayOneChar(7, 0, table[ly_dis[2]]);
  114.         DisplayOneChar(8, 0, '.');
  115.     DisplayOneChar(9, 0, table[ly_dis[3]]);
  116.         DisplayOneChar(10, 0, 0xdf);
  117.         DisplayOneChar(11, 0, 'C');
  118. }

  120. WORD GetADCResult(BYTE ch)
  121. {
  122.         ADC_CONTR=ADC_POWER|ADC_SPEEDLL|ch|ADC_START;
  123.         _nop_();
  124.         _nop_();
  125.         _nop_();
  126.         _nop_();
  127.         while(!(ADC_CONTR&ADC_FLAG));
  128.         ADC_CONTR&=~ADC_FLAG;

  130.         return ADC_RES*4+ADC_LOW2;
  131. }

  133. void InitADC()
  134. {
  135. ……………………

  137. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復制代碼


所有資料51hei提供下載:
STC12C5A60S2自帶ADC采集電壓信號 DS18B20溫度傳感器 LCD1602液晶顯示.rar (458.99 KB, 下載次數(shù): 625)



作者: dy59731286    時間: 2017-7-17 11:13
謝謝大神 的分享了，謝謝謝謝
作者: qxdqx    時間: 2018-9-16 09:29
不知道準確不？
作者: songlei3232    時間: 2018-9-16 11:19
學習一下。
作者: 751694839    時間: 2018-10-31 12:18
可以測多少V的電壓呢?
作者: goodluck-ray    時間: 2018-11-16 09:54
下載看看
作者: wangsh    時間: 2018-11-22 17:23
感謝分享，謝謝
作者: jinjiaji    時間: 2018-11-29 11:01
非常感謝
作者: 79229道天    時間: 2019-3-11 20:02
能用？
作者: 白歌    時間: 2019-4-4 16:40
感謝分享
作者: 45e67    時間: 2019-4-15 14:10

謝謝大神 的分享了，謝謝謝謝
作者: Plutoace    時間: 2019-5-7 18:44
真好 謝謝 很有用
作者: RobinYuan888    時間: 2019-5-12 20:47
謝謝樓主分享
作者: RobinYuan888    時間: 2019-5-12 20:47
謝謝樓主分享，樓主大好人
作者: qq386556027    時間: 2019-8-20 21:04
下載試試  主要是ADC采集
作者: fankechang    時間: 2019-9-22 15:28
試試看
作者: 那些年，    時間: 2019-9-24 22:26
可用，哈哈
作者: jacky852    時間: 2019-12-5 08:56
好有用，非常感謝
作者: jacky852    時間: 2019-12-5 08:58
找了好久的ADC模塊
作者: jacky852    時間: 2019-12-5 09:05
為什么有typedef unsigned char BYTE;啊
作者: eleventree    時間: 2019-12-8 12:18
希望能用到，感謝樓主分享！
作者: blackstar    時間: 2020-3-9 22:42
請問為什么是2倍？
作者: renwenjun1    時間: 2020-3-10 09:16
學習一下。
作者: popo321    時間: 2020-4-13 16:35
學習一下，謝謝
作者: 豬哼哼    時間: 2020-5-29 17:23
謝謝大神分享
作者: hai861017    時間: 2020-8-5 23:38
學習一下，感謝
作者: cjffengyu    時間: 2020-8-16 10:42
感謝，正在找這個資料，謝謝大神分享！
作者: 19011250    時間: 2020-8-26 16:37
調(diào)試了。挺好，我的獲得的電壓數(shù)據(jù)怎么是實際數(shù)據(jù)的大約兩倍呢


另外一點，提示大家
void DisplayADCResult(BYTE Channel)
{

        qian=GetADCResult(Channel)/1000;
        bai=GetADCResult(Channel)%1000/100;
        shi=GetADCResult(Channel)%1000%100/10;
        ge=GetADCResult(Channel)%10;

這段最好寫一次=GetADCResult(Channel)，因為在獲得數(shù)據(jù)接近整數(shù)時，會發(fā)生bug。
例如3.98跳到3.02，實際上應該是4.02。
改成
word data=GetADCResult(Channel);
  qian=data/1000;
        bai=data%1000/100;
        shi=data%1000%100/10;
        ge=data%10;

就不會有問題了。
作者: wbz0508    時間: 2020-8-26 21:33
能否直接把交流220V分壓后供檢測？是否會干擾單片機？
作者: buwangjiunian    時間: 2020-10-11 13:21
感謝分享，程序可以運行、。。。。
作者: 74LS161    時間: 2021-7-21 17:09
可以可以很可靠



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