基于单片机的智能计算机程序 可以实现加减乘除运算

kinidrily

基于单片机的智能计算机程序 可以实现加减乘除运算



: d  f; S: L6 P% Q  B# a- `单片机源程序：
/*  S16 S12 S8 S4分别是123+
/ V3 q) W8 ]( r* f0 f  P, K        S15 S11 S7 S3分别是456-
; V# T0 }2 b  R0 W1 |% Z$ Z! h        S14 S10 S6 S2分别是789*
. K8 C( V& o5 b8 E        S13 S9 S5 S1分别是0 CLR = /
*/
/* 实现两个数的运算，每个数的位数至少可以八位  */
#include<reg52.h>                        
typedef unsigned char uint8;
" k; C3 w: p7 l( J4 |+ f, jtypedef unsigned int uint16;
: z% d6 {; q% @# |sbit rw=P2^5;
0 i) }/ Q8 u$ k6 Zsbit rs=P2^6;
* ~0 K9 e2 L# s% [/ V9 K* W2 Dsbit en=P2^7;
sbit led=P3^7;
sbit psb=P3^2;
sbit beep=P2^0;
; c! i5 @! [" E6 H. L! p! O+ {4 f0 kuint8 key,num;
uint8 fuhao;//定义具体的那个符号，是加减还是乘除。
uint8 flag;        //定义有没有按下符号键，这个是统称
; g4 I! b. W, O9 H/ s7 B: plong a,b,c,d;        //定义运算数据的第一个和第二个及等于的数变量
+ K; |6 V" r& j' y' xuint8 k; //定义小数点后面显示的位数
9 c& {# |$ X8 \* |1 _! C3 \uint8 biao,keyflag;
- Q) K3 Q6 X2 I! q) K; }' Fuint8 dat1[]={1,2,3,0x2b-0x30,4,5,6,0x2d-0x30,7,8,9,0x2a-0x30,0,0x01-0x30,0x3d-0x30,0x2b-0x30 };//保存显示的数据
" f: L5 S: o3 x+ `5 h1 Fvoid delay(uint16 i)
{
        while(i--);
}
* o, ^4 k! ^  A$ O. l/ b9 nvoid write_com(uint16 com)
+ P6 x( a8 F3 R2 U{
* Y  B, z1 c' `  e0 G rs=0;
P0=com;
delay(500);
* o) p4 o% v9 x  | en=1;
  Z: v6 B# g+ s9 y% S+ n delay(500);
en=0;
}
void write_data(uint16 date)
{
6 m! W" ]$ W9 I  u  O rs=1;
P0=date;
6 {4 D1 w% w+ I' c! k0 Z& Q+ o delay(500);
en=1;
delay(500);
& Q5 \8 d& X! T en=0;
8 D5 o7 Y8 T' e8 I' |: M4 k }
$ Z( o; G; j$ A5 F* ], Bvoid lcdinit()
{
        psb=1;
rw=0;
: D8 M8 j" d+ r en=0;
; {1 C0 H6 h" X0 p. `  S3 a  write_com(0x30);
. k; F* x& ?* t/ z" d3 r/ |4 X delay(500);
: b, Y5 v2 z: |  write_com(0x0c);
7 g4 R" }% |& X. L; v9 y delay(500);
write_com(0x01);
delay(500);
% P; r5 O7 l* b  W" e% Z3 K2 \        key=0;
2 d" g( o/ d0 b( F        num=0;
/ l5 B6 f3 e: p' r. l: H& `        flag=0;
9 T$ o  r, `1 F% p        fuhao=0;
        a=0;
4 z( ~/ J5 ?8 M5 }, x9 v/ p( Y) n        b=0;
% K- |3 l" b9 h/ J        c=0;
        d=0;
        biao=0;
) Z! B: x& l+ d: u7 r2 _( f        led=0;
5 |, ~) c/ s+ p' d+ v$ s}
void keyscan()
% g* U5 |' V- I% f1 n{
' a' A+ `( J# ?1 L% c        P1=0xfe;   //令第一行为0，然后判断是哪一列按下
        if(P1!=0xfe)
* d) }+ {' U) `& W        {
                delay(1000);
                if(P1!=0xfe)
4 Z3 @' f7 C: i                {
                        key=P1&0xf0;
+ z8 A( u  n+ r* E" Y2 F                        switch(key)
, j5 i+ H  @4 w/ I8 J                        {
                                case 0xe0: num=0;if(keyflag==1){keyflag=0;write_com(0x01);};break;          //1
                                case 0xd0: num=1;if(keyflag==1){keyflag=0;write_com(0x01);};break;          //2
                                case 0xb0: num=2;if(keyflag==1){keyflag=0;write_com(0x01);};break;          //3
+ {! Z4 t4 V" n) z; X( u                                case 0x70: num=3;break;          //加
2 k+ e! Y7 q5 C                        }
                }
                while(P1!=0xfe);
# |' N6 v+ K: H& Q                if(num==0||num==1||num==2)         //确认第一行的数1,2,3
                {
                        if(flag==0)         //没有按下符号键
                        {
# c0 p. B/ m  U3 _5 J1 t  Z& \                                //led=1;
                                a=a*10+dat1[num];        
                        }
                        else
                        {
" _0 x: l9 V; L8 B4 ~                                //led=1;
8 ]$ G/ q4 G* ~6 g" W, u                                b=b*10+dat1[num];
                        }
               
                }
                if(num==3)
                {
7 L) C5 W: e- u' C' b* _* r                        //led=0;
- P+ m0 C) P% w" T* d' h1 t                        flag=1;
+ [. Q9 A! R8 @% L5 G2 O                        fuhao=1;//加号+        
$ C# f: b0 B! Z. c- j+ ~                }
) a) s) Q" C+ y( j5 O! U0 G3 Y% s                write_data(0x30+dat1[num]);
% w7 R- P( V9 f& g% z" c9 f3 C        }
" z* U- C/ L$ i3 H$ p2 u2 G9 n4 V8 c
# b! I! Q+ @& c3 ]2 \  o        P1=0xfd;                                //令第二行为0，判断是哪一列按下
' j+ u5 Z% t' f# V% h( w5 M        if(P1!=0xfd)
5 ~* `$ K9 B9 t$ Q        {
4 u2 b+ T4 C) T$ _  Z( p                delay(1000);
2 O  Y2 x3 |0 s7 d                if(P1!=0xfd)
                {
                        key=P1&0xf0;
  L* T$ A1 c. I* T& F                        switch(key)
                        {
& F0 a/ Q  ~+ }+ q6 O. W                                case 0xe0: num=4;if(keyflag==1){keyflag=0;write_com(0x01);};break;          //4                                 
" F3 j5 h9 w" ^5 K  O                                case 0xd0: num=5;if(keyflag==1){keyflag=0;write_com(0x01);};break;          //5
                                case 0xb0: num=6;if(keyflag==1){keyflag=0;write_com(0x01);};break;          //6
6 d( S( _. h. v                                case 0x70: num=7;break;          //减—
1 e9 Q$ E3 c6 d( r; O                        }        
; H' d0 l# d" x% y                }
# C4 U* K: K! o, I                while(P1!=0xfd);
) A% Z6 H  Y8 U0 e6 h                if(num==4||num==5||num==6)
                {
/ b, K  n$ s4 A; g0 J, I                        if(flag==0)         //没有按下符号键
                        {
2 Y% U$ Y- d9 u1 f. G, u3 z7 Y                                //led=1;
' t& M/ O8 j4 w) ?8 u7 M                                a=a*10+dat1[num];        
                        }
                        else
                        {
                                //led=1;
; ~; V  u. w1 x, [: [; E                                b=b*10+dat1[num];
  B; I. l$ y+ H7 W+ ]$ t: V- l* r                        }                        
                }
                else
- |6 q; }7 u* L" U                {
                        flag=1;
                        fuhao=2;//带表减号
                }
                write_data(0x30+dat1[num]);
        }
7 n3 W& u/ }5 {7 P! U7 j
; h# ~5 o- l, a% U+ P# h) r        P1=0xfb;                 //令第三行为0，判断哪一列按下
# _5 _7 L( D1 [. \/ v        if(P1!=0xfb)
        {
$ A" Q/ B7 R6 U! V4 }9 F! \) ]                delay(1000);
                if(P1!=0xfb)
6 T  i$ }) |2 S. T4 a                {
& o7 Z+ G' G: H: V' C3 M( k                        key=P1&0xf0;
                        switch(key)
: |8 O! K6 Y! e) t8 ]                        {
                                case 0xe0: num=8;if(keyflag==1){keyflag=0;write_com(0x01);};break;          //7
( v5 K. I' {+ w) h* l& o                                case 0xd0: num=9;if(keyflag==1){keyflag=0;write_com(0x01);};break;          //8
. V8 s" X1 F6 a6 i" e! m  Y* k                                case 0xb0: num=10;if(keyflag==1){keyflag=0;write_com(0x01);};break;  //9
! E) L$ [* }2 P+ L; {$ F0 L                                case 0x70: num=11;break;  //乘*
                        }        
- m# l7 e2 S5 {- z0 P8 |8 _                }
" [. k" q2 r* g) ^% i6 q* ^                while(P1!=0xfb);
                if(num==8||num==9||num==10)
9 s4 |, L% c; w                {
                        if(flag==0)         //没有按下符号键
2 H. \# L7 X& q6 @" ~) c1 j  x                        {
* _+ r- h6 |* F                                //led=1;
                                a=a*10+dat1[num];        
9 z! W  I! W& Y. u5 O7 b4 x' V                        }
: R$ Y. A/ n' v% S* M6 q                        else
                        {
4 _4 T( y2 U) M) K8 \% [                                //led=1;
                                b=b*10+dat1[num];
                        }                        
                }
& K5 q+ G! p/ I, d, V                else
7 ~% H: d/ d2 w                {
                        flag=1;
" j% v" ~8 A3 n3 H4 b9 X3 e                        fuhao=3;//带表乘号*
                }
                write_data(0x30+dat1[num]);
7 ^) a1 c: W) v) p" r        }

% ?& H& @( t8 Z7 e) W        P1=0xf7;                 //令第四行为0，判断哪一列按下
. [& {7 C1 L" q7 F8 P" F$ V' Y% W. L        if(P1!=0xf7)
        {
& `2 E+ O( w4 a- K+ X- S                delay(1000);
                if(P1!=0xf7)
* P- C' n& q6 @$ o! `0 h3 v( K' M/ K                {
                        key=P1&0xf0;
: o1 K& _- M7 V8 A: H( X# i; E                        switch(key)
) g9 w- f/ a. F/ P                        {
                                case 0xe0: num=12;if(keyflag==1){keyflag=0;write_data(0x01);};break;  //0
                                case 0xd0: num=13;break;  //清除rst
                                case 0xb0: num=14;break;  //等号=
. J. s8 I$ d: u* |                                case 0x70: num=15;break;  //除/
                        }        
                }
                while(P1!=0xf7);
                switch(num)
  q- F6 G& `6 ?" }; ~/ c                {
                        case 12:
  j2 _/ Y+ p. V3 _3 v( O                                        if(flag==0)         //没有按下符号键
! n- p- d9 f, X3 O: `( _# Z" \                                        {
9 ?0 E, r& {1 C! N                                                //led=1;
                                                a=a*10+dat1[num];
                                                write_data(0x30);        
/ l. x: n; S+ |' y                                        }
6 ~! I) B8 H2 L1 ]7 I2 \8 X0 u                                        else
                                        {
                                                //led=1;
                                                b=b*10+dat1[num];
' |! d' I8 Y# E                                                write_data(0x30);
                                        }
5 _# X6 H% d  v! I6 o                                        break;
- J; y. ]& }) O                        
                        case 13:
