51单片机实现计算器 proteus仿真及其程序源码带教程

ID:115512 · 发表于 2016-4-20 19:03

51单片机计算器资料包（本帖附件可以下载全部资料）
下载地址：

51简单计算器.zip (578.5 KB, 下载次数: 417)

2016-4-20 19:03 上传

点击文件名下载附件
单片机实现计算器

硬件部分比较简单，当键盘按键按下时它的那一行、那一列的端口为低电平。因此，只要扫描行、列端口是否都为低电平就可以确定是哪个键被按下。

proteus仿真图：

程序的主要思想是：将按键抽象为字符，然后就是对字符的处理。将操作数分别转化为字符串存储，操作符存储为字符形式。然后调用compute()函数进行计算并返回结果。具体程序及看注释还有流程图。

51单片机实现的计算器流程图

ppt教程文档预览：

计算器程序源码（51单片机实现）：

#include <reg51.h>
#include <intrins.h>
#include <ctype.h> /* isdigit()函数 */
#include <stdlib.h> /* atoi()函数 */
#define uchar unsigned char
#define uint unsigned int
uchar operand1[9], operand2[9]; /* 操作数 */
uchar operator; /* 操作符 */
void delay(uint);
uchar keyscan();
void disp(void);
void buf(uint value);
uint compute(uint va1,uint va2,uchar optor);
uchar code table[] = {0xc0,0xf9,0xa4,0xb0,0x99,
0x92,0x82,0xf8,0x80,0x90,0xff}; /* 字符码表 */
uchar dbuf[8] = {10,10,10,10,10,10,10,10}; /* 显示缓存 */
/* 延时函数 */
void delay(uint z)
{
uint x,y;
for(x=z;x>0;x--)
for(y=110;y>0;y--);
}
/*******************************************
键盘扫描程序
将按键转化为字符并作为输出
'
,'#'分别表示清零键和没有键按下
*******************************************/
uchar keyscan()
{
uchar skey; /* 按键值标记变量 */
/***********************
扫描键盘第1行
************************/
P1 = 0xfe;
while((P1 & 0xf0) != 0xf0) /* 有按键按下 */
{
delay(3); /* 去抖动延时 */
while((P1 & 0xf0) != 0xf0) /* 仍有键按下 */
{
switch(P1) /* 识别按键并赋值 */
{
case 0xee: skey = '7'; break;
case 0xde: skey = '8'; break;
case 0xbe: skey = '9'; break;
case 0x7e: skey = '/'; break;
default: skey = '#';
}
while((P1 & 0xf0) != 0xf0) /* 等待按键松开 */
;
}
}
/***********************
扫描键盘第2行
************************/
P1 = 0xfd;
while((P1 & 0xf0) != 0xf0)
{
delay(3);
while((P1 & 0xf0) != 0xf0)
{
switch(P1)
{
case 0xed: skey = '4'; break;
case 0xdd: skey = '5'; break;
case 0xbd: skey = '6'; break;
case 0x7d: skey = '*'; break;
default: skey = '#';
}
while((P1 & 0xf0) != 0xf0)
;
}
}
/***********************
扫描键盘第3行
************************/
P1 = 0xfb;
while((P1 & 0xf0) != 0xf0)
{
delay(3);
while((P1 & 0xf0) != 0xf0)
{
switch(P1)
{
case 0xeb: skey = '1'; break;
case 0xdb: skey = '2'; break;
case 0xbb: skey = '3'; break;
case 0x7b: skey = '-'; break;
default: skey = '#';
}
while((P1 & 0xf0) != 0xf0)
;
}
}
/***********************
扫描键盘第4行
************************/
P1 = 0xf7;
while((P1 & 0xf0) != 0xf0)
{
delay(3);
while((P1 & 0xf0) != 0xf0)
{
switch(P1)
{
case 0xe7: skey = '
; break;
case 0xd7: skey = '0'; break;
case 0xb7: skey = '='; break;
case 0x77: skey = '+'; break;
default: skey = '#';
}
while((P1 & 0xf0) != 0xf0)
;
}
}
return skey;
}
void main()
{
uint value1, value2, value; /* 数值1,数值2,结果 */
uchar ckey, cut1 = 0, cut2 = 0; /* ckey键盘输入字符 */
uchar operator; /* 运算符 */
uchar i, bool = 0;
init: /* goto语句定位标签 */
buf(0); /* 初始化 */
disp();
value = 0;
cut1 = cut2 = 0;
bool = 0;
for(i = 0;i < 9;i++)
{
operand1[i] = '\0';
operand2[i] = '\0';
} /* 初始化 */
while(1)
{
ckey = keyscan(); /* 读取键盘 */
if(ckey != '#')
{ /* isdigit函数，字符是阿拉伯数字返回非0值，否则返回0 */
if(isdigit(ckey))
{
switch(bool)
{
case 0:
operand1[cut1] = ckey;
operand1[cut1+1] = '\0';
value1 = atoi(operand1); /* atoi函数，将字符串转化为，int整数 */
cut1++;
buf(value1);
disp();
break;
case 1:
operand2[cut2] = ckey;
operand2[cut2+1] = '\0';
value2 = atoi(operand2);
cut2++;
buf(value2);
disp();
break;
default: break;
}
}
else if(ckey=='+'||ckey=='-'||ckey=='*'||ckey=='/')
{
bool = 1;
operator = ckey;
buf(0);
dbuf[7] = 10;
disp();
}
else if(ckey == '=')
{
value = compute(value1,value2,operator);
buf(value);
disp();
while(1) /* 计算结束等待清零键按下 */
{
ckey = keyscan();
if(ckey == '
) /* 如果有清零键按下跳转到开始 */
goto init;
else
{
buf(value);
disp();
}
}
}
else if(ckey == '
)
{ goto init;}
}
disp();
}
}
/******************************************
运算函数
输入：操作数和操作符
输出：计算结果
*******************************************/
uint compute(uint va1,uint va2,uchar optor)
{
uint value;
switch(optor)
{
case '+' : value = va1+va2; break;
case '-' : value = va1-va2; break;
case '*' : value = va1*va2; break;
case '/' : value = va1/va2; break;
default : break;
}
return value;
}
/*******************************************
更新显示缓存
输入：无符号整数
输出：将输入送入显示缓存
*******************************************/
void buf(uint val)
{
uchar i;
if(val == 0)
{
dbuf[7] = 0;
i = 6;
}
else
for(i = 7; val > 0; i--)
{
dbuf[i] = val % 10;
val /= 10;
}
for( ; i > 0; i--)
dbuf[i] = 10;
}
/*******************************************
显示函数
*******************************************/
void disp(void)
{
uchar bsel, n;
bsel=0x01;
for(n=0;n<8;n++)
{
P2=bsel;
P0=table[dbuf[n]];
bsel=_crol_(bsel,1);
delay(3);
P0=0xff;
}
}

