include<reg51.h>    //包含单片机寄存器的头文件
#include<intrins.h>  //包含_nop_()函数定义的头文件
#include<math.h>
sbit RS=P2^0;    //寄存器选择位，将RS位定义为P2.0引脚
sbit RW=P2^1;    //读写选择位，将RW位定义为P2.1引脚
sbit E=P2^2;     //使能信号位，将E位定义为P2.2引脚
sbit BF=P1^7;    //忙碌标志位，
#define NO_KEY_PRESS 0xff
/*****************************************************

***************************************************/
unsigned char code tab[]={0xb7,0xee,0xde,0xbe,0xed,0xdd,0xbd,0xeb,0xdb,0xbb};
unsigned char code num[]={"0123456789"};
unsigned long num1,num2,alg;
unsigned char flag;
void delay(1)
{
   unsigned char i,j;       
         for(i=0;i<10;i++)
          for(j=0;j<15;j++);                 
}
/*****************************************************

***************************************************/
void delay(unsigned char n)
{
   unsigned char i;
        for(i=0;i<n;i++)
           delay(1);
}
/*****************************************************
函数功能：判断液晶模块的忙碌状态
返回值：result。result=1，忙碌;result=0，不忙
***************************************************/
unsigned char BusyTest(void)
  {
    bit result;
        RS=0;       //根据规定，RS为低电平，RW为高电平时，可以读状态
    RW=1;
    E=1;        //E=1，才允许读写
    _nop_();   //空操作
    _nop_();
    _nop_();
    _nop_();   //空操作四个机器周期，给硬件反应时间       
    result=BF;  //将忙碌标志电平赋给result
        E=0;
    return result;
  }
/*****************************************************
函数功能：将模式设置指令或显示地址写入液晶模块
入口参数：dictate
***************************************************/
void WriteInstruction (unsigned char dictate)
{   
    while(BusyTest()==1);   //如果忙就等待
         RS=0;                  //根据规定，RS和R/W同时为低电平时，可以写入指令
         RW=0;   
         E=0;                   //E置低电平(根据表8-6，写指令时，E为高脉冲，
                            // 就是让E从0到1发生正跳变，所以应先置"0"
         _nop_();
         _nop_();               //空操作两个机器周期，给硬件反应时间
         P1=dictate;            //将数据送入P1口，即写入指令或地址
         _nop_();
         _nop_();
         _nop_();
         _nop_();               //空操作四个机器周期，给硬件反应时间
         E=1;                   //E置高电平
         _nop_();
         _nop_();
         _nop_();
         _nop_();               //空操作四个机器周期，给硬件反应时间
          E=0;                  //当E由高电平跳变成低电平时，液晶模块开始执行命令
}
/*****************************************************
函数功能：指定字符显示的实际地址
入口参数：x
***************************************************/
void WriteAddress(unsigned char x)
{
     WriteInstruction(x|0x80); //显示位置的确定方法规定为"80H+地址码x"
}
/*****************************************************
函数功能：将数据(字符的标准ASCII码)写入液晶模块
入口参数：y(为字符常量)
***************************************************/
void WriteData(unsigned char y)
{
    while(BusyTest()==1);  
          RS=1;           //RS为高电平，RW为低电平时，可以写入数据
          RW=0;
          E=0;            //E置低电平(根据表8-6，写指令时，E为高脉冲，
                       // 就是让E从0到1发生正跳变，所以应先置"0"
          P1=y;           //将数据送入P0口，即将数据写入液晶模块
          _nop_();
          _nop_();
          _nop_();
     _nop_();       //空操作四个机器周期，给硬件反应时间
          E=1;          //E置高电平
          _nop_();
          _nop_();
          _nop_();
         _nop_();        //空操作四个机器周期，给硬件反应时间
         E=0;            //当E由高电平跳变成低电平时，液晶模块开始执行命令
}
/*****************************************************
函数功能：对LCD的显示模式进行初始化设置
***************************************************/
void LcdInitiate(void)
{
   delay(15);             //延时15ms，首次写指令时应给LCD一段较长的反应时间
   WriteInstruction(0x38);  //显示模式设置：16×2显示，5×7点阵，8位数据接口
        delay(5);   //延时5ms　
        WriteInstruction(0x38);
        delay(5);
        WriteInstruction(0x38);
        delay(5);
        WriteInstruction(0x0c);  //显示模式设置：显示开，有光标，光标闪烁
        delay(5);
        WriteInstruction(0x06);  //显示模式设置：光标右移，字符不移
        delay(5);
        WriteInstruction(0x01);  //清屏幕指令，将以前的显示内容清除
        delay(5);
}

unsigned char keyscan()        //键盘扫描，返回扫描值
{       
        unsigned char temp1,temp2,key;
        P0=0xf0;
        if(P0!=0xf0)
        {
                delay(10);
                if(P0!=0xf0)
                {
                        temp1=P0;
                        P0=0x0f;
                        _nop_();_nop_();_nop_();
                        temp2=P0;
                        key=temp1|temp2;
                        while(P0!=0x0f);
                        return key;
                }
        }
        return NO_KEY_PRESS;       
}

unsigned char key_inquiry()//对键盘扫描值译码并显示
{
        unsigned char i,key;
         key=keyscan();
        if(key!=NO_KEY_PRESS)
        {
        if(flag)//按等于号若再次计算则将之前的数值清零
        {
                WriteInstruction(0x01);
                delay(5);
                flag=0;
        }
        switch(key)
        {
        case 0x7e:WriteData('+');return '+';
        case 0x7d:WriteData('-');return '-';
        case 0x7b:WriteData('*');return '*';
        case 0x77:WriteData(0xfd);return '/';
        case 0xd7:WriteAddress(0x40);WriteData('=');return '=';
        case 0xe7:WriteInstruction(0x01);num1=0;num2=0;break;//CE
        default:break;
        }
        for(i=0;i<10;i++)
        {
                if(key==tab[i])
                        {
                        WriteData(num[i]);
                        return i;
                        }
        }
        }
        return NO_KEY_PRESS;
}
void count()//对计算进行处理，并显示计算后的结果
{

        unsigned char key,i=0,a[9];
        unsigned long num0;
        key=key_inquiry();

        if((key=='+')||(key=='-')||(key=='*')||(key=='/'))
        {
                num2=num1;
                num1=0;
                alg=key;
        }

        if(key<10)
        {
                num1=num1*10+key;
        }

        if(key=='=')
        {
                WriteAddress(0x41);
                switch(alg)//对算法进行处理
                {
                case '+':num0=num1+num2; break;
                case '-':
                        if(num2>num1)
                                num0=(num2-num1);
                        if(num2<num1)
                        {
                                WriteData('-');
                                num0=num1-num2;
                        }
                break;
                case '*':num0=(num1*num2);break;
                case '/':
                        if(num1>0)
                                num0=(num2/num1);
                        else
                                WriteData('e');
                                break;       
                default:num0=0;break;
                }

                //显示计算结果
                        if(0==num0)
                        {
                                if(0!=alg)
                                        WriteData('0');
                                else
                                        num0=num1;
                        }
                        while(num0>0)
                         {         i++;
                                a[i]=num0%10;
                                 //WriteData(num[num0%10]);
                                num0=num0/10;
                               
                         }
                        for(;i>0;i--)
                        {
                                WriteData(num[a[i]]);
                        }
       
                num1=0;num2=0;alg=0;
                flag=1;       
        }
}

void main(void)            //主函数
{
  num1=0;num2=0;
  LcdInitiate();         //调用LCD初始化函数  
  WriteAddress(0x00);                          
        while(1)
        {
                count();
        }
}