51单片机电子琴设计C语言设计实例.docx
#define uchar unsigned char /定义一下方便使用 #define uint unsigned int #define ulong unsigned long #include <reg52.h> /包括一个 52 标准内核的头文件 /char code dx5163 _at_ 0x003b;/这是为了仿真设置的 sbit BEEP=P17; /喇叭输出脚 /sbit K1= P32; sbit K2= P35; sbit K3= P24; sbit K4= P25; uchar th0_f; /在中断中装载的 T0 的值高 8 位 uchar tl0_f; /在中断中装载的 T0 的值低 8 位 /T0 的值,及输出频率对照表 uchar code freq36*2= 0xA9,0xEF,/00220HZ ,1 /0 0x93,0xF0,/00233HZ ,1# 0x73,0xF1,/00247HZ ,2 0x49,0xF2,/00262HZ ,2# 0x07,0xF3,/00277HZ ,3 0xC8,0xF3,/00294HZ ,4 0x73,0xF4,/00311HZ ,4# 0x1E,0xF5,/00330HZ ,5 0xB6,0xF5,/00349HZ ,5# 0x4C,0xF6,/00370HZ ,6 0xD7,0xF6,/00392HZ ,6# 0x5A,0xF7,/00415HZ ,7 0xD8,0xF7,/00440HZ 1 /12 0x4D,0xF8,/00466HZ 1# /13 0xBD,0xF8,/00494HZ 2 /14 0x24,0xF9,/00523HZ 2# /15 0x87,0xF9,/00554HZ 3 /16 0xE4,0xF9,/00587HZ 4 /17 0x3D,0xFA,/00622HZ 4# /18 0x90,0xFA,/00659HZ 5 /19 0xDE,0xFA,/00698HZ 5# /20 0x29,0xFB,/00740HZ 6 /21 0x6F,0xFB,/00784HZ 6# /22 0xB1,0xFB,/00831HZ 7 /23 0xEF,0xFB,/00880HZ 1 0x2A,0xFC,/00932HZ 1# 0x62,0xFC,/00988HZ 2 0x95,0xFC,/01046HZ 2# 0xC7,0xFC,/01109HZ 3 0xF6,0xFC,/01175HZ 4 0x22,0xFD,/01244HZ 4# 0x4B,0xFD,/01318HZ 5 0x73,0xFD,/01397HZ 5# 0x98,0xFD,/01480HZ 6 0xBB,0xFD,/01568HZ 6# 0xDC,0xFD,/01661HZ 7 /35 ; /定时中断 0,用于产生唱歌频率 timer0() interrupt 1 TL0=tl0_f;TH0=th0_f; /调入预定时值 BEEP=BEEP; /取反音乐输出 IO /按键控制音阶声音输出(电子琴) void main(void) / 主程序 ulong n; uchar code jie88=12,14,16,17,19,21,23,24;/12345671 八个音符在频率表中的位置 TMOD = 0x01; /使用定时器 0 的 16 位工作模式 TR0 = 0; ET0 = 1; EA = 1; while(1) if(!K1) tl0_f=freqjie80*2; /置一个音符的值 th0_f=freqjie80*2+1; TR0 = 1; for(n=0;n<10000;n+); /延时 if(!K2) tl0_f=freqjie81*2; /置一个音符的值 th0_f=freqjie81*2+1; TR0 = 1; for(n=0;n<10000;n+); /延时 if(!K3) tl0_f=freqjie82*2; /置一个音符的值 th0_f=freqjie82*2+1; TR0 = 1; for(n=0;n<10000;n+); /延时 if(!K4) tl0_f=freqjie83*2; /置一个音符的值 th0_f=freqjie83*2+1; TR0 = 1; for(n=0;n<10000;n+); /延时 TR0 = 0; /*新的好用的电子琴*/#include<reg52.h>#include<intrins.h>#include<absacc.h>#defineuchar unsigned char/#define uchar unsigned char /定义一下方便使用 #define uint unsigned int #define ulong unsigned long sbit BEEP=P30;uchar rr;uchar k;uchar keydata;uchar th0_f; /在中断中装载的 T0 的值高 8 位 uchar tl0_f; /在中断中装载的 T0 的值低 8 位 uchar code freq36*2= 0xA9,0xEF,/00220HZ ,1 /0 0x93,0xF0,/00233HZ ,1# 0x73,0xF1,/00247HZ ,2 0x49,0xF2,/00262HZ ,2# 0x07,0xF3,/00277HZ ,3 0xC8,0xF3,/00294HZ ,4 0x73,0xF4,/00311HZ ,4# 0x1E,0xF5,/00330HZ ,5 0xB6,0xF5,/00349HZ ,5# 0x4C,0xF6,/00370HZ ,6 0xD7,0xF6,/00392HZ ,6# 0x5A,0xF7,/00415HZ ,7 0xD8,0xF7,/00440HZ 1 /12 0x4D,0xF8,/00466HZ 1# /13 0xBD,0xF8,/00494HZ 2 /14 0x24,0xF9,/00523HZ 2# /15 0x87,0xF9,/00554HZ 3 /16 0xE4,0xF9,/00587HZ 4 /17 0x3D,0xFA,/00622HZ 4# /18 0x90,0xFA,/00659HZ 5 /19 0xDE,0xFA,/00698HZ 5# /20 0x29,0xFB,/00740HZ 6 /21 0x6F,0xFB,/00784HZ 6# /22 0xB1,0xFB,/00831HZ 7 /23 0xEF,0xFB,/00880HZ 1 0x2A,0xFC,/00932HZ 1# 0x62,0xFC,/00988HZ 2 0x95,0xFC,/01046HZ 2# 0xC7,0xFC,/01109HZ 3 0xF6,0xFC,/01175HZ 4 0x22,0xFD,/01244HZ 4# 0x4B,0xFD,/01318HZ 5 0x73,0xFD,/01397HZ 5# 0x98,0xFD,/01480HZ 6 0xBB,0xFD,/01568HZ 6# 0xDC,0xFD,/01661HZ 7 /35 ; /定时中断 0,用于产生唱歌频率 timer0() interrupt 1 TL0=tl0_f;TH0=th0_f; /调入预定时值 BEEP=BEEP; /取反音乐输出 IO /按键控制音阶声音输出(电子琴) void key_scan(void); /键盘函数定义段;uchar key_tab(uchar k);void delay(void);void key_in(uchar k);code unsigned char ledmap = 0x3F, 0x06, 0x5B, 0x4F, 0x66, 0x6D, 0x7D, 0x07, 0x7F, 0x6F,0x77,0x7c,0x39,0x5e,0x79,0x71,0x40,0x00; /8段显示 /-void main(void)/ulong n; uchar code jie88=12,14,16,17,19,21,23,24;/12345671 八个音符在频率表中的位置 TMOD = 0x01; /使用定时器 0 的 16 位工作模式 TR0 = 0; ET0 = 1; EA = 1; while(1) P2=0x00; key_scan(); tl0_f=freqjie8keydata*2; /置一个音符的值 th0_f=freqjie8keydata*2+1; TR0 = 1; /延时P0=ledmapkeydata; /-void key_scan(void) uchar sccode,recode,i; P1=0xf0; if(P1&0xf0)!=0xf0) delay(); if(P1&0xf0) !=0xf0) sccode=0xfe; for(i=0;i<4;i+) P1=sccode; if(P1&0xf0) !=0xf0) recode=(P1&0xf0)|0x0f; k=(recode)+(sccode); rr=P1; key_in(k); break; else sccode=(sccode<<1)|0x01; /do ta=P2;while(ta=rr);void delay() /去抖动int a=2500; while(-a);void key_in(uchar k) uchar ta; /uchar keydata; do ta=P1;while(ta=rr); keydata=key_tab(k);/-uchar key_tab(uchar k) uchar kb; switch(k) case 0x11:kb=0x0c;break; case 0x21:kb=0x0d;break; case 0x41:kb=0x0e;break; case 0x81:kb=0x0f;break; case 0x12:kb=0x08;break; case 0x22:kb=0x09;break; case 0x42:kb=0x0a;break; case 0x82:kb=0x0b;break; case 0x14:kb=0x04;break; case 0x24:kb=0x05;break; case 0x44:kb=0x06;break; case 0x84:kb=0x07;break; case 0x18:kb=0x00;break; case 0x28:kb=0x01;break; case 0x48:kb=0x02;break; case 0x88:kb=0x03;break; default :kb=0x00;break; return kb;