唯倚社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 672|回复: 6

[资源分享] 51单片机纯净无任何添加的DS1302液晶显示程序+仿真

[复制链接]

19

主题

128

帖子

1065

积分

版主

Rank: 7Rank: 7Rank: 7

积分
1065

最佳新人

发表于 2017-9-24 20:01:14 | 显示全部楼层 |阅读模式

轻松玩转社区

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
51单片机纯净无任何添加的DS1302液晶显示程序
程序源码
[C] 纯文本查看 复制代码
/***************   writer:shopping.w   ******************/
#include <reg52.h>
#include <intrins.h>
#include <string.h>
#define uint unsigned int
#define uchar unsigned char

sbit IO = P1^0;
sbit SCLK = P1^1;
sbit RST = P1^2;
sbit RS = P2^0;
sbit RW = P2^1;
sbit EN = P2^2;

uchar *WEEK[]=
{
 	"SUN","***","MON","TUS","WEN","THU","FRI","SAT"
};
uchar LCD_DSY_BUFFER1[]={"DATE 00-00-00    "};
uchar LCD_DSY_BUFFER2[]={"TIME 00:00:00    "};
uchar DateTime[7];

void DelayMS(uint ms)
{
 	uchar i;
	while(ms--)
	{
	 	for(i=0;i<120;i++);
	}
}

void Write_A_Byte_TO_DS1302(uchar x)
{
 	uchar i;
	for(i=0;i<8;i++)
	{
	 	IO=x&0x01;SCLK=1;SCLK=0;x>>=1;
	}
}

uchar Get_A_Byte_FROM_DS1302()
{
 	uchar i,b=0x00;
	for(i=0;i<8;i++)
	{
	 	b |= _crol_((uchar)IO,i);
		SCLK=1;SCLK=0;
	}
	return b/16*10+b%16;
}

uchar Read_Data(uchar addr)
{
 	uchar dat;
	RST = 0;SCLK=0;RST=1;
   	Write_A_Byte_TO_DS1302(addr);
	dat = Get_A_Byte_FROM_DS1302();
   	SCLK=1;RST=0;
	return dat;
}

void GetTime()
{
 	uchar i,addr = 0x81;
	for(i=0;i<7;i++)
	{
	 	DateTime[i]=Read_Data(addr);addr+=2;
	}
}

uchar Read_LCD_State()
{
 	uchar state;
	RS=0;RW=1;EN=1;DelayMS(1);
	state=P0;
	EN = 0;DelayMS(1);
	return state;
}


void LCD_Busy_Wait()
{
 	while((Read_LCD_State()&0x80)==0x80);
	DelayMS(5);
}

void Write_LCD_Data(uchar dat)
{
 	LCD_Busy_Wait();
	RS=1;RW=0;EN=0;P0=dat;EN=1;DelayMS(1);EN=0;	
}

void Write_LCD_Command(uchar cmd)
{
 	LCD_Busy_Wait();
	RS=0;RW=0;EN=0;P0=cmd;EN=1;DelayMS(1);EN=0;	
}

void Init_LCD()
{
 	Write_LCD_Command(0x38);
	DelayMS(1);	
	Write_LCD_Command(0x01);
	DelayMS(1);	
	Write_LCD_Command(0x06);
	DelayMS(1);	
	Write_LCD_Command(0x0c);
	DelayMS(1);	
}

void Set_LCD_POS(uchar p)
{
 	Write_LCD_Command(p|0x80);	
}

void Display_LCD_String(uchar p,uchar *s)
{
 	uchar i;
	Set_LCD_POS(p);
	for(i=0;i<16;i++)
	{
		Write_LCD_Data(s[i]);
		DelayMS(1); 	
	}
}

void Format_DateTime(uchar d,uchar *a)
{
 	a[0]=d/10+'0';
	a[1]=d%10+'0';
}

void main()
{
 	Init_LCD();
	while(1)
	{
	 	GetTime();
		Format_DateTime(DateTime[6],LCD_DSY_BUFFER1+5);
		Format_DateTime(DateTime[4],LCD_DSY_BUFFER1+8);
		Format_DateTime(DateTime[3],LCD_DSY_BUFFER1+11);

		strcpy(LCD_DSY_BUFFER1+13,WEEK[DateTime[5]]);

		Format_DateTime(DateTime[2],LCD_DSY_BUFFER1+5);
		Format_DateTime(DateTime[1],LCD_DSY_BUFFER1+8);
		Format_DateTime(DateTime[0],LCD_DSY_BUFFER1+11);

		Display_LCD_String(0x00,LCD_DSY_BUFFER1);
		Display_LCD_String(0x40,LCD_DSY_BUFFER2);
	}
}



仿真图


1.png



1602液晶显示的DS1302实时时钟.zip

48.36 KB, 下载次数: 0, 下载积分: E币 -1

售价: 5 E币  [记录]  [购买]

31

主题

151

帖子

812

积分

版主

Rank: 7Rank: 7Rank: 7

积分
812
发表于 2017-9-25 18:35:16 | 显示全部楼层
有钱就是大爷,欠钱不还的更是
回复

使用道具 举报

33

主题

160

帖子

434

积分

版主

Rank: 7Rank: 7Rank: 7

积分
434
发表于 2017-9-25 19:35:05 | 显示全部楼层
水帖美如花,养护靠大家!!
回复

使用道具 举报

33

主题

160

帖子

434

积分

版主

Rank: 7Rank: 7Rank: 7

积分
434
发表于 2017-9-25 20:00:37 | 显示全部楼层
我和我的小伙伴都惊呆了
回复

使用道具 举报

31

主题

151

帖子

812

积分

版主

Rank: 7Rank: 7Rank: 7

积分
812
发表于 2017-9-25 21:52:29 | 显示全部楼层
求舅舅党爆料
回复

使用道具 举报

0

主题

108

帖子

249

积分

版主

Rank: 7Rank: 7Rank: 7

积分
249
发表于 2017-9-25 22:31:42 | 显示全部楼层
我的一楼总是献给度娘
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|weiecn ( 湘ICP备14002058号 )

GMT+8, 2018-12-17 01:35 , Processed in 0.064308 second(s), 15 queries , Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表