久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 4096|回復: 1
打印 上一主題 下一主題
收起左側

基于Atmega16L的簡單音樂制作

[復制鏈接]
跳轉到指定樓層
樓主
ID:71259 發表于 2014-12-29 01:40 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
很久沒有寫過東西了,人懶了。
一直想要搞下AVR,因為是電氣而不是電子專業的,整天對著電機啊,交流調速啊,復雜的計算公式,所以學習電子類的東西比較麻煩,最近才有大塊的時間來學習AVR,馬潮的《AVR單片機嵌入式系統原理與應用實踐》不錯。
想想也算搞過一些程序了,空間里也沒有貼過AVR的程序,就算來個突破下
做了一小段的《卡農》高潮部分。聽著感覺不錯,呵呵,以前用51的匯編寫過《歡樂女神》,聽上去不跑調,但是用C51來做,誤差實在是太大了,根本沒辦法聽,這次用mega16,外掛8M的晶振,做的是一小段的《卡農》,因為高音的頻率太高,蜂鳴器完全受不了,直接破音(哎,什么叫能力有限),所以都降低了7度,即高音變成中音,中音變成低音。聽上去還可以,但是難免有些音會走不準。
不廢話貼下程序(注解為英文,希望不會寫錯
//--------------------------------
// by Witnessiz
// chip : Atmega16L
// frequency : 8,000,000Hz
// function : play music
// output : OC1A(PB5) connect buzzer
//--------------------------------
#include<avr/io.h>
#include<avr/interrupt.h>
#define uchar unsigned char
#define uint unsigned int
const uint note[] = {0,1908,1700,1516,1433,1276,1136,1012,956,865,759,716,638,568,506,470};
const uint beat[] = {0,419,470,528,558,627,704,790,837,925,1054,1117,1254,1408,1581,1702};
//const uchar score[] = {4,8,10,4,9,12,10,8,11,4,6,4,8,12,5,4,6,4,7,8,9,4,5,12,8,12}; //《好久不見》一小段
const uchar score[]={12,4,10,2,11,2,12,4,10,2,11,2,10,2,5,2,6,2,7,2,8,2,9,2,10,2,11,2,10,4,8,2,
      9,2,10,4,3,2,4,2,5,2,6,2,5,2,4,2,5,2,8,2,7,2,8,2,6,4,8,2,7,2,6,4,5,2,4,
      2,5,2,4,2,3,2,4,2,5,2,6,2,7,2,8,2,6,4,8,2,7,2,8,4,7,2,6,2,7,2,8,2,9,2,
      8,2,7,2,8,2,6,2,7,2}; //《canon》
volatile uint note_num,beat_num;

int main()
{
// DDRD |= (1 << PD5);
DDRD = 0x20;
PORTD = 0x20;
TCCR1A |= (1 << COM1A0); // toggle OC1A on compare match [0x40]
TCCR1B |= (1 << WGM12);  //Clear Timer on Compare match (CTC) mode [0x80]
TIMSK |= (1 << OCIE1A);  //Output Compare match Intrrupt Enable [0x10]
beat_num = 1;
TCCR1B = 0x09;
sei();
while(1)
{
}
}
SIGNAL(SIG_OUTPUT_COMPARE1A)
{
if(-- beat_num == 0)
{
  TCCR1B = 0x08; //TCCR1B |= (1 << WGM12); no clock sourse,stop CTC [0x08]
  if(note_num < 112)
  {
   OCR1A = note[score[note_num]];
   beat_num = beat[score[note_num]];
  
   note_num ++;
   beat_num = beat_num * score[note_num];
   note_num ++;
  
   TCCR1B = 0x09; //TCCR1B |= (1 << WGM12) | (1 << CS10); clkio/1(no prescale),start CTC [0x09]
  }
  else
  {
   note_num = 0;
   beat_num = 1;
   TCCR1B = 0x08;
  }
}
}
后記:果然懶,才寫了10分鐘。

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏2 分享淘帖 頂 踩
回復

使用道具 舉報

沙發
ID:72577 發表于 2015-4-26 15:24 | 只看該作者
樓主的歌曲怎么弄的
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板: av在线电影网 | 人人人人干 | 日韩国产高清在线观看 | 亚洲一区av在线 | 天天草视频 | 激情久久久久 | 日日噜噜噜夜夜爽爽狠狠视频97 | 久久久久久免费精品一区二区三区 | 日本在线看片 | 台湾佬久久 | 欧美精品欧美精品系列 | 特级生活片 | 在线观看国产精品视频 | 欧美精品在线观看 | 国产精品久久久久久一区二区三区 | 亚洲午夜三级 | 日韩高清三区 | 精品免费国产一区二区三区四区 | 久久国产精品-国产精品 | 超级乱淫av片免费播放 | 91网站在线观看视频 | 欧美影院| 黄色片免费看视频 | 欧美一区二区在线观看 | 欧美美女爱爱视频 | 色综合色综合色综合 | 国产精品二区三区在线观看 | 欧美一区二区三区视频在线播放 | 91综合在线视频 | 国产精品免费在线 | 国产一区三区在线 | 福利一区二区 | 欧美网站一区二区 | 天天操精品视频 | 99精品欧美一区二区三区综合在线 | 99视频网| 一级免费视频 | 欧美日韩国产在线 | 成人网在线观看 | 久久亚洲一区二区 | 91精品久久久久久久久久 |