山东大学单片机实验 (实验7)_第1页
山东大学单片机实验 (实验7)_第2页
山东大学单片机实验 (实验7)_第3页
山东大学单片机实验 (实验7)_第4页
山东大学单片机实验 (实验7)_第5页
已阅读5页,还剩4页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、 信息科学与工程学院20162017学年第二学期实 验 报 告课程名称: 单片机原理与应用 实验名称: 3.8 ADC0808/9信号采集实验 实验报告【实验题目】 本实验利用LCD1602和AD0808实现简单的交流信号过零检测与频率分析。要求信号幅度变化时(满量程的5%95%),不影响检测的结果。频率检测的结果通过LCD1602的第1行显示出来,信号过零时,能够通过P2.6输出一个脉冲宽度为5微秒的脉冲信号。【实验要求】 1. 编写源程序并进行必要的注释;2. 记录实验过程;3. 记录程序运行结果;【实验过程及结果记录】自我完成实验A.电路图B.运行结果频率监测过零检测【实验源程序】#in

2、clude <reg51.h>#include <intrins.h>#define uint unsigned int#define uchar unsigned charsbit LCD_RS=P20;sbit LCD_RW=P21;sbit LCD_EN=P22;sbit AD_CLK=P23;sbit Start=P24;sbit OE=P25;sbit Out_pulse=P26;sbit EOC=P27;uchar tx50=0;uchar f=0;uchar date,lastdate,ge,shi;void delay_ms(uint xms)uint

3、i,j;for(i=xms;i>0;i-)for(j=110;j>0;j-); bit lcd_busy()bit result;LCD_RS=0;LCD_RW=1;LCD_EN=1;_nop_();_nop_();_nop_();_nop_();result=(bit)(P1&0x80);LCD_EN=0;return result;void lcd_wcmd(uchar cmd)while(lcd_busy();LCD_RS=0;LCD_RW=0;LCD_EN=0;_nop_();_nop_();P1=cmd;_nop_();_nop_();_nop_();_nop_(

4、);LCD_EN=1;_nop_();_nop_();_nop_();_nop_();LCD_EN=0;void lcd_clr()lcd_wcmd(0x01);delay_ms(2);void lcd_wdat(uchar dat)while(lcd_busy();LCD_RS=1;LCD_RW=0;LCD_EN=0;_nop_();_nop_();P1=dat;_nop_();_nop_();_nop_();_nop_();LCD_EN=1;_nop_();_nop_();_nop_();_nop_();LCD_EN=0;void lcd_init()/初始化子程序delay_ms(15)

5、;lcd_wcmd(0x38);/8位数据总线,显示2行,5*7点阵delay_ms(5);lcd_wcmd(0x0c);/显示开,关光标,不闪烁delay_ms(5);lcd_wcmd(0x06);/进入模式设置指令中,地址自动增加delay_ms(5);lcd_wcmd(0x01);/清楚LCD显示内容delay_ms(5);void s_timer0() interrupt 1TH0=0x3c;TL0=0xb0;tx50=tx50+1;if(tx50=20)TR0=0;tx50=0;f=f/2;shi=f/10;shi=shi+'0'ge=f%10;ge=ge+'

6、0'lcd_wcmd(0x80);lcd_wdat('F');delay_ms(5); lcd_wdat('=');delay_ms(5);lcd_wdat(shi);delay_ms(5);lcd_wdat(ge);delay_ms(5);lcd_wdat('H');delay_ms(5);lcd_wdat('z');f=0;TR0=1; void s_timer1() interrupt 3AD_CLK=AD_CLK;void main()delay_ms(10);lcd_init();lcd_clr();delay_ms(2);TMOD=0x21;TH1=0xfd;TL1=0xfd;TH0=0x3c;TL0=0xb0;EA=1;ET0=1;ET1=1;TR0=1;TR1=1;while(1)Start=1;Start=0;while(EOC!=1);OE=1;P0=0xff;lastdate=date;date=P0;OE=0;if(lastdate<128)&&(date>=1

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论