基于51单片机的计算器课程设计报告实验报告
《基于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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。