#include <reg52.h> //包括一个52标准内核的头文件
#include <intrins.h> //包函 —nop—();指令
#define uchar unsigned char //定义一下方便使用
#define uint unsigned int
uint sg;
uchar k,bz;
uchar sj[8]={11,12,18,7,12,18,0,20}; // 默认时间 年,月,日,星期,时,分,秒,移动速度
uchar xdz[7]={0x8c,0x88,0x86,0x8a,0x84,0x82,0x80}; //写芯片地址
uchar ddz[7]={0x8d,0x89,0x87,0x8b,0x85,0x83,0x81}; //读芯片地址
uchar hc[32],hc1[32]; //显视缓冲数组
//uchar code jie8[8]={12,14,16,17,19,21,23,24};//1234567`1电子琴 八个音符在频率表中的位置
sbit lb=P0^5; //喇叭输出脚 //注:仿真中没有接此线会有问题,但真正电路中是没有问题的
sbit K1= P3^3;
sbit K2= P3^4;
sbit K3= P3^5;
//sbit K4= P1^0; //电子琴键盘1~7注:52单片机装不下这么大的程序,如要电子琴去掉程序中的 // 和/* */ 就行了
//sbit K5= P1^1;
//sbit K6= P1^2;
//sbit K7= P1^3;
sbit tz=P3^2;
sbit xsi=P2^0; //列数据输出位
sbit xsck=P2^1; //列扫描时钟位
sbit xrck=P2^2; //列数据锁存位
sbit ysi =P2^3; //行数据输出位
sbit ysck =P2^4; //行扫描时钟位
sbit si=P2^7; //时钟芯片数据
sbit rst=P2^6; //时钟芯片锁存
sbit sck=P2^5; //时钟芯片时钟
uchar th0_f; //在中断中装载的T0的值高8位
uchar tl0_f; //在中断中装载的T0的值低8位
uchar code klg[]={ "|65`1|7-5|65`2|`1-5|`5`3`1|76`4|`3`1`2|`1--|"}; //生日快乐歌
//T0的值,及输出频率对照表
uchar code freq[36*2]={
0xA9,0xEF,//00220HZ ,1 //0
0x93,0xF0,//00233HZ ,1#
0x73,0xF1,//00247HZ ,2
0x49,0xF2,//00262HZ ,2#
0x07,0xF3,//00277HZ ,3
0xC8,0xF3,//00294HZ ,4
0x73,0xF4,//00311HZ ,4#
0x1E,0xF5,//00330HZ ,5
0xB6,0xF5,//00349HZ ,5#
0x4C,0xF6,//00370HZ ,6
0xD7,0xF6,//00392HZ ,6#
0x5A,0xF7,//00415HZ ,7
0xD8,0xF7,//00440HZ 1 //12
0x4D,0xF8,//00466HZ 1# //13
0xBD,0xF8,//00494HZ 2 //14
0x24,0xF9,//00523HZ 2# //15
0x87,0xF9,//00554HZ 3 //16
0xE4,0xF9,//00587HZ 4 //17
0x3D,0xFA,//00622HZ 4# //18
0x90,0xFA,//00659HZ 5 //19
0xDE,0xFA,//00698HZ 5# //20
0x29,0xFB,//00740HZ 6 //21
0x6F,0xFB,//00784HZ 6# //22
0xB1,0xFB,//00831HZ 7 //23
0xEF,0xFB,//00880HZ `1
0x2A,0xFC,//00932HZ `1#
0x62,0xFC,//00988HZ `2
0x95,0xFC,//01046HZ `2#
0xC7,0xFC,//01109HZ `3
0xF6,0xFC,//01175HZ `4
0x22,0xFD,//01244HZ `4#
0x4B,0xFD,//01318HZ `5
0x73,0xFD,//01397HZ `5#
0x98,0xFD,//01480HZ `6
0xBB,0xFD,//01568HZ `6#
0xDC,0xFD,//01661HZ `7 //35
}; //定时中断0,用于产生唱歌频率
uchar code zbm1[][16]={
{0xFF,0xFF,0x0F,0xF8,0xF7,0xF7,0xFB,0xEF,0xFB,0xEF,0xF7,0xF7,0x0F,0xF8,0xFF,0xFF},/*"0",0*/
{0xFF,0xFF,0xF7,0xEF,0xF7,0xEF,0x03,0xE0,0xFF,0xEF,0xFF,0xEF,0xFF,0xFF,0xFF,0xFF},/*"1",1*/
{0xFF,0xFF,0xC7,0xE7,0xFB,0xEB,0xFB,0xED,0xFB,0xEE,0x3B,0xEF,0xC7,0xE7,0xFF,0xFF},/*"2",2*/
{0xFF,0xFF,0xE7,0xF3,0xFB,0xEF,0xBB,0xEF,0xBB,0xEF,0x5B,0xF7,0xE7,0xF8,0xFF,0xFF},/*"3",3*/
{0xFF,0xFF,0x7F,0xFC,0x9F,0xFD,0xEF,0xED,0xF7,0xED,0x03,0xE0,0xFF,0xED,0xFF,0xFF},/*"4",4*/
{0xFF,0xFF,0x03,0xF3,0x7B,0xEF,0xBB,0xEF,0xBB,0xEF,0x7B,0xF7,0xFB,0xF8,0xFF,0xFF},/*"5",5*/
{0xFF,0xFF,0x0F,0xF8,0x77,0xF7,0xBB,0xEF,0xBB,0xEF,0x73,0xF7,0xFF,0xF8,0xFF,0xFF},/*"6",6*/
{0xFF,0xFF,0xE3,0xFF,0xFB,0xFF,0x7B,0xE0,0x9B,0xFF,0xE3,0xFF,0xFB,0xFF,0xFF,0xFF},/*"7",7*/
{0xFF,0xFF,0xC7,0xF1,0xBB,0xEE,0x7B,0xEF,0x7B,0xEF,0xBB,0xEE,0xC7,0xF1,0xFF,0xFF},/*"8",8*/
{0xFF,0xFF,0x8F,0xFF,0x77,0xE7,0xFB,0xEE,0xFB,0xEE,0x77,0xF7,0x0F,0xF8,0xFF,0xFF},/*"9",9*/
};
uchar code zbm2[][32]={
{0xFF,0xFD,0xFF,0xFD,0xFF,0xFD,0xEF,0xFD,0x17,0xFE,0xDB,0xFE,0xD8,0xFE,0xDB,0xFE,
0x03,0x80,0xED,0xFE,0xED,0xFE,0xEF,0xFE,0xFF,0xFE,0xFF,0xFE,0xFF,0xFE,0xFF,0xFF},/*"年",0*/
{0xFF,0xFF,0xFF,0xBF,0xFF,0xDF,0xFF,0xEF,0xFF,0xF3,0x03,0xFC,0xDB,0xFE,0x6D,0xFF,
0x6D,0xEF,0xFD,0xDF,0x01,0xE0,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF},/*"月",1*/
{0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x07,0xF0,0x77,0xF7,0x77,0xFB,0xBB,0xFB,
0xBB,0xFB,0xFB,0xF7,0x03,0xF0,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF},/*"日",2*/
{0xFF,0x7F,0xFF,0xBF,0xFF,0xCF,0x01,0xF0,0xFD,0xFF,0xBD,0xFF,0xB5,0xE0,0xB5,0xF6,
0x81,0xF6,0xB5,0xF6,0xB5,0xE0,0xBD,0xBF,0xFD,0x7F,0x01,0x80,0xFF,0xFF,0xFF,0xFF},/*"周",3*/
{0xFF,0xFF,0x07,0xF0,0xB7,0xFB,0xBB,0xFB,0x03,0xF0,0xFF,0xFF,0x5F,0xFF,0xDF,0xFE,
0xDF,0xEF,0xDF,0xDF,0x01,0xC0,0xEF,0xFF,0xEF,0xFF,0xEF,0xFF,0xFF,0xFF,0xFF,0xFF},/*"时",4*/
{0xFF,0xFE,0xFF,0xDE,0x7F,0xDF,0xBF,0xEE,0xDF,0xF6,0xE7,0xFA,0xFD,0xEC,0x7D,0xDF,
0x7B,0xEF,0x77,0xF0,0xEF,0xFF,0xDF,0xFF,0x9F,0xFF,0xBF,0xFF,0xBF,0xFF,0xFF,0xFF},/*"分",5*/
{0xFF,0xFB,0xDF,0xFD,0xDB,0xFE,0x5B,0xFF,0x03,0xE0,0x6D,0xFF,0xED,0xDE,0xBF,0xDF,
0xCF,0xEF,0xFF,0xF7,0x00,0xFB,0xFF,0xFD,0x37,0xFE,0xF7,0xFF,0xEF,0xFF,0xFF,0xFF},/*"秒",6*/
};
uchar code zbm[][32]={ //字编码
{0x87,0xFF,0x03,0xFF,0x01,0xFE,0x00,0xF8,0x01,0xF0,0x01,0xE0,0x03,0x80,0x07,0x00,
0x07,0x00,0x03,0x80,0x01,0xE0,0x01,0xF0,0x00,0xF8,0x01,0xFE,0x03,0xFF,0x87,0xFF},/*"心",0*/
{0xBF,0xFF,0xBF,0xFF,0xDF,0xFF,0x1D,0xF0,0xFB,0xDB,0xFF,0xED,0x03,0xF0,0xFB,0xFF,
0xAB,0xF9,0x83,0xFA,0xAD,0xFA,0xAD,0xFC,0xFD,0xEF,0x01,0xC0,0xFF,0xFF,0xFF,0xFF},/*"调",3*/
{0xFF,0xFF,0xFF,0xFD,0x97,0xBE,0x57,0xBF,0x00,0x86,0xAB,0xBD,0x4B,0xBD,0xFF,0xC1,
0x6F,0xD5,0x51,0xD5,0xB7,0xDF,0x47,0xDF,0x77,0xDF,0xFF,0xFE,0xFF,0xFE,0xFF,0xFF},/*"整",4*/
};
/*void dzp(uchar i) //电子琴放音
{
unsigned long n;
tl0_f=freq[jie8[i-1]*2]; //置一个音符的值
th0_f=freq[jie8[i-1]*2+1];
TR0 = 1;
for(n=0;n<10000;n++); //延时
}
void jp() //电子琴键盘函数
{
if(!K1)
dzp(1);
if(!K2)
dzp(2);
if(!K3)
dzp(3);
if(!K4)
dzp(4);
if(!K5)
dzp(5);
if(!K6)
dzp(6);
if(!K7)
dzp(7);
TR0 = 0;
lb=1;
} */
void changedata(uchar *song,uchar *diao,uchar *jie) //唱歌解释函数
{
uchar i,i1,j;
char gaodi; //高低+/-12音阶
uchar banyin;//有没有半个升音阶
uchar yinchang;//音长
uchar code jie7[8]={0,12,14,16,17,19,21,23}; //C调的7个值
*diao=*song;
for(i=0,i1=0;;)
{
gaodi=0; //高低=0
banyin=0;//半音=0
yinchang=4;//音长1拍
if((*(song+i)=='|') || (*(song+i)==' ')) i++;
//拍子间隔和一个空格过滤
switch(*(song+i))
{
case ',': gaodi=-12;i++;//低音
break;
case '`': gaodi=12;i++; //高音
break;
}
if(*(song+i)==0) //遇到0结束
{
*(diao+i1)=0; //加入结束标志0
*(jie+i1)=0;
return;
}
j=*(song+i)-0x30; i++; //取出基准音
j=jie7[j]+gaodi; //加上高低音
yinc: switch(*(song+i))
{
case '#': //有半音j加一个音阶
i++;j++;
goto yinc;
case '-': //有一个音节加长
yinchang+=4;
i++;
goto yinc;
case '_': //有一个音节缩短
yinchang/=2;
i++;
goto yinc;
case '.': //有一个加半拍
yinchang=yinchang+yinchang/2;
i++;
goto yinc;
}
*(diao+i1)=j; //记录音符
*(jie+i1)=yinchang; //记录音长
i1++;
}
}
void cg(uchar *songdata) //唱歌函数
{
uchar i,c,j=0;
uint n;
uchar xdata diaodata[112]; //音调缓冲
uchar xdata jiedata[112]; //音长缓冲
changedata(songdata,diaodata,jiedata); //解释音乐符号串
TR0=1;
for(i=0;diaodata[i]!=0;i++) //逐个符号演奏
{
tl0_f=freq[diaodata[i]*2]; //取出对应的定时值送给T0
th0_f=freq[diaodata[i]*2+1];
for(c=0;c<jiedata[i];c++) //按照音长延时
for(n=0;n<32000;n++);
TR0=0;
for(n=0;n<500;n++); //音符间延时
TR0=1;
}
TR0=0;
lb=1;
j=0;
}
void xs() //显示函数
{
uchar i,ia,j,tmp; //定义变量
P2=0XFF; //置位高电平做准备
ysi=0; //将行数据位清0,准备移位
for(i=0;i<16;i++) //循环输出16行数据
{
ysck=0; //为行移位做准备
xrck=0; //为列锁存做准备路中的移位寄存器最后一位对应最后一列,所以要先输出一行中的第二个字节数据
for(ia=2;ia>0;) //每行16个点,循环位移两个字节
{
ia--; //循环两次
tmp=~hc[i*2+ia];
for(j=0;j<8;j++) //循环两次,每次移一个字节,
{
xsck=0; //为列移位做准备
tmp=tmp<<1;
xsi=CY;