用51單片機制作電子秤的資料(帶仿真文件)

ID:51274 · 發表于 2013-6-26 16:16

源碼和仿真文件下載:

0150、電子秤proteus仿真程序資料.rar (188.4 KB, 下載次數: 804)

下面是部分程序預覽：

/********************************************************
壓力測試儀
系統描述;輸入 15--115kPA壓力信號
輸出 00h--ffh數字信號（adc0832）
在LCD上顯示實際的壓力值，如果超限則報警
線性區間標度變換公式： y=(115-15)/(243-13)*X+15kpa
作者：
單位：
日期：2008.3.7
********************************************************/
#include<reg51.h>
#include<intrins.h>
#include <absacc.h>
#include <math.h>
#define uchar unsigned char
#define uint unsigned int
#define BUSY 0x80 //常量定義
#define DATAPORT P0
//ADC0832的引腳
sbit ADCS =P3^5; //ADC0832 chip seclect
sbit ADDI =P3^7; //ADC0832 k in
sbit ADDO =P3^7; //ADC0832 k out
sbit ADCLK =P3^6; //ADC0832 clock signal
sbit LCM_RS=P2^0;
sbit LCM_RW=P2^1;
sbit LCM_EN=P2^2;
uchar ad_data; //采樣值存儲
sbit Alarm_led_red =P3^1; //超過壓力表量程最大值紅色led報警定義
sbit Alarm_led_green=P3^2; //低于壓力表量程最小值綠色led報警定義
//adc采樣值存儲單元
char press_data; //標度變換存儲單元
unsigned char ad_alarm; //報警值存儲單元
unsigned char press_ge=0; //顯示值百位
unsigned char press_shifen=0; //顯示值十位
unsigned char press_baifen=0; //顯示值個位
unsigned char press_qianfen=0; //顯示值十分位
uchar code str0[]={"Weight: . Kg "};
uchar code str1[]={"Make by GUO TAO "};
uchar code str2[]={"Price: "};
uchar code str3[]={"Total: "};
void delay(uint);
void lcd_wait(void);
void delay_LCM(uint); //LCD延時子程序
void initLCM( void); //LCD初始化子程序
void lcd_wait(void); //LCD檢測忙子程序
void WriteCommandLCM(uchar WCLCM,uchar BusyC); //寫指令到ICM子函數
void WriteDataLCM(uchar WDLCM); //寫數據到LCM子函數
void DisplayOneChar(uchar X,uchar Y,uchar DData); //顯示指定坐標的一個字符子函數
void DisplayListChar(uchar X,uchar Y,uchar code *DData); //顯示指定坐標的一串字符子函數
void keyscan();
void display(void); //系統顯示子函數
uchar Adc0832(unsigned char channel);
void alarm(void);
void data_pro(void);
/**********main funcation************/
void main(void)
{
delay(500); //系統延時500ms啟動
// ad_data=0; //采樣值存儲單元初始化為0
initLCM( );
WriteCommandLCM(0x01,1); //清顯示屏
DisplayListChar(0,0,str0);
DisplayListChar(0,1,str2);
while(1)
{
ad_data =Adc0832(0); //采樣值存儲單元初始化為0
alarm();
data_pro();
display();
}
}
/*********延時K*1ms,12.000mhz**********/
void delay(uint k)
{
uint i,j;
for(i=0;i<k;i++)
{
for(j=0;j<60;j++)
{;}
}
}
/**********寫指令到ICM子函數************/
void WriteCommandLCM(uchar WCLCM,uchar BusyC)
{
if(BusyC)lcd_wait();
DATAPORT=WCLCM;
LCM_RS=0; // 選中指令寄存器
LCM_RW=0; // 寫模式
LCM_EN=1;
_nop_();
_nop_();
_nop_();
LCM_EN=0;
}
/**********寫數據到LCM子函數************/
void WriteDataLCM(uchar WDLCM)
{
lcd_wait( ); //檢測忙信號
DATAPORT=WDLCM;
LCM_RS=1; // 選中數據寄存器
LCM_RW=0; // 寫模式
LCM_EN=1;
_nop_();
_nop_();
_nop_();
LCM_EN=0;
}
/***********lcm內部等待函數*************/
void lcd_wait(void)
{
DATAPORT=0xff; //讀LCD前若單片機輸出低電平,而讀出LCD為高電平,則沖突,Proteus仿真會有顯示邏輯黃色
LCM_EN=1;
LCM_RS=0;
LCM_RW=1;
_nop_();
_nop_();
_nop_();
while(DATAPORT&BUSY)
{ LCM_EN=0;
_nop_();
_nop_();
LCM_EN=1;
_nop_();
_nop_();
}
LCM_EN=0;
}
/**********LCM初始化子函數***********/
void initLCM( )
{
DATAPORT=0;
delay(15);
WriteCommandLCM(0x38,0); //三次顯示模式設置，不檢測忙信號
delay(5);
WriteCommandLCM(0x38,0);
delay(5);
WriteCommandLCM(0x38,0);
delay(5);
WriteCommandLCM(0x38,1); //8bit數據傳送，2行顯示，5*7字型，檢測忙信號
WriteCommandLCM(0x08,1); //關閉顯示，檢測忙信號
WriteCommandLCM(0x01,1); //清屏，檢測忙信號
WriteCommandLCM(0x06,1); //顯示光標右移設置，檢測忙信號
WriteCommandLCM(0x0c,1); //顯示屏打開，光標不顯示，不閃爍，檢測忙信號
}
/****顯示指定坐標的一個字符子函數****/
void DisplayOneChar(uchar X,uchar Y,uchar DData)
{
Y&=0x01;
X&=0x0f;
if(Y)X|=0x40; //若y為1（顯示第二行），地址碼+0X40
X|=0x80; //指令碼為地址碼+0X80
WriteCommandLCM(X,1);
WriteDataLCM(DData);
}
/*******顯示指定坐標的一串字符子函數*****/
void DisplayListChar(uchar X,uchar Y,uchar code *DData)
{
uchar ListLength=0;
Y&=0x01;
X&=0x0f;
while(X<16)
{
DisplayOneChar(X,Y,DData[ListLength]);
ListLength++;
X++;
}
}
/*****************系統顯示子函數*****************/
void display(void)
{
WriteCommandLCM(0x0c,1); //顯示屏打開，光標不顯示，不閃爍，檢測忙信號
DisplayListChar(0,0,str0);
DisplayListChar(0,1,str2);
DisplayOneChar(8,0,press_ge+0x30);
DisplayOneChar(10,0,press_shifen+0x30);
DisplayOneChar(11,0,press_baifen+0x30);
DisplayOneChar(12,0,press_qianfen+0x30);
delay(1000); //穩定顯示
}
/************
讀ADC0832函數
************/
//采集并返回
uchar Adc0832(unsigned char channel) //AD轉換，返回結果
{
uchar i=0;
uchar j;
uint dat=0;
uchar ndat=0;
if(channel==0)channel=2;
if(channel==1)channel=3;
ADDI=1;
_nop_();
_nop_();
ADCS=0;//拉低CS端
_nop_();
_nop_();
ADCLK=1;//拉高CLK端
_nop_();
_nop_();
ADCLK=0;//拉低CLK端,形成下降沿1
_nop_();
_nop_();
ADCLK=1;//拉高CLK端
ADDI=channel&0x1;
_nop_();
_nop_();
ADCLK=0;//拉低CLK端,形成下降沿2
_nop_();
_nop_();
ADCLK=1;//拉高CLK端
ADDI=(channel>>1)&0x1;
_nop_();
_nop_();
ADCLK=0;//拉低CLK端,形成下降沿3
ADDI=1;//控制命令結束
_nop_();
_nop_();
dat=0;
for(i=0;i<8;i++)
{
dat|=ADDO;//收數據
ADCLK=1;
_nop_();
_nop_();
ADCLK=0;//形成一次時鐘脈沖
_nop_();
_nop_();
dat<<=1;
if(i==7)dat|=ADDO;
}
for(i=0;i<8;i++)
{
j=0;
j=j|ADDO;//收數據
ADCLK=1;
_nop_();
_nop_();
ADCLK=0;//形成一次時鐘脈沖
_nop_();
_nop_();
j=j<<7;
ndat=ndat|j;
if(i<7)ndat>>=1;
}
ADCS=1;//拉低CS端
ADCLK=0;//拉低CLK端
ADDO=1;//拉高數據端,回到初始狀態
dat<<=8;
dat|=ndat;
return(dat); //return ad k
}
void data_pro(void)
{
unsigned int temp;
float press;
if(14<ad_data<243) //當壓力值介于15kpa到115kpa之間時，遵循線性變換
{
int vary=ad_data; //y=(115-15)/(243-13)*X+15kpa
press=((10.0/23.0)*vary)+9.3; //測試時補償值為9.3
temp=(int)(press*10); //放大10倍，便于后面的計算
press_ge=temp/1000; //取壓力值百位
press_shifen=(temp%1000)/100; //取壓力值十位
press_baifen=((temp%1000)%100)/10; //取壓力值個位
press_qianfen=((temp%1000)%100)%10; //取壓力值十分位
}
}
/*****************報警子函數*******************/
void alarm(void)
{
if(ad_data>=243) //如果當前壓力值大于115kpa，
{ Alarm_led_red=0; } //則啟動red led報警
else
{ Alarm_led_red=1; } //關閉red led 報警
if(ad_data<=14) //如果當前壓力值小于16kpa
{ Alarm_led_green=0; } //則啟動green led報警
else
{ Alarm_led_green=1; } //關閉green led 報警
}

