- 8
- 0
- 约1.64万字
- 约 11页
- 2017-08-23 发布于河南
- 举报
基于51单片机1602液晶显示温度与时间C程序
//液晶显示温度
#include AT89X52.H#define Ddata P0sbit RS=P2^7; //命令数据控制端sbit RW=P2^6; //读写选择端 sbit LCDE=P2^5; //液晶使能端sbit DQ=P2^0; //ds18b20与单片机连接口
#define uchar unsigned char#define uint? unsigned int
unsigned char hour=0,min=0,sec=0; //定义初值unsigned int count=0;unsigned char line1[16]={ temp:????????? }; //16个字符unsigned char line2[16]={ time:? 00:00:00}; //16个字符unsigned char tab[]={0,1,2,3,4,5,6,7,8,9};? //数组
uchar data disdata[5];uint tvalue; //温度值uchar tflag; //温度正负标志
void time();
/*************************lcd1602程序**************************/void delay1ms(unsigned int ms)//延时1毫秒(不够精确的){
unsigned int i,j;?? for(i=0;ims;i++)??? for(j=0;j110;j++);}
void delay5ms()//延时5毫秒(不够精确的){
unsigned? int i;for (i=0;i1000;i++);}
void delay50us(){
register int i; for (i=0;i20;i++);}void delay(){unsigned char m,n;for(m=255;m0;m--)for(n=255;n0;n--);
}
void wr_com(unsigned char comm) //********写控制字符程序 E=1 RS=0
RW=0 **********//
{??????????????????????? ? LCDE=0; //使能端? RS=0;???????????? //********RS寄存器选择输入端,当RS=0;当进行写模块操作,指向指令寄存器。? RW=0;?????????? //********当RS=1,无论是读操作还是写操作,都是指向数据寄存器。? LCDE=1;? Ddata=comm;? RS=0;? RW=0;? LCDE=0;}void wr_data(unsigned char dat)//*****当前位置写字符子程序:E=1 RS=1 RW=0{? LCDE=0;? RS=0;???????????? //********RS寄存器选择输入端,当RS=0;当进行写模块操作,指向指令寄存器。? RW=0;???????????? //********当RS=1,无论是读操作还是写操作,都是指向数据寄存器。? RS=1;? RW=0;? LCDE=1;? Ddata=dat; //将dat赋给P0口???LCDE=0;? RS=0;? RW=0;}
unsigned char busycheck()//*****忙状态检查*******//{? unsigned char i;? LCDE=0;? RS=0;? RW=0;? RS=0;? RW=1;? LCDE=1;? i=Ddata;??? LCDE=0;? return(i);}?void init()//**********初始化程序,必须按照产品的资料介绍的过程进行********//{?wr_com(0x38);?? //*****显示模式设置必须三次,不用检测忙信号?delay5ms();?wr_com(0x38);?delay5ms();?wr_com(0x38);?delay5ms();?wr_com(0x01);?? ///***清屏****?delay5ms();?busycheck();?wr_com(0x08);?delay5ms();?busycheck();?delay5ms();?wr_com(0x06);?? ///*
您可能关注的文档
- 化学:1.2《化学计量在实验中应用》教案(新人教版必修1)总.doc
- 化学计算基本方法与技巧.doc
- 化学实验教学中存在问题与对策Microsoft Word 文档.doc
- 化学计量学在生命科学研究中应用_倪永年.pdf
- 化学:1.2《化学计量在实验中应用》(第3课时)(新人教版必修1).ppt
- 勾勒姆_一种对科学_技术与医学温与看法_江晓原.pdf
- Maltab入门.pdf
- 关于M类机器非流水复杂作业排序问题一种启发式算法.pdf
- 动力革命对汽车零部件制造业负面影响_基于栅格数据分析_邹滨.pdf
- 在VB+6.0中调用MATLAB程序.pdf
- 广东省广州省实验中学教育集团2025-2026学年八年级上学期期中考试物理试题(解析版).docx
- 广东省广州大学附属中学2025-2026学年八年级上学期奥班期中物理试题(解析版).docx
- 广东省广州市第八十六中学2025-2026学年八年级上学期期中物理试题(含答案).docx
- 广东省广州市第八十九中学2025-2026学年八年级上学期期中考试物理试题(解析版).docx
- 广东省广州市第二中学2025-2026学年八年级上学期期中考试物理试题(含答案).docx
- 广东省广州市第八十六中学2025-2026学年八年级上学期期中物理试题(解析版).docx
- 广东省广州市第八十九中学2025-2026学年八年级上学期期中考试物理试题(含答案).docx
- 广东省广州市第二中学2025-2026学年八年级上学期期中考试物理试题(解析版).docx
- 2026《中国人寿上海分公司营销员培训体系优化研究》18000字.docx
- 《生物探究性实验教学》中小学教师资格模拟试题.docx
原创力文档

文档评论(0)