复制代码

ID:262 · 发表于 2022-3-16 00:21

cnjcnsj 发表于 2022-3-15 22:57
程序有错误怎么改

是不是你的Keil没安装好我编译出来是0个错误呢你看

ID:144173 · 发表于 2016-10-24 11:40

这个不错的，学习一下

ID:157542 · 发表于 2016-12-25 17:05

好好学习学习

ID:58293 · 发表于 2017-1-15 16:44

教程很好，值得我们好好学习。

ID:58293 · 发表于 2017-1-15 16:45

教程很好，程序写的有水平，值得我们好好学习。

ID:170442 · 发表于 2017-3-13 21:29

好东西

ID:32305 · 发表于 2017-3-29 21:44

好东西

ID:214190 · 发表于 2017-6-24 10:04

学习学习

ID:215965 · 发表于 2017-6-29 22:39

学习学习

ID:219101 · 发表于 2017-7-12 13:53

下载下来，好好学习一番

ID:219910 · 发表于 2017-7-15 21:42

拿走拿走

ID:291482 · 发表于 2018-5-10 09:06

6666666666666666666666666666666666666666666666666666666666666666666666

ID:323496 · 发表于 2018-5-11 06:42

好好学习学习啊

ID:336429 · 发表于 2018-5-23 13:32

最近在做基于LPC2106的计算器系统，拿走学习一下。

ID:336462 · 发表于 2018-5-23 14:10

有仿真的结果图吗

ID:505584 · 发表于 2019-4-6 11:23

很好的模擬入門介紹材料

ID:647395 · 发表于 2019-11-29 14:06

很强大哦

ID:625113 · 发表于 2019-11-30 12:33

收藏了，谢谢分享

ID:677934 · 发表于 2019-12-31 00:26

来学习啦

ID:677934 · 发表于 2019-12-31 12:20

没有办法连乘，不然就会出错

ID:681489 · 发表于 2020-1-5 22:56

ykxdsy 发表于 2019-12-31 12:20
没有办法连乘，不然就会出错

为什么我的显示不出来啊

ID:775080 · 发表于 2020-6-17 10:44

感谢楼主

ID:786925 · 发表于 2020-6-22 18:08

我的显示有好几个错误，程序不能运行

ID:790447 · 发表于 2020-6-27 14:57

我的可以，你要参考参考么

ID:937844 · 发表于 2021-6-18 15:16

感谢大佬又给了思路

ID:696966 · 发表于 2021-6-20 16:19

很有含量的教程，这样的教程多多益善啊

ID:943990 · 发表于 2021-6-24 14:57

支持混合运算吗

ID:944054 · 发表于 2021-6-24 15:51

这个不错的，学习一下

ID:943990 · 发表于 2021-6-28 08:56

outlier_ 发表于 2020-6-27 14:57
我的可以，你要参考参考么

咱能不能参考一下

ID:1010607 · 发表于 2022-3-15 22:57

程序有错误怎么改

帐号		自动登录	找回密码
密码			立即注册

51单片机实现计算器 proteus仿真及其程序源码带教程

评分

相关帖子

51单片机实现计算器 proteus仿真及其程序源码 带教程

评分

相关帖子

51单片机实现计算器 proteus仿真及其程序源码带教程