electronic_organ.c

来自「这是一个比较有趣的程序」· C语言 代码 · 共 174 行

#include <reg52.h> 
#define uchar unsigned char  
#define uint unsigned int 
#define ulong unsigned long 

char code dx516[3] _at_ 0x003b;

sbit BEEP=P1^7; //喇叭输出脚 
unsigned char key=16;
uint T=5000;
uchar th0_f; //在中断中装载的 T0 的值高 8 位 
uchar tl0_f; //在中断中装载的 T0 的值低 8 位 

//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,用于产生唱歌频率 
timer0() interrupt 1 
{ 
TL0=tl0_f;TH0=th0_f; //调入预定时值 
BEEP=~BEEP; //取反音乐输出 IO 
}



void keyscan()
{
  unsigned char temp,ridx=0xef,cidx=0xf7,aa,bb,cc;
  unsigned int i,j,i1,j1;
  for(i=0;i<4;i++)
   { 
   	P3=0xff;
	P3=(ridx<<i)|0x0f;
	temp=P3&0x0f;
	if(temp!=0x0f)
	{
	      for(i1=50;i1>0;i1--)
          for(j1=200;j1>0;j1--);
	      temp=P3&0x0f;
		  for(j=0;j<4;j++)
		  {
		  aa=temp|0xf0;
		  bb=cidx>>j;
		  cc=bb|0xf0;
			  if(aa==cc)
			  {
			    key=i*4+j;
			    break;
			  }	   
		  }
     }

  }	 
} 

//按键控制音阶声音输出（电子琴） 
void main(void) // 主程序 
{ 
ulong n; 
uchar code jie8[8]={12,14,16,17,19,21,23,24};//1234567`1 八个音符在频率表中的位置 

TMOD = 0x01; //使用定时器 0 的 16 位工作模式 
TR0 = 0; 
ET0 = 1; 
EA = 1; 

while(1) 
{ 

keyscan();
if(key==0) 
{
key=16; 
tl0_f=freq[jie8[0]*2]; //置一个音符的值 
th0_f=freq[jie8[0]*2+1]; 
TR0 = 1; 
for(n=0;n<T;n++); //延时 
} 
if(key==1) 
{ 
key=16;
tl0_f=freq[jie8[1]*2]; //置一个音符的值 
th0_f=freq[jie8[1]*2+1]; 
TR0 = 1; 
for(n=0;n<T;n++); //延时 
} 
if(key==2) 
{ 
key=16;
tl0_f=freq[jie8[2]*2]; //置一个音符的值 
th0_f=freq[jie8[2]*2+1]; 
TR0 = 1; 
for(n=0;n<T;n++); //延时 
} 
if(key==3) 
{ 
key=16;
tl0_f=freq[jie8[3]*2]; //置一个音符的值 
th0_f=freq[jie8[3]*2+1]; 
TR0 = 1; 
for(n=0;n<T;n++); //延时 
} 
if(key==4) 
{ 
key=16;
tl0_f=freq[jie8[4]*2]; //置一个音符的值 
th0_f=freq[jie8[4]*2+1]; 
TR0 = 1; 
for(n=0;n<T;n++); //延时 
}
if(key==5) 
{ 
key=16;
tl0_f=freq[jie8[5]*2]; //置一个音符的值 
th0_f=freq[jie8[5]*2+1]; 
TR0 = 1; 
for(n=0;n<T;n++); //延时 
} 
if(key==6) 
{ 
key=16;
tl0_f=freq[jie8[6]*2]; //置一个音符的值 
th0_f=freq[jie8[6]*2+1]; 
TR0 = 1; 
for(n=0;n<T;n++); //延时 
} 
if(key==7) 
{ 
key=16;
tl0_f=freq[jie8[7]*2]; //置一个音符的值 
th0_f=freq[jie8[7]*2+1]; 
TR0 = 1; 
for(n=0;n<T;n++); //延时 
}    
TR0 = 0; 
} 
}