当前位置:首页 > 单片机 > 单片机
[导读]单片机设计的带余数的简易计算器

原理图:

 

 

 

程序设计:

#include

#include

#include

#define uchar unsigned char

#define uint unsigned int

sbit BEEP = P3^6; //蜂鸣器驱动线

unsigned char code disp_code[]={

0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,

0x80,0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e,0xbf};//数码管显示

uchar key; //键盘值

uchar num; //扫描位数

int temp1=0; //结果整数部分

uint temp2=0; //结果余数部分

int m=0; //

uchar ss[8]; //

uchar flag; //运算标志位

bit c_flag=0; //辅助标志位

unsigned char code key_code[]={

0xee,0xde,0xbe,0x7e,0xed,0xdd,0xbd,0x7d,

0xeb,0xdb,0xbb,0x7b,0xe7,0xd7,0xb7,0x77 }; //键盘编码

unsigned char code num_code[]={0x7f,0xbf,0xdf,0xef,0xf7,0xfb,0xfd,0xfe}; //显示位数

/**********************************************************

延时子函数

**********************************************************/

void delayms(uint ms)

{

uchar t;

while(ms--)

{

for(t = 0; t < 120; t++);

}

}

/**********************************************************

x*0.14MS 延时子函数

**********************************************************/

void delay0(uchar x)

{

uchar i;

while(x--)

{

for (i = 0; i<13; i++);

}

}

/**********************************************************

蜂鸣器驱动子函数

**********************************************************/

void beep()

{

uchar i;

for (i=0;i<180;i++)

{

delay0(5);

BEEP=!BEEP; //BEEP取反

}

BEEP=1; //关闭蜂鸣器

delayms(250); //延时

}

/**********************************************************

键盘扫描子函数

**********************************************************/

uchar keyscan()

{

uchar scan1,scan2,keycode,j;

P1=0xf0;

scan1=P1;

if((scan1&0xf0)!=0xf0) //判键是否按下

{

delayms(10); //延时30ms

scan1=P1;

if((scan1&0xf0)!=0xf0) //二次判键是否按下

{

P1=0x0f;

scan2=P1;

keycode=scan1|scan2; //组合成键编码

for(j=0;j<=15;j++)

{

if(keycode== key_code[j]) //查表得键值

{

key=j;

return(key);

}

}

}

}

else P1=0xff;

return (16);

}

/*****************************************************

显示数据子程序

********************************************************/

void display(int xx,uint yy)

{ uchar tt=0;

uint x1;

uint y1=yy;

while(yy!=0) //显示余数

{ss[tt]=yy%10;

yy=yy/10;

tt++ ;

num=tt;

}

if(y1!=0) //显示——

{ss[tt]=16;

tt++;

ss[tt]=16;

tt++;

}

x1=abs(xx); //显示整数

while(x1!=0)

{ss[tt]=x1%10;

x1=x1/10;

tt++ ;

num=tt;

}

if(xx<0) //显示符号

{ ss[tt]=16;

tt++;

num=tt;}

for(tt=0;tt

{

P0=disp_code[ss[tt]];

delayms(5);

if(P2==num_code[num-1])

P2= 0x7f;

else P2=_cror_(P2,1);

}

}

/**********************************************************

判键是否按下子函数

**********************************************************/

void keydown()

{

uchar tt=0;

P1=0xf0;

if((P1&0xf0)!=0xf0)

{

keyscan();

beep();

if(key>9&&c_flag==0)

{switch(key)

{case 10:flag=1;temp1=m;c_flag=1;m=0;break;

case 11:flag=2;temp1=m;c_flag=1;m=0;break;

case 12:flag=3;temp1=m;c_flag=1;m=0;break;

case 13:flag=4;temp1=m;c_flag=1;m=0;break;

case 14:m=-m;break;

case 15:break;

}

}

if(key==14&&c_flag==1)

m=-m;

if(key<=9)

{if(m>=0) m=m*10+key;

if(m<0) m=m*10-key; }

if(key<=9&&flag==5)

{

flag=0;

c_flag=0;

temp1=temp2=0;

}

}

if(key==15)

{switch(flag)

{case 1:temp1=temp1+m;break;

case 2:temp1=temp1-m;break;

case 3:temp1=temp1*m;break;

case 4:temp2=abs(temp1)%m;temp1=temp1/m;break;

default:;

}

flag=5;

m=0;

}

}

void main()

{

P0 = 0xc0;

P2 = 0x7f; //数码管显示"0"

P1 = 0xff;

while(1)

{

keydown();

if(flag==5)

display(temp1,temp2);

else display(m,0);

}

}

实物照片:

 

本站声明: 本文章由作者或相关机构授权发布,目的在于传递更多信息,并不代表本站赞同其观点,本站亦不保证或承诺内容真实性等。需要转载请联系该专栏作者,如若文章内容侵犯您的权益,请及时联系本站删除。
换一批
延伸阅读

9月2日消息,不造车的华为或将催生出更大的独角兽公司,随着阿维塔和赛力斯的入局,华为引望愈发显得引人瞩目。

关键字: 阿维塔 塞力斯 华为

加利福尼亚州圣克拉拉县2024年8月30日 /美通社/ -- 数字化转型技术解决方案公司Trianz今天宣布,该公司与Amazon Web Services (AWS)签订了...

关键字: AWS AN BSP 数字化

伦敦2024年8月29日 /美通社/ -- 英国汽车技术公司SODA.Auto推出其旗舰产品SODA V,这是全球首款涵盖汽车工程师从创意到认证的所有需求的工具,可用于创建软件定义汽车。 SODA V工具的开发耗时1.5...

关键字: 汽车 人工智能 智能驱动 BSP

北京2024年8月28日 /美通社/ -- 越来越多用户希望企业业务能7×24不间断运行,同时企业却面临越来越多业务中断的风险,如企业系统复杂性的增加,频繁的功能更新和发布等。如何确保业务连续性,提升韧性,成...

关键字: 亚马逊 解密 控制平面 BSP

8月30日消息,据媒体报道,腾讯和网易近期正在缩减他们对日本游戏市场的投资。

关键字: 腾讯 编码器 CPU

8月28日消息,今天上午,2024中国国际大数据产业博览会开幕式在贵阳举行,华为董事、质量流程IT总裁陶景文发表了演讲。

关键字: 华为 12nm EDA 半导体

8月28日消息,在2024中国国际大数据产业博览会上,华为常务董事、华为云CEO张平安发表演讲称,数字世界的话语权最终是由生态的繁荣决定的。

关键字: 华为 12nm 手机 卫星通信

要点: 有效应对环境变化,经营业绩稳中有升 落实提质增效举措,毛利润率延续升势 战略布局成效显著,战新业务引领增长 以科技创新为引领,提升企业核心竞争力 坚持高质量发展策略,塑强核心竞争优势...

关键字: 通信 BSP 电信运营商 数字经济

北京2024年8月27日 /美通社/ -- 8月21日,由中央广播电视总台与中国电影电视技术学会联合牵头组建的NVI技术创新联盟在BIRTV2024超高清全产业链发展研讨会上宣布正式成立。 活动现场 NVI技术创新联...

关键字: VI 传输协议 音频 BSP

北京2024年8月27日 /美通社/ -- 在8月23日举办的2024年长三角生态绿色一体化发展示范区联合招商会上,软通动力信息技术(集团)股份有限公司(以下简称"软通动力")与长三角投资(上海)有限...

关键字: BSP 信息技术
关闭
关闭