DS1307+兩個74HC573顯示8位數碼管沒鬼影采用定時器掃描，單片機時鐘程序

ID:264021 · 發表于 2017-12-19 23:17

下載下來直接用

單片機源程序如下:

#ifndef __DS1307_H__
#define __DS1307_H__
#include <STC89C5xRC.h>
#include "intrins.h"
#define uchar unsigned char
#define uint unsigned int
sbit sda=P2^0;//;模擬I2C 數據傳送位
sbit scl=P2^1;//;模擬I2C 時鐘控制狀態標志
uchar Hours,Minutes,Seconds,Year,Month,Date,Weeks;
uchar Decimal_to_BCD(uchar temp)//十進制轉換成BCD碼
{
uchar a,b,c;
a=temp;
b=0;
while(a>=10)
{
a=a-10;
b=b+16;
c=a+b;
temp=c;
}
return temp;
}
uchar BCD_to_Decimal(uchar temp)//BCD碼轉換成十進制
{
uchar a,b,c;
a=temp;
b=0;
while(a>=16)
{
a=a-16;
b=b+10;
c=a+b;
temp=c;
}
return temp;
}
void delay_5us()//5us延時
{
_nop_();
_nop_();
_nop_();
}
void star_1307()//開始
{
sda=1;
delay_5us();//5us延時
scl=1;
delay_5us();//5us延時
sda=0;
delay_5us();//5us延時
}
void stop_1307()//停止
{
sda=0;
delay_5us();//5us延時
scl=1;
delay_5us();//5us延時
sda=1;
delay_5us();//5us延時
}
void ack_1307()//應答
{
uchar z=0;
while((sda==1)&&(z<50))z++;//條件判斷， sda=1，則沒有應答。如果沒有應答則延時：z<50，z++;后返回
scl=0;
delay_5us();//5us延時
}
void write_1307(uchar slave_write_address,uchar byte_address,uchar data_data)//寫一個數據
{
uchar temp,temp1,i,ii;
star_1307(); //開始
for(ii=0;ii<3;ii++)//根據 24CXX文檔資料，和時序圖，按順序送：器件寫地址，字節地址，數據
{
if(ii==0)
{
temp=slave_write_address;//送器件寫地址
temp1=slave_write_address;
}
else if(ii==1)
{
temp=byte_address;//送字節地址
temp1=byte_address;
}
else if(ii==2)
{
temp=data_data;//送數據
temp1=data_data;
}
for(i=0;i<8;i++)
{
scl=0;
delay_5us();//5us延時
temp=temp1;
temp=temp&0x80;//相與后，把不相關的位清零
if(temp==0x80)//根據前面相與后，判斷 temp是否等于0x80，是則該位為 1
sda=1;
else
sda=0;
delay_5us();//5us延時
scl=1;
delay_5us();//5us延時
scl=0;
delay_5us();//5us延時
temp1=temp1<<1;//向左移出1位
}
sda=1;
delay_5us();//5us延時
scl=1;
delay_5us();//5us延時
ack_1307();
}
stop_1307();//停止
}
uchar read_1307(uchar slave_write_address,uchar byte_address,uchar slave_read_address)//讀一個數據
{
uchar temp,temp1,i,ii,x,data_data;
star_1307();//開始
for(ii=0;ii<3;ii++)//根據 24CXX文檔資料，和時序圖，按順序送：器件寫地址，字節地址，器件讀地址
{
if(ii==0)
{
temp=slave_write_address;//送器件寫地址
temp1=slave_write_address;
}
else if(ii==1)
{
temp=byte_address;//送字節地址
temp1=byte_address;
}
else if(ii==2)
{
star_1307();//開始
temp=slave_read_address;//送器件讀地址
temp1=slave_read_address;
}
for(i=0;i<8;i++)//開始讀數據
{
scl=0;
delay_5us();//5us延時
temp=temp1;
temp=temp&0x80;// 相與后，把不相關的位清零
if(temp==0x80)//根據前面相與后，判斷 temp是否等于0x80，是則該位為 1
sda=1;
else
sda=0;
delay_5us();//5us延時
scl=1;
delay_5us();//5us延時
scl=0;
delay_5us();//5us延時
temp1=temp1<<1;//向左移出1位
}
sda=1;
delay_5us();//5us延時
scl=1;
delay_5us();//5us延時
ack_1307();//應答
}
for(x=0;x<8;x++)
{
data_data=data_data<<1;//向左移入1位
sda=1;
delay_5us();//5us延時
scl=0;
delay_5us();//5us延時
scl=1;
delay_5us();//5us延時
if(sda==1)//判斷數據線是否是高電平
data_data|=0x01;//把讀到的數據或 0X01
}
ack_1307();//應答
stop_1307();//停止
return data_data;//返回讀到的數據
}
void init_1307()//初始化
{
Hours=23;
Minutes=14;
Seconds=11;
Year=17;
Month=11;
Date=24;
Weeks=5;
Seconds=Decimal_to_BCD(Seconds);//十進制轉換成BCD碼
Minutes=Decimal_to_BCD(Minutes);//十進制轉換成BCD碼
Hours=Decimal_to_BCD(Hours);//十進制轉換成BCD碼
Date=Decimal_to_BCD(Date);//十進制轉換成BCD碼
Year=Decimal_to_BCD(Year);//十進制轉換成BCD碼
Month=Decimal_to_BCD(Month);//十進制轉換成BCD碼
write_1307(0xd0,0x00,Seconds);//寫入秒
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………