51單片機教程ADC0809模數轉換

2022-03-18 09:32:04 來源: 網絡

//MCU:AT89S51

//晶振：12M

//采用查詢方式讀AD轉換后的值

#include

#include "math.h"

#include "intrins.h"

unsigned charcode numcode[]={ 0xc0,0xf9,0xa4,0xb0,0x99,

0x92,0x82,0xf8,0x80,0x90,

0xC1,0XB7,0xFF

};//數字0～9及"U="”“共陽數碼管代碼

unsigned charcode dot_numcode[]={0X40,0X79,0X24,0X30,0X19,

0X12,0X02,0X78,0X00,0X10

};//帶數點的0～9共陽數碼管代碼

unsigned charcode bitcode[]={0xfe,0xfd,0xfb,0xf7,

0xef,0xdf,0xbf,0x7f};//數碼管位選代碼

unsigned chardispbuff[8]={0,0,0,11,10,12,12,12};

unsigned chardisp_count;

unsigned charflag=1;

unsigned charflag_count;

unsigned long intgetdata;

sbit START=P3^0;

sbit EOC=P3^2;

sbit OE=P3^1;

sbit AD_ALE=P3^3;

voidmain(void)

{

TMOD=0x01;//選擇定時器T0，方式為1（16位定時器）

TH0=(65536-3000)/256;//定時3MS初值

TL0=(65536-3000)%6;

TR0=1;

ET0=1;

EA=1;

AD_ALE=0;

START=0;

OE=0;

while(1)

{

if(flag==1)//每隔40ms啟動一次AD采樣

{

flag=0;

AD_ALE=1;//鎖存輸入通道

START=0;//驅動AD轉換

START=1;

AD_ALE=0;

START=0;//保持低電平

while(EOC==0);//等待AD轉換結束

TR0=0;//AD轉換結束時先停止T0

P0=0XFF;//關閉數碼管顯示，呵呵，其實人眼是感覺不到數碼管熄滅的

P1=0XFF;// 這個很重要

OE=1;//轉換結束，允許AD值輸出

getdata=P1;//讀出AD值，如果硬件連接上改成P2口來讀AD值，這句就改成"getdata=P2;"

OE=0;//禁止輸出

getdata=(unsigned long int)((unsigned long int)(getdata*500)/255);//轉換成電壓

dispbuff[2]=getdata/100;

dispbuff[1]=(getdata0)/10;

dispbuff[0]=getdata;

TR0=1;//重新啟動T0

}

voidt0(void) interrupt 1

{

TH0=(65536-3000)/256;

TL0=(65536-3000)%6;

if(disp_count==2)

P0=dot_numcode[dispbuff[disp_count]];

else

P0=numcode[dispbuff[disp_count]];

P1=bitcode[disp_count];

disp_count++;

flag_count++;

if(disp_count==8)

{

disp_count=0;

}

if(flag_count==100)

{

flag=1;

flag_count=0;

}

關鍵詞： 51單片機ADC0809模數轉

51單片機教程ADC0809模數轉換

您可能也感興趣:

今日熱點

天津深入實施“海河英才”行動計劃加大高端人才引進力度

廣州市科技局推出“科技大腦” 構建財政科技經費“3+3”資助方式

合肥戰略性新興產業迅猛發展將再“下先手”布局一批未來產業

更多

更多

排行

最近更新

今日要聞

51單片機教程ADC0809模數轉換

您可能也感興趣:

今日熱點

天津深入實施“海河英才”行動計劃 加大高端人才引進力度

廣州市科技局推出“科技大腦” 構建財政科技經費“3+3”資助方式

合肥戰略性新興產業迅猛發展 將再“下先手”布局一批未來產業

為您推薦

分紅險投訴多發 直指夸大收益、退保面臨損失巨大等問題

廈門開展銀行保險業消保教育宣傳周活動 促進行業數字化創新

友邦保險去年業績亮眼 新業務價值上升18%至33.66億美元

陜西省將加大財政投入力度 推動農業保險持續“擴面”

更多

更多

排行

最近更新

今日要聞

天津深入實施“海河英才”行動計劃加大高端人才引進力度

合肥戰略性新興產業迅猛發展將再“下先手”布局一批未來產業

分紅險投訴多發直指夸大收益、退保面臨損失巨大等問題

廈門開展銀行保險業消保教育宣傳周活動促進行業數字化創新

友邦保險去年業績亮眼新業務價值上升18%至33.66億美元

陜西省將加大財政投入力度推動農業保險持續“擴面”