欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 12402|回復(fù): 2
打印 上一主題 下一主題
收起左側(cè)

51單片機演奏天空之城 c語言源程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:75263 發(fā)表于 2015-3-24 23:13 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
經(jīng)過一晚上的努力,我成功讓單片機演奏出了天空之城,李利朋同學長期想完成的天空之城,被我先變相的彈出來了~~   今天是個特殊的日子,我還在編程序 ,但是我還是很高興的,至少我還有希望,為了那個未來的夢想。 一會兒再編寫一個,用代碼表示那個啥~~
我還會回來的!!上代碼,天空之城
#include <reg52.h>
#define uchar unsigned char
#define uint unsigned int
sbit beep=P1^0;
unsigned int C;
#define L1 262         
#define L2 284
#define L3 311
#define L4 349
#define L5 392
#define L6 440
#define L7 494
#define Z1 523
#define Z2 587
#define Z3 659
#define Z4 698
#define Z5 784
#define Z6 880
#define Z7 987
#define H1 1046
#define H2 1174
#define H3 1318
#define H4 1396
#define H5 1567
#define H6 1760
#define H7 1975

void delay();

unsigned code GP[]={Z6,Z7,H1,Z7,H1,H3,Z7,Z3,Z6,Z5,Z6,H1,Z5,
                    Z3,Z3,Z4,Z3,H4,H1,Z3,H1,H1,Z7,Z4,Z4,Z7,
                                        Z7,Z6,Z7,H1,Z7,H1,H3,Z7,Z3,Z6,Z5,Z6,H1,
                                        Z5,Z2,Z3,Z4,H1,Z7,H1,H2,H2,H3,H1,H1,Z7,
                                        Z6,Z6,Z7,Z5,Z6,H1,H2,H3,H2,H3,H5,H2,H1,
                                        H1,Z7,H1,H3,H3,Z6,Z7,H1,Z7,H1,H2,H1,Z5,
                                        Z5,H4,H3,H2,H1,H3,H3,H3,H6,H6,H5,H5,H3,
                                        H2,H1,H1,H2,H1,H2,H5,H3,H3,H6,H6,H5,H5,
                                        H3,H2,H1,H1,H2,H1,H2,Z7,Z6,Z6,0xff};
unsigned code JP[]={4,4,/**/12,4,8,8,/**/20,8,/**/12,4,8,8,
                    20,4,4,/**/12,4,8,8,/**/20,4,4,/**/12,4,8,8,
                                        /**/20,4,4,/**/12,4,8,8,/**/20,8,/**/12,4,8,8,
                                        /**/20,4,4,/**/8,4,12,3,1,/**/12,4,12,/**/4,4,
                                        4,4,8,8,/**/20,4,4,/**/12,4,8,8,/**/24,/**/
                                        8,4,4,8,8,/**/24,/**/4,4,8,4,4,8,/**/12,4,12,
                                        /**/8,8,8,4,4,/**/16,8,/**/12,4,12,4,/**/4,4,12,8,
                                        /**/12,4,8,8,/**/16,8,/**/12,4,12,4,/**/4,4,12,8,
                                        /**/12,4,8,3,1,/**/32};

void main()
{ uchar i,j;
TMOD=0x00;
EA=1;         //開總中斷
ET0=1;        //開t0中斷
while(1)
{ i=0;
while(GP[i]!=0xff)
{C=460830/GP[i];
TH0=(8192-C)/32;
TL0=(8192-C)%32;
TR0=1;//開定時器0
for(j=0;j<JP[i];j++)
{delay();}
TR0=0;
i++;

}
beep=0;
}

}
void delay()          //延時15.6ms
{
uint i,j;
for(i=70;i>0;i--)
   {for(j=110;j>0;j--);}
}
void T0_time()interrupt 1
{ TR0=0;
beep=!beep;
TH0=(8192-C)/32;
TL0=(8192-C)%32;
TR0=1;
}


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

使用道具 舉報

無效樓層,該帖已經(jīng)被刪除
板凳
ID:191778 發(fā)表于 2017-12-6 14:16 | 只看該作者
謝謝分享
回復(fù)

使用道具 舉報

地板
ID:279693 發(fā)表于 2018-1-25 16:39 來自觸屏版 | 只看該作者
mikkuhand 發(fā)表于 2017-12-6 14:16
謝謝分享

謝。。。。。。。
回復(fù)

使用道具 舉報

5#
無效樓層,該帖已經(jīng)被刪除
您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

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

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表