单片机课程设计单片机演奏乐曲试验

1、单片机课程设计课程设计题目：单片机演奏乐曲试验课程设计组： 08电子信息工程姓名： 单片机演奏乐曲实验摘要：本文是应用16f877a单片机原理和控制理论来设计音乐盒的硬件电路，并利用16单片机语言进行程序设计。通过控制单片机内部的定时器来产生不同频率的方波，驱动喇叭发出不同音调的音乐，再利用延迟来控制发音时间的长短。该程序通过把乐谱转化成相应的定时常数来驱动发音设备演奏出悦耳动听的音乐。这种控制电路结构简单，可靠性高,应用性强；软件程序适应范围广，对于不同的音乐只需要改变相应的定时常数即可。关键词：16f877a单片机 汇编语言单片机控制电路的设计本设计中用到了16f877a单片机，蜂鸣器。蜂

2、鸣器硬件电路控制如下图音乐产生的方法：一首音乐是许多不同的音阶组成的，而每个音阶对应着不同的频率，这样我们就可以利用不同的频率的组合，即可构成我们所想要的音乐了，当然对于单片机来产生不同的频率非常方便，我们可以利用单片机的定时/计数器t0来产生这样方波频率信号，因此，我们只要把一首歌曲的音阶对应频率关系弄正确即可。现在以单片机12mhz晶振为例，例出高中低音符与单片机计数t0相关的计数值如下表4.1所示:表4.1高中低音符与单片机计数t0相关的计数值音符对应的pr2值音符对应的pr2值m_1119m_2105m_394m_579m_670h_159l_5158l_6141如表4.2所示：音乐的

3、音拍，一个节拍为单位（c调）表4.2音乐的音拍曲调值delay曲调值delay调4/4125ms调4/462ms调3/4187ms调3/494ms调2/4250ms调2/4125ms对于不同的曲调我们也可以用单片机的另外一个定时/计数器来完成。发音部分代码在程序中实现，靠单片机的一个管脚输出，考虑到声音可能不够大所以我们加入了功放电路，利用lm386来对声音信号进行放大。音频输出信号由adu out引出，信号可经功放电路lm386输出到扬声器或耳机。软件流程图程序代码如下所示：;乐曲名：友谊天长地久*;文件名“3.asm”;功能:单片机演奏乐曲实验;*#include p16f877a.inc

4、 #define youyi 0x2100;乐谱编号#define l_5.158#definel_6.141#definem_1.119#definem_2.105#definem_3.94#definem_5.79#definem_6.70#defineh_1.59#definem_0.0; tone8=158,141,119,105,94,79,70,59;声调的高低，实际上是pwm的周期值;计算方法是ccp的时钟1mhz除以预分频比16，再除以要产生的频率，最后再减去1。portd_d equ 20h ;显示缓冲器countcount1 equ 21hcount2 equ 22hcou

5、nt3 equ 23hcount4 equ 24hsavew equ 25h ;w保护寄存器saves equ 26h ;status保护寄存器count5 equ 27h ;节拍数h equ 28h ;地址寄存器hang equ 29h ;行寄存器lie equ 30h ;列寄存器tmp1 equ 31h ;tmp1缓存寄存器byte equ 32h ;缓存count6 equ 33h ;节拍数count7 equ 34h ;节拍数dd_ram_addrequ 35h ; 第一行显示地址寄存器dd_ram_ul equ 36h ; 第二行显示地址寄存器count equ 37hcount e

6、qu 38h ;计数寄存器count2 equ 39h;*;* 定义 lcd数据& 控制i/o口 ;*#definelcd_db7 portb,3 ;占用的i/o口定义 #definelcd_db6 portb,2 ;lcd的db6与rb2连接,其它类推#definelcd_db5 portb,1 ;#definelcd_db4 portb,0 ;#define lcd_en portc,0#define lcd_rs portc,1#definelcd_db7_dirtrisb,3 ;对应的方向寄存器定义#definelcd_db6_dirtrisb,2 ;#definelcd_db5_di

