基于51单片机的计算器课程设计报告实验报告

上传人:laiq****ong 文档编号:153845452 上传时间:2022-09-19 格式:DOC 页数:7 大小:394KB
收藏 版权申诉 举报 下载
基于51单片机的计算器课程设计报告实验报告_第1页
第1页 / 共7页
基于51单片机的计算器课程设计报告实验报告_第2页
第2页 / 共7页
基于51单片机的计算器课程设计报告实验报告_第3页
第3页 / 共7页
资源描述:

《基于51单片机的计算器课程设计报告实验报告》由会员分享,可在线阅读,更多相关《基于51单片机的计算器课程设计报告实验报告(7页珍藏版)》请在装配图网上搜索。

1、-项目一:简单计算器1.实验题目:用 51 单片机实现简单的计算器功能 2.实验截图:1).实验运行前截图:-2).实验运行后截图:- . -word 资料-3.实验代码:#include#include#include#include#includeunsigned char table116; /1602 第一行显示字符unsigned char table216; /1602 第二行显示字符unsigned char code table_error = error;/* 键扫描函数 */unsigned char keyscan() /扫描键盘函数unsigned char key_l

2、,key_h,addres,num;P0=0x0f;key_l=P0;P0=0xf0;key_h=P0;addres=key_l | key_h;if(addres!=0xff)Delayms(1);if(addres!=0xff)- . -word 资料-P0=0x0f;key_l=P0;P0=0xf0;key_h=P0;addres=key_l | key_h;switch(addres)case 0xee:num=1;break;case 0xde:num=2;break;case 0xbe:num=3;break;case 0xed:num=4;break;case 0xdd:num=

3、5;break;case 0xbd:num=6;break;case 0xeb:num=7;break;case 0xdb:num=8;break;case 0xbb:num=9;break;case 0xd7:num=0;break;/按键 0case 0xe7:num=C;break;/按键*case 0xb7:num=;break;/按键 #case 0x7e:num=/;break;/按键 Acase 0x7d:num=*;break;/ 按键 Bcase 0x7b:num=-;break;/ 按键 Ccase 0x77:num=+;break;/按键 Dwhile(addres!=0

4、xff)P0=0x0f;key_l=P0;P0=0xf0;key_h=P0;addres=key_l | key_h;return num;return 0;void clear_lcd(void) /清屏unsigned char j;- . -word 资料-for(j=0;j16;j+)table1j=0;table2j=0;void main()unsigned char i=0,j;unsigned char key;unsigned char flag_operator = 0;unsigned char flag_equ = 0;unsigned char flag_key =

5、0;/加减乘除标志位 /等于标志位 /运算位标志bit flag_MaxValue = 0;bit flag_minus = 0;/负数long int value = 0; /最终运算结果unsigned long int value_H =0; /第一个数据unsigned long int value_L = 0; /第二个数据unsigned long int temp=1, 10, 100,1000,10000,100000,1000000,10000000,100000000;Initialize_LCD();while(1)key=keyscan();if(key != 0)if

6、(key = C)/清除键 C 按下clear_lcd();i=0;flag_operator = 0; flag_equ = 0; value = 0; value_H =0; value_L = 0; flag_key = 0;flag_minus=0;elsefor(j=0; ji; j+)table115-i+j = table115-i+j+1;table115 = key;- . -word 资料-/table1i = key;i+;if(key = =)for(j=0; j16; j+) /确定运算符位置if(table1j = =)flag_equ = j;flag_key+;

7、break;if( table1j = + | table1j = - | table1j = * | table1j = /) flag_operator = j;flag_key+;-for(j=16-i; jflag_operator; j+) /第一个数据处理/value_H = value_H + (table1j-48) * ( pow( 10 , (flag_operator-j-1) ); value_H = value_H + (table1j-48) * tempflag_operator-j-1;for(j=flag_operator+1; j15; j+) /第二个数据

8、处理/value_L = value_L + (table1j-48) * pow( 10 , (flag_equ-j-1) ); value_L = value_L + (table1j-48) * tempflag_equ-j-1;if(table1flag_operator = +)value = value_H + value_L;else if(table1flag_operator = -)value = value_H - value_L;else if(table1flag_operator = *). -word 资料-flag_minus=0;-value = value_

9、H * value_L;else if(table1flag_operator = /)value = value_H / value_L;if(value = 0)table215 = (value + 48);else if(value2000000000)flag_MaxValue = 1;/break;j=15;while(value!=0)table2j = (value%10 + 48);value = value/10;j-;if(flag_minus) /负数table2j = -;if(flag_key 2 | table10 = 0 | flag_MaxValue=1 )ShowString(5,1,table_error);while(keyscan() != C);clear_lcd();i=0;flag_operator = 0; flag_equ = 0; value = 0; value_H =0; value_L = 0; flag_key = 0;- . -word 资料-ShowString(0,0,table1);ShowString(0,1,table2);- . -word 资料-

展开阅读全文
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!