#include <reg52.h>
#include <intrins.h>
/*函數(shù)定義*/
#define uchar unsigned char 
#define uint unsigned int
void long_delay(void);      //長延時
void short_delay(void);      //短延時
void delay10ms(unsigned char);    //延時10ms
void write7279(unsigned char, unsigned char); //寫入HD7279
void display7279(uchar X);               //顯示AD轉換值到數(shù)碼管上
unsigned char read7279(unsigned char);   //讀HD7279
void send_byte(unsigned char);     //發(fā)送一個字節(jié)
unsigned char receive_byte(void);     //接收一個字節(jié)
/*變量及I/O口定義*/
unsigned char digit[8];
unsigned int tmr,key_num;
unsigned char trans_byte,j,k;
sbit cs=P1^0;         //cs連接P1.0
sbit clk=P1^1;        //clk連接P1.1
sbit dat=P1^2;        //dat連接P1.2
sbit key=P1^3;        //key連接P1.3

sbit convst=P1^4;         //convst連接P1.4
sbit rd=P1^5;        //rd連接P1.5

sbit error=P0^4;     //識別錯誤指示位
 
/****** HD7279A指令定義 ******/
#define CMD_RESET 0xa4     //復位指令
#define CMD_TEST 0xbf     //測試指令
#define DECODE0 0x80     //方式0譯碼指令
#define DECODE1 0xc8     //方式1譯碼指令
#define CMD_READ 0x15     //讀鍵盤指令
#define UNDECODE 0x90       //不譯碼指令
#define RTL_CYCLE 0xa3     //循環(huán)左移指令
#define RTR_CYCLE 0xa2     //循環(huán)右移指令
#define RTL_UNCYL 0xa1     //左移指令
#define RTR_UNCYL 0xa0     //右移指令
#define ACTCTL 0x98      //消隱控制指令
#define SEGON 0xe0      //段點亮指令
#define SEGOFF 0xc0      //段關閉指令
#define BLINKCTL 0x88     //閃爍控制指令

/********************* 長短延時程序 **********************/
void long_delay(void)
{
unsigned char i;
for (i=0;i<0x30;i++);
{}
}