復制代碼

ID:51301 · 發表于 2013-6-26 20:28

謝謝分享啊

ID:51343 · 發表于 2013-7-2 17:16

好東東，牛人，51Hei(51黑)論壇有你更精彩.

ID:40961 · 發表于 2013-7-9 14:32

學習學習

ID:52177 · 發表于 2013-7-23 23:20

不錯的，好假貨，大家一起學習下

ID:52456 · 發表于 2013-8-1 22:49

學習下

ID:52267 · 發表于 2013-9-27 16:18

學習下

ID:47175 · 發表于 2013-10-11 09:23

資料不錯

ID:52286 · 發表于 2013-10-13 22:54

資料真不錯.

ID:59269 · 發表于 2014-3-6 00:54

學習一下

ID:36525 · 發表于 2014-3-9 16:22

學習中

ID:23303 · 發表于 2014-5-11 09:02

好東東，牛人，51Hei(51黑)論壇有你更精彩

ID:61140 · 發表于 2014-6-9 19:57

好東東，牛人，51Hei(51黑)論壇有你更精彩

ID:62881 · 發表于 2014-6-12 11:34

1156615097 發表于 2013-7-23 23:20
不錯的，好假貨，大家一起學習下

感覺仿真了下好像沒用哎是不是我的技術問題啊。哎

