/*====================================
GN1302時鐘驅動程序案例參考
====================================*/
//調用1602顯示驅動，在此文件內已包含51頭文件和定義數據類型
#include "LCD1602.h"
/*====================================
IO接口定義
====================================*/
sbit TSCLK = P1^0; //時鐘
sbit TIO = P1^1; ? //數據
sbit TRST = P1^2; ?//使能

#define MAIN_Fosc ?11059200UL ?//宏定義主時鐘HZ
#define GN1302_W_ADDR 0x80 ? ? //寫時鐘日歷寄存器起始地址
#define GN1302_R_ADDR 0x81 ? ? //讀時鐘日歷寄存器起始地址

//時鐘日歷暫存數組，秒、分、時、日、月、周、年 初值為= 21年9月1日 周3 00:00:00
//用作上電初始化配置時間使用
uchar TimeData[7]={0, 0, 0, 1, 9, 3, 21};

/*=================================================
*函數名稱：Delay_Ms
*函數功能：12T 51單片機自適應主時鐘毫秒級延時函數
*說明：需定義MAIN_Fosc（晶振主頻單位HZ）
*輸入：ms：要延時的毫秒
=================================================*/
void Delay_Ms(INT16U ms)
{
?INT16U i;
?do
?{
?i = MAIN_Fosc / 96000;?
?while(--i); ? ? //96T per loop
?}
?while(--ms);
}
/*=================================================
*函數名稱：GN1302_W_Byte
*函數功能：GN1302寫一字節數據
*輸入：dat：要寫入的數據
=================================================*/
void GN1302_W_Byte(uchar dat)
{
uchar i;
for(i = 0; i < 8; i++) //每次寫1bit，寫8次
{
?TSCLK = 0; ? ?//拉低時鐘總線
?TIO = dat & 0x01; ?//從一字節最低位開始寫
?TSCLK = 1; ? ?//拉高時鐘總線，GN1302把數據讀走
?dat >>= 1; ? ?//數據右移一位?
}?
}
/*=================================================
*函數名稱：GN1302_R_Byte
*函數功能：GN1302讀一字節
*輸出：dat：讀取的數據
=================================================*/
uchar GN1302_R_Byte()
{
uchar i, dat;
for(i = 0; i < 8; i++) ?//每次寫1bit，寫8次
{
?TSCLK = 0; ? ? //拉低時鐘總線，GN1302把數據放到數據總線上
?dat >>= 1; ? ? ?//數據右移一位，數據從最低位開始讀?
?if(TIO) dat |= 0x80;//讀取數據
?TSCLK = 1; ? ? //拉高時鐘總線
}
return dat; ? ? ?//返回讀取的數據
}
/*=================================================
*函數名稱：GN1302_W_DAT
*函數功能：寫GN1302數據一次寫2個字節
*說明：先寫命令后寫數據
*調用：GN1302_W_Byte()
*輸入：cmd：需要寫的命令 ，dat：需要些的數據
=================================================*/
void GN1302_W_DAT(uchar cmd, uchar dat)
{
TRST = 0; ? //拉低使能端
TSCLK = 0; ? ? ? ? ?//拉低數據總線
TRST = 1; ? //拉高使能端，開始寫數據
GN1302_W_Byte(cmd); ?//寫命令
GN1302_W_Byte(dat); ?//寫數據
}
/*=================================================
*函數名稱：GN1302_R_DAT
*函數功能：讀GN1302數據
*說明：先寫入命令字節后讀出對應數據
*調用： GN1302_W_Byte();GN1302_R_Byte();
*輸入： cmd：需要寫的命令
*輸出： dat：讀出的數據
=================================================*/
uchar GN1302_R_DAT(uchar cmd)
{
uchar dat;
TRST = 0; ? //拉低使能端
TSCLK = 0; ? //拉低數據總線
TRST = 1; ? //拉高使能端，開始寫數據
GN1302_W_Byte(cmd); ?//寫命令
dat = GN1302_R_Byte(); ?//讀出數據
return dat; ? //返回讀出數據
}