7、rtrisb,1 ;#definelcd_db4_dirtrisb,0 ;#definelcd_en_dirtrisc,0 ;#definelcd_rs_dirtrisc,1 ; ;*lcd 模块命令*#definedisp_on0x00c ; 开显示#definedisp_on_c0x00e ; 开显示, 开指针#definedisp_on_b0x00f ; 开显示, 开指针,开闪烁#definedisp_off0x008 ; 关显示#defineclr_disp0x001 ; 清显示的操作数#defineentry_inc0x006 ; 操作数#defineentry_inc_s0x007

8、 ; 操作数#defineentry_dec0x004 ; 操作数#defineentry_dec_s0x005 ; 操作数;* org youyi de l_5,l_5,m_1,m_1,m_1,m_1,m_1,m_1,m_1,m_3,m_3,m_2,m_2,m_2,m_2de m_1,m_2,m_2,m_3,m_3,m_1,m_1,m_1,m_1,m_1,m_3,m_3,m_5,m_5,m_6de m_6,m_6,m_6,m_6,m_6,m_6,m_6,m_6,m_6,m_5,m_5,m_5,m_5,m_3,m_3de m_3,m_1,m_1,m_2,m_2,m_2,m_2,m_1,m_2,

9、m_2,m_3,m_3,m_1,m_1,m_1de m_1,l_6,l_6,l_6,l_5,l_5,m_1,m_1,m_1,m_1,m_1,m_1,m_1,m_1,m_6de m_6,m_5,m_5,m_5,m_5,m_3,m_3,m_3,m_1,m_1,m_2,m_2,m_2,m_2,m_1de m_2,m_2,m_6,m_6,m_5,m_5,m_5,m_5,m_3,m_3,m_3,m_5,m_5,m_6,m_6de m_6,m_6,m_6,m_6,m_6,m_6,h_1,h_1,m_5,m_5,m_5,m_5,m_3,m_3,m_3de m_1,m_1,m_2,m_2,m_2,m_2,m_

10、1,m_2,m_2,m_3,m_3,m_1,m_1,m_1,m_1de l_6,l_6,l_6,l_5,l_5,m_1,m_1,m_1,m_1,m_1,m_1,m_0,m_0,m_0,m_0;* org 0x000 nop ;空指令 goto main org 0x004 ;中断入口 banksel savew movwf savew swapf status,w clrf status movwf saves ;中断保护 goto ccpint ;*table*table1 ;取第一行的显示码tmr2 count addwf pcl,1 ;地址偏移量加当前pc值 retlw i ;t ret

11、lw n ;m retlw n ;r retlw o ;2 retlw v ;空格 retlw a ;空格 retlw t ;c retlw o ;o retlw r ;u retlw ;n retlw ;t retlw v ;n retlw 1 ;t retlw . ;n retlw 5 ;t retlw 00h;*table1*table ;取第二行显示time: ms addwf pcl,1 ;地址偏移量加当前pc值 retlw h ;t retlw e ;i retlw l ;m retlw l ;e retlw o ;: retlw ;空格 retlw p ;空格 retlw i ;

12、空格 retlw c ;空格 retlw ! ;空格 retlw 00h;*table2*table2 addwf pcl,1 retlw 30h ;0 retlw 31h ;1 retlw 32h ;2 retlw 33h ;3 retlw 34h ;4 retlw 35h ;5 retlw 36h ;6 retlw 37h ;7 retlw 38h ;8 retlw 39h ;9;*主程序开始*main call lcd_dispay banksel trisd ;选择体1 clrf trisd ;portd为输出端口 movlw 07h ; movwf option_reg ;1:256

13、 banksel t1con clrf count5 movlw 30h ;分频器为1:8，关闭tmr1 movwf t1con ; bcf pir1,tmr1if ;溢出标志位清零 clrf tmr1h clrf tmr1l movlw 0xee ;设定tmr1低位初值 addwf tmr1l ; movlw 0x85 ;设定tmr1高位初值 addwf tmr1h ; bsf t1con,0 ;启动tmr1 banksel trisc ;跳到体1 bcf trisc,2 ;ccp1为输出状态 banksel eeadr ;跳到体2 movlw youyi ;将地址存到w寄存器 movwf

14、eeadr ;将地址送入eeprom地址寄存器 banksel eecon1 ;选定bank3 bcf eecon1,eepgd ;选择eeprom作为非易失性存储器操作对象 bsf eecon1,rd ;启动一次读eeprom的操作 banksel eedata ;跳到体2 movf eedata,w ;由于eeprom的读出操作花费的时间很短,此时eeprom banksel pr2 ;跳到体1 movwf pr2 ;将w的值存到pr2 banksel t2con ;跳到体0 movlw 0x07 ;预分频1:16，后预分频1:1 movwf t2con ;开定时器2 movlw 0x0c

