实验五 电子琴模拟实验.doc

《实验五 电子琴模拟实验.doc》由会员分享，可在线阅读，更多相关《实验五 电子琴模拟实验.doc（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、实验五 电子琴模拟实验一、实验目的1了解单片机系统发声原理；2进一步熟悉定时器编程方法；3进一步熟悉键盘扫描电路工作原理及编程方法。二、实验说明1利用定时器,可以发出不同频率的脉冲,不同频率的脉冲经喇叭驱动电路放大滤波后,就会发出不同的音调。2定时器按所设置的定时参数产生中断,这一次中断发出脉冲低电平,下一次反转发出脉冲高电平.由于定时参数不同,就发出了不同频率的脉冲.本实验中当有键按下，会发出连续脉冲，直到按键松开，才停止发音。发完后继续检测键盘，如果按键还在按下状态，继续发音。各音阶标称频率值：音 阶1234567频率(Hz)261.1293.7329.6349.2392.0440.049

2、3.9三、实验内容及步骤利用实验仪上提供的键盘，使数字键1、2、3、4、5、6、7作为电子琴按键，按下即发出相应的音调。用P3.0口发出音频脉冲,驱动喇叭。1单片机最小应用系统的P1口接查询式键盘，单片机P2.0口接音频驱动电路。2用串行数据通信线连接计算机与仿真器，把仿真器插到模块的锁紧插座中，请注意仿真器的方向：缺口朝上。3打开Keil uVision2仿真软件，首先建立本实验的项目文件，接着添加“TH15_电子琴.ASM”源程序，进行编译，直到编译无误。4进行软件设置，选择硬件仿真，选择串行口，设置波特率为38400。5打开模块电源和总电源，点击开始调试按钮，点击RUN按钮运行程序。按查

3、询式键盘的17键，扬声器发出高低不同的声音。四、流程图及源程序五、思考题1请思考实验是怎样在硬件与软件上实现发声的？2本程序中断子程序的调用是怎样进行的？六、电路图 ;电子琴 -连续型 查询式键盘mode equ 082hPORTA equ 7CFFhCTL equ 7FFFh ;P1 键盘读入口 查询式Pulse equ 55h ;脉冲PulseCNT equ 50h ;脉冲计数ToneHigh equ 51h ;高音调ToneLow equ 52h ;低音调Tone equ 53h ;音调KeyBuf equ 54hSpeaker BIT P3.0 ORG 0000H LJMP START

4、 ORG 000BH LJMP Timer0Int ORG 0100HStart: mov sp, #70h mov TMOD, #01 ; Timer mov IE, #82h ; EA=1, IT0 = 1 mov Tone,#0MLoop: call TestKey jz MLoop call GetKey mov b, a jz MLoop ; = 0, 8 dec b mov a, b rl a ; a = a*2 mov b, a mov dptr, #ToneTable movc a, a+dptr mov ToneHigh, a mov TH0, a mov a, b inc

5、a movc a, a+dptr mov ToneLow, a mov TL0, a SETB TR0 MOV P1,#0FFHWAIT: MOV A,P1 CJNE A,#0FFH, WAIT MOV R6,#10 ACALL DELAY CLR TR0 LJMP MLOOPTimer0Int: ;定时中断 push PSW clr TR0 mov TH0, ToneHigh mov TL0, ToneLow setb TR0 mov C, Pulse MOV Speaker,C cpl Pulse pop PSW retiToneTable: DW 64578,64686,64778,64

6、821 DW 64898,64968,65029TestKey: MOV P1, #0FFH MOV A, P1 CPL A ; 读入键状态 retKeyTable:DB 0FEH,0FDH,0FBH,0F7H DB 0EFH,0DFH,0BFH,07FH ; 键码定义GETKEY: MOV R6,#10 ACALL DELAY MOV A,P1 CJNE A,#0FFH,K01 ;确有键按下 LJMP MLOOPK01: MOV R3,#8 ;8个键 MOV R2,#0 ;键码 MOV B,A ;暂存键值 MOV DPTR,#KeyTableK02: MOV A,R2 MOVC A,A+DPTR ;从键值表中取键值 CJNE A,B,K04 ;键值比较 MOV A,R2 ;得键码 INC A RETK04: INC R2 ;不相等，到继续访问键值表 DJNZ R3,K02 MOV A,#0FFH ;键值不在键值中，即多键同时按下 LJMP MLOOPDelay: ; 延时子程序 mov r7, #0DelayLoop: djnz r7, DelayLoop djnz r6, Delay ret END