缠绕膜厂家
免费服务热线

Free service

hotline

010-00000000
缠绕膜厂家
热门搜索:
行业资讯
当前位置:首页 > 行业资讯

单片机音乐播放C语言程序

发布时间:2020-07-01 02:00:10 阅读: 来源:缠绕膜厂家

#include reg51.h>#define uchar unsigned char#define uint unsinged intsbit speaker = P1^7;uchar t0h,t0l,time;//--------------------------------------//单片机晶振采用11.0592MHz// 频率-半周期数据表 高八位 本软件共保存了四个八度的28个频率数据uchar code FREQH[] = {0x01, //0的时候没有音符0xF2, 0xF3, 0xF5, 0xF5, 0xF6, 0xF7, 0xF8, //低音12345670xF9, 0xF9, 0xFA, 0xFA, 0xFB, 0xFB, 0xFC, 0xFC,//1,2,3,4,5,6,7,i0xFC, 0xFD, 0xFD, 0xFD, 0xFD, 0xFE, //高音 2345670xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFF}; //超高音 1234567//-----------------------------------------// 频率-半周期数据表 低八位uchar code FREQL[] = {0x01, //0的时候没有音符0x42, 0xC1, 0x17, 0xB6, 0xD0, 0xD1, 0xB6, //低音12345670x21, 0xE1, 0x8C, 0xD8, 0x68, 0xE9, 0x5B, 0x8F, //1,2,3,4,5,6,7,i0xEE, 0x44, 0x6B, 0xB4, 0xF4, 0x2D, //高音 2345670x47, 0x77, 0xA2, 0xB6, 0xDA, 0xFA, 0x16}; //超高音 1234567//--------------------------------------//一个音符有三个数字。前为第几个音、中为第几个八度、后为时长(以1/4拍为单位)。//6, 2, 6 分别代表:6, 中音, 6个1/4拍;//5, 2, 2 分别代表:5, 中音, 2个1/4拍;//3, 2, 4 分别代表:3, 中音, 4个1/4拍;//5, 2, 4 分别代表:5, 中音, 4个1/4拍;//1, 3, 4 分别代表:1, 高音, 4个1/4拍;//低音为1,中音为2,高音为3,超高音为4;///////////////////////////////////////////////////////////********************世上只有妈妈好*********************/uchar code sszymmh[] = {6,2,6, 5,2,2, 3,2,4, 5,2,4,1,3,4, 6,2,2, 5,2,2, 6,2,8,3,2,4, 5,2,2, 6,2,2, 5,2,4,3,2,4, 1,2,2, 6,1,2, 5,2,2,3,2,2, 2,2,8, 2,2,6, 3,2,2,5,2,4, 5,2,2, 6,2,2, 3,2,4,2,2,4, 1,2,8, 5,2,6, 3,2,2,2,2,2, 1,2,2, 6,1,2, 1,2,2,5,1,16, 0,0,0};/**********************两只耗子**********************/uchar code TwoMouse[]={3,2,2, 6,2,2, 7,2,2, 5,2,2,3,2,2, 6,2,2, 7,2,2, 5,2,2,7,2,2, 1,3,2, 2,3,4,7,2,2, 1,3,2, 2,3,4,2,3,1, 3,3,1, 2,3,1, 1,3,1, 7,2,2, 5,2,2,2,3,1, 3,3,1, 2,3,1, 1,3,1, 7,2,2, 5,2,2,6,2,2, 2,2,2, 5,2,4, 6,2,2, 2,2,2, 5,2,4,0,0,0};/***********************两只蝴蝶**********************/uchar code TwoButterfly[]={3,2,2, 2,2,2, 3,2,6, 3,2,2, 3,2,2, 2,2,2,1,2,6, 6,1,2, 1,2,2, 2,2,4, 2,2,2, 3,2,2,2,2,2, 1,2,2, 6,1,2, 1,2,2, 5,1,12,3,2,2,2,2,2, 3,2,8, 3,2,2, 2,2,2, 3,2,2, 3,2,2,1,2,12,6,1,2, 1,2,2, 2,2,4, 2,2,2, 3,2,2,2,2,2, 1,2,2, 6,1,2, 1,2,2, 2,2,12,3,2,2,2,2,2, 3,2,8, 3,2,2, 2,2,2, 3,2,2, 2,2,2,1,2,12,6,1,2, 1,2,2, 2,2,4, 2,2,2, 3,2,2,2,2,2, 1,2,2, 6,1,2, 1,2,2, 5,2,12,3,2,2,5,2,2, 5,2,8, 5,2,2, 5,2,2, 6,2,2, 5,2,2,3,2,12,2,2,2, 3,2,2, 2,2,4, 2,2,2, 3,2,2,2,2,2, 1,2,2, 6,1,2, 6,1,1, 1,2,1, 1,2,1,1,2,1, 1,2,12,0,0,4, 5,2,2, 5,2,2, 6,2,2,1,3,2, 7,2,2, 7,2,2, 6,2,2, 3,2,2, 2,2,2,2,2,2, 3,2,2, 3,2,8, 3,2,2, 3,2,2,5,2,2, 6,2,4, 6,2,6, 6,1,2, 3,2,2, 2,2,2,2,2,12,3,2,2, 5,2,2, 5,2,2, 3,2,2, 5,2,4,1,3,4, 7,2,2, 6,2,2, 7,2,2, 3,2,4,6,2,2, 6,2,2, 7,2,2, 6,2,2, 5,2,2,3,2,2, 2,2,4, 3,2,2, 2,2,2, 3,2,2, 5,2,6,5,2,2, 5,2,2, 6,2,2, 6,2,2, 5,2,2,3,2,2, 2,2,4, 5,1,2, 5,1,2, 6,1,2, 1,2,12,0,0,0};/*****************happy birthday***********************/uchar code Birthday[]={5,1,2, 5,1,2, 6,1,4, 5,1,4, 1,2,4, 7,1,8,5,1,2, 5,1,2, 6,1,4, 5,1,4, 2,2,4, 1,2,8,5,1,2, 5,1,2, 5,2,4, 3,2,4, 1,2,4, 7,1,4,6,1,4, 4,2,2, 4,2,2, 3,2,4, 1,2,4, 2,2,4,1,2,4, 0,0,0};//////////////////////////////////////////////////////// //-----------------------------------------------------void t0int() interrupt 1 //T0中断程序,控制发音的音调{TR0 = 0; //先关闭T0speaker = ~speaker; //输出方波, 发音TH0 = t0h; //下次的中断时间, 这个时间, 控制音调高低TL0 = t0l;TR0 = 1; //启动T0}//--------------------------------------void delay(uchar t) //延时程序,控制发音的时间长度120ms(1/4拍){uchar a,b,c;while(t--) //四重循环, 共延时t个1/4拍{ for(c=193;c>0;c--)for(b=114;b>0;b--)for(a=1;a>0;a--);}//延时期间, 可进入T0中断去发音TR0 = 0; //关闭T0, 停止发音}//--------------------------------------void singachar() //演奏一个音符{TR0=0;TH0 = t0h; //控制音调TL0 = t0l;TR0 = 1; //启动T0, 由T0输出方波去发音delay(time); //控制时间长度即 节拍}//--------------------------------------//**************演奏一首歌***********************************//void song(uchar *str){uchar k,i;i = 0;time = 1;while(time){k = str[i] + 7 * (str[i + 1]);//第i个是音符, 第i+1个是第几个八度

t0h = FREQH[k]; //从数据表中读出频率数值t0l = FREQL[k]; //实际上, 是定时的时间长度time = str[i + 2]; //读出时间长度数值 节拍时间i += 3;singachar();}}void main(void){TMOD = 0x01; //置T0定时工作方式1ET0 = 1; //开T0中断EA = 1; //开CPU中断while(1){song(TwoMouse);delay(20);song(sszymmh);delay(20);// song(TwoButterfly);song(Birthday);delay(20);}//发出一个音符}

/****************乐谱节拍高低音***********************************节拍:下面有两横表示四分之一拍;下面有一横表示半拍;后面加一点表示增加该音符一半拍数; 2 表示一拍 ,2- 表示两拍;2---表示四拍音调:上面有一点表示高音,下面有一点表示低音,通常表示中音;设置节拍速度125拍/分,则2.08/拍, 二拍960ms,一拍0.48s,1/4拍为120ms*************************************************************/

晶振相关文章:晶振原理

吉林防静电工服制作

聊城西服制做

定制帽子