找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1292|回复: 0
打印 上一主题 下一主题
收起左侧

单片机写计算器

[复制链接]
跳转到指定楼层
楼主
ID:707448 发表于 2020-3-13 10:34 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
#include "reg51.h"
char code pos[]={0xE0,0XD0,0XB0,0X70};

char  val[4],n;
char mode=0;
int num=0,num1=0,num2=0;
char opt,innum;                //操作命令,操作次数;

sbit Col1=P1^4;
sbit Col2=P1^5;
sbit Col3=P1^6;
sbit Col4=P1^7;

char keyvalue;

void delay(char n)                  //减速
{
        char i,j;
        for(i=0;i<n;i++)
                for(j=0;j<100;j++)
                ;
}
void main()
{
        TMOD=0X01;
        TH0=(65536-10000)/256;
        TL0=(65536-10000)%256;
        TR0=1;


        EA=1;
        ET0=1;


        IT0=1;
        EX0=1;
        P1=0xf0;
        while(1)
        {
                val[0]=num/1000;
                val[1]=num%1000/100;
                val[2]=num%1000%100/10;
                val[3]=num%10;       
        ;         
        }

}

void u1_func() interrupt  1
{
        TH0=(65536-10000)/256;
        TL0=(65536-10000)%256;
        P2=pos[n]+val[n];
        n++;
        n=n%4;
}

void key_click() interrupt  0
{
        delay(5);
        if(P1!=0xf0)
        {
                EA=0;

                P1=0xfe;                  //1111 1110
                if(Col1==0) keyvalue = 0;
                else if(Col2==0)  keyvalue = 1;
                else if(Col3==0)  keyvalue = 2;
                else if(Col4==0)  keyvalue = 3;
                P1=0xfd;                  //1111 1101
                if(Col1==0) keyvalue = 4;
                else if(Col2==0)  keyvalue = 5;
                else if(Col3==0)  keyvalue = 6;
                else if(Col4==0)  keyvalue = 7;
                P1=0xfb;                  //1111 1011
                if(Col1==0) keyvalue = 8;
                else if(Col2==0)  keyvalue = 9;
                else if(Col3==0)  keyvalue = 10;        //代表*
                else if(Col4==0)  keyvalue = 11;        //代表/
                P1=0xf7;                  //1111 0111
                if(Col1==0) keyvalue = 12;                        //代表+
                else if(Col2==0)  keyvalue = 13;        //代表-
                else if(Col3==0)  keyvalue = 14;        //代表=
                else if(Col4==0)  keyvalue = 15;        //代表AC
                P1=0xf0;
                switch(keyvalue)
                {
                        case 10:  
                        case 11:  
                                num1=num;
                                num=0;
                                opt=keyvalue;
                                innum=0;
                        break;
                        case 12:                                        //+
                        case 13:                                        //-
                                num1=num;
                                num=0;
                                opt=keyvalue;
                                innum=0;
                                break;
                        case 14:                                         //等于
                                        num2=num;
                                        if(opt==12)                                   //+
                                        {
                                                num=num1+num2;
                                                if(num>9999)
                                                {
                                                        num=9999;
                                                }
                                        }
                                        if(opt==13)                                 //-
                                        {
                                                num=num1-num2;
                                                if(num<0)
                                                {
                                                        num=0;
                                                }
                                        }
                                        if(opt==10)                                //*
                                        {
                                                num=num1*num2;
                                                if(num>9999)
                                                {
                                                        num=9999;
                                                }
                                        }
                                        if(opt==11)                                  //除
                                        {
                                                num=num1/num2;
                                                if(num<0)
                                                {
                                                        num=0;
                                                }
                                        }
                                        break;
                        case 15: num=0; break;                //清零
                        default:
                                innum++;
                                if(innum<5)
                                {
                                        num=num*10+keyvalue;
                                }
                                 
                }
        }                                          
        EA=1;       

}

0417.rar

54.16 KB, 下载次数: 4, 下载积分: 黑币 -5

程序和仿真

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表