温度采集程序.docx_第1页
温度采集程序.docx_第2页
温度采集程序.docx_第3页
温度采集程序.docx_第4页
温度采集程序.docx_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

/*主文件*/*文件名称:基于林洋单片机的温度采集程序,LCD1602显示程序用器:林洋单片机STC89C52LCD1602液晶显示屏DS18B20温度传感器程序说明:由于林洋单片机集成了LCD1602模块,所以直接把LCD1602插进所在槽即可 林洋单片机也集成了DS18B20模块,同样。 若用于其他单片机,只有修改引脚端即可更新时间:2014-06-04 18:49:57邮箱:1271087623*/#include#include ds18b20.h#include LCD1602.hunsigned char code str1=temperature: ;unsigned char code str2= ;/*初始化显示*/void init_play()lcd_init(); wr_com(0x80);display(str1);wr_com(0xc0);display(str2);/*温度值显示*/ void ds1820disp()/温度值显示 uchar flagdat; disdata0=tvalue/1000+0x30;/百位数 disdata1=tvalue%1000/100+0x30;/十位数 disdata2=tvalue%100/10+0x30;/个位数 disdata3=tvalue%10+0x30;/小数位 if(tflag=0) flagdat=0x20;/正温度不显示负号 else flagdat=0x2d;/负温度显示负号:- if(disdata0=0x30) disdata0=0x20;/如果百位为0,不显示 if(disdata1=0x30) disdata1=0x20;/如果百位为0,十位也为0,不显示 wr_com(0xc0); wr_dat(flagdat);/显示符号位 wr_com(0xc1); wr_dat(disdata0);/显示百位 wr_com(0xc2); wr_dat(disdata1);/显示十位 wr_com(0xc3); wr_dat(disdata2);/显示个位 wr_com(0xc4); wr_dat(0x2e);/显示小数点 wr_com(0xc5); wr_dat(disdata3);/显示小数位 /*主程序*/void main() init_play();/初始化显示 while(1)read_temp();/读取温度 ds1820disp();/显示/*ds18b20.h头文件*/*ds18b20.h*/#define uchar unsigned char#define uint unsigned intsbit DQ=P32;/ds18b20与单片机接口uint tvalue;/温度值uchar tflag;/温度正负标志uchar data disdata5;/缓存区/*ds1820程序*/void delay_18B20(unsigned int i)/延时1ms while(i-);void ds1820rst()/*ds1820复位*/ unsigned char x=0;DQ = 1; /DQ复位delay_18B20(4); /延时DQ = 0; /DQ拉低delay_18B20(100); /精确延时大于480usDQ = 1; /拉高delay_18B20(40); uchar ds1820rd()/*读数据*/ unsigned char i=0;unsigned char dat = 0;for (i=8;i0;i-) DQ = 0; /给脉冲信号 dat=1; DQ = 1; /给脉冲信号 if(DQ) dat|=0x80; delay_18B20(10); return(dat);void ds1820wr(uchar wdata)/*写数据*/unsigned char i=0; for (i=8; i0; i-) DQ = 0; DQ = wdata&0x01; delay_18B20(10); DQ = 1; wdata=1; uchar read_temp()/*读取温度值并转换*/uchar a,b;ds1820rst(); ds1820wr(0xcc);/*跳过读序列号*/ds1820wr(0x44);/*启动温度转换*/ds1820rst(); ds1820wr(0xcc);/*跳过读序列号*/ ds1820wr(0xbe);/*读取温度*/ a=ds1820rd();b=ds1820rd();tvalue=b;tvalue=8;tvalue=tvalue|a; if(tvalue0x0fff) tflag=0; else tvalue=tvalue+1;tflag=1; tvalue=tvalue*(0.625);/温度值扩大10倍,精确到1位小数return(tvalue);/*/ /*LCD1602*/*LCD1602.h*/#define uchar unsigned char#define uint unsigned intsbit RS=P10;sbit RW=P11;sbit EN=P12;/*lcd1602程序*/void delay1ms(unsigned int ms)/延时1ms(不够精确)unsigned int i,j; for(i=0;ims;i+) for(j=0;j100;j+);void wr_com(unsigned char com)/写指令/delay1ms(1); RS=0; RW=0; EN=0; P0=com; delay1ms(1); EN=1; delay1ms(1); EN=0;void wr_dat(unsigned char dat)/写数据/ delay1ms(1); RS=1; RW=0; EN=0; P0=dat; delay1ms(1); EN=1; delay1ms(1); EN=0;void lcd_init()/初始化设置/delay1ms(15); wr_com(0x38);delay1ms(5); wr_com(0x08);delay1ms(5); wr_com(0x01);delay1ms(5); wr_com(0x06);delay1ms(5); wr_com(0x0c);delay1ms(5);void display(unsigned char *p)/显示/while(*p!=0)wr_dat(*p);p+;delay1ms(1);/*长延时*/void Delay400Ms(void) unsigned char TempCycA = 5;

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论