简易电子琴单片机源程序

fanichicl

简易电子琴单片机源程序

3 A1 \7 T! E0 Y
电子琴按键音乐器：
/*
跳线设置:默认跳线位
程序效果：用按键T0 S4 S5控制音符的输出
4 v/ m+ Y* f5 q3 W8 c*/
0 {& i+ ]" F8 c+ Q3 f+ _#include<reg52.h> //头文件
6 W, r( u# f8 }#define uchar unsigned char //宏定义
#define uint  unsigned int
sbit fmq=P2^2; //定义蜂鸣器的引脚
% b9 N7 \2 f+ z3 p3 i3 s& r3 q) yuchar code freq[36*2]={   //这些音乐频率我也不懂，关键是我不懂音律
4 R0 C. Y- f6 B3 m3 \  C 0xA9,0xEF,//00220HZ ,1  //0   
0x93,0xF0,//00233HZ ,1#
  ]7 K+ R5 @1 h5 M/ V2 N7 p 0x73,0xF1,//00247HZ ,2
5 A% {% m: m6 E% ~1 v7 A, w 0x49,0xF2,//00262HZ ,2#
; s- Y& E* Z. L5 K: w/ A 0x07,0xF3,//00277HZ ,3
) }4 G! N5 Y% S% B, P% f; ` 0xC8,0xF3,//00294HZ ,4
0x73,0xF4,//00311HZ ,4#
$ _3 g$ g6 g0 j; |- A 0x1E,0xF5,//00330HZ ,5
) \+ }4 K/ }* Y: X0 w8 Q' e, K 0xB6,0xF5,//00349HZ ,5#
0x4C,0xF6,//00370HZ ,6
9 F: {! o: D/ p# V 0xD7,0xF6,//00392HZ ,6#
0x5A,0xF7,//00415HZ ,7   
* e( P' J& ]/ y% l) ^# C 0xD8,0xF7,//00440HZ 1     //12
; S, a4 ^/ l0 B) T 0x4D,0xF8,//00466HZ 1#    //13
" p2 [2 ?% A4 }3 a' z3 j 0xBD,0xF8,//00494HZ 2     //14
0x24,0xF9,//00523HZ 2#    //15
0 y, P; C8 N1 \5 t! X 0x87,0xF9,//00554HZ 3     //16
8 E2 a5 P6 ?7 i5 A4 \8 D 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
! M% T. O$ V# i0 u9 o2 f7 w; I 0xEF,0xFB,//00880HZ `1
0x2A,0xFC,//00932HZ `1#
0x62,0xFC,//00988HZ `2
0x95,0xFC,//01046HZ `2#
9 |" n7 D, x* R1 t9 k& Q 0xC7,0xFC,//01109HZ `3
0xF6,0xFC,//01175HZ `4
0x22,0xFD,//01244HZ  `4#
9 m# O' `5 l4 x6 d7 o4 r7 u 0x4B,0xFD,//01318HZ `5
' Y/ I9 x( d" {+ I6 E, P5 H 0x73,0xFD,//01397HZ `5#
- w6 C8 ~2 h- I' t' l 0x98,0xFD,//01480HZ `6
+ i, \* q$ y! I2 u/ x 0xBB,0xFD,//01568HZ `6#
/ Z* G# E4 F. F: f 0xDC,0xFD,//01661HZ `7    //35
};
) P6 U+ `2 Z0 |8 huchar code jie[]={12,14,16,17,19,21,23,24}; //音符在频率表中的位置
uchar th,tl; //分别装载T0值得高低位
  @; H  v' M3 m0 u1 I1 t8 N4 _" xvoid main()
{
; D5 N) I# H( U: n4 _. {# X     uint i;  //延时变量
" M. M, {  E  c1 S1 H5 Q& g4 ]+ B+ W1 D& W4 u     EA=1; //打开总中断
     ET0=1; //打开定时器0
' {2 ^6 K3 W2 |/ W* }& p- k5 O0 |     TR0=1; //启动定时器0
3 @! {( E3 y: A* B     P3=0xf0;//判断按键是否按下的标志
     while(1)
, O, x8 ?3 N# l9 }. m: ?     {
          fmq=1;//关闭蜂鸣器
          if((P3&0xf0)!=0xf0)//判断按键是否俺按下
          {     //在这我并没有延时消抖，有经验的人 就知道，
               if(P3==0x70)   //在要求严不格的情况下是可以不写消抖语句的
* ^  ^! `) ^4 H4 `# J, d               {
5 L- a* ~; y; ^0 m                    tl=freq[jie[0]*2]; //装初值
" _" H+ r3 G! V/ U. [! S                    th=freq[jie[0]*2+1];
                    TR0=1;    //启动定时器0
2 [1 h* b: r* G( i6 c                    for(i=1000;i>0;i--); //延时
               }
7 ^% d0 b/ [  y2 p: K               if(P3==0xb0)
; K" @% T+ m! {# J, W+ Z               {
0 B! s; L% H' v- D7 M: l4 {                    tl=freq[jie[1]*2];
5 i1 j9 D9 y+ a) P- Y( p                    th=freq[jie[1]*2+1];
                    TR0=1;
% Q8 w8 _! J1 l4 w. B                    for(i=1000;i>0;i--);
               }
               if(P3==0xd0)
               {
* \7 ^! y. |5 N2 F. P                    tl=freq[jie[2]*2];
: G6 S$ p5 [* P* v* B/ g7 e1 H                    th=freq[jie[2]*2+1];
                    TR0=1;
                    for(i=1000;i>0;i--);
( W! O9 c& j& i1 \9 Q               }
               if(P3==0xe0)
, x8 s2 }& z1 v2 c+ _               {
                    tl=freq[jie[3]*2];
                    th=freq[jie[3]*2+1];
                    TR0=1;
                    for(i=1000;i>0;i--);   
               }  
2 _* o' _. L& L) |" @) ~          }  
; z# s1 L7 Q9 w- a2 z5 \8 b; e( E6 B% ^          TR0=0;//关闭定时器0
     }
}
; j/ ^3 }$ R: avoid time0() interrupt 1   //用于产生唱歌的频率
{
5 j& g3 P  }  }: S* Y     TH0=th;   //装初值
& A5 O5 }# `3 z- C; G

…………限于本文篇幅 余下代码请从论坛下载附件…………
4 n+ H- _+ _) Z8 _9 F$ [) L" i 电子按键音乐器c.rar (9.97 KB, 下载次数: 0)

2019-1-9 09:53 上传

点击文件名下载附件
下载积分: 威望 -5

2 {# o& R. f* X

Mhza

谢谢分享