ID:67292 · 發表于 2014-10-12 22:06

學習了，不錯

ID:74370 · 發表于 2015-3-27 07:44

學了點單片機皮毛，什么都想仿，學習下，灰常感謝！

ID:72050 · 發表于 2015-4-26 15:30

謝謝共享

ID:72050 · 發表于 2015-4-26 15:30

實用的東西

ID:77640 · 發表于 2015-5-12 17:25

學習學習

ID:81649 · 發表于 2015-5-31 13:15

可以下載不

ID:81662 · 發表于 2015-5-31 15:37

這個仿真起來怎么輸入單價總價都是0.0765啊

ID:109422 · 發表于 2016-3-17 22:12

學習了,謝謝樓主分享

ID:108109 · 發表于 2016-3-20 18:10

怎么設置price呢？不怎么行耶

ID:112595 · 發表于 2016-4-6 21:18

學習下

ID:113101 · 發表于 2016-4-9 13:17

謝謝分享

ID:119099 · 發表于 2016-5-7 17:06

謝謝分享

ID:119236 · 發表于 2016-5-8 11:24

houhouhou

ID:121949 · 發表于 2016-5-19 14:04

學習下

ID:121949 · 發表于 2016-5-19 14:10

謝謝分享

ID:123026 · 發表于 2016-5-25 02:08

謝謝分享

ID:127961 · 發表于 2016-6-24 12:19

學習了,謝謝樓主分享

ID:128034 · 發表于 2016-6-24 22:19

好帖子�。。。。。。。。。�！樓主好人！

ID:128451 · 發表于 2016-6-28 17:00

仿真怎么運行，程序有沒有詳細的解釋。求大神幫忙很急啊

ID:117047 · 發表于 2016-6-29 08:18

不錯，學習啦��！

ID:129120 · 發表于 2016-7-4 20:27

GOOOD,GOOOD

ID:135206 · 發表于 2016-7-27 11:38

支持大神

ID:135166 · 發表于 2016-7-28 07:54

感謝樓主分享

ID:150328 · 發表于 2016-11-26 14:23

仿真軟件用的啥為什么我找不到仿真文件啊

ID:149790 · 發表于 2016-11-26 23:34

感謝分享謝謝樓主

ID:155605 · 發表于 2016-12-19 02:50

仿真是怎么用的啊。。

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

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

用51單片機制作電子秤的資料(帶仿真文件)

相關帖子