/*=================================================
*函數名稱：GN1302_Clear_WP
*函數功能：清除GN1302寫保護
*說明：先寫入命令0x8e（寫控制寄存器）接著向該寄存器寫0x00
*調用：GN1302_W_DAT()
=================================================*/
void GN1302_Clear_WP()
{
GN1302_W_DAT(0x8e,0x00); ?//把控制寄存器WP位置0
}
/*=================================================
*函數名稱：GN1302_Set_WP
*函數功能：設置GN1302寫保護
*說明：先寫入命令0x8e（寫控制寄存器）接著向該寄存器寫0x80
*調用：GN1302_W_DAT()
=================================================*/
void GN1302_Set_WP()
{?
GN1302_W_DAT(0x8e,0x80); //把控制寄存器WP位置1
TRST = 0; ? //拉低使能端
TSCLK = 0; ? //拉低數據總線
}?
/*=================================================
*函數名稱：Set_GN1302_Time
*函數功能：設置GN1302時鐘日歷數據
*說明：把時鐘日歷暫存數組TimeData數據轉換為BCD碼并寫入到GN1302時鐘日歷寄存器中
*調用：GN1302_Clear_WP();GN1302_W_DAT();GN1302_Set_WP();
*輸入：addr:需要寫入寄存器的地址 ，TimeData數組：時鐘日歷初始值
=================================================*/
void Set_GN1302_Time(uchar addr)
{
uchar i, j;
GN1302_Clear_WP(); ? ? ?//清除寫保護
for(i = 0; i < 7; i++) ? ? ?//寫入7個字節的時鐘初始值
{
?j = TimeData[i]/10; ? ? ? ? ? ? ?//BCD碼轉換
?TimeData[i] %= 10; ? ? ? ? ? ? ? //BCD碼轉換
?TimeData[i] += j*16; ? ? ? ? ? ? //BCD碼轉換
?GN1302_W_DAT(addr, TimeData[i]); //先寫GN1302時鐘日歷起始地址，再寫數據
?addr += 2; ? ? ? ? ? ? ? ? ? //時鐘日歷寄存器地址+2轉向下一個寄存器
}
GN1302_Set_WP(); ? ? ? ? ? ? //開起寫保護 ?
}
/*=================================================
*函數名稱：Read_GN1302_Time
*函數功能：讀取GN1302時鐘數據
*說明： 讀取GN1302時鐘數據 返回數據存入時鐘日歷暫存
?數組TimeData（數據格式BCD碼）
*調用：GN1302_Clear_WP();GN1302_R_DAT();GN1302_Set_WP();
*輸入： addr：需要讀取時鐘日歷寄存器的起始地址
=================================================*/
void Read_GN1302_Time(uchar addr)
{
uchar i;
GN1302_Clear_WP(); ? ? //清楚些保護
for(i = 0; i < 7; i++) //從GN1302讀取7個字節的時鐘日歷數據
{
?TimeData[i] = GN1302_R_DAT(addr);//先寫入要讀取數據的寄存器起始地址，再讀出數據存入TimeData數組
?addr += 2; ? ? ? ? ? ? ? ? ? //時鐘日歷寄存器地址+2轉向下一個寄存器
}
GN1302_Set_WP(); ? ? ? ?//開起寫保護
}?
/*=================================================
*函數名稱：main
*函數功能：主函數 1602液晶顯示GN1302數據
? ? Date:年-月-日-星期
? ? Time:時：分：秒
=================================================*/
void main()
{
InitLcd1602(); ? ? ? ? ? ? ? //1602初始化
Set_GN1302_Time(GN1302_W_ADDR); //先寫入時鐘日歷寄存器起始地址再設置時鐘日歷初值
?
LcdShowStr(0,0,"Date:"); ?//1602顯示字符串
LcdShowStr(0,1,"Time:"); ?//1602顯示字符串
while(1)
{
?Read_GN1302_Time(GN1302_R_ADDR); //先寫入時鐘日歷寄存器起始地址再讀出時鐘日歷寫入到TimeData數組中
?DisplayOneStr (5,0,TimeData[6]); //年
?DisplayOneChar (7,0,'-'); ? //-
?DisplayOneStr (8,0,TimeData[4]); //月
?DisplayOneChar (10,0,'-'); ? //-
?DisplayOneStr (11,0,TimeData[3]);//日
?DisplayOneChar (13,0,'-'); ? //-
?DisplayOneStr (14,0,TimeData[5]);//星期

DisplayOneStr (6,1,TimeData[2]); //時
?DisplayOneChar (8,1,':'); ? //：
?DisplayOneStr (9,1,TimeData[1]); //分
?DisplayOneChar (11,1,':'); ? //：
?DisplayOneStr (12,1,TimeData[0]);//秒
?Delay_Ms(1000); ? ? ?//延時1秒
} ?
}

審核編輯?黃昊宇
?