基于STC89C52的电子时钟的设计(有闹钟调时间)_第1页
基于STC89C52的电子时钟的设计(有闹钟调时间)_第2页
基于STC89C52的电子时钟的设计(有闹钟调时间)_第3页
基于STC89C52的电子时钟的设计(有闹钟调时间)_第4页
基于STC89C52的电子时钟的设计(有闹钟调时间)_第5页
已阅读5页,还剩6页未读 继续免费阅读

付费下载

下载本文档

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

文档简介

1、单片机课程设计基于STC89C5的电子时钟的设计电路图程序:#include sbit beep=P1A0; / 蜂鸣器sbitl仁PM1;/第一个红灯sbitl2二P1A2;/ 第一个绿灯sbitw4=P1A4;/ 第 1 位sbitw3=P1A5;/ 第 2 位sbitw2=P1A6;/ 第 3 位sbitw仁P1A7;/ 第 4 位sbitk 仁 P3A2;/ 按键 1 +sbitk2=P3A3;/ 按键 2sbitk3二P3A6;/按键3时分调整sbitk4=P3A7;/按键4功能选择秒表闹钟时间unsigned inta,b,c,d,e,f,num,num1,num2,num3,su

2、m;unsigned char code table=0xc0 ,0xf9,0xa4,0xb0,0x99,/15-i0x92,0x82,0xf8,0x80,0x90;/0011 11111100 0000void keyscan();void sound();void time();void display();/ 时间显示 void display2();/ 秒表显示 voiddelay(unsigned int t) unsigned int i,j; for(i=t;i0;i-) for(j=110;j0;j-);void init()num=45;num2=59;num3=11;TMO

3、D=0x11; TH1=(65536-45872)/256; TL1=(65536-45872)%256;EA=1;ET1=1;TR1=1; beep=0;delay(300);beep=1;delay(500);void main()init();while(1)keyscan();display();time();void sound()beep=0;delay(100);beep=1;void time()if(num=59)beep=0;/ 整点报时 2 miaoelse if(num=0)/ 整点报时beep=1;void keysca n() 按键检测if(k3=0)TR1=0;s

4、um+;delay(30);switch(sum)case 1:if(k1=0)num2+;sou nd();蜂鸣叫while(!k1)3 / 10oHcolunu)(寸卡Heujnu)七(垒)ZM岂密注opunos+COLUFIU)q宀q 宀o9unu)(LAUJnu)七壬 M 岂密注opunosrzuunu)(0只莒一 宀q 宀OH0LUFIU) (O9x0ujnu)七break; if(k2=0)num3-; sound(); / 蜂鸣叫 while(!k2) if(num3=-1) num3=23; break; break;case 3: sum=1;TR1=1; break; if

5、(k4=0)P0=table0; w1=0;w2=0;/ 初始化w3=0;w4=0;while(1)display2();void display()a=num/10;b=num%10;c=num2/10;/ 时分秒的个位和十位 d=num2%10;e=num3/10;f=num3%10;P0=tablee;w1=0;/ 第 1 位 delay(2);w1=1;7 / 1001 / 6乙蛍q二乙从JQe|qei=odU/v:侗ep I MO二 Jee|qei=od ()sAe|dsip p|OA 1二如:侗ep 厂蛍:0二恻V Jpe|qei=od =M:侗ep 砒蛍 /0=M Joe|qei=od 1二乙m:侗ep 乙蛍:0二乙mJQe|qei=odJ+LU nu:0二 M nu(OS=|,ujnu)j!:+M nu992%(SZ89l7-9999)= Hl99S/(SZ89t7-9999)=l,Hl dnjjeiui()eiju!i_n piOA 1二如:侗ep厂蛍:0二恻VJpe|qei=od=M:侗ep 砒蛍 /0=M Joe|qei=od 1二乙m:侗ep if(num=60)l2=l2;num=0;num2+;if(num2=60)n

温馨提示

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

最新文档

评论

0/150

提交评论