单片机电子琴程序

1、;*;简易电子琴实验说明; 实验目的： 1. 掌握蜂鸣器的使用;2. 掌握蜂鸣器的不同发音的方法; 实验内容： 1. 通过单片机，令 1-7 号键由低到高发出 1-7 的音阶K1BIT;按键 1K2BIT;按键 2K3BIT;按键 3K4BIT;按键 4K5BIT;按键 5K6BIT;按键 6K7BIT;按键 7BuzzerBIT; 蜂鸣器M1EQU 17M2EQU 16M3EQU 15M4EQU 14M5EQU 13M6EQU 12M7EQU 11ORG 0000HLJMPSTARTORG 0100HSTART:MOV SP,#60HMAIN:MOV P1,#0FFH;P1 口初始化LCAL

2、LDemo; 播放一段演示音乐MAIN_1:JBK1,MAIN_2; 判断 1 号键是否按下，否则检测2 号键LCALLSound1; 发音子程序MAIN_2:JBK2,MAIN_3; 判断 2 号键是否按下，否则检测3 号键LCALLSound2; 发音子程序MAIN_3:JBK3,MAIN_4; 判断 2 号键是否按下，否则检测4 号键LCALLSound3; 发音子程序MAIN_4:JBK4,MAIN_5; 判断 4 号键是否按下，否则检测5 号键LCALLSound4; 发音子程序MAIN_5:JBK5,MAIN_6; 判断 5 号键是否按下，否则检测6 号键LCALLSound5;

3、发音子程序MAIN_6:JBK6,MAIN_7; 判断 6 号键是否按下，否则检测7 号键LCALLSound6; 发音子程序MAIN_7:JBK7,MAIN_73; 判断 7 号键是否按下，否则跳回检测1 号键LCALLSound7; 发音子程序MAIN_73:SJMPMAIN_1; 返回从 1 号键开始扫描; 播放演示音乐Demo:Demo_1:MOV DPTR,#MusicCLR AMOVCA,A+DPTRINC DPTRJZDemo_RetLCALLSoundMCUJMP Demo_1Demo_Ret:RET; 放音子程序; 乐曲 :),0- 结果标志Music:DBM1,M2,M3,

4、M4,M5,M6,M7,M7,M7,M6,M5,M4,M3,M2,M1DBM1,M2,M1,M2,M3,M2,M3,M4,M3,M4,M5,M4,M5,M6,M5DBM6,M7,M6,M7,M7,M6,M6,M6,0; 程序控制发音SoundMCU:MOV R5,#40H; 控制放音时间MOV R7,AACALLTimeMOV R6,ASoundMCU_0: PUSH06HSoundMCU_1: ACALLMusicalScaleDJNZR6,SoundMCU_1POP 06HDJNZR5,SoundMCU_0RET; 计算时长Time:MOV B,#0FFHXCH A,BDIV ABXCH

5、A,BCJNEA,#8,$+3JCTime_1INC BTime_1:XCH A,BRETMusicalScale:MOV A,R7MusicalScale1:CLR Buzzer;1 号键发音LCALLDelay; 延时DJNZACC,MusicalScale1MOV A,R7MusicalScale2:SETBBuzzerLCALLDelay; 延时DJNZACC,MusicalScale2RET;1号键发音Sound1:MOV R7,#M1Sound1_1:ACALLMusicalScaleJNB K1,Sound1_1RET; 发音频率，越大频率越低;2号键发音Sound2:MOV R

6、7,#M2Sound2_1:ACALLMusicalScaleJNB K2,Sound2_1RET; 发音频率，越大频率越低;3号键发音Sound3:MOV R7,#M3Sound3_1:ACALLMusicalScaleJNB K3,Sound3_1RET;4号键发音Sound4:Sound4_1:MOV R7,#M4ACALLMusicalScaleJNB K4,Sound4_1RET;5号键发音Sound5:MOV R7,#M5Sound5_1:ACALLMusicalScaleJNB K5,Sound5_1RET;6号键发音Sound6:MOV R7,#M6Sound6_1:ACALLMusicalScaleJNB K6,Sound6_1RET;7号