单片机智能计算程序设计 LCD1602液晶显示

helendcany

单片机智能计算程序设计 LCD1602液晶显示
单片机智能计算
/ l$ G8 E& R' K) y' q/ Y  R

单片机源程序：
1 j  U4 C: s1 m0 r/*  S16 S12 S8 S4分别是123+
% V- g. e% j% ~/ ?3 b+ p# L        S15 S11 S7 S3分别是456-
        S14 S10 S6 S2分别是789*
/ o' t; p4 z0 l0 V; S! v. U        S13 S9 S5 S1分别是0 CLR = /
) a( i7 M3 k. |, H' ]*/
7 E; ]# M. |: d0 [6 Z
; d% L9 m4 }% H7 h& w
/* 实现两个数的运算，每个数的位数至少可以八位  */
#include<reg52.h>                        
typedef unsigned char uint8;
typedef unsigned int uint16;


sbit rw=P2^5;
3 u. b' e; Q- Msbit rs=P2^6;
sbit e=P2^7;
( ~3 B; z5 q' I/ E2 n" J! ^sbit led=P3^7;
) D( {6 `: c! C  `
, `2 X& H' V1 C
sbit beep=P2^0;
uint8 key,num;
! P) v- Z7 Z% Q: Auint8 fuhao;//定义具体的那个符号，是加减还是乘除。
# e! E) D1 J& z! T$ R- f8 i0 Ouint8 flag;        //定义有没有按下符号键，这个是统称
9 {* `% |7 ~2 v3 Llong a,b,c,d;        //定义运算数据的第一个和第二个及等于的数变量
* w3 r- w! h/ g: _% e/ I. iuint8 k; //定义小数点后面显示的位数
: l& z  d4 Y. k8 ]* U6 Vuint8 biao;

3 L" O: @, j9 N1 c
  d. t" [( I! t& R$ |' ~uint8 dat1[]={1,2,3,0x2b-0x30, 4,5,6,0x2d-0x30, 7,8,9,0x2a-0x30, 0,0x01-0x30,0x3d-0x30,0x2b-0x30 };//保存显示的数据
0 z: g" h9 X# I( y: x6 B
% t, m# a- G/ Z9 Q. j' R# R+ _, U
6 j' L8 j9 f* Evoid delay(uint16 i)
{
        while(i--);
}
void lcdwrc(uint8 c)
{
        delay(1000);
        rs=0;
0 x) U' O0 w2 M0 i* i        rw=0;
        e=0;
: ^5 y+ q$ ~8 r" G+ P; K        P0=c;
: [6 j+ ?* F& k9 j' C        e=1;
; z' Q7 W% w4 X" K) r3 |& @$ E        delay(1000);
1 e$ ^1 r8 U5 g! r: B( y5 X0 z+ G        e=0;
* b/ U' R* w. q* n* u" e}
3 I: c/ ^7 T) xvoid lcdwrd(uint8 dat)
9 W8 J6 K6 \- d7 i+ H4 z{
        delay(1000);
        rs=1;
        rw=0;
: e, b! I4 W, ?6 k" ]        e=0;
4 b# f( ?( B  h# _        P0=dat;
! U. @" a8 m2 h$ |1 i        e=1;
3 v- T+ N0 p5 `7 [3 }        delay(1000);
+ z7 P7 d  D* p: Q/ \* x* A/ f        e=0;
        rs=0;
}


$ ?( J6 t2 ?9 `+ n) h" Cvoid lcdinit()
" n( J# }6 C$ m/ |& `{
4 E+ L5 @* _# ?- o; Y4 p. H# G        delay(1500);
: ~1 [1 _2 R7 R8 J# P. W5 \* _        lcdwrc(0x38);
        delay(500);
        lcdwrc(0x38);
- b1 }7 U8 @( Q* J' U0 F% F        delay(500);
% ?: {% M( V5 ]: t, K' O        lcdwrc(0x38);
! t) j* y+ W8 ~, x        delay(500);
        lcdwrc(0x38);
        lcdwrc(0x08);
& O) m' D9 z1 ]" S! g        lcdwrc(0x01);
$ w$ K0 y( B* z        lcdwrc(0x06);
9 ]9 r0 K$ W+ l3 ?/ [/ I2 C1 ~; U        lcdwrc(0x0c);
        key=0;
8 O# e6 P) n! |& R! u; p/ }        num=0;
        flag=0;
        fuhao=0;
        a=0;
        b=0;
7 N, P: d( {  x# V5 E        c=0;
3 }7 k* {! P4 f) _; l        d=0;
        biao=0;
        led=0;

' G" _% r: y& ?4 ]9 K8 i% g3 O
3 K: g  _, t4 Y6 K6 r2 i  k, S4 V* O}
4 ~. H* K4 c' t  R: w5 R

8 o+ s) ?! h, Z& Q$ yvoid keyscan()
{
        P1=0xfe;   //令第一行为0，然后判断是哪一列按下
        if(P1!=0xfe)
        {
& A: v% q1 [7 ?$ z) V                delay(1000);
6 U3 t& g- \0 f5 x& d% }" Z                if(P1!=0xfe)
                {
/ x( t1 f4 J( g9 P                        key=P1&0xf0;
                        switch(key)
7 b- j  Z5 X/ q& [6 i- \4 f                        {
7 r  m5 N2 o% Z0 k: c' C/ s                                case 0xe0: num=0;break;          //1
                                case 0xd0: num=1;break;          //2
                                case 0xb0: num=2;break;          //3
                                case 0x70: num=3;break;          //加
                        }
7 W5 Y% v! l0 u$ x                }
                while(P1!=0xfe);
                if(num==0||num==1||num==2)         //确认第一行的数1,2,3
                {
                        if(flag==0)         //没有按下符号键
                        {
                                //led=1;
                                a=a*10+dat1[num];        
3 M) ~  Y2 L" g, y9 a. q                        }
1 R$ `9 x- A; F0 _! l* p5 M                        else
% W6 V. A7 S( p$ J, ~2 b; A                        {
, r4 H0 s- F( a; ~* a6 L) F                                //led=1;
                                b=b*10+dat1[num];
- I; q8 Y4 G) o! E' K                        }
% `1 _. {9 U$ w5 d               
                }
2 E: ?5 U: z# P& z4 P                if(num==3)
8 Y5 Z9 F. @1 d" m, g* G/ ?7 b                {
                        //led=0;
                        flag=1;
                        fuhao=1;//加号+        
                }
                lcdwrd(0x30+dat1[num]);
        }
% j  s: J  W9 P1 `" Q% v  |$ V3 r


5 I- q" E" O9 f! |' x" J
( g9 m4 P. R0 Y, ]4 \        P1=0xfd;                                //令第二行为0，判断是哪一列按下
        if(P1!=0xfd)
        {
' B; _5 E; b0 |, H% s( b$ I0 B6 T                delay(1000);
/ J9 s( g" c, J3 J  K                if(P1!=0xfd)
                {
+ S. \# m/ }- i+ L% ~% G7 {                        key=P1&0xf0;
& t" s* ]9 l6 {" k( _. d, N                        switch(key)
: P% u5 h) ^" Z                        {
                                case 0xe0: num=4;break;          //4
                                case 0xd0: num=5;break;          //5
                                case 0xb0: num=6;break;          //6
                                case 0x70: num=7;break;          //减—
                        }        
, i- j2 H" B5 b                }
                while(P1!=0xfd);
                if(num==4||num==5||num==6)
5 t  M  x7 g7 ^- I% I) t                {
! r* M$ Y6 Z8 u+ W                        if(flag==0)         //没有按下符号键
                        {
                                //led=1;
+ c8 l# r  j5 Y$ [                                a=a*10+dat1[num];        
( M2 W: [) i% d0 V# @7 V                        }
                        else
                        {
- S  W( B& h' H- a- T9 g                                //led=1;
                                b=b*10+dat1[num];
                        }                        
                }
3 H) L# F, l2 i5 @$ a                else
                {
                        flag=1;
  \8 B2 o8 ^9 j! S                        fuhao=2;//带表减号
                }
                lcdwrd(0x30+dat1[num]);
3 c7 {2 {& x; i0 |5 Q! b& v        }
+ x8 A7 h% B  E8 m+ Q( u' A

9 X) W0 g2 c  t: L% m
/ O0 u+ B* h. v! ]6 u+ s
' L6 O2 ~& D) e0 c# }) _        P1=0xfb;                 //令第三行为0，判断哪一列按下
( h4 c, T2 M$ d  [; K        if(P1!=0xfb)
        {
: k* b( T( q* ~                delay(1000);
                if(P1!=0xfb)
                {
$ L  _1 V5 Z4 t: I& r                        key=P1&0xf0;
! x( q1 S$ v- R; ^* V  b                        switch(key)
                        {
  F+ |, F6 c+ r9 ]7 G# n                                case 0xe0: num=8;break;          //7
0 c/ J' ~! e2 a- _& L* k# ?1 S                                case 0xd0: num=9;break;          //8
                                case 0xb0: num=10;break;  //9
                                case 0x70: num=11;break;  //乘*
                        }        
                }
! t- g$ H# _9 E: I1 i7 r                while(P1!=0xfb);
                if(num==8||num==9||num==10)
0 h* J0 k! D) A# v& H                {
& N  C- d. m; D3 Y' ]( a                        if(flag==0)         //没有按下符号键
                        {
* l1 ]3 T$ X# r9 j9 t# F9 u, R                                //led=1;
                                a=a*10+dat1[num];        
2 _& w" x! @3 r                        }
2 F" }/ z# C) {9 j/ ?                        else
                        {
( a. ]+ }8 |' m4 m! n8 T) a                                //led=1;
9 v: ?8 H  N0 G2 Q, H+ _8 o. i                                b=b*10+dat1[num];
                        }                        
- ?! w5 l- V1 c                }
! |3 @! S" R& V! I) ~( ]; {+ r. i                else
0 Y! _  B; A( E                {
0 u: Y$ O1 b2 f                        flag=1;
                        fuhao=3;//带表乘号*
                }
7 A* e: }. G& ~% ]. Z7 Z; _                lcdwrd(0x30+dat1[num]);
9 V5 d0 w+ N* P6 S        }



  Z' X8 p4 z. T/ e' w
$ O' w1 d7 \8 i- L8 B1 k$ ?        P1=0xf7;                 //令第四行为0，判断哪一列按下
        if(P1!=0xf7)
        {
" d, g( s3 x5 i* a# h                delay(1000);
: z; l8 u) v+ R" Q# R( i                if(P1!=0xf7)
                {
" \- |. o/ `" Q2 c7 h0 i                        key=P1&0xf0;
                        switch(key)
$ A4 U5 c# b% f" g. S6 m0 @                        {
) e( I. o! [9 C& ?+ n' f" N                                case 0xe0: num=12;break;  //0
                                case 0xd0: num=13;break;  //清除rst
                                case 0xb0: num=14;break;  //等号=
                                case 0x70: num=15;break;  //除/
* B1 U6 Q2 l( X. ^- U2 r5 E                        }        
                }
5 r9 a) `0 B3 H- x' d* M/ W* X' I                while(P1!=0xf7);
                switch(num)
' ]3 O" K1 v' }" _                {
                        case 12:
. j7 F2 B2 U6 o2 ^! n                                        if(flag==0)         //没有按下符号键
& Q* q" l$ c( F; e6 H5 g                                        {
7 E$ ~% i+ N, r: Q                                                //led=1;
; t" ]2 T3 |  Q' q0 I                                                a=a*10+dat1[num];
6 q5 e: D; F2 ~4 e! t. z2 P) @                                                lcdwrd(0x30);        
                                        }
                                        else
                                        {
                                                //led=1;
& s: [* w0 q& M" @; E. j5 Y                                                b=b*10+dat1[num];
                                                lcdwrd(0x30);
8 k* z: r6 M% ?% v$ B, U! }                                        }
                                        break;
                        
& ]7 h4 i% O) i" u+ U0 X                        case 13:
                                        lcdwrc(0x01);        //清屏指令                        
- r- V  S6 P1 q5 l% Q& W# h) X                                        a=0;
0 A8 D' ^$ j. U' S                                        b=0;
2 S5 F+ o. w7 M                                        flag=0;
                                        fuhao=0;
. H: q: N4 ~' x                                        break;
) p- F: i/ ~8 M! J" o
! k+ W: f# {7 \: g- S/ @7 ~2 Y# N+ z
7 r9 T% {8 Z+ D7 q5 Q                        case 15:
# F* T* Y! ?  u* t' i                        
/ [) D) E/ G7 M                                        flag=1;
) r5 Z& U* D8 A1 j                                        fuhao=4;
                                        lcdwrd(0x2f);//除号/
0 @$ ]% ~. I) I$ g6 G                                        break;
8 e, N) K% p& ^# [% D/ {                                       
                        case 14:
                                        if(fuhao==1)//加
                                        {
7 R2 s$ a( B/ H/ b% }8 N/ C: t$ N                                                lcdwrc(0x4f+0x80);
                                                lcdwrc(0x04);//设置光标左移，屏幕不移动
                                                c=a+b;
                                                while(c!=0)         //一位一位显示
" ]- o9 d/ {; l2 c: O& R3 t6 n                                                {
% W. x+ z& }7 J8 y                                                        lcdwrd(0x30+c%10);//显示结果的最后一位在0x4f的位置
2 a0 G4 d  m4 p2 {$ x                                                        c=c/10;//取前面的结果数据        
, Y3 u4 E& T- \5 O                                                }
                                                lcdwrd(0x3d); //显示等于号=
2 {' N2 L, d4 o+ {, T  Q                                                a=0;
                                                b=0;
. W( o& V' l+ ]+ T2 ]                                                flag=0;
0 E( V1 R7 Z: j1 n1 u                                                fuhao=0;//全部清除为0
                                        }
& l  Z5 N9 J" Q, \3 _5 y                                        if(fuhao==2)   //减
! U' U) ?% @- X" k4 N                                        {
) K( d# x6 ^* k3 i& J' A                                                lcdwrc(0x4f+0x80);
+ C/ o8 m. M& \; S                                                lcdwrc(0x04);//设置光标左移，屏幕不移动
                                                if(a>b)
                                                        c=a-b;
9 t1 a2 c4 W: i+ D$ }( p                                                else
                                                        c=b-a;
                                                
% m/ q( z+ i- l' _* m6 O4 P4 d                                                while(c!=0)         //一位一位显示
9 w2 G5 ~9 q9 h+ N- }8 B& p                                                {
# ?% K; r3 ^  C" g                                                        lcdwrd(0x30+c%10);//显示结果的最后一位在0x4f的位置
                                                        c=c/10;//取前面的结果数据        
                                                }
                                                if(a<b)        lcdwrd(0x2d); //显示-号
                                                lcdwrd(0x3d); //显示等于号=
  R7 N3 z0 Z& n/ a; y                                                a=0;
                                                b=0;
$ {9 O6 H1 ]; H  C. |/ s9 |6 G8 ?8 i                                                flag=0;
                                                fuhao=0;//全部清除为0
                                        }
                                        if(fuhao==3)//乘法               
/ ~1 o( R0 p0 F) M/ x4 C                                        {
7 P" g1 A$ @' K" }7 u                                                lcdwrc(0x4f+0x80);
- h" D1 E' P( v- G                                                lcdwrc(0x04);//设置光标左移，屏幕不移动
                                                c=a*b;
                                                while(c!=0)         //一位一位显示
                                                {
7 j/ i) |5 N8 H. L/ M                                                        lcdwrd(0x30+c%10);//显示结果的最后一位在0x4f的位置
2 J8 p  c, O6 e0 J+ \" f                                                        c=c/10;//取前面的结果数据        
) |; U' t8 M, p; N1 G, h: {                                                }
, h! l/ S$ }9 ]                                                lcdwrd(0x3d); //显示等于号=
                                                a=0;
7 P' s8 w; _/ R                                                b=0;
                                                flag=0;
1 t6 H( X) E& [0 G7 ^* x                                                fuhao=0;//全部清除为0        
                                        }
' H+ D& Z, E! L                                        if(fuhao==3)//乘法               
* A: H: I$ D* Q& V1 G& g; {( w& u# d                                        {
                                                lcdwrc(0x4f+0x80);
                                                lcdwrc(0x04);//设置光标左移，屏幕不移动
: n9 N: \8 R; X: J                                                c=a*b;
                                                while(c!=0)         //一位一位显示
9 [8 d6 Q6 H# X- i2 r! P# |                                                {
                                                        lcdwrd(0x30+c%10);//显示结果的最后一位在0x4f的位置
0 `# p& Z( O: i2 j2 k9 ?                                                        c=c/10;//取前面的结果数据        
% W; p0 d2 d% H0 _0 |0 N0 v                                                }
$ ]5 j( |2 E' \/ E' H) Q5 L                                                lcdwrd(0x3d); //显示等于号=
                                                a=0;
  o- W, G# x2 F1 j                                                b=0;
5 j# j: ~9 b: C                                                flag=0;
" V  \% J7 J( i% P+ f                                                fuhao=0;//全部清除为0        
9 h$ x. V" H1 K/ l! `0 u( t6 ^+ h' M                                        }
! P3 y5 d$ B' A8 e5 v                                        if(fuhao==4)
                                        {
                                                k=0;
9 u5 ?7 k6 _0 T. T8 e/ D1 k                                                lcdwrc(0x4f+0x80);
0 a, z4 D, T7 K  ~$ V8 I1 B& Y                                                lcdwrc(0x04);//设置光标左移，屏幕不移动
                                                c=(long)(((float)a/b)*1000);//强制转换为long。
                                                while(c!=0)         //一位一位显示
) \% F' G  X% K# j7 x; l+ X7 J                                                {
5 F% l4 s4 r, O" h& W/ f: f$ t                                                        k++;
5 K' A$ B4 h. k; E                                                        lcdwrd(0x30+c%10);//显示结果的最后一位在0x4f的位置
                                                        c=c/10;//取前面的结果数据
3 [  b7 t. w) |- [0 z  z2 j0 h                                                        if(k==3)
. b3 l; Y5 d' L  h                                                        {
                                                                lcdwrd(0x2e);
                                                                k=0;
+ g3 Q+ N: m" o/ [* [1 b1 V/ J                                                        }               
0 }) [; x. r' x2 W* _0 d                                                }
                                                if(a/b<0)          //如果a比b小的话那么除的结果最高位是0
5 y! ^4 i$ r1 j4 c, ?                                                {
                                                        
…………限于本文篇幅 余下代码请下载附件…………
- _; q6 t( K1 x! V

下载：

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

+ O4 v( l' Q% E* Y( S
1 P9 t% `( W# B4 K( {

4 A: u3 T6 P4 ?2 J: n- U. F
/ C4 t* t: N: ?  c

sunygd

学习一下