多量程數字電壓表_第1頁
多量程數字電壓表_第2頁
多量程數字電壓表_第3頁
多量程數字電壓表_第4頁
多量程數字電壓表_第5頁
已閱讀5頁,還剩5頁未讀 繼續免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

1、 多量程數字電壓表本畢設以stc89c52rc單片機為核心,利用adc0809采集外部電壓進行轉換顯示,并采用串聯電阻法,選取不同的量程。程序:#include/#include#define uint unsigned int#define uchar unsigned charsbit rs=p30;sbit e=p31;sbit start=p20;sbit out=p22;sbit ale=p23;sbit key1=p34;sbit key2=p35;sbit key3=p36;uchar num=1,flag=0;uint ad_data;uchar data table=0123

2、456789.v h:;void delay(uchar ms) /延時子函數 uchar j,i; for(i=ms;i0;i-) for(j=110;j0;j-);/寫指令/void write_com(uchar com) /寫指令函數 rs=0; p1=com; e=1; delay(1); e=0;/寫數據/void write_data(uchar da) /寫數據函數 rs=1; p1=da; e=1; delay(1); e=0; /初始化液晶/void lcd_init() write_com(0x38); /*顯示模式設置*/ delay(5); write_com(0x3

3、8); delay(5); write_com(0x38); delay(5); write_com(0x38); write_com(0x08); /*顯示關閉*/ write_com(0x01); /*顯示清屏*/ write_com(0x06); /*顯示光標移動設置*/ delay(5); write_com(0x0c); /*顯示開及光標設置*/ write_com(0x83); write_data(table14); /初始化顯示相關字符/void display_data(uchar add1,uchar add2,uint date) uchar i; write_com(0

4、x82); write_data(tablenum); /ad通道顯示 write_com(0x80+add1*0x40+add2); /地址計算 delay(1); if(num=1) i=date/100; write_data(tablei); / i=date/10%10; write_data(tablei); write_data(table10); i=date%10; write_data(tablei); write_data(table11); if(num=2|num=3) i=date/100; write_data(tablei); /write_data(table

5、10); i=date/10%10; write_data(tablei); i=date%10; write_data(tablei); write_data(table11); write_data(table12); void key_scan() if(key1=0) delay(10); /消抖延時 if(key1=0) num=1; while(key1=0); if(key2=0) delay(10); /消抖延時 if(key2=0) num=2; while(key2=0); if(key3=0) delay(10); /消抖延時 if(key3=0) num=3; whil

6、e(key3=0);void int0_init() ea=1; it0=1; ex0=1;void ad_transform() p2&=0x0f;/ delay(2); ale=0; p2|=0x00+num*16; /地址計算 delay(1); ale=1; ale=0; start=0; start=1; start=0; void main() float aa=0.0; lcd_init(); /液晶屏初始化 int0_init(); /中斷初始化while(1) key_scan(); /按鍵掃描函數 ad_transform(); delay(100); if(flag=1) ea=0; flag=0; aa=(float)ad_data; /ad轉換函數 if(num=1) aa=(aa*200)/255; /標度轉換此公式將ad值放大100倍 if(num=2) aa=(aa*200)/255; /標度轉換此公式將ad值放大100倍 if(num=3) aa=(aa*500)/255; /標度轉換此公式將ad值放大100倍 ea=1; display_data(0,4,(uint)aa);/數值顯示 void it0() interrupt 0 out=1; flag+; ad_dat

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業或盈利用途。
  • 5. 人人文庫網僅提供信息存儲空間,僅對用戶上傳內容的表現方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論