单片机实现简单的计算器（C51）

sbit en = P3^5;//液晶控制端
uchar keyz;
uchar key_1;
uchar biaoz;
uchar weis;//控制数字位数
uchar fuhao;
unsigned long int a,b,c,z;
uint x;
float w;
/**********************/
void checkbusy();//判忙子程序
void writecommand(uchar command);//写命令
void writedata(uchar date);//写数据
void lcdset(); //液晶初始化
void display(uchar y, uchar x, uchar *p); //显示子程序
uchar keyscan();//键扫
void delay(uint w);//延时程序
/**********************/
uchar code yejingtable[]={0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x20,0x2b,0x2d,0x2a,0x2f,0x3d,0x2e};
/* 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
/* 代表字符： 0 1 2 3 4 5 6 7 8 9 空格 ＋ － × ÷ ＝ . */
uchar ds[8]; //整数
uchar xs[4]; //小数

/*=========================判忙================================*/
void checkbusy()
{
uchar panm;
rs=0;
rw=1;
P0=0xff;
do
{
en = 1;
panm=P0;
en = 0;
}
while(panm&0x80);
}
/*===========液晶写指令========================================*/
void writecommand(uchar command)
{
checkbusy();
rs=0;
rw=0;
en=1;
P0=command; //液晶数据线P0
en=0;
}
/*============液晶写数据========================================*/
void writedata(uchar date)
{
checkbusy();
rs=1;
rw=0;
en=1;
P0=date;
en=0;
}
/*==============液晶设置========================================*/
void lcdset(void)
{
writecommand(0x30); //基本指令集，功能设置
writecommand(0x01); //清屏，DDRAM的地址归零
writecommand(0x02); //地址归位
writecommand(0x0c); //显示开，光标关，反白关
writecommand(0x06); //DDRAM地址加1
}

/*===========显示程序===========================================*/
void display(uchar y, uchar x, uchar *p)
{
delay(10);
switch (y)
{
case 1:writecommand(0x7f+x); break; //液晶第一行
case 2:writecommand(0x8f+x); break; //0x90+(x-1)
case 3:writecommand(0x87+x);break;
case 4:writecommand(0x97+x);break;
default:break;
}
while(*p)
writedata(*p++);
}
/*========================键扫子程序========================*/
uchar keyscan(void)
{
uchar scan,tmp;
P1=0xf0; //发全行0扫描码
if((P1&0xf0)!=0xf0) //若有键按下
{delay(10); // 延时去抖
if((P1&0xf0)!=0xf0) //延时再判键是否还按下
{scan=0xfe;
while((scan&0x10)!=0) //逐行扫描
{
P1=scan; //输出行扫描码
if((P1&0xf0)!=0xf0) //本行有键按下
{tmp=(P1&0xf0)|0x0f;
while((P1&0xf0)!=0xf0); //设定为上升沿有效
return ((~scan)|(~tmp));} //还回键值
else scan=(scan<<1)|0x01; //行扫描码左移一位
}
}
}
return (0); //无键按下,还回0
}
/*========================延时子程序========================*/
void delay(uint w) //w=1时,100us
{
uchar a;
for(w;w>0;w--)
for(a=47;a>0;a--);
}