15、 ;将0x0c存到w寄存器 movwf ccp1con ;使用8位pwm方式 banksel pr2 ;跳到体1 movf pr2,0 ;将pr2值存到w寄存器 banksel ccpr1l ;跳到体0 movwf ccpr1l ;将w存到ccpr1l movlw b11111100 ;屏蔽低两位 andwf ccpr1l,1 rrf ccpr1l,1 ;ccpr1l右移一位 rrf ccpr1l,1 ;ccpr1l右移一位 rrf ccpr1l,1 ;ccpr1l右移一位 banksel pie1 ;跳到体1 bsf pie1,tmr1ie ;启动tmr1中断 bsf intcon,peie

16、 ;开启外设中断 bsf intcon,gie ;开启全局中断 banksel portd ;选择体0 clrf portd movlw 01h ;显示缓冲器赋初值 movwf portd_d loop ;call delay_500ms ;延时500ms ;rlf portd_d ;显示缓冲器循环左移 goto loop ;等待中断;*ccpint中断子程序*ccpint btfss pir1,tmr1if ;判断是否是tmr1中断 goto jmp4 ;否,跳出中断 bcf pir1,tmr1if ;是,清中断标志位 movlw 30h ;分频器为1:8，关闭tmr1 movwf t1co

17、n ; clrf tmr1h ;清tmr1h clrf tmr1l ;清tmr1l movlw 0xee ;设定tmr1低位初值 addwf tmr1l ; movlw 0x85 ;设定tmr1高位初值 addwf tmr1h ; bsf t1con,0 ;启动tmr1 banksel eeadr ;跳到体2 movlw youyi ;将地址存到w寄存器 movwf eeadr ;将地址送入eeprom地址寄存器 banksel count5 ;跳到体0 movf count5,0 ;将count存到w寄存器 banksel eeadr ;跳到体2 addwf eeadr,1 ;eeadr=e

18、eadr+count banksel eecon1 ;选定bank3 bcf eecon1,eepgd ;选择eeprom作为非易失性存储器操作对象 bsf eecon1,rd ;启动一次读eeprom的操作 banksel eedata ;跳到体2 movf eedata,w ;由于eeprom的读出操作花费的时间很短，此时eeprom banksel pr2 ;跳到体1 movwf pr2 ;将w存到pr2 banksel ccpr1l ;跳到体0 movwf ccpr1l ;将w存到ccpr1l movlw b11111100 ;将11111100存到w寄存器 andwf ccpr1l,

19、1 ;屏蔽低两位 rrf ccpr1l,1 ;ccpr1l左移一位 rrf ccpr1l,1 ;ccpr1l左移一位 rrf ccpr1l,1 ;ccpr1l右移一位 movlw .149 ;将149存到w寄存器 subwf count5,0 ;w=count-149 btfss status,c ;判断是否有借位 goto jmp1 ;有，跳到jmp1 goto jmp2 ;无，跳到jmp2jmp1 incf count5,1 ;count=couint+1 goto jmp ;跳到jmpjmp2 clrf count5 ;count清零jmp movlw b00000000 ;送.0到w寄

20、存器 xorwf portd,0 ;判断portd是否为0 btfss status,z goto jmp3 ;否，跳到jmp1 movf portd_d,0 ;是，将portd_d的值 movwf portd ;送到portd goto jmp4jmp3 clrf portd ;portd清零 bcf status,c ;清楚其他操作对c的影响 rlf portd_d ;显示缓冲器循环左移 btfsc status,c goto jmp5 goto jmp4 jmp5 movlw 01h ;显示缓冲器赋初值 movwf portd_d jmp4 swapf saves,w movwf sta

21、tus swapf savew,f swapf savew,w ;恢复中断 retfie;*700ms延时子程序*delay_500ms movlw .5 movwf count3loop1 movlw d133 ;设置外部循环次数 movwf count1 ;loop2 movlw d249 ;设置内部循环次数 movwf count2 ;loop3 decfsz count2 ,1 ;内部循环变量自减1，为0则跳转 goto loop3 ; decfsz count1,1 ;外部循环变量自减1，为0则跳转 goto loop2 ; decfsz count3,1 ;外部循环变量自减1，为0