" N  X) O: c" {' V4 w                                        write_com(0x01);        //清屏指令                        
% c' J% @* X' a. Q: b                                        a=0;
                                        b=0;
                                        flag=0;
7 I, O) O) P7 U4 |( O- Z" Y4 ~                                        fuhao=0;
                                        break;
                        case 15:
                        
- Z& _# Y5 v' y) f9 U' O                                        flag=1;
7 k+ p4 Y# d. R) a8 n$ h; T7 v                                        fuhao=4;
) ^+ K' W# @9 Y! _4 Q                                        write_data(0x2f);//除号/
' i7 U. g% t4 s  j$ j                                        break;
                                       
% G, A+ @! {  J3 [                        case 14:                                 
' e& A, `, a/ v7 h% N                                        if(fuhao==1)//加
                                        {
                                            write_com(0x4f+0x80);
$ b$ O9 t4 Z3 i8 j6 I+ U* e                                                write_com(0x04);//设置光标左移，屏幕不移动
5 I5 `, y/ O5 f$ `+ g4 B                                                c=a+b;
                                                while(c!=0)         //一位一位显示
- l1 a2 B) p9 T- t                                                {
                                                        write_data(0x30+c%10);//显示结果的最后一位在0x4f的位置
" W' Q5 m; Q$ t0 z' }                                                        c=c/10;//取前面的结果数据        
7 o# y: B3 ~. n+ x+ w  q4 h                                                        keyflag=1;
                                                }
                                                write_data(0x3d); //显示等于号=
                                                a=0;
                                                b=0;
+ X) y# W# p: \: A                                                flag=0;
                                                fuhao=0;//全部清除为0
9 _% @9 s. D6 {4 w" p7 s2 @& Y. x" s                                        }
                                        if(fuhao==2)   //减
9 y2 b3 I: c3 a: ~4 }. r2 U* ~                                        {
% b# H3 K, t/ b& u) f                                                write_com(0x4f+0x80);
4 }# ^* m' D1 k2 q: H' ^6 w6 X# N                                            write_com(0x04);//设置光标左移，屏幕不移动
                                                if(a>b)
                                                        c=a-b;
                                                else
                                                        c=b-a;
                                                
