程控电子琴.doc

济 源 职 业 技 术 学 院计算机类课程实 验 报 告（2010-2011学年第二学期）系部 信息工程系 专业班级 计应0901 姓名 谢曼曼 学号 09090115 课程名称 单片机应用技术 实验项目 程控电子琴 实验地点 计算机控制实训室 实验日期 3.214.22 实验成绩 指导老师 王树森 一、 实验目的和要求1. 学会单片机定时器/计数器使用；2. 学会音符发生器程序编写方法；3. 学会4*4键盘扫描、编写和去抖方法；4. 会使用C51编程。二、 环境说明 序号软件名称1windowsxp2keiluV2.03EasySST三、 上机准备工作1、知道如何在仿真软件下画出程控电子琴的原理图。2、会画流程图，要懂得画流程图的原则：进程用长方形、判定用菱形。3、要知道在写程序中如何运用定时器、查表和条件转移程序的应用。4、把keil和仿真结合起来，执行程序运行的结果。四、实验内容程控电子琴五、实验步骤1. 用仿真软件画出蜂鸣器发声的原理图。P3口接4*4键盘，蜂鸣器接在单片机的P2.0口，中间通过三极管放大。2. 画出蜂鸣器发声的的流程图，如下图： 3、根据流程图写出程序/程序名字：键盘扫描电子琴/功能：实现七个中音的发声/作者：谢曼曼/建立日期：3.21#include #define uchar unsigned char#define uint unsigned intunsigned int code table1=0xf8,0xf9,0xfa,0xfa,0xfb,0xfb,0xfc,0xfc,0xfc,0xfd,0xfd,0xfd,0xfd,0xfe,0x00; /定义音节高八位(前7个为低音后7个为中音)unsigned int code table2=0x8c,0x5b,0x15,0x67,0x04,0x90,0x0c,0x44,0xac,0x09,0x34,0x82,0xc8,0x06,0x00; /定义音节低八位(前7个为低音后7个为中音)sbit yin=P20;/定义p2.0口为输出声音 uint DI,ZHONG, x,z; /定义变量uchar y,num,temp;uchar keyscan();void delayms(uint z)/延时子程序 for(x=z;x0;x-)for(y=110;y0;y-);void int1(void) interrupt 1 /中断程序TH0=DI;TL0=ZHONG;yin=yin;void main()/主程序 TMOD=0x01; /定时器0工作方式1 EA=1; /开总中断 ET0=1; /开定时器0中断 TR0=0;/关闭定时器0 num=16; while(1) keyscan();/键盘扫描子程序 if(num=15)/如果按键值为15则关定时器0 TR0=0;elseTR0=1;/否则则开定时器0 uchar keyscan()/键盘扫描子程序P3=0xfe;/假设第一行有按键按下 temp=P3; temp=temp&0xf0;while(temp!=0xf0)/判断是否有按键按下 delayms(5);/延时 temp=P3; temp=temp&0xf0;while(temp!=0xf0)/判断是否有按键按下switch(temp)/判断是哪一个按键按下case 0xe0:num=0;break;case 0xd0:num=1;break;case 0xb0:num=2;break;case 0x70:num=3;break;DI=table1num; /把高八位给STHOZHONG=table2num; /把低八位给STLOTR0=1;/开定时器0while(temp!=0xf0)temp=P3;temp=temp&0xf0;TR0=0; P3=0xfd;/假设第二行有按键按下 temp=P3; temp=temp&0xf0;while(temp!=0xf0)/判断是否有按键按下 delayms(5);/延时 temp=P3; temp=temp&0xf0;while(temp!=0xf0)/判断是否有按键按下switch(temp)/判断是哪一个按键按下case 0xe0:num=4;break;case 0xd0:num=5;break;case 0xb0:num=6;break;case 0x70:num=7;break;DI=table1num; /把高八位给STHOZHONG=table2num; /把低八位给STLOTR0=1;while(temp!=0xf0)temp=P3;temp=temp&0xf0;TR0=0; P3=0xfb;/假设第三行有按键按下 temp=P3; temp=temp&0xf0;while(temp!=0xf0)/判断是否有按键按下 delayms(5);/延时 temp=P3; temp=temp&0xf0;while(temp!=0xf0)/判断是否有按键按下switch(temp)/判断是哪一个按键按下case 0xe0:num=8;break;case 0xd0:num=9;break;case 0xb0:num=10;break;case 0x70:num=11;break;DI=table1num; /把高八位给STHOZHONG=table2num; /把低八位给STLOTR0=1;while(temp!=0xf0)temp=P3;temp=temp&0xf0;TR0=0; P3=0xf7;/假设第三行有按键按下 temp=P3; temp=temp&0xf0;while(temp!=0xf0)/判断是否有按键按下 delayms(5);/延时 temp=P3; temp=temp&0xf0;while(temp!=0xf0)/判断是否有按键按下switch(temp)/判断是哪一个按键按下case 0xe0:num=12;break;case 0xd0:num=13;break;case 0xb0:num=14;break;DI=table1num; /把高八位给STHOZHONG=table2num; /把低八位给STLOTR0=1;while(temp!=0xf0)temp=P3;temp=temp&0xf0;TR0=0; 4、在keil环境下调试程序，确保程序无误。程序不再出错后，保存程序，扩展名为.c。对程序进行添加，右击Source Group1选择Add Files to Group Source Group 1,选择以.c为扩展名的文件，然后单击Add,最后单击Close。5、设置其属性，右击Target1选择Options for Target Target1，在Output下选中Create HEX Fi:，在Debug下选中Use: Keil Monitor-51 Driver, 然后单击确定。6、在仿真原理图中双击单片机，会弹出Edit Comp