简易计算器编程.doc_第1页
简易计算器编程.doc_第2页
简易计算器编程.doc_第3页
简易计算器编程.doc_第4页
简易计算器编程.doc_第5页
已阅读5页,还剩2页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

#include#include#include#defineuintunsignedint#defineucharunsignedchar#defineBUSP2unsignedcharcodestr1=ENTER1TOSTART;voidkeyscan();voidkeyscan_0(); sbitE=P13; sbitRS=P14; sbitRW=P10;chari,j,temp,num,num_0,num_1;longa,b,c;ucharflag,fuhao;ucharcodetable=1,2,3,0x2f-0x30, 4,5,6,0x2a-0x30, 7,8,9,0x2d-0x30, 0x01-0x30,0,0x3d-0x30,0x2b-0x30;voiddelay(ucharm)/延时子函数uchary;for (m;m0;m-)for (y=0;y110;y+);unsignedcharTest_busy(void)/检测遇忙函数 unsignedcharBusy; BUS=0xff; RS=0; RW=1; E=1; _nop_(); Busy=BUS&0x80;E=0; returnBusy;voidwrite_cmd(unsignedcharcommand)/写命令函数 while(Test_busy(); RW=0; RS=0; E=0; BUS=command; E=1; _nop_(); E=0;voidwrite_dat(unsignedchardat)/写数据函数 while(Test_busy(); RW=0; RS=1; E=0; BUS=dat; E=1; _nop_(); E=0;voidLcd_init(void)/LCD液晶复位函数write_cmd(0x38);write_cmd(0x01);write_cmd(0x06);write_cmd(0x0c);write_cmd(0x80);num_1=0;i=0;j=0;a=0;b=0;c=0;flag=0;fuhao=0;voidkeyscan_0( ) P3=0xf7; if(P3!=0xf7) temp=P3&0xf0; switch(temp) case0xe0:num_0=0;write_cmd(0x01); break; voidkeyscan()/键盘扫描程序操作 P3=0xf7; if(P3!=0xf7) delay(20); /延迟20ms if(P3!=0xf7) temp=P3&0xf0; switch(temp)case0xe0:num=0;break;case0xd0:num=1;break;case0xb0:num=2;break;case0x70:num=3;break; while(P3!=0xf7);if(num=0|num=1|num=2)/如果按下的是1,2或3if(j!=0) write_cmd(0x01);j=0;if(flag=0)/没有按过符号键a=a*10+tablenum;Else/如果按过符号键b=b*10+tablenum;Else/如果按下的是/flag=1;fuhao=4;/4表示除号已按i=tablenum;write_dat(0x30+i);P3=0xfb;if(P3!=0xfb)delay(5);if(P3!=0xfb)temp=P3&0xf0;switch(temp)case0xe0:num=4;break;case0xd0:num=5;break;case0xb0:num=6;break;case0x70:num=7;break; while(P3!=0xfb);if(num=4|num=5|num=6&num!=7)/如果按下的是4,5或6if(j!=0) write_cmd(0x01);j=0;if(flag=0)/没有按过符号键a=a*10+tablenum;else/如果按过符号键b=b*10+tablenum;else/如果按下的是/flag=1;fuhao=3;/3表示乘号已按i=tablenum;write_dat(0x30+i);P3=0xfd;if(P3!=0xfd)delay(5);if(P3!=0xfd)temp=P3&0xf0;switch(temp)case0xe0:num=8;break;case0xd0:num=9;break;case0xb0:num=10;break;case0x70:num=11;break;while(P3!=0xfd);if(num=8|num=9|num=10)/如果按下的是7,8或9if(j!=0)write_cmd(0x01);j=0;if(flag=0)/没有按过符号键a=a*10+tablenum;else/如果按过符号键b=b*10+tablenum;elseif(num=11)/如果按下的是-flag=1;fuhao=2;/2表示减号已按i=tablenum;write_dat(0x30+i);P3=0xfe;if(P3!=0xfe)delay(5);if(P3!=0xfe)temp=P3&0xf0;switch(temp)case0xe0:num=12;break;case0xd0:num=13;break;case0xb0:num=14;break;case0x70:num=15;break;while(P3!=0xfe);switch(num)case12:write_cmd(0x80+0x4f);write_cmd(0x04);i=0;c=(long)(float)sqrt(a)*1000);while(c!=0)write_dat(0x30+c%10); c=c/10;i+;if(i=3)write_dat(0x2e);if(sqrt(a)0)c=a-b;elsec=b-a;while(c!=0)write_dat(0x30+c%10); c=c/10;if(a-b0)write_dat(0x2d);write_dat(0x3d);/再写=a=0;b=0;flag=0;fuhao=0;elseif(fuhao=3)write_cmd(0x80+0x4f);write_cmd(0x04);c=a*b;while(c!=0)write_dat(0x30+c%10);c=c/10;write_dat(0x3d);a=0;b=0;flag=0;fuhao=0;elseif(fuhao=4)write_cmd(0x80+0x4f);write_cmd(0x04);i=0;c=(long)(float)a/b)*1000);while(c!=0)writ

温馨提示

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

评论

0/150

提交评论