//本程序用于pic单片机外接键盘的识别，通过编程，使按下K1键时第一个数码管显示1，按下K2键时第一
//个数码管上显示2，按下K3键时第一个数码管上显示3，按下K4键时第一个数码管上显示4，
//对键盘的扫描采用查询方式。

#include "p18f458.h"

static volatile int table[20]={0xc0，0xf9，0xa4，0xb0，0x99，0x92，0x82，0XD8，0x80，0x90，0x88，0x83，0xc6，0xa1，0x86，0x8e，0x7f，0xbf，0x89，0xff};
volatile unsigned char data;
unsigned int i;
unsigned char j=0;

/*初始化子程序*/
void initial()
{
 TRISA=0x00;     /*A口设置为输出*/
 TRISB=0XF0;     /*RB1输出，RB4输入*/
 TRISC=0x00;     /*SDO引脚为输出，SCK引脚为输出*/
 TRISE=0x00;     /*E口设置为输出*/
 INTCON=0x00;    /*关闭所有中断*/
 SSPCON1=0x30;    /*SSPEN=1;CKP=1，FOSC/4*/
 SSPSTAT=0xC0;    /*时钟下降沿发送数据*/
 PIR1=0;      /*清除SSPIF标志*/ 
}

/*软件延时子程序*/
void DELAY()
{
 for(i = 6553; --i ;)
 continue;
}

/*键盘扫描子程序*/
int  KEYSCAN()
{ 
 PORTBbits.RB1=0;
 PORTAbits.RA3=0;
 PORTE=0;     /*将K1，K2，K3，K4四条列线置0*/
 while(1)
 {
  if (PORTBbits.RB4==0)
  break;
 }       /*等待有键按下，RB4为0表示有键按下*/
 DELAY();     /*软件延时*/
 if (PORTBbits.RB4==0)
  KEYSERVE();    /*如果仍有键按下，则调用键服务子程序*/
 else j=0x00;     /*如果为干扰，则令返回值为0*/
 return(j);
}
 
/*键服务子程序*/
int  KEYSERVE()
{
 PORTBbits.RB1=0;    /*K1，K2置低电平，K3，K4置高电平*/
 PORTAbits.RA3=0;    /*RB4为0，表示按键为K1，K2中的一个*/
 PORTE=3;     /*RB4为1，表示按键为K3，K4中的一个*/
 if(PORTBbits.RB4==0)
 {
  PORTBbits.RB1=0;   /*K1置低电平，K2置高电平*/
  PORTAbits.RA3=1;   /*RB4为0，表示按键为K1;RB4为1，表示按键为K2*/
  if(PORTBbits.RB4==0) j=0X01;
  else {j=0X02; PORTAbits.RA3=0;}
 }
 else
 {
  PORTEbits.RE0=0;   /*K3置低电平，K4置高电平*/
  PORTEbits.RE1=1;   /*RB4为0，表示按键为K3;RB4为1，表示按键为K4*/
  if(PORTBbits.RB4==0) j=0X03;
  else {j=0X04; PORTEbits.RE1=0;}  
 }
 while(1)
 {
  if(PORTBbits.RB4==1) break; /*为了防止一次按键多次识别，等键松开才返回*/
 }
 return(j);
}

/*显示子程序*/
void SPILED(char data)
{
 PORTAbits.RA5=0;    /*LACK送低电平，为锁存做准备*/
 SSPBUF=data;     /*启动发送*/
 do
 {
 ;
 }while(PIR1bits.SSPIF==0);  /*等待发送完毕*/
 PIR1bits.SSPIF=0;    /*清除SSPIF标志*/
 PORTAbits.RA5=1;    /*最后给锁存信号，代表显示任务完成*/
}

/*键盘扫描查询方式输入主程序*/
main()
{
 initial();      /*系统初始化*/  
 while(1)
 {
  KEYSCAN();
  if(j!=0)     /*如果j=0，证明先前的按键为干扰，则不予显示*/
  {
   data=table[j];
   SPILED(data);   /*发送显示段码显示*/
  }
   }
}