8._c

这里有11个用ICCAVR开发的源代码,经DEMO板调试后已经通过.

//10.	I/O端口的又一应用-发出乐曲声。
//PD.0端口开关控制音乐程序。
//你能把你最喜欢的乐曲输入单片机吗?
//     www.sl.com.cn
// Target : M48     Crystal: 8.0000Mhz

#include <iom48v.h>
#include <macros.h>
/* 		  音乐数据  	  */
/* 四分之一拍为0x10, 二分之一拍为0x20, 一拍为0x40*/
/* 低1-1 2-2 3-3 4-4 5-5 6-6 7-7 */
/* 中1-8 2-9 3-A 4-B 5-C 6-D 7-E */
/* 高1-F*/			
					  	
const unsigned char sound[]={ //乐曲数据表
	  		   				  0x23,0x24,0x25,0x44,0x45,0x24,0x23,0x22,0x42,0x40,0x40,0x23,0x22,0x21,0x41,0x28,
							  0x48,0x23,0x25,0x45,0x40,0x40,0x21,0x21,0x42,0x21,0x21,0x41,0x20,0x28,0x47,0x26,
							  0x17,0x16,0x15,0x45,0x40,0x31,0x11,0x21,0x21,0x21,0x22,0x42,0x40,0x20,0x23,0x23,
							  0x24,0x25,0x24,0x23,0x24,0x25,0x26,0x23,0x23,0x42,0x42,0x40,0x23,0x22,0x21,0x41,
							  0x28,0x28,0x28,0x23,0x25,0x45,0x45,0x40,0x20,0x25,0x46,0x28,0x28,0x48,0x20,0x29,
							  0x47,0x26,0x17,0x16,0x15,0x45,0x25,0x25,0x26,0x28,0x18,0x16,0x26,0x28,0x26,0x28,
							  0x19,0x19,0x49,0x49,0x20,0x25,0x2a,0x18,0x19,0x29,0x28,0x16,0x17,0x16,0x15,0x25,
							  0x25,0x28,0x29,0x2a,0x29,0x48,0x28,0x48,0x2c,0x4c,0x4c,0x40,0x2a,0x2c,0x1c,0x1a,
							  0x2a,0x2a,0x29,0x4a,0x2b,0x2a,0x4a,0x4a,0x40,0x2a,0x29,0x29,0x28,0x28,0x26,0x48,
							  0x29,0x26,0x45,0x45,0x40,0x25,0x25,0x26,0x21,0x18,0x16,0x26,0x28,0x26,0x28,0x29,
							  0x49,0x49,0x20,0x25,0x28,0x29,0x2a,0x29,0x49,0x28,0x48,0x2c,0x4c,0x4c,0x40,0x2a,
							  0x2c,0x15,0x1a,0x2a,0x2a,0x29,0x4a,0x2b,0x2a,0x4a,0x4a,0x40,0x2a,0x29,0x29,0x28,
							  0x28,0x26,0x28,0x28,0x29,0x26,0x45,0x45,0x40,0x25,0x25,0x26,0x28,0x28,0x26,0x2a,
							  0x19,0x18,0x28,0x18,0x19,0x48,0x48,0x40,0x40,0x40,0x40,0x28,0x48,0x29,0x28,0x28,
							  0x2a,0x1a,0x1a,0x1a,0x18,0x40,0x20,0x26,0x28,0x28,0x28,0x26,0x28,0x48,0x26,0x25,
							  0x45,0x45,0x40,0x40,0x40,0x28,0x48,0x28,0x28,0x1c,0x1d,0x2d,0x2c,0x28,0x28,0x28,
							  0x20,0x26,0x19,0x1a,0x29,0x19,0x18,0x28,0x28,0x26,0x21,0x29,0x49,0x49,0x40,0x20,
							  0x28,0x29,0x2a,0x4a,0x4a,0x20,0x25,0x28,0x29,0x48,0x48,0x48,0x25,0x25,0x26,0x28,
							  0x28,0x26,0x2a,0x19,0x18,0x28,0x18,0x19,0x49,0x49,0x40,0x40,

                        0x25,0x28,0x2A,0x4A,0x29,0x28,0x48,0x28,        
                        0x26,0x46,0x28,0x45,0x25,0x28,0x2A,0x4A,
						0x29,0x28,0x48,0x28,0x29,0x49,0x2A,0x49,
						0x40,0x2A,0x4A,0x2B,0x4C,0x40,0x3D,0x1D,
						0x2D,0x2D,0x4C,0x40,0x2A,0x4A,0x2C,0x48,
						0x28,0x2A,0x29,0x46,0x25,0x48,0x40,
						
						0x2a,0x2a,0x4a,0x2a,0x2a,0x4a,0x2a,0x2c,0x28,0x29,
	  		   			0x4a,0x4a,0x2b,0x2b,0x2b,0x2b,0x2b,0x2a,0x2a,0x2a,
						0x2a,0x29,0x29,0x28,0x49,0x4c,0x2a,0x2a,0x4a,0x2a,
						0x2a,0x4a,0x2a,0x2c,0x28,0x29,0x4a,0x4a,0x2b,0x2b,
						0x2b,0x2b,0x2b,0x2a,0x2a,0x2a,0x2c,0x2c,0x2b,0x29,
						0x48,0x48,
						
						0x4a,0x2a,0x29,0x28,0x29,0x28,0x27,0x46,0x46,0x46,
                        0x46,0x4b,0x2b,0x2a,0x29,0x28,0x29,0x2b,0x4a,0x4a,
						0x4a,0x4b,0x2b,0x2a,0x49,0x29,0x2b,0x4a,0x2a,0x28,
						0x46,0x48,0x47,0x4a,0x29,0x28,0x27,0x28,0x46,0x46,
						0x46,0x46,0x4a,0x2a,0x29,0x28,0x29,0x28,0x27,0x46,
						0x46,0x46,0x46,0x4b,0x2b,0x2a,0x29,0x28,0x29,0x2b,
						0x4a,0x4a,0x4a,0x4b,0x2b,0x2a,0x49,0x29,0x2b,0x4a,
						0x2a,0x28,0x46,0x48,0x47,0x4a,0x29,0x28,0x27,0x28,
						0x46,0x46,0x46,0x46,
						
						0x43,0x43,0x45,0x49,0x49,0x49,0x48,0x48,0x45,0x44,
	  		            0x44,0x44,0x43,0x43,0x43,0x43,0x44,0x45,0x46,0x46,
						0x46,0x45,0x45,0x45,0x43,0x43,0x45,0x49,0x49,0x49,
						0x48,0x48,0x45,0x44,0x44,0x44,0x43,0x43,0x45,0x45,
						0x46,0x47,0x48,0x48,0x48,0x48,0x48,0x48,0x49,0x49,
						0x45,0x47,0x46,0x45,0x43,0x43,0x45,0x48,0x48,0x48,
						0x46,0x46,0x48,0x49,0x49,0x48,0x47,0x47,0x47,0x45,
						0x45,0x45,0x43,0x43,0x45,0x49,0x49,0x49,0x48,0x48,
						0x45,0x44,0x44,0x44,0x43,0x43,0x45,0x45,0x46,0x47,
						0x48,0x48,0x48,0x48,0x40,0x40,
						
						0x45,0x48,0x4a,0x4a,0x4a,0x4a,0x4a,0x4a,0x49,0x4a,
	  		            0x49,0x48,0x48,0x48,0x48,0x48,0x45,0x48,0x4a,0x4a,
						0x48,0x4a,0x4c,0x4c,0x4b,0x4a,0x49,0x49,0x49,0x49,
						0x49,0x4c,0x4b,0x4a,0x4a,0x4a,0x49,0x48,0x48,0x49,
						0x4a,0x4c,0x4b,0x4b,0x4b,0x4b,0x4b,0x46,0x46,0x45,
						0x45,0x45,0x47,0x48,0x49,0x49,0x4a,0x49,0x48,0x48,
						0x48,0x48,0x48,0x48,
												
						0x00,0x00
						};