/*****************************************************
*******************主函数*****************************
******************************************************/
main()
{
play:
lcdset();
biaoz=0;
a=b=c=0;
weis=0;
display(1,1,"计算器");
writecommand(0x90);
while(1)
{
keyz=keyscan();
if((keyz==0x11||keyz==0x21||keyz==0x41||keyz==0x81||keyz==0x12||keyz==0x22||keyz==0x42||keyz==0x82||keyz==0x14||keyz==0x44)&&biaoz==0)
{
switch(keyz)
{
case 0x11: key_1=1;break;
case 0x21: key_1=2;break;
case 0x41: key_1=3;break;
case 0x81: key_1=4;break;
case 0x12: key_1=5;break;
case 0x22: key_1=6;break;
case 0x42: key_1=7;break;
case 0x82: key_1=8;break;
case 0x14: key_1=9;break;
case 0x44: key_1=0;break;
default:break;
}
if(weis<8) //最大位数控制在8位
{
writedata(yejingtable[key_1]);
a=10*a+key_1;
}
weis++;
key_1=0;
delay(3000);
}
if(keyz==0x24||keyz==0x28||keyz==0x18||keyz==0x48) //输入运算符号
{
biaoz=1;
weis=0;
switch(keyz)
{
case 0x24:fuhao=11;break;//加
case 0x28:fuhao=12;break;//减
case 0x18:fuhao=13;break;//乘
case 0x48:fuhao=14;break;//除
default:break;
}
writedata(yejingtable[fuhao]);
delay(3000);
}

if((keyz==0x11||keyz==0x21||keyz==0x41||keyz==0x81||keyz==0x12||keyz==0x22||keyz==0x42||keyz==0x82||keyz==0x14||keyz==0x44)&&biaoz==1)
{
switch(keyz)
{
case 0x11: key_1=1;break;
case 0x21: key_1=2;break;
case 0x41: key_1=3;break;
case 0x81: key_1=4;break;
case 0x12: key_1=5;break;
case 0x22: key_1=6;break;
case 0x42: key_1=7;break;
case 0x82: key_1=8;break;
case 0x14: key_1=9;break;
case 0x44: key_1=0;break;
default:break;
}
if(weis<8) //最大位数控制在8位
{
writedata(yejingtable[key_1]);
b=10*b+key_1;
}
weis++;
key_1=0;
delay(3000);
}
if(keyz==0x88) //清零
goto play;
if(keyz==0x84)
{
writedata(yejingtable[15]);//显示 =
switch(fuhao)
{
case 11:c=a+b;break;
case 12:c=a-b;break;
case 13:c=a*b;break;
case 14:if(b==0){display(2,1,"ERROR 错误 ERROR");goto tuichu;}
if(a%b!=0) goto chu;
c=a/b;break;
}
if(c>99999999){display(2,1,"ERROR 超出范围 ");goto tuichu;}
ds[0]=c/10000000;
ds[1]=c/1000000%10;
ds[2]=c/100000%10;
ds[3]=c/10000%10;
ds[4]=c/1000%10;
ds[5]=c/100%10;
ds[6]=c/10%10;
ds[7]=c%10;
if(ds[0]==0&&ds[1]==0&&ds[2]==0&&ds[3]==0&&ds[4]==0&&ds[5]==0&&ds[6]==0)ds[6]=10;//判十位及其高位是否为0，若是则不显示
if(ds[0]==0&&ds[1]==0&&ds[2]==0&&ds[3]==0&&ds[4]==0&&ds[5]==0)ds[5]=10;
if(ds[0]==0&&ds[1]==0&&ds[2]==0&&ds[3]==0&&ds[4]==0)ds[4]=10;
if(ds[0]==0&&ds[1]==0&&ds[2]==0&&ds[3]==0)ds[3]=10;
if(ds[0]==0&&ds[1]==0&&ds[2]==0)ds[2]=10;
if(ds[0]==0&&ds[1]==0)ds[1]=10;
if(ds[0]==0)ds[0]=10; //如果最高位为零，则不显示
// 显示
writecommand(0x99);
writedata(yejingtable[ds[0]]);
writedata(yejingtable[ds[1]]);
writedata(yejingtable[ds[2]]);
writedata(yejingtable[ds[3]]);
writedata(yejingtable[ds[4]]);
writedata(yejingtable[ds[5]]);
writedata(yejingtable[ds[6]]);
writedata(yejingtable[ds[7]]);
goto tuichu;//结束
chu:
w=(float)a/b;
z=w; //z为长整型
if(z>999999){display(2,1,"ERROR 超出范围 ");goto tuichu;}
ds[0]=z/100000;
ds[1]=z/10000%10;
ds[2]=z/1000%10;
ds[3]=z/100%10;
ds[4]=z/10%10;
ds[5]=z%10;
if(ds[0]==0&&ds[1]==0&&ds[2]==0&&ds[3]==0&&ds[4]==0)ds[4]=10;
if(ds[0]==0&&ds[1]==0&&ds[2]==0&&ds[3]==0)ds[3]=10;
if(ds[0]==0&&ds[1]==0&&ds[2]==0)ds[2]=10;
if(ds[0]==0&&ds[1]==0)ds[1]=10;
if(ds[0]==0)ds[0]=10;
w=w-z;
x=w*10000; //x为整型 小数部分
xs[0]=x/1000;
xs[1]=x/100%10;
xs[2]=x/10%10;
xs[3]=x%10;
if(xs[3]==0&&xs[2]==0&&xs[1]==0)xs[1]=10;
if(xs[3]==0&&xs[2]==0)xs[2]=10;
if(xs[3]==0)xs[3]=10;
// 显示
writecommand(0x99);
writedata(yejingtable[ds[0]]);
writedata(yejingtable[ds[1]]);
writedata(yejingtable[ds[2]]);
writedata(yejingtable[ds[3]]);
writedata(yejingtable[ds[4]]);
writedata(yejingtable[ds[5]]);
writedata(yejingtable[16]);
writedata(yejingtable[xs[0]]);
writedata(yejingtable[xs[1]]);
writedata(yejingtable[xs[2]]);
writedata(yejingtable[xs[3]]);
}
tuichu:;
}
}