资讯详情

“屏幕式”声光电子琴程序

/*编写人:伍浩荣 8个按键发出8个基本音, 能播放内置音乐,音乐跟随灯光闪烁 版权所有,翻版必究 作者博客:http://hi.baidu.com/haorongwu/home*/ sfr P4=0xe8;//定义P4组I0口 #include<reg52.h> #define uint unsigned int #define uchar unsigned char sbit speaker=P1^4;//喇叭接30脚 sbit key1=P4^4;//流水灯按键(暂时) sbit key2=P4^6;//播放音乐按键(暂定) uchar a,b,num1,s1num,n1,n2; char num;//定义num为可以负数 uchar code yinfu[]={0xfb,0xe9, //Do 0xfc,0x5c, //Re 0xfc,0xc1, //Mi 0xfc,0xef, //Fa 0xfd,0x45, //So 0xfd,0x92, //La 0xfd,0xd0, //Si 0xfd,0xee, //Do# 0x00,0x00, //间隔 }; uchar code shengri_tone[]={ 1,0,1,2,1,4,3,0, //生日快乐音调 1,0,1,2,1,5,4,0, 1,0,1,8,6,4,3,2,0, 7,0,7,6,4,5,4,0 //0代表不发声,即停顿;数字即为音调 }; uchar code shengri_beat[]={ 24,1,24,48,48,48,72,5,//节拍 24,1,24,48,48,48,72,5, 24,1,24,48,48,48,48,72,5, 24,1,24,48,48,48,72,5 //节拍,即tone表各音调的延时 }; uchar code ledtable[]={0x7f,0xbf,0xdf,0xef, //取反 0xf7,0xfb,0xfd,0xfe};//P0组口的 代码(焊接过程可能会相反,具体更改) uchar code ledtable2[]={0x7f,0xbf,0xdf,0xef, //取反 0xf7,0xfb,0xfd,0xfe};//P2组口发光二极管代码,相反! void check_key();//改为P3组为按键 void keyscan(); void turn();//顺时针流动 void back(); void qianhou(); void dangshuang(); void delay(uint z);//延时函数声明 void delay1(void);//声明第二个延时函数 void play1(void);//播放生日快乐 void main() { s1num=0;//流水灯种类标志 key1=1; key2=1; TMOD=0x01; TH0=a; TL0=b; ET0=1;//打开定时器,但是未允许中断 TR0=1; while(1) { check_key(); keyscan(); } } void time0() interrupt 1 { TH0=a; TL0=b; speaker=~speaker; } void check_key() { P3=0xff;//先赋给P2组口高电平 switch(P3)//按下一个键相应4个灯亮 { case 0xfe:P0=0xee;P2=0x77;a=0xfb;b=0xe9;EA=1;break;//P0,P2组为发光二极管组 case 0xfd:P0=0xdd;P2=0xbb;a=0xfc;b=0x5c;EA=1;break;//注意:EA不能改为TR0 case 0xfb:P0=0xbb;P2=0xdd;a=0xfc;b=0xc1;EA=1;break; case 0xf7:P0=0x77;P2=0xee;a=0xfc;b=0xef;EA=1;break; case 0xef:P0=0xee;P2=0x77;a=0xfd;b=0x45;EA=1;break; case 0xdf:P0=0xdd;P2=0xbb;a=0xfd;b=0x92;EA=1;break; case 0xbf:P0=0xbb;P2=0xdd;a=0xfd;b=0xd0;EA=1;break; case 0x7f:P0=0x77;P2=0xee;a=0xfd;b=0xee;EA=1;break; default:EA=0;speaker=0;//P0=0xff;P2=0xff ; } } void delay(uint z) { uint x,y; for(x=z;x>0;x--) for(y=110;y>0;y--); } void keyscan() { if(key1==0) { delay(5); if(key1==0) { s1num++; while(!key1); if(s1num==1) { turn(); } } if(s1num==2) { back(); } if(s1num==3) { qianhou(); } if(s1num==4) { dangshuang(); } if(s1num==5) s1num=1; } if(key2==0) { delay(5); while(~key2); play1(); } } void delay1(void)//第二个延时函数 { uchar n=15; while(n--) { uchar i; for(i=0;i<125;i++); } } void play1(void)//播放生日快乐 { uchar m=0; uchar s; uchar c=1; P0=0xaa; P2=0x55; while(1) { EA=0; c=shengri_tone[m]; //取音符 s=shengri_beat[m]; //取节拍 a=yinfu[2*c-2]; b=yinfu[2*c-1]; EA=1; while(s--) { delay1(); P0=~P0; P2=~P2; } m++; if(m>=33) return; //数值是shengri相关表中的元素数量 } } /*以下为N种流水灯流动花式*/ void turn()//流水灯顺时针走动(5次) { for(num1=0;num1<8;num1++) { for(num=0;num<8;num++) { P0=ledtable[num]; delay(30);//时间暂定 } P0=0xff;//之后关闭P1组 for(num=7;num>-1;num--) { P2=ledtable2[num]; delay(30); } P2=0xff;//之后关闭P2组 } } void back()//逆时针流动 { for(num1=0;num1<8;num1++) { for(num=0;num<8;num++) { P2=ledtable[num]; delay(30); } P2=0xff; for(num=7;num>-1;num--) { P0=ledtable2[num]; delay(30); } P0=0xff; } } void qianhou()//前后来回 { for(num1=0;num1<10;num1++) { for(num=0;num<8;num++) { P0=ledtable[num]; P2=ledtable2[num]; delay(30); } P0=0xff; P2=0xff; for(num=7;num>-1;num--) { P0=l
锐单商城拥有海量元器件数据手册IC替代型号,打造 电子元器件IC百科大全!

锐单商城 - 一站式电子元器件采购平台