/*	  		    音阶表				*/	
const unsigned int TONETABLE[15]={
         64580,64684,64777,64820,64898,64968,65030,65058,
         65110,65157,65178,65217,65252,65283,65297
						         };
/*			  音阶重装常数			*/						
/*	  		    微秒级延时程序			*/	 
void delay_us(int time)
{     
 do
 {
  time--;
 }	
  while (time>1);
}	  

/*	  		    毫秒级延时程序			*/	 
void delay_ms(unsigned int time)
{
 while(time!=0)
 {		
  delay_us(1000);
  time--;
 }
}		

unsigned int toneconst;								  							   						 				 	 	 
#pragma interrupt_handler timer1_ovf_isr:14
//iv_TIMER1_OVF
void timer1_ovf_isr(void)
	 {
	  TCNT1=toneconst;
	  PORTD^=0x01;
	 }	 	 
void music(void)
 	 {
	  unsigned char temp,temp1;
	  unsigned int sound_add=0;
 	  TCCR1A = 0x00;
	  TCCR1B =(1<<CS11);//8分频
	  temp1 = sound[sound_add];
	  while(temp1!=0)
 	  		{
			temp=temp1; 
			temp&=0x0f;
			if(temp!=0)
			  {
			   TIMSK1|=(1<<TOIE1);//根据SOUNDTABLE中数据的低四位选择音调频率
			   temp--;			   
        	   toneconst=TONETABLE[temp];
			   TCNT1=toneconst;
 			  }
			temp=temp1;
			temp>>=4;
			temp&=0x0f;
			delay_ms(temp*129);//根据SOUNDTABLE中数据的高四位*5后，为音调持续时间
			TIMSK1&=~(1<<TOIE1);
			sound_add++;
			temp1 = sound[sound_add]; 
			}
		delay_ms(1000);	                                         	
	 }	 	 	 	 
/*	  	   		 主程序 	   	  		*/	  
void main(void)
	 {
	  DDRD=0xFB;
	  PORTD=0xff;
	 // DDRC=0x01;
	  //PORTC=0xff;
	  SEI();
      
	  while(PIND & 0x04);//等待PD2按键按下	
	  
	  while(1)
	   	{
	     music();
	    }
	 }