#include <reg51.h>
/*函數定義*/
#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
unsigned char read7279(unsigned char);   //讀HD7279
void send_byte(unsigned char);     //發送一個字節
unsigned char receive_byte(void);     //接收一個字節
/*變量及I/O口定義*/
unsigned char digit[8];
unsigned int tmr,key_num;
unsigned char trans_byte;
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     //循環左移指令
#define RTR_CYCLE 0xa2     //循環右移指令
#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(BYTE ms)
{							// 延時子程序
	BYTE 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++)
{
if (!key)
{
key_int();
}
}
}
}
/********************* 寫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());
}
/********************* 發送字節程序 **********************/
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;
}
/*********************接收字節程序 **********************/
unsigned char receive_byte(void)
{
unsigned char i, in_byte;
dat=1;         //設為輸入狀態
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);
}
/********************* 鍵盤識別程序 **********************/
int getch(void)
{   uchar X,Y,Z,k;
	P1=0xff;
	P1=0x0f;       //先對P3置數  行掃描
	if(P1!=0x0f)     //判斷是否有鍵按下
	{delay(10);    //延時,軟件去干擾
    if(P1!=0x0f)   //確認按鍵按下X = P3;
	{	
    X=P1;       //保存行掃描時有鍵按下時狀態
	P1=0xf0;       //列掃描
	Y=P1;          //保存列掃描時有鍵按下時狀態
 	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**********************/
int identify(uint key)
{ uchar X;
	switch(key)
	{case 1:
	 case 2:
	 case 3:
	 case 4:  error=0;
	 	    		convst=1;             //啟動轉換
		        short_delay();
		        rd=0;
		        short_delay();
		        convst=0;
		      
		        convst=1;
		        X=P2;
		        X=P2;
		        X=P2;
		        X=P2;
		        break;
	 default:
	 	     error=1;
	}
	
	return X;
}
/*********************7279顯示轉換值函數**********************/
void display7279(uchar X)
{int j;
	
	for(j=0;j<8;j++)
	{
			   	digit[j]=((X>>j)&0x01);
				  write7279(DECODE0+j,digit[j]);
	}
}
	
/*主程序*/
main()
{
error=1;	            //初始狀態假設沒有鍵按下
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();
   delay10ms(10);
   trans_byte=indentify(key_num);
   delay10ms(10);
	 display7279(X);
	 delay10ms(10);
}
}