//開發環境：HJ-1G HJ-3G 開發板+AVR增強包套裝
//芯片：ATMEGA16A
//編譯器：ICCV7
//編寫：慧凈電子
//網址：WWW.HLMCU.COM   QQ:121350852
//HJ-1G/3G開發板上的8個LED燈前后流動
//晶振：1M 12M
/*****************************************
* 慧凈電子 *
* www.HLMCU.cn *
* 目    的：IO模擬音頻 *
* 功    能：IO模擬音頻 *
* 時鐘頻率：內部1M *
* 整    理：HLMCU *
* 修改日期：2008年08月8日 *
* 編譯環境：ICC-AVR6.31 *
* 實驗環境：HJ-2G 80AVR開發板 *
* 使用硬件：無源喇叭 杜邦線 *
* 結    果：音樂發聲 *
* 操作要求：用杜邦線連接J7的第1腳和PD5端口上 *本程序只能發出 的 的 的聲音。
*****************************************/

#include <iom16v.h> 
#include <macros.h>

#define uchar unsigned char
#define uint unsigned int
 #define OE_138_ON PORTC |= (1<<PC7)     //使能74hc138
#define OE_138_OFF PORTC &= ~(1<<PC7) 
#define OE_573_ON PORTA |= (1<<PA4)     //使能74hc573
#define OE_573_OFF PORTA &= ~(1<<PA4) 
/****************************************
* 定義音樂數據二維數組{x,y} *
* x：對應音符音階（頻率），0表示休止符 *
* y：對應音符節拍，0表示音樂結束 *
****************************************/
//以下音樂數據為《卡秋莎》，位于程序區
flash uint music_data[][2]=
{
{440,600},{494,200},{523,600},{443,200},{523,400},{494,200},
{440,200},{494,400},{330,400},{494,600},{523,200},{578,600},
{494,200},{578,400},{523,200},{494,200},{440,800},{659,400},
{880,400},{784,400},{880,200},{784,200},{698,400},{659,200},
{578,200},{659,400},{440,400},{ 0,200},{698,400},{578,200},
{659,600},{523,200},{494,200},{330,200},{523,200},{494,200},
{440,800},{659,400},{880,400},{784,400},{880,200},{784,200},
{698,400},{659,200},{578,200},{659,400},{440,400},{ 0,200},
{698,400},{578,200},{659,600},{523,200},{494,200},{330,200},
{523,200},{494,200},{440,800},{ 0, 0}
};

#pragma data:data //設置回到數據存儲器區

/************************************
* 延時函數：1M時鐘時為MS *
************************************/
void delay_ms(uint i)
{
uchar a;
for(;i;i--) 
{
for (a = 220; a; a--) 
{
;
}
}
}

/************************************
* 端口初始化函數 *
************************************/
void port_init(void)
{
DDRD=0xff; //D口配置為輸出，驅動蜂鳴器
DDRB=0xff; //B口配置為輸出，驅動LED
PORTB=0xff; //LED初值為滅
DDRC  = 0x80;   //PC7 為輸出
OE_138_OFF;
}

/***********************************
* 音樂產生函數 *
* 功能：輸出頻率為x的方波，延時y MS*
* 范圍：x:100-20000Hz，0：不發聲 *
* y:0-65536 MS *
***********************************/
void sound(uchar i)
{
uint x;
x=music_data[i][0]; //取音樂的頻率數據
if(x!=0)
{
x=500000/x; //1M時鐘數據計算
OCR1A=x; //比較值賦值
TCCR1A = 0x40; //允許比較反轉輸出
}
else
{
TCCR1A = 0x00; //頻率為0，休止符，不發聲
}
}
/*******************************
* 主函數 *
*******************************/
void main(void)
{
uchar i=0;
port_init(); //端口初始化
TCCR1A = 0x40; //將T/C1配置為比較匹配，OC1A取反
TCCR1B = 0x09;
while(1)
{
while(music_data[i][1]!=0) //等待最后一個音符到來
{
sound(i); //輸出音符
delay_ms(music_data[i][1]);//節拍延時
TCCR1A = 0x00; //奏完一個音符停止
PORTB^=1<<5; //音符節拍由LD5閃亮顯示
PORTD|=1<<5;
i++; //準備一下個音符
}
delay_ms(1000);
i=0; //一遍結束，停1秒，從頭開始
}
}