基于单片机的简易计算器设计原理图及程序代码

1、原理图：#includesbit BEEP=P37;char dsp9=0,0,12,12,12,12,12,12,12;unsigned char code Select=0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f;unsigned char code LED_CODES=0xc0,0xf9,0xa4,0xb0,0x99,/0-40x92,0x82,0xf8,0x80,0x90,/5-90x86,0xaf,0xff,0x7f,0xbf;/E,r,不显,.,-void delay11(unsigned int i) while(i-);char keysca

2、n()char KeyL;char KeyR;P1=0xf0;dodoP1=0xF0;P1=P1|0xF0;if(P1!=0xF0)KeyL=P1;P1=0x0F;P1=P1|0x0F;KeyR=P1;while(KeyL=0xF0|KeyR=0x0F); delay11(300); while(P1!=0x0F);switch(KeyL | KeyR)case 0xb7:return 0;break;case 0x7e:return 1;break;case 0xbe:return 2;break;case 0xde:return 3;break;case 0x7d:return 4;bre

3、ak;case 0xbd:return 5;break;case 0xdd:return 6;break;case 0x7b:return 7;break;case 0xbb:return 8;break;case 0xdb:return 9;break;case 0xee:return 10;break;/加法case 0xed:return 11;break;/减法case 0xeb:return 12;break;/乘法case 0xe7:return 13;break;/除法case 0xd7:return 14;break;/清零case 0x77:return 15;break;/

4、等于void calculate(char k,char a8,char b8)char r8;long i;long x,y;i=0;x=0;y=0;for(i=7;i0;i-)while(ai=12)ai=0;while(bi=12)bi=0;x=a4;x=10000*x;x=x+a0+a1*10+a2*100+a3*1000+a5*100000+a6*1000000+a7*10000000;y=b4;y=10000*y;y=y+b0+b1*10+b2*100+b3*1000+b5*100000+b6*1000000+b7*10000000;if(k=10)x=x+y;if(x999999

5、99)BEEP=0;r0=11;r1=11;r2=10;r3=12;r4=12;r5=12;r6=12;r7=12;elser0=x%10;r1=(x%100)/10;r2=(x%1000)/100;r3=(x%10000)/1000;r4=(x%100000)/10000;r5=(x%1000000)/100000;r6=(x%10000000)/1000000;r7=x/10000000;if(k=11)if(x9999999) BEEP=0;r0=11;r1=11;r2=10;r3=12;r4=12;r5=12;r6=12;r7=12;elser0=x%10;r1=(x%100)/10;

6、r2=(x%1000)/100;r3=(x%10000)/1000;r4=(x%100000)/10000;r5=(x%1000000)/100000;r6=(x%10000000)/1000000;r7=x/10000000;for(i=7;i0;i-)if(ri=0&ri-1!=0)ri=14;break;elsex=x-y;r0=x%10;r1=(x%100)/10;r2=(x%1000)/100;r3=(x%10000)/1000;r4=(x%100000)/10000;r5=(x%1000000)/100000;r6=(x%10000000)/1000000;r7=x/1000000

7、0;if(k=12)i=x;x=x*y;if(y=0)x=0;else if(x99999999|x0;i-)if(ri=0)ri=12; else break;for(i=0;i8;i+)dspi+1=ri;void main(void)char i,j,k,c;char a8,b8;TL0=0x00;TH0=0x00;EA = 1; ET0 = 1;TR0 = 1; KSC:dofor(i=1;i9;i+)dsp0=keyscan();if(c=2&dsp010)dsp1=dsp0;for(j=2;j9)c=0;if(dsp0=0&dsp1=0&dsp2=12)goto KSC;else

8、if(dsp09) break;elsefor(j=i;j0;j-)dspj=dspj-1;if(i=9)dodsp0=keyscan();if(dsp0=14|dsp010)BEEP=1;dsp1=0;for(i=2;i9;i+)dspi=12;c=0;while(dsp0=15)&(c=0);else if(dsp0=14)BEEP=1;dsp1=0;for(i=2;i9;i+)dspi=12;c=0;while(dsp0=15&c=0)dsp0=keyscan();if(dsp0=14|dsp010)dsp0=14;dsp1=0;for(i=2;i9;i+)dspi=12;c=0;while(dsp0=14);doif(c=0) k=dsp0;for(i=0;i8;i+)ai=dspi+1;dsp1=0;for(i=2;i9;i+)dspi=12;c=1;goto KSC;else if(c=1)for(i=0;i8;i+)bi=dspi+1;c=2;if(dsp0!=15)calculate(k,a,b);for(i=0;i8;i+