8音符电子琴

8音符电子琴，用8音符的频率进行的设计，有源程序和硬件电路图，还可在此基础上进行扩展。

#include 
#include 
#define uchar unsigned char
#define uint unsigned int
sbit P3_0=P3^0;
uchar code bzqh[]={0x000xfe0xfe0xfe0xfe0xfe0xfe0xff0xff};
uchar data bzql[]={0x000x220x560x850x9a0x310xe30x030x10};
uchar yes=0x00;

uchar KeyNO=0;
void DelayMS（uint ms）
{
 	uchar t;
	while（ms--）
	{
	 	for（t=0;t<120;t++）;
	}
}

void cj（）
{	
	P1=0x0f;
	if（P1!=0x0f）
	{
	DelayMS（10）;
	if（P1!=0x0f）
	{
	yes=0x01;
	}
	}	
}

void fxj_f_bzq（）
{	uchar Tmp;
	Tmp=0x00;	
	P1=0x0f;
 	
	Tmp = P1 ^ 0x0f;
	DelayMS（1）;
	switch（Tmp）
	{
	 	case 1: KeyNO =1; break;
		case 2: KeyNO =2; break;
		case 4: KeyNO =3; break;
		case 8: KeyNO =4; break;
		default: KeyNO =0;
	}
	P1 = 0xf0;
	Tmp=0x00;
	Tmp = （（P1 >> 4） ^ 0x0f）;
	switch（Tmp）
	{
	 	case 1: KeyNO=（KeyNO +0x00）; break;
		case 2: KeyNO=（KeyNO +0x04）; break;
		default: KeyNO =0;
	}	
}

void bf（）
{	
	uchar iii;
	TH0=bzqh[KeyNO];
	TL0=bzql[KeyNO];
	for（ii=0;ii<200;ii++）
	{	for（i=0;i<2;i++）
		{
		TR0=1;
		while（TF0==0）
		{}
	   	TR0=0;
	   	TF0=0;
		P3_0=~P3_0;		
		TH0=bzqh[KeyNO];
		TL0=bzql[KeyNO];
	
		}
	}
   TR0=0;
   TF0=0;
   P3_0=0;
   DelayMS（1）;
   TH0=bzqh[0];
	TL0=bzql[0];
}
void main（）
{  
	P1=0x0f;
	P3_0=1;	
	TMOD=0x01;
	TH0=bzqh[0];
	TL0=bzql[0];
	while（1）
	{	
	 	cj（）;	
	if（yes==0x01）
	{ 
	yes=0x00;
	fxj_f_bzq（）;		
		bf（）;		
	}
	P1=0x0f;
	}
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       4604  2014-05-23 23:10  8音符电子琴\源程序\dzq

     文件       1431  2014-05-23 23:08  8音符电子琴\源程序\dzq.c

     文件       1316  2014-05-23 23:10  8音符电子琴\源程序\dzq.hex

     文件         23  2014-05-23 23:10  8音符电子琴\源程序\dzq.lnp

     文件       4413  2014-05-23 23:10  8音符电子琴\源程序\dzq.LST

     文件       7333  2014-05-23 23:10  8音符电子琴\源程序\dzq.M51

     文件       5112  2014-05-23 23:10  8音符电子琴\源程序\dzq.OBJ

     文件       2002  2014-05-23 23:10  8音符电子琴\源程序\dzq.plg

     文件      55181  2014-05-23 23:10  8音符电子琴\源程序\dzq.uvopt

     文件      13216  2014-05-18 17:56  8音符电子琴\源程序\dzq.uvproj

     文件      55181  2014-05-23 17:33  8音符电子琴\源程序\dzq_uvopt.bak

     文件          0  2014-05-18 12:29  8音符电子琴\源程序\dzq_uvproj.bak

     文件      81441  2014-05-20 20:59  8音符电子琴\硬件电路\Last Loaded sdff.DBK

     文件      81441  2014-05-20 20:59  8音符电子琴\硬件电路\sdff.DSN

     文件        768  2015-03-17 14:34  8音符电子琴\硬件电路\sdff.PWI

     目录          0  2015-03-22 20:23  8音符电子琴\源程序

     目录          0  2015-03-22 20:23  8音符电子琴\硬件电路

     目录          0  2015-03-22 20:24  8音符电子琴

----------- ---------  ---------- -----  ----

               313462                    18