




已阅读5页,还剩13页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
。51单片机简易计算器#include#include#define uchar unsigned char#define uint unsigned intsbit beep=P23;sbit dula=P26;sbit wela=P27;sbit rw=P11;sbit rs=P10;sbit lcden=P25;void yunsuan();void keyinput(char s);void write_data(char ddata);void write_com(char command);void display(long a);void init();void dealerror(); void dataoverflow();void welcome();char code table1=0xee,0xde,0xbe,0x7e, 0xed,0xdd,0xbd,0x7d, 0xeb,0xdb,0xbb,0x7b, 0xe7,0xd7,0xb7,0x77;char code table2=789/456*123-.0=+;char j,k,temp,temp1,temp2,key,mchar,m,flag2=0,flag3=0;long x,y,num;int operators,input,iny;char error5=error; char overflow8=overflow;char welcome_16=welcome to use !;void delay(uint x)/延时 uint a,b; for(a=x;a0;a-) for(b=10;b0;b-); void delay_ms(uint x)/延时 uint a,b; for(a=x;a0;a-) for(b=110;b0;b-); void write_com(uchar com)/写命令 P0=com; rs=0; lcden=0; delay(10); lcden=1; delay(10); lcden=0;void write_data(uchar date)/写数据 P0=date; rs=1; lcden=0; delay(10); lcden=1; delay(10); lcden=0; long ming(int x) long m; switch(x) case 9:m=1000000000;return m;break; case 8:m=100000000;return m;break; case 7:m=10000000;return m;break; case 6:m=1000000;return m;break; case 5:m=100000;return m;break; case 4:m=10000;return m;break; case 3:m=1000;return m;break; case 2:m=100;return m;break; case 1:m=10;return m;break; case 0:m=1;return m;break; void display(long a) long d; int i,flag1=0,temp,c=-1; init(); if(a=0;i-) d=ming(i); temp=a/d; a=a%d; if(temp=0)&(flag1=0) ; else write_data(0x30+temp); flag1=1; if(i=2) write_data(.); flag1=1; void init()/LCD初始化 rw=0; dula=0; wela=0; write_com(0x38); /显示模式设置:162显示,57点阵,8位数据接口 delay(20); write_com(0x0e); /显示模式设置 delay(20); write_com(0x06); /显示模式设置:光标右移,字符不移 delay(20); write_com(0x01); /清屏幕指令,将以前的显示内容清除 delay(20); void yunsuan() / 运算if (iny)switch(operators)case 1:x=x+y;num=x;if(num-10000000000)display(num);elsedataoverflow();break;case 2:x=x-y;num=x;if(num-10000000000) display(num);elsedataoverflow();break;case 3:x=x*y;num=x/100;if(num-10000000000) display(num);elsedataoverflow();break;case 4:if (y=0)dealerror();elseif(y100)x=x*100;y=y*100;y=y/100;x=x/y;num=x; if(num-10000000000) display(num);elsedataoverflow(); break;y=0;void dealerror()/除数为0int i=0;write_com(0x01);for(i=0;i5;i+)write_data(errori);void dataoverflow()/数值溢出int i=0;write_com(0x01);for(i=0;i8;i+)write_data(overflowi);void welcome()/欢迎界面int i=0;write_com(0x01);for(i=0;i16;i+)write_data(welcome_i);void keyinput(char s) /键盘输入if(s=0) /判断按下的键是否为数值 if(flag3=0) num=num*10+100*(s-0); else num=num*10+10*(s-0); if(flag2=1) num=num/10; flag3=1; if (operators0) y=num; iny=1; else x=num; if(num-10000000000) /当前数值是否超出限定范围 display(num); else dataoverflow(); else switch(s) case .: /*iny=0; operators=0;*/ flag2=1; break; case =: write_data(table214); delay(10); yunsuan(); iny=0; operators=0; num=0; flag2=0; flag3=0; break; case +: if (operators) yunsuan(); operators=1; write_data(table215); num=0; flag2=0; flag3=0; break; case -: if (operators) yunsuan(); operators=2; write_data(table211); num=0; flag2=0; flag3=0; break; case *: if (operators) yunsuan(); operators=3; write_data(table27); num=0; flag2=0;flag3=0;break; case /: if (operators) yunsuan(); operators=4; write_data(table23); num=0; flag2=0; flag3=0; break; void main() /主函数 char i; char flag0=1; init(); welcome(); for(i=0;i10;i+) delay_ms(100); init(); while(1) P3=0xf0; temp1=P3; P3=0x0f; temp2=P3; temp=temp1|temp2;
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年度智能家居橱柜定制安装服务合同协议书
- 说课课件教学
- 红酒收藏知识培训
- 2025年供用电合同范本模板
- 2025南京市存量房买卖版合同
- 红色小狗的课件
- 商业区域公共设施管理维护协议
- 农业科技研究与成果转化应用协议
- 诗经课件导语
- 红楼梦第8回课件赏析
- GB/T 3452.4-2020液压气动用O形橡胶密封圈第4部分:抗挤压环(挡环)
- GB/T 29245-2012信息安全技术政府部门信息安全管理基本要求
- GB/T 20863.1-2021起重机分级第1部分:总则
- GB/T 15171-1994软包装件密封性能试验方法
- 中药调剂技术-课件
- 水轮发电机讲义课件
- 姜黄素合成路线
- 安全教育:不私自离开幼儿园
- 泛光施工招标文件
- 刑法各论(第四版全书电子教案完整版ppt整套教学课件最全教学教程)
- 第7章:方差分析课件
评论
0/150
提交评论