//實例98：基于DS1302的日歷時鐘
#include?????//包含單片機寄存器的頭文件
#include???//包含_nop_（）函數定義的頭文件
#define?uchar?unsigned?char
#define?uint??unsigned?int
#define?MotorData?P3????????????????????
uchar?phasecw[4]?={0x880x440x220x11};
code?uchar?table_week[12]={033614625035};
unsigned?char?code?digit[10]={“0123456789“};???//定義字符數組顯示數字
sbit?DATA=P2^7;???//位定義1302芯片的接口，數據輸出端定義在P1.1引腳
sbit?RST=P2^5;????//位定義1302芯片的接口，復位端口定義在P1.1引腳
sbit?SCLK=P2^6;???//位定義1302芯片的接口，時鐘輸出端口定義在P1.1引腳
sbit?START=P2^5;
sbit?EOC=P2^4;
sbit?CLK=P2^3;
sbit?d1=P3^0;
sbit?d2=P3^1;
sbit?d3=P3^2;

unsigned?char?advalvalqianbaishigeweek;
/*****************************************************
函數功能：延時若干微秒
入口參數：n
***************************************************/?
void?delaynus（unsigned?char?n）
{
?unsigned?char?i;
?for（i=0;i??????;
}
/*****************************************************
函數功能：向1302寫一個字節數據
入口參數：x
***************************************************/?
void?Write1302（unsigned?char?dat）
{
??unsigned?char?i;?
??SCLK=0;????????????//拉低SCLK，為脈沖上升沿寫入數據做好準備
??delaynus（2）;???????//稍微等待，使硬件做好準備
??for（i=0;i<8;i++）??????//連續寫8個二進制位數據
????{
	????DATA=dat&0x01;????//取出dat的第0位數據寫入1302
		delaynus（2）;???????//稍微等待，使硬件做好準備
		?SCLK=1;???????????//上升沿寫入數據
		?delaynus（2）;??????//稍微等待，使硬件做好準備
		?SCLK=0;???????????//重新拉低SCLK，形成脈沖
		?dat>>=1;??????????//將dat的各數據位右移1位，準備寫入下一個數據位
	??}
	
?}
/*****************************************************
函數功能：根據命令字，向1302寫一個字節數據
入口參數：Cmd，儲存命令字；dat，儲存待寫的數據
***************************************************/?
void?WriteSet1302（unsigned?char?Cmdunsigned?char?dat）
?{
???RST=0;???????????//禁止數據傳遞
???SCLK=0;??????????//確保寫數居前SCLK被拉低
	RST=1;???????????//啟動數據傳輸
	delaynus（2）;?????//稍微等待，使硬件做好準備
	Write1302（Cmd）;??//寫入命令字
	Write1302（dat）;??//寫數據
	SCLK=1;??????????//將時鐘電平置于已知狀態
	RST=0;???????????//禁止數據傳遞
?}
/*****************************************************
函數功能：從1302讀一個字節數據
入口參數：x
***************************************************/?
?unsigned?char?Read1302（void）
?{
???unsigned?char?idat;
	delaynus（2）;???????//稍微等待，使硬件做好準備
	for（i=0;i<8;i++）???//連續讀8個二進制位數據
	?{
	???dat>>=1;???????//將dat的各數據位右移1位，因為先讀出的是字節的最低位
		if（DATA==1）????//如果讀出的數據是1
		?dat|=0x80;????//將1取出，寫在dat的最高位
		?SCLK=1;???????//將SCLK置于高電平，為下降沿讀出
		?delaynus（2）;??//稍微等待
		?SCLK=0;???????//拉低SCLK，形成脈沖下降沿
		?delaynus（2）;??//稍微等待
	??}	?
??return?dat;????????//將讀出的數據返回
}??
/*****************************************************
函數功能：根據命令字，從1302讀取一個字節數據
入口參數：Cmd
***************************************************/?
unsigned?char??ReadSet1302（unsigned?char?Cmd）
?{
??unsigned?char?dat;
??RST=0;?????????????????//拉低RST
??SCLK=0;????????????????//確保寫數居前SCLK被拉低
??RST=1;?????????????????//啟動數據傳輸
??Write1302（Cmd）;???????//寫入命令字
??dat=Read1302（）;???????//讀出數據
??SCLK=1;??????????????//將時鐘電平置于已知狀態
??RST=0;???????????????//禁止數據傳遞
??return?dat;??????????//將讀出的數據返回
}
/***********************

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

????.......?????71293??2019-05-27?16:53??太陽能追蹤\1111.uvgui.zs

????.......?????70933??2019-05-26?21:24??太陽能追蹤\1111.uvgui_zs.bak

????.......??????5358??2019-05-27?16:53??太陽能追蹤\1111.uvopt

????.......?????13960??2019-05-27?16:53??太陽能追蹤\1111.uvproj

?????文件??????????0??2019-05-25?11:31??太陽能追蹤\11111

????.......??????5542??2019-05-26?21:24??太陽能追蹤\1111_uvopt.bak

????.......?????13960??2019-05-25?17:12??太陽能追蹤\1111_uvproj.bak

?????文件??????16953??2019-05-27?16:52??太陽能追蹤\2222.c

?????文件??????25451??2019-05-26?21:19??太陽能追蹤\Last?Loaded?新工程.pdsbak

?????文件??????33109??2019-05-27?16:52??太陽能追蹤\Listings\1111.m51

?????文件??????26123??2019-05-27?16:52??太陽能追蹤\Listings\2222.lst

?????文件??????14145??2019-05-25?10:52??太陽能追蹤\Listings\STARTUP.lst

?????文件????????692??2019-05-25?11:31??太陽能追蹤\Listings\實例98：基于DS1302的日歷時鐘.lst

?????文件??????24470??2019-05-27?16:52??太陽能追蹤\objects\1111

?????文件???????1044??2019-05-27?16:52??太陽能追蹤\objects\1111.build_log.htm

?????文件???????6336??2019-05-27?16:52??太陽能追蹤\objects\1111.hex

?????文件????????115??2019-05-27?16:52??太陽能追蹤\objects\1111.lnp

?????文件??????26432??2019-05-27?16:52??太陽能追蹤\objects\2222.obj

?????文件????????116??2019-05-27?16:52??太陽能追蹤\objects\2222.__i

?????文件????????819??2019-05-25?10:52??太陽能追蹤\objects\STARTUP.obj

?????文件????????188??2019-05-25?11:31??太陽能追蹤\objects\實例98：基于DS1302的日歷時鐘.__i

?????文件???????6376??2016-03-14?08:58??太陽能追蹤\STARTUP.A51

?????文件???????6695??2012-07-07?16:00??太陽能追蹤\例12-5?基于時鐘日歷芯片的電子鐘\例12-5?基于時鐘日歷芯片的電子鐘\keil-1.LST

?????文件??????91503??2012-07-07?16:21??太陽能追蹤\例12-5?基于時鐘日歷芯片的電子鐘\例12-5?基于時鐘日歷芯片的電子鐘\Last?Loaded?基于日歷時鐘芯片的電子鐘.DBK

?????文件????????966??2009-09-26?18:42??太陽能追蹤\例12-5?基于時鐘日歷芯片的電子鐘\例12-5?基于時鐘日歷芯片的電子鐘\lcd1602.h

?????文件???????6376??2005-03-22?15:22??太陽能追蹤\例12-5?基于時鐘日歷芯片的電子鐘\例12-5?基于時鐘日歷芯片的電子鐘\STARTUP.A51

?????文件??????14048??2012-07-07?16:00??太陽能追蹤\例12-5?基于時鐘日歷芯片的電子鐘\例12-5?基于時鐘日歷芯片的電子鐘\STARTUP.LST

?????文件????????758??2012-07-07?16:00??太陽能追蹤\例12-5?基于時鐘日歷芯片的電子鐘\例12-5?基于時鐘日歷芯片的電子鐘\STARTUP.OBJ

?????文件??????21826??2012-07-07?16:00??太陽能追蹤\例12-5?基于時鐘日歷芯片的電子鐘\例12-5?基于時鐘日歷芯片的電子鐘\基于日歷時鐘芯片的電子鐘

?????文件??????91505??2012-07-08?01:53??太陽能追蹤\例12-5?基于時鐘日歷芯片的電子鐘\例12-5?基于時鐘日歷芯片的電子鐘\基于日歷時鐘芯片的電子鐘.DSN

............此處省略81個文件信息