void short_delay(void)
{
unsigned char i;
for (i=0;i<8;i++);
{}
}
/********************* 延時子程序delay **********************/
void delay(uchar ms)
{							// 延時子程序
	uchar i;
	while(ms--)
	{
		for(i = 0; i< 250; i++)
		{
			_nop_();
			_nop_();
			_nop_();
			_nop_();
			
		}
	}
}	
/********************* 延時n*10ms **********************/
void delay10ms(unsigned char time)
{
unsigned char i;
unsigned int j;
for (i=0;i<time;i++)
{
for(j=0;j<0x390;j++)
{
}
}
}
/********************* 寫7279程序 **********************/
void write7279(unsigned char cmd, unsigned char dta)
{
send_byte (cmd);
send_byte (dta);
}
/********************* 讀7279程序 **********************/
unsigned char read7279(unsigned char command)
{
send_byte(command);
return(receive_byte());
}
/********************* 發(fā)送字節(jié)程序 **********************/
void send_byte( unsigned char out_byte)
{
unsigned char i;
cs=0;
long_delay();
for (i=0;i<8;i++)
{
if (out_byte&0x80)
{
dat=1;
}
else
{
dat=0;
}
clk=1;
short_delay();
clk=0;
short_delay();
out_byte=out_byte*2;
}
dat=0;
}
/*********************接收字節(jié)程序 **********************/
unsigned char receive_byte(void)
{
unsigned char i, in_byte;
dat=1;         //設為輸入狀態(tài)
long_delay();
for (i=0;i<8;i++)
{
clk=1;
short_delay();
in_byte=in_byte*2;
if (dat)
{
in_byte=in_byte|0x01;
}
clk=0;
short_delay();
}
dat=0;
return (in_byte);
}
/********************* 鍵盤識別程序 **********************/
uint getch(void)
{   uchar X,Y,Z,k;
	P3=0xff;
	P3=0x0f;       //先對P3置數(shù)  行掃描
	if(P3!=0x0f)     //判斷是否有鍵按下
	{delay(10);    //延時,軟件去干擾
    if(P3!=0x0f)   //確認按鍵按下X = P3;
	{	
    X=P3;       //保存行掃描時有鍵按下時狀態(tài)
	P3=0xf0;       //列掃描
	Y=P3;          //保存列掃描時有鍵按下時狀態(tài)
 	Z=X|Y;         //取出鍵值
	
	switch ( Z )   //判斷鍵值（那一個鍵按下）
	{
		case 0xee: k=4; break; //對鍵值賦值
		case 0xde: k=3; break; 
		case 0xbe: k=2; break; 
		case 0x7e: k=1; break; 
		case 0xed: k=8; break; 
		case 0xdd: k=7; break; 
		case 0xbd: k=6; break; 
		case 0x7d: k=5; break; 
		case 0xeb: k=11; break; 
		case 0xdb: k=10; break; 	
		case 0xbb: k=0;break; 
		case 0x7b: k=9;break; 
		case 0xe7: k=15;break; 
		case 0xd7: k=14;break; 
		case 0xb7: k=13;break; 
		case 0x77: k=12;break; 
		default  : k=16;break;
	}                                      
	}
}
  return k;
}
/********************* 鍵值判斷程序for AD7492**********************/
void identify(uint key)
{ uchar X;
  uchar count_in,count;
	switch(key)
	{case 1:
	 case 2:
	 case 3:
	 case 4:    error=0;
	 	    	convst=1;             //啟動轉換
		        short_delay();
		        rd=0;
		        short_delay();
		        convst=0;
		        short_delay();
		        convst=1;
		        X=P2;
 		        X=P2;
		        X=P2;
				X=P2;
		        X=P2;
				display7279(X);
		        break;
     case 5:
     case 6:
     case 7:
     case 8:  error=0;
              for(count=0;count<0x200;count++)
				for(count_in=0;count_in<0x200;count_in++)
				{convst=1;             //啟動轉換
		        short_delay();
		        rd=0;
		        short_delay();
		        convst=0;
		        short_delay();
		        convst=1;
		        X=P2;
				X=P2;
				X=P2;
				X=P2;
				X=P2;
 				display7279(X);}
   			  break;
	 default:
	 	     error=1;
			 send_byte(CMD_RESET);      //清除顯示
/*************************************************
下載數(shù)據(jù)但不譯碼指令測試程序
*************************************************/
write7279(UNDECODE+7,0x49);    //在第8位按不譯碼方式顯示一字符'三'
delay10ms(80);
/*************************************************
循環(huán)左右移測試'三'字向右移動23次，再向左移動23次
*************************************************/
for (j=0;j<23;j++)
{
send_byte(RTR_CYCLE);     //循環(huán)右移23次
delay10ms(12);
}
for (j=0;j<23;j++)
{
send_byte(RTL_CYCLE);     //循環(huán)左移23次
delay10ms(12);
}
	} 
	
}
/*********************7279顯示轉換值函數(shù)**********************/
void display7279(uchar X)
{    uchar j;
	
	for(j=0;j<8;j++)
	{
			   	digit[j]=((X>>j)&0x01);
				  write7279(DECODE0+j,digit[j]);
	}
}
	
/*主程序*/
main()
{
error=1;	            //初始狀態(tài)等待按鍵，指示燈滅
for (tmr=0;tmr<0x2000;tmr++);    //上電延時
send_byte(CMD_RESET);     //復位HD7279A
/**********************************************
閃爍指令指令
**********************************************/
send_byte(CMD_TEST);      //測試指令
for (j=0;j<3;j++)       //延時約3
{
delay10ms(100);
}
send_byte(CMD_RESET);      //清除顯示
while (1)
{
   key_num=getch();          //取得鍵值，如果鍵仍舊沒有按下，就把鍵值設為16
   delay10ms(10);                    
   identify(key_num);   //如果鍵值不是1，2，3，4中一個，此時指示燈應該亮起；否則指示燈滅
   delay10ms(10);
}
}