资源描述:
《蜂鸣器c语言程序》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、蜂鸣器#include#defineucharunsignedchar#defineuintunsignedintinta,b;intcodetable[]={63628,63835,64021,64103,64260,64331,64400,64524};intcodeyinfu[][2]={{5,5000},{5,2000},{6,5000},{2,5000},{1,5000},{1,2000},{6,5000},{2,5000},{5,5000},{5,5000},{6,2000},{1,5000},{6,200
2、0},{5,5000},{1,5000},{1,2000},{6,2000},{2,5000},{5,5000},{2,5000},{1,5000},{7,2000},{6,5000},{5,5000},{5,5000},{2,5000},{3,2000},{2,5000},{1,5000},{1,2000},{6,5000},{2,2000},{3,5000},{2,2000},{1,5000},{2,2000},{1,5000},{7,2000},{6,5000},{5,5000}};sbitbeep=P2^7;sbitkey1=P
3、2^0;sbitkey2=P2^1;sbitkey3=P2^2;sbitkey4=P2^4;intsum;intdbc(inti){TR0=1;sum=table[i];}voiddelay(uintx){inti,j;for(i=x;i>0;i--){for(j=110;j>0;j--);}}voidinit(){TMOD=0x01;TH0=sum/256;TL0=sum%256;EA=1;ET0=1;}voidt0_time()interrupt1{TH0=sum/256;TL0=sum%256;beep=~beep;}voidke
4、yscan(){if(key1==0){delay(10);if(key1==0){dbc(0);}}if(key2==0){delay(10);if(key2==0){dbc(1);}}if(key3==0){delay(10);if(key3==0){dbc(2);}}if(key4==0){delay(10);if(key4==0){dbc(3);}}if(P2==0xff){TR0=0;beep=1;}}voidmain(){ints,k;k=0;init();while(1){keyscan();while(k<40){for
5、(s=yinfu[k][1];s>0;s--)dbc(yinfu[k][0]);k++;}}}