51單片機實現簡單計算器C語言程序+Proteus仿真

ID:404722 · 發表于 2019-1-31 23:33

我們在這里使用4*4的矩陣按鍵KEYPAD-SMALLCALC與1602液晶屏LMO16L在單片機上實現簡單的計算器仿真實驗。
首先我們定義一個字符數組存儲按鍵對應的鍵值，使用程序查詢的方法掃描矩陣按鍵；當結束輸入時，我們就對字符串進行處理了并將結果顯示在液晶屏上。
在程序中，適當的使用一些庫函數可以大大提高我們的編程效率，在這里，我們主要對字符串進行操作，使用了stdlib.h、ctype.h庫中的一些函數，如下：
atoi：將字符串轉換成整數
atof：將字符串轉換成浮點數
isalnum：測試是否為字母數字

單片機源程序如下:

#include<reg51.h>
#include<intrins.h>
#include<ctype.h>
#include<stdlib.h>
#include<stdio.h>
#include<math.h>
#include<string.h>
#define uchar unsigned char
#define uint unsigned int
sbit LCDEN=P3^4;
sbit RS=P3^5;
sbit RW=P3^6;
sbit BF=P0^7;
sbit BEEP=P1^0;
uchar str[17];
uchar code keyval[]="789/456*123-c0=+"; //按鍵對應的符號
void delay(unsigned int xms)
{
int i,j;
for(i=xms;i>0;i--)
for(j=110;j>0;j--);
}
uchar keypad4_4()//按鍵掃描函數:要去抖，若有按鍵按下，返回對應的按鍵值(0-15),沒有按鍵按下返回16
{
uchar i,row,temp;
uchar key=16;//按鍵號，初值設置為16，目的是：沒有按鍵按下時返回16；
//若不設初值(默認值為0)，沒有按鍵按下時，將返回0，會誤認為0被按下
row=0xef; //從第一列開始
for(i=0;i<4;i++)
{
P2=0xff;
P2=row; //第i列信號，對應列為低，其他全為高
row=_crol_(row,1); //生成下一列信號
temp=P2; //讀入掃描信號
temp=temp&0x0f; //屏蔽高4位列信號，只保留低4位行信號
if(temp!=0x0f)//有按鍵被按下，因為第i列某行有按鍵按下，則低4位中有一位為低
{
delay(20); //延時去抖
temp=P2;
temp=temp&0x0f;
if(temp!=0x0f) //再次確認有按鍵被按下
{
switch(temp) //根據低4位行信號，判斷哪個按鍵被按下
{
case 0x0e:key=0+i;break; //第i列第1行按鍵被按下
case 0x0d:key=4+i;break; //第i列第2行按鍵被按下
case 0x0b:key=8+i;break; //第i列第3行按鍵被按下
case 0x07:key=12+i; //第i列第4行按鍵被按下
}
do
{
temp=P2; //再次掃描按鍵
temp=temp&0x0f;
}while(temp!=0x0f); //等待按鍵釋放
}
}
}
return(key);//掃面結束，返回按鍵值
}
uchar RdACAdr()//讀當前光標地址
{
uchar result;
P2 = 0xff; //讀地址前先置高電平，防止誤判
RS = 0;
delay(5);
RW = 1;
LCDEN = 1;
delay(5);
result=P2&0x7f; //去掉最高位忙閑標記，只保留低7位地址值
LCDEN = 0;
return result;
}
uchar DectectBusyBit(void)//狀態判斷函數(忙/閑?)
{
bit result;
P0 = 0xff; //讀狀態前先置高電平，防止誤判
RS = 0;
delay(5);
RW = 1;
LCDEN = 1;
delay(5);
result=BF; //若LCM忙,則反復測試,在此處原地踏步；當LCM閑時，才往下繼續
LCDEN = 0;
return result;
}
void WrComLCD(unsigned char ComVal)//寫命令函數
{
while(DectectBusyBit()==1); //先檢測LCM是否空閑
RS = 0;
delay(1);
RW = 0;
LCDEN = 1;
P0 = ComVal;
delay(1);
LCDEN = 0;
}
void WrDatLCD(uchar DatVal)//寫數據函數
{
while(DectectBusyBit()==1);
RS = 1;
delay(1);
RW = 0;
LCDEN = 1;
P0 = DatVal;
delay(1);
LCDEN = 0;
}
void WrStrDat(uchar *p)//顯示英文字符串（長度不超過32）
{
uchar i=0,t;
while(p[i]!='\0')
{
WrDatLCD(p[i]);
i++;
delay(5);
t=RdACAdr();
if(t==0x10) WrComLCD(0xc0);//讀當前坐標，如果第1行寫完換行到第2行
if(t==0x50) WrComLCD(0x80);//讀當前坐標，如果第2行寫完換行到第1行
}
}
void LCD_Init(void)//1602初始化函數
{
//delay(15);
WrComLCD(0x38);
//delay(5); // 功能設定:16*2行、5*7點陣、8位數據接口
WrComLCD(0x38);
//delay(5);
WrComLCD(0x38);
//多次重復設定功能指令,因為LCD啟動后并不知道使用的是4位數據接口還是8位的，所以開始時總是默認為4位，這樣剛開始寫入功能設定指令時，低4位被忽略,為了可靠，最好多寫幾遍該指令
WrComLCD(0x01); // 清屏
WrComLCD(0x06); // 光標自增、屏幕不動
delay(1); // 延時，等待上面的指令生效，下面再顯示，防止出現亂碼
WrComLCD(0x0C); // 開顯示、關光標
}
double str2num(uchar* str)
{
uint i=0,j=0,index=0;
uchar ch[10];
long a1=atol(str),b1=0;
double a2=atof(str),b2=0,c=0;
for(i=0;str[i]!='\0';i++)
{
if(!isalnum(str[i]))
{
index=i;
break;
}
}
for(j=0,i=index+1;i<=strlen(str);i++)
ch[j++]=str[i];
b1=atol(ch);
b2=atof(ch);
switch(str[index])
{
case '+':c=a1+b1;break;
case '-':c=a1-b1;break;
case '*':c=a2*b2;break;
case '/':c=a2/b2;break;
default:c=a2;break;
}
return c;
}
void main()
{
uchar i=0,j=0,y=16;
uchar flag=0;
uchar end=0;
LCD_Init();
delay(5); //延時，等待初始化完成
WrComLCD(0x80); //設置顯示地址第一行第一位：0X00（0x80+0x00）
delay(1);
WrComLCD(0xc0);
delay(1);
WrDatLCD('0');
delay(1);
WrComLCD(0x80);
while(1)
{
y=keypad4_4();
if(y<16)
{
if(y!=12)
{
if(end==1)
{
end=0;
flag=0;
WrComLCD(0x01);
delay(1);
WrComLCD(0xc0);
delay(1);
WrDatLCD('0');
delay(1);
WrComLCD(0x80);
}
str[strlen(str)]=keyval[y];
WrDatLCD(keyval[y]);
if(y==14)
{
uchar ch[17];
flag=1;
end=1;
str[strlen(str)]='\0';
WrComLCD(0xc0);
sprintf(ch,"%.2f",str2num(str));
WrStrDat(ch);
for(i=0;i<17;i++)
str[i]='\0';
}
}
else
{
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………

復制代碼

所有資料51hei提供下載:

51簡單計算器.zip (141.66 KB, 下載次數: 159)

ID:432453 · 發表于 2019-3-7 16:54

蜂鳴器沒有作用，似乎缺失蜂鳴器功能部分的程序。

ID:404722 · 發表于 2019-5-19 17:45

GameGhost96 發表于 2019-3-7 16:54
蜂鳴器沒有作用，似乎缺失蜂鳴器功能部分的程序。

嗯，這里沒有使用蜂鳴器

ID:663421 · 發表于 2019-12-13 18:00

學習一下，謝謝分享

ID:786505 · 發表于 2020-6-23 11:33

多謝，研究一下。

ID:786505 · 發表于 2020-6-23 11:36

多謝，研究一下。

ID:786505 · 發表于 2020-6-23 21:04

好用，多謝分享。

ID:789460 · 發表于 2020-6-25 16:09

下載打不開

ID:406255 · 發表于 2020-11-15 14:14

找了很久用于學習的程序，謝謝，但愿能下載，

ID:850392 · 發表于 2020-12-1 19:43

沒有加入小數點的運算程序。

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

51單片機實現簡單計算器C語言程序+Proteus仿真

評分

相關帖子