亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码
標題:
STC15F104W單片機音樂播放器制作(小蘋果+西海情歌+夜之光)源程序
[打印本頁]
作者:
zsw3721
時間:
2021-1-20 15:37
標題:
STC15F104W單片機音樂播放器制作(小蘋果+西海情歌+夜之光)源程序
最近準備做一個延時插座,想起STC15F104W這顆MCU,趁延時插座的料還沒來拿它焊了個小玩具。朋友們可以看代碼注釋找個簡譜自己譜曲。
接線圖:
原理圖.jpg
(19.72 KB, 下載次數: 84)
下載附件
2021-1-20 15:32 上傳
實物:
實物.jpg
(168.8 KB, 下載次數: 77)
下載附件
2021-1-20 15:32 上傳
單片機源程序:
#include <STC15.h>
#define uchar unsigned char
#define uint unsinged int
sbit speaker = P3^0;
uchar t0h,t0l,time,count1=0,count2=0;
//--------------------------------------
//單片機晶振采用11.0592MHz
// 頻率-半周期數據表 高八位 本軟件共保存了四個八度的28個頻率數據
uchar code FREQH[] = {0x01, //0的時候沒有音符
0xF2, 0xF3, 0xF5, 0xF5, 0xF6, 0xF7, 0xF8, //低音1234567
0xF9, 0xF9, 0xFA, 0xFA, 0xFB, 0xFB, 0xFC, 0xFC,//1,2,3,4,5,6,7,i
0xFC, 0xFD, 0xFD, 0xFD, 0xFD, 0xFE, //高音 234567
0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFF}; //超高音 1234567
//-----------------------------------------
// 頻率-半周期數據表 低八位
uchar code FREQL[] = {0x01, //0的時候沒有音符
0x42, 0xC1, 0x17, 0xB6, 0xD0, 0xD1, 0xB6, //低音1234567
0x21, 0xE1, 0x8C, 0xD8, 0x68, 0xE9, 0x5B, 0x8F, //1,2,3,4,5,6,7,i
0xEE, 0x44, 0x6B, 0xB4, 0xF4, 0x2D, //高音 234567
0x47, 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 LittleApple[]={
3,2,4, 1,2,4, 2,2,4, 6,1,4,
3,2,2, 2,2,2, 1,2,2, 2,2,2,
6,1,4, 3,2,4, 1,2,4, 2,2,4,
2,2,4, 5,2,2, 3,2,2, 7,1,4,
1,2,4, 1,2,2, 7,1,2, 6,1,4,
7,1,2, 1,2,2, 2,2,4, 5,1,4,
6,2,2, 5,2,2, 3,2,4, 3,2,4,
2,2,2, 1,2,4, 2,2,2, 3,2,2,
2,2,2, 3,2,2, 2,2,2, 3,2,2,
5,2,2, 5,2,4, 5,2,2, 5,2,2,
5,2,2, 5,2,2, 5,2,4, 3,2,4,
1,2,4, 2,2,4, 6,1,4, 3,2,2,
2,2,2, 1,2,2, 2,2,2, 6,1,4,
3,2,4, 1,2,4, 2,2,4, 2,2,4,
2,2,2, 5,2,2, 3,2,2, 7,1,4,
1,2,4, 1,2,2, 7,1,2, 6,1,4,
7,1,2, 1,2,2, 2,2,4, 5,1,4,
6,2,2, 5,2,2, 3,2,4, 3,2,4,
2,2,2, 1,2,4, 2,2,2, 3,2,2,
2,2,4, 5,1,4, 6,1,4, 6,1,2,
1,2,2, 6,1,4, 1,2,4, 0,0,0};
/*******************夜之光*********************/
uchar code NightLight[]={
3,2,2, 3,2,2, 3,2,2, 5,2,2, 6,2,4, 5,2,2, 3,2,2,
5,2,2, 3,2,2, 3,2,2, 2,2,2, 3,2,4, 2,2,2, 2,2,2,
2,2,2, 2,2,2, 3,2,2, 5,2,4, 3,2,2, 2,2,2, 3,2,2,
3,2,2, 3,2,2, 2,2,1, 3,2,1, 3,2,4, 3,2,2, 3,2,2,
3,2,2, 5,2,2, 6,2,4, 5,2,2, 3,2,2, 5,2,2, 3,2,2,
3,2,2, 3,2,2, 2,2,1, 3,2,1, 3,2,4, 2,2,2, 2,2,2,
2,2,2, 3,2,2, 5,2,2, 3,2,4, 5,2,2, 6,2,4, 3,2,2,
1,3,2, 7,2,2, 6,2,2, 6,2,2, 6,2,2, 5,2,1, 6,2,1,
6,2,4, 6,2,2, 5,2,2, 3,2,2, 3,2,2, 3,2,2, 2,2,1,
3,2,1, 3,2,4, 5,2,2, 3,2,2, 5,2,2, 5,2,2, 5,2,2,
6,2,2, 7,2,2, 7,2,2, 6,2,2, 5,2,2, 6,2,4, 6,2,2,
5,2,1, 6,2,1, 6,2,2, 5,2,2, 1,3,2, 7,2,2, 6,2,2,
6,2,2, 6,2,2, 5,2,1, 6,2,1, 6,2,4, 6,2,2, 5,2,2,
3,2,2, 3,2,2, 3,2,2, 2,2,1, 3,2,1, 3,2,4, 5,2,2,
3,2,2, 5,2,4, 5,2,2, 6,2,2, 7,2,2, 7,2,2, 6,2,2,
5,2,2, 6,2,2, 6,2,2, 6,2,2, 5,2,1, 6,2,1, 6,2,4,
0,0,0};
/*******************西海情歌*******************/
uchar code WestSea[]={
3,1,2, 5,1,2, 6,1,2, 1,2,2, 6,1,2, 2,2,4, 1,2,4,
1,2,2, 2,2,2, 3,2,2, 3,2,2, 2,2,2, 2,2,2, 1,2,2,
6,1,2, 6,1,2, 3,1,2, 5,1,4, 6,1,2, 1,2,2, 2,2,4,
2,2,2, 3,2,1, 2,2,1, 2,2,4, 2,2,1, 1,2,2, 2,2,2,
2,2,2, 3,2,2, 3,2,2, 2,2,2, 2,2,2, 1,2,2, 6,1,2,
6,1,2, 3,1,2, 5,1,2, 6,2,2, 1,2,2, 6,1,2, 2,2,4,
1,2,2, 2,2,2, 3,2,2, 3,2,2, 2,2,2, 2,2,2, 1,2,2,
6,1,2, 6,1,2, 3,1,2, 5,1,4, 6,1,2, 1,2,2, 2,2,4,
2,2,2, 3,2,1, 2,2,1, 2,2,4, 2,2,1, 1,2,2, 2,2,2,
2,2,2, 3,2,2, 3,2,2, 2,2,2, 2,2,2, 1,2,2, 6,1,4,
1,2,2, 1,2,4, 2,2,2, 3,2,2, 5,2,2, 5,2,2, 5,2,2,
3,2,2, 5,2,2, 6,2,2, 6,2,2, 5,2,2, 6,2,2, 6,2,2,
6,2,2, 5,2,2, 3,2,4, 5,2,2, 6,2,2, 1,3,2, 1,3,2,
1,3,2, 1,3,2, 1,3,2, 6,2,2, 5,2,2, 6,2,1, 1,3,1,
5,2,2, 6,2,2, 6,2,2, 5,2,2, 3,2,4, 5,2,2, 3,2,2,
2,2,2, 2,2,2, 2,2,2, 1,2,2, 6,1,4, 1,2,2, 2,2,2,
2,2,4, 2,2,2, 3,2,2, 5,2,2, 6,2,2, 6,2,2, 5,2,2,
5,2,2, 3,2,2, 3,2,4, 0,0,0};
/*****************生日快樂********************/
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; //先關閉T0
speaker = ~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=12;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定時工作方式1
ET0 = 1; //開T0中斷
EA = 1; //開CPU中斷
while(1)
{
delay(10);
song(LittleApple);
delay(20);
song(NightLight);
delay(20);
song(WestSea);
delay(20);
song(sszymmh);
delay(20);
song(Birthday);
delay(20);
}
}
復制代碼
作者:
zsw3721
時間:
2021-1-20 19:36
好像曲子太長了有點問題,void song(uchar *str)函數中定義的變量i的類型要改為uint。
歡迎光臨 (http://www.denmoz.com/bbs/)
Powered by Discuz! X3.1