关于单片机驱动数码管、流水灯、蜂鸣器的程序总程序_第1页
关于单片机驱动数码管、流水灯、蜂鸣器的程序总程序_第2页
关于单片机驱动数码管、流水灯、蜂鸣器的程序总程序_第3页
关于单片机驱动数码管、流水灯、蜂鸣器的程序总程序_第4页
关于单片机驱动数码管、流水灯、蜂鸣器的程序总程序_第5页
已阅读5页,还剩9页未读 继续免费阅读

下载本文档

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

文档简介

1、/ 关于单片机驱动数码管、流水灯、蜂鸣器的程序#includeunsigned char table=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f;sbit clk=P2A0;sbit AB二卩2八1;sbit SG=P2A5;sbit SS=P2A4;sbit SB=P2A3;sbit SQ=P2A2;sbit L1=P2A7;/ 延时调用函数void Delay()unsigned char i,j,k;for(i=5;i0;i-)for(j=10;j0;j-)for(k=50;k0;k-);/ 显示一个数字void SentDate(

2、char num)unsigned char c;for(c=0;c1;clk=1;/ 延时 10 次void ten()int a;for(a=0;a10;a+)Delay();流水灯控制void LED()int i,j,a,b;a=0x01;b=0x80;P1=a;ten();for(i=0;i8;i+)a=a1;P1=a;ten();P1=b;ten();for(j=0;j1;P1=b;ten();/ 四个相邻数码管动态显示不同值 void main()unsigned char i,j,a,b,c; while(1)for(b=0;b10;b+) 显示千位数2 / 11fosHOoA

3、k00+)/和引珊应選 fo(noxloT+)/w+宀 Lluoy/十歳1|浄CDnpL1Mfo5rqA10j+)1 -imoo- for(auooi0八 sbif ABHP21 八 sbif S1HP25-sbit S2=P2A4;sbit S3二卩2八3;sbit S4=P2A2;unsigned char table=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f;void delay02()unsigned char i,j,k;for(i=10;i0;i-)for(j=10;j0;j-)for(k=20;k0;k-);void se

4、nt(char num)unsigned char c;for(c=0;c1;clk=1;void display(char a,char b,char m,char n) unsigned char l;for(l=0;l40;l+)sent(tablea);S4=1;S1=0;delay02();sent(tableb);S1=1;S2=0;delay02();sent(tablen);S2=1;S3=0;delay02();sent(tablem);S3=1;S4=0;delay02();void main()while(1)char m=0,n=1,k,a=3,b=2;for(k=0;

5、k30;k+)display(a,b,m,n);a+;b+;m+;n+;if(a=10)a=0;else if(b=10)b=0;else if(m=10)m=0;else if(n=10) n=0;/*LED走一轮,数码管走一次,蜂鸣器报警一次 */#includeunsigned chartable=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f;sbit clk=P2A0;sbit AB=P2A1;sbit SG二卩2八5;sbit SS=P2A4;sbit SB=P2A3;sbit SQ=P2A2;sbit L1=P2A7;void

6、delay(void)int e;for(e=100;e0;e-);/延时 10次 void ten()int a;for(a=0;a10;a+)delay();/*发送一个数字*/ sentdate(m)int b,num; num=tablem;for(b=0;b1;clk=1;/* 计数*/void JS(void)int a,c,d,f,g;for(g=0;g10;g+)sentdate(g);SQ=0,SB=1,SS=1,SG=1;for(f=0;f10;f+)sentdate(f);SQ=1,SB=0,SS=1,SG=1;for(d=0;d10;d+)sentdate(d);SQ=

7、1,SB=1,SS=0,SG=1;for(c=0;c10;c+)int m,n;n=0x80;/10000 for(m=0;m1;/01000for(a=20;a0;a-)sentdate(c);SG=0;delay();SG=1;sentdate(d);SS=0;delay();SS=1;sentdate(f);SB=0;delay();SB=1; sentdate(g);SQ=0;delay();SQ=1;L1=0;ten();L1=1;void main (void)JS();/*LED走一轮,数码管计数,蜂鸣器逢十报警一次 */ #includeunsigned chartable=0

8、x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f;sbit clk=P2A0;sbit AB=P2A1;sbit SG=P2A5;sbit SS=P2A4;sbit SB=P2A3;sbit SQ=P2A2;sbit L1=P2A7;/ 延时函数9 / 11void de-ay(void)宀infp fo(eHloocvoc)/MtB4 10浄voidCDno宀inf B for(aHOoi選也 *_ sensaCD(m)宀inf bbum 八 numAab-e3八 for(bHpbAo?b+)okHO 八 ABHnumQOoxs八 numHnumvv 二okHE_*斗選*/void main(void)宀infpdjg foeHpgcko 込+)/-Hl?p宀 sensaCD(g)八SQH0SBH1.SSH1.SGM fo(IT0710T+)/ 珊应宀 se nsaCDsSQH1.SBH0SSH1.SGM for(duoQ.d 00.+)/ 十应宀 sensaCD(d)八 SQH1.SBH1.SSHPSGM fo(CHOol?pQnf m.kn/ZMCrwmuoxonm八(Dnpfo(kHpkA09k+)3HmAd 八pkH

温馨提示

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

评论

0/150

提交评论