基于單片機的電子琴設(shè)計畢業(yè)設(shè)計-閱讀頁
2025-07-12 19:35本頁面
【正文】 0。unsigned int code FreTab[12] = { 262,277,294,311,330,349,369,392,415,440,466,494 }。 //1~7在頻率表中的位置unsigned char code LengthTab[7]= { 1,2,4,8,16,32,64 }。 //音符定時器初值暫存 unsigned char Sound_Temp_TH1,Sound_Temp_TL1。 while(ms) for(i=0。i++)。 //新的頻率表 unsigned char i,j。 unsigned char Tone,Length,SL,SH,SM,SLen,XG,FD。i12。 if(j 11) { j = j12。//計算新的頻率 } else NewFreTab[i] = FreTab[j]。 else if(Octachord == 3) NewFreTab[i]=2。 while(Sound[SoundLength] != 0x00) //計算歌曲長度 { SoundLength+=2。 Tone = Sound[Point]。 // 讀出第一個音符和它時時值 LDiv0 = 12000/Speed。 // 算出4分音符的長度 LDiv4 = LDiv4LDiv4*SOUND_SPACE。 TR1 = 1。 //計算出音符 SM=Tone/10%10。 //計算出是否升半 CurrentFre = NewFreTab[SignTab[SL1]+SH]。 //低音 if (SM==3) CurrentFre = 2。//計算計數(shù)器初值 Sound_Temp_TH0 = Temp_T/256。 TH0 = Sound_Temp_TH0。 //加12是對中斷延時的補償 } SLen=LengthTab[Length%10]。 //算出音符類型(0普通1連音2頓音) FD=Length/100。 //算出連音音符演奏的長度(多少個10ms) if (FD==1) LDiv=LDiv+LDiv/2。 else LDiv1=LDiv*SOUND_SPACE。 //算出頓音的演奏長度 else LDiv1=LDiv。 LDiv2=LDivLDiv1。 for(i=LDiv1。i) //發(fā)規(guī)定長度的音 { while(TF1==0)。 TL1 = Sound_Temp_TL1。 } } if(LDiv2!=0) { TR0=0。 for(i=LDiv2。i) //音符間的間隔 { while(TF1==0)。 TL1 = Sound_Temp_TL1。 } } Point+=2。 Length=Sound[Point+1]。 TR0=0。 P2=0x0F。 Tmp=P2 ^ 0x0F。break。break。break。break。 //無鍵按下，返回 } P2=0xF0。 Tmp=(P24)^0x0F。 break。 break。 break。break。 //無鍵按下，返回 } return k。 P1=0xFF。 ET0 = 1。 TR0 = 0。 EA = 1。 TL0=tone_delay_table[key_NO]%256。// 計算TL1應(yīng)裝入的初值 (10ms的初裝值) TL1 = (6553550000)%256。 if(P2!=0xF0)//當有按鍵按下時，需要顯示數(shù)碼管及設(shè)置定時器的開啟 { key_NO=keys_scan()。//在數(shù)碼管上顯示按下的鍵 if(key_NO15)//按下那個鍵，發(fā)出對應(yīng)的音調(diào) { Sound_Temp_TH0=tone_delay_table[key_NO]/256。 } else if(key_NO==15)//按下最后一個鍵時，要播放音樂 { Play(Music, 0, 3, 300)。//音長中斷 } TR0=1。//關(guān)閉定時器 P1=0xFF。//稍做延時，可以避免誤判斷 }}//音符發(fā)生的中斷void play_tone() interrupt 1{ TH0=Sound_Temp_TH0。 beep=~b
化學相關(guān)推薦
鄂ICP備17016276號-1