# h7 A$ E5 s% F5 i                                                while(c!=0)         //一位一位显示
                                                {
                                                        write_data(0x30+c%10);//显示结果的最后一位在0x4f的位置
6 ?$ e- A6 v$ j9 O' l                                                        c=c/10;//取前面的结果数据        
                                                        keyflag=1;
# ?# s; ]- k4 z* o2 w                                                }
                                                if(a<b)        write_data(0x2d); //显示-号
                                                write_data(0x3d); //显示等于号=
                                                a=0;
                                                b=0;
                                                flag=0;
                                                fuhao=0;//全部清除为0
                                        }
                                        if(fuhao==3)//乘法               
8 i$ ^* M9 e; s  X9 t: W3 z; L                                        {
                                                write_com(0x4f+0x80);
                                                write_com(0x04);//设置光标左移，屏幕不移动
4 N0 s4 j, _% P# D' l% i                                                c=a*b;
/ ?% [' U6 \+ S( ]                                                while(c!=0)         //一位一位显示
/ O/ M3 j% t7 {* H, Q                                                {
                                                        write_data(0x30+c%10);//显示结果的最后一位在0x4f的位置
" T5 O* @% @) }% ~                                                        c=c/10;//取前面的结果数据        
) a+ R' t* a3 o7 D/ h                                                        keyflag=1;
% ?: N/ s6 L- g9 o( ^% N! K                                                }
                                                write_data(0x3d); //显示等于号=
                                                a=0;
                                                b=0;
! O1 [8 I7 _+ v0 u                                                flag=0;
% |) t7 k* n) w) b- @% r                                                fuhao=0;//全部清除为0        
5 N, i* ]+ s2 Q- s9 u                                        }
& C( q! p/ \  u  ^" ~9 d3 t& E                                        if(fuhao==3)//乘法               
- J) B. _% X5 k9 i; Y/ u2 C; N) ~  g                                        {
0 K' `7 G2 l: q5 u5 [0 @                                                write_com(0x4f+0x80);
                                                write_com(0x04);//设置光标左移，屏幕不移动
                                                c=a*b;
                                                while(c!=0)         //一位一位显示
* A  i6 `1 {; S) ~( ^1 \9 V2 L* Y                                                {
% B- ]/ ^& D7 R" d! |" f                                                        write_data(0x30+c%10);//显示结果的最后一位在0x4f的位置
; S7 [' T( K- S% s; i  z9 G  w+ V                                                        c=c/10;//取前面的结果数据        
                                                        keyflag=1;
                                                }
                                                write_data(0x3d); //显示等于号=
! n; ^' A# z! ~2 e9 w5 n5 v                                                a=0;
                                                b=0;
                                                flag=0;
# J8 |2 Q0 C  s; g, W8 d                                                fuhao=0;//全部清除为0        
/ o' n, h& B% |' T' ?. f  p- @7 x                                        }
                                        if(fuhao==4)
                                        {
: t/ [# d4 O+ @! l1 A6 K6 r                                                k=0;
2 }8 v. V$ R- W# R1 t                                                write_com(0x4f+0x80);
: M3 p8 `& N, r1 O4 y                                                write_com(0x04);//设置光标左移，屏幕不移动
                                                c=(long)(((float)a/b)*1000);//强制转换为long。
6 x- @$ O# u) V$ L) B7 P$ O" q0 R, M                                                while(c!=0)         //一位一位显示
                                                {
) R$ q" J) w3 S$ z/ b0 w0 F* Z                                                        k++;
                                                        write_data(0x30+c%10);//显示结果的最后一位在0x4f的位置
                                                        c=c/10;//取前面的结果数据
                                                        if(k==3)
" I0 o6 g3 D2 v# [* W( V" d                                                        {
8 A$ V8 k# \8 J* S& h+ A                                                                write_data(0x2e);
7 h* Y6 p9 ~! _4 _+ `- c9 Y                                                                k=0;
                                                        }               
, ]7 ^  ], \: e- l7 M. T% u                                                        keyflag=1;
5 o0 h  G. w6 S8 p4 u                                                }
, X- l% J' p2 ?/ Z; D/ h5 O                                                if(a/b<0)          //如果a比b小的话那么除的结果最高位是0
                                                {
  W$ y+ B3 I, i$ N$ I! d6 f                                                        write_data(0x30);        
                                                }
& L* D$ c1 z; C                                                write_data(0x3d); //显示等号
0 j2 i: \! L7 \+ C4 n
…………限于本文篇幅 余下代码请下载附件…………
; [& K8 h1 S5 d

游客，如果您要查看本帖隐藏内容请回复

  X# W  |, A4 A% p" j" R1 \% H

sunygd

看看楼主的代码