22、则跳转 goto loop1 ; return ;返回主程序;*lcd_dispay显示子程序*lcd_dispay banksel h ;选择体0 movlw 0xc0 ;lcd第二行首地址 movwf dd_ram_ul movlw 0x80 ;lcd第一行首地址 movwf dd_ram_addr call lcd_intf ;调lcd初始化子程序 movlw .0 ;第一行显示tmr2 count movwf hang ;的位置 movlw .2 movwf lie call adress ;调地址转换子程序 call set_cursor ;调设置光标子程序 call display

23、 ;调第一行显示子程序 movlw .1 ;第二行显示time:xxxxms movwf hang ;的位置行和列 movlw .0 movwf lie call adress ;调地址转换子程序 call set_cursor ;调设置光标子程序 call display1 ;调第二行显示子程序 ;call watch_change ;调watch_change子程序 movlw .1 ;设置时间显示位置行和列 movwf hang movlw .7 movwf lie call adress ;调地址转换子程序 call set_cursor ;调设置光标子程序 ;call display

24、_watch ;调时间显示子程序 return ;子程序返回;*lcd_intf初始化子程序* lcd_intf bsf status,rp0 ;bank 1 bcf status,rp1 ;初始化相关i/o引脚 bcf lcd_db7_dir bcf lcd_db6_dir bcf lcd_db5_dir bcf lcd_db4_dir bcf lcd_en_dir bcf lcd_rs_dir bcf status,rp0 ;bank 0 bcf lcd_rs bcf lcd_en ;清数据线 movlw0x28 ;设置工作方式 callsendcmd ;四位数据总线,两行显示,5x7点阵

25、字符 bsf lcd_en bcf lcd_en movlwdisp_on ;开显示 callsendcmd movlwentry_inc ;设置指针移动方式 callsendcmd callclrlcd ;清屏 movlw 0x80 ;设定行值 call sendcmd return ;子程序返回;*adress地址转换子程序*adress btfss hang,0 ;判断行是否为1 goto j1 ;是，跳到j1 movf lie,0 ;否，将列值送到w寄存器 addwf dd_ram_ul,0 ;第二行首地址加上列值 goto j2j1 movf lie,0 ;将列值送到w寄存器 add

26、wf dd_ram_addr,0 ;第一行首地址加上列值 j2 movwf h ;将地址存到h寄存器 return ;子程序返回;*set_cursor设置光标位置子程序* set_cursor banksel h movf h,0 ;设置光标位置 call sendcmd movlw disp_on ; 开显示 call sendcmd return ;子程序返回;*display第一行显示子程序*display clrf count ;清0查表偏移地址 write_a movfw count ;count值送到w寄存器 call table ;查表，显示tmr2 count movwf t

27、mp1 ;送暂存器 incf count,1 ;偏移地址加1 movfw tmp1 ;tmp1值送到w寄存器 xorlw 00h ;判断是否显示完所有数据 btfsc status,z ;（约定表格做后一个00h做为结束标志） goto $+4 ;全部显示完成 movfw tmp1 ;tmp1值送到w寄存器 call putclcd ;没有显示完,把当前查表所得数据送lcd显示 goto write_a ;调用显示程序 return ;子程序返回;*display1第二行显示子程序*display1 clrf count ;清0查表偏移地址 write2_a movfw count ;coun

28、t值送到w寄存器 call table1 ;查表，显示time: ms movwf tmp1 ;送暂存器 incf count,1 ;偏移地址加1 movfw tmp1 ;tmp1值送到w寄存器 xorlw 00h ;判断是否显示完所有数据 btfsc status,z ;（约定表格做后一个00h做为结束标志） goto $+4 ;全部显示完成 movfw tmp1 ;tmp1值送到w寄存器 call putclcd ;没有显示完，把当前查表所得数据送lcd显示 goto write2_a ;调用显示程序 return ;子程序返回;*putclcd 将字符数据送入 lcd * ;* 本程序将字符数据分成了高半字节和低半字节分别输入 ;* 先送入的是高半字节 ;* putclcd bsf lcd_rs ;设置为送数据模式 movwf byte call write ;写