找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 4279|回復(fù): 5
收起左側(cè)

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

[復(fù)制鏈接]
ID:264021 發(fā)表于 2017-12-19 23:17 | 顯示全部樓層 |閱讀模式
下載下來直接用
0.jpg

單片機源程序如下:
  1. #ifndef __DS1307_H__
  2. #define __DS1307_H__
  3. #include <STC89C5xRC.h>
  4. #include "intrins.h"
  5. #define uchar unsigned char
  6. #define uint unsigned int
  7. sbit sda=P2^0;//;模擬I2C 數(shù)據(jù)傳送位
  8. sbit scl=P2^1;//;模擬I2C 時鐘控制狀態(tài)標志
  9. uchar Hours,Minutes,Seconds,Year,Month,Date,Weeks;

  11. uchar Decimal_to_BCD(uchar temp)//十進制轉(zhuǎn)換成BCD碼
  12. {
  13. uchar a,b,c;
  14.         a=temp;
  15.         b=0;
  16.         while(a>=10)
  17.                 {
  18.                         a=a-10;
  19.                         b=b+16;
  20.                         c=a+b;
  21.                         temp=c;
  22.                 }          
  23.         return temp;
  24. }
  25. uchar BCD_to_Decimal(uchar temp)//BCD碼轉(zhuǎn)換成十進制
  26. {
  27.         uchar a,b,c;
  28.         a=temp;
  29.         b=0;
  30.         while(a>=16)
  31.                 {
  32.                         a=a-16;
  33.                         b=b+10;
  34.                         c=a+b;
  35.                         temp=c;
  36.                 }          
  37.         return temp;
  38. }
  39. void delay_5us()//5us延時
  40. {
  41.         _nop_();
  42.         _nop_();
  43.         _nop_();
  44. }
  45. void star_1307()//開始
  46. {
  47.         sda=1;
  48.         delay_5us();//5us延時
  49.         scl=1;
  50.         delay_5us();//5us延時
  51.         sda=0;
  52.         delay_5us();//5us延時
  53. }
  54. void stop_1307()//停止
  55. {
  56.         sda=0;
  57.         delay_5us();//5us延時
  58.         scl=1;
  59.         delay_5us();//5us延時
  60.         sda=1;
  61.         delay_5us();//5us延時
  62. }
  63. void ack_1307()//應(yīng)答
  64. {
  65. uchar z=0;
  66.         while((sda==1)&&(z<50))z++;//條件判斷， sda=1，則沒有應(yīng)答。如果沒有應(yīng)答則延時：z<50，z++;后返回
  67.         scl=0;
  68.         delay_5us();//5us延時
  69. }
  70. void write_1307(uchar slave_write_address,uchar byte_address,uchar data_data)//寫一個數(shù)據(jù)
  71. {
  72. uchar temp,temp1,i,ii;
  73.         star_1307();                                //開始
  74.         for(ii=0;ii<3;ii++)//根據(jù) 24CXX文檔資料，和時序圖，按順序送：器件寫地址，字節(jié)地址，數(shù)據(jù)
  75.         {
  76.                 if(ii==0)
  77.                 {
  78.                         temp=slave_write_address;//送 器件寫地址
  79.                         temp1=slave_write_address;
  80.                 }
  81.                 else if(ii==1)
  82.                 {
  83.                         temp=byte_address;//送 字節(jié)地址
  84.                         temp1=byte_address;
  85.                 }
  86.                 else if(ii==2)
  87.                 {
  88.                         temp=data_data;//送 數(shù)據(jù)
  89.                         temp1=data_data;
  90.                 }
  91.                 for(i=0;i<8;i++)
  92.                 {
  93.                         scl=0;
  94.                         delay_5us();//5us延時
  95.                         temp=temp1;
  96.                         temp=temp&0x80;//相 與 后，把不相關(guān)的位清零
  97.                         if(temp==0x80)//根據(jù)前面 相 與 后，判斷 temp是否等于0x80，是則該位為 1                        
  98.                                 sda=1;
  99.                         else
  100.                                 sda=0;
  101.                        
  102.                         delay_5us();//5us延時
  103.                         scl=1;
  104.                         delay_5us();//5us延時
  105.                         scl=0;
  106.                         delay_5us();//5us延時
  107.                         temp1=temp1<<1;//向左移出1位
  108.                        
  109.                 }
  110.                 sda=1;
  111.                 delay_5us();//5us延時
  112.                 scl=1;
  113.                 delay_5us();//5us延時
  114.                 ack_1307();
  115.         }
  116.         stop_1307();//停止
  117. }
  118. uchar read_1307(uchar slave_write_address,uchar byte_address,uchar slave_read_address)//讀一個數(shù)據(jù)
  119. {
  120. uchar temp,temp1,i,ii,x,data_data;
  121.         star_1307();//開始
  122.         for(ii=0;ii<3;ii++)//根據(jù) 24CXX文檔資料，和時序圖，按順序送：器件寫地址，字節(jié)地址，器件讀地址
  123.         {
  124.                 if(ii==0)
  125.                         {
  126.                         temp=slave_write_address;//送 器件寫地址
  127.                         temp1=slave_write_address;
  128.                         }
  129.                 else if(ii==1)
  130.                         {
  131.                         temp=byte_address;//送 字節(jié)地址
  132.                         temp1=byte_address;
  133.                         }
  134.                 else if(ii==2)
  135.                         {
  136.                         star_1307();//開始
  137.                         temp=slave_read_address;//送 器件讀地址
  138.                         temp1=slave_read_address;
  139.                         }
  140.                 for(i=0;i<8;i++)//開始讀數(shù)據(jù)
  141.                         {
  142.                                 scl=0;
  143.                                 delay_5us();//5us延時
  144.                                 temp=temp1;
  145.                                 temp=temp&0x80;// 相 與 后，把不相關(guān)的位清零
  146.                                 if(temp==0x80)//根據(jù)前面 相 與 后，判斷 temp是否等于0x80，是則該位為 1
  147.                                
  148.                                 sda=1;
  149.                                 else
  150.                                 sda=0;
  151.                                
  152.                                 delay_5us();//5us延時
  153.                                 scl=1;
  154.                                 delay_5us();//5us延時
  155.                                 scl=0;
  156.                                 delay_5us();//5us延時
  157.                                 temp1=temp1<<1;//向左移出1位
  158.                         }
  159.                 sda=1;
  160.                 delay_5us();//5us延時
  161.                 scl=1;
  162.                 delay_5us();//5us延時
  163.                 ack_1307();//應(yīng)答
  164.         }
  165.         for(x=0;x<8;x++)
  166.         {
  167.                 data_data=data_data<<1;//向左移入1位
  168.                 sda=1;
  169.                 delay_5us();//5us延時
  170.                 scl=0;
  171.                 delay_5us();//5us延時
  172.                 scl=1;
  173.                 delay_5us();//5us延時
  174.                 if(sda==1)//判斷 數(shù)據(jù)線是否是高電平
  175.                 data_data|=0x01;//把讀到的數(shù)據(jù) 或 0X01
  176.         }
  177.         ack_1307();//應(yīng)答
  178.         stop_1307();//停止
  179.         return data_data;//返回讀到的數(shù)據(jù)
  180. }
  181. void init_1307()//初始化
  182. {
  183.         Hours=23;
  184.         Minutes=14;
  185.         Seconds=11;
  186.         Year=17;   
  187.         Month=11;
  188.         Date=24;
  189.         Weeks=5;       
  190.         Seconds=Decimal_to_BCD(Seconds);//十進制轉(zhuǎn)換成BCD碼
  191.         Minutes=Decimal_to_BCD(Minutes);//十進制轉(zhuǎn)換成BCD碼
  192.         Hours=Decimal_to_BCD(Hours);//十進制轉(zhuǎn)換成BCD碼
  193.         Date=Decimal_to_BCD(Date);//十進制轉(zhuǎn)換成BCD碼
  194.         Year=Decimal_to_BCD(Year);//十進制轉(zhuǎn)換成BCD碼
  195.         Month=Decimal_to_BCD(Month);//十進制轉(zhuǎn)換成BCD碼

  197.         write_1307(0xd0,0x00,Seconds);//寫入秒
  198. ……………………

  200. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復(fù)制代碼

所有資料51hei提供下載:
DS1307萬年歷程序.rar (30.02 KB, 下載次數(shù): 62)




回復(fù)

使用道具 舉報

ID:1 發(fā)表于 2017-12-20 00:22 | 顯示全部樓層
樓主能提供一下電路圖嗎？
回復(fù)

使用道具 舉報

ID:264021 發(fā)表于 2017-12-26 22:43 | 顯示全部樓層
這么簡單的程序一看就知道啦還要原理圖，你應(yīng)該先去玩流水燈
回復(fù)

使用道具 舉報

ID:210375 發(fā)表于 2018-3-18 11:18 | 顯示全部樓層
挺不錯的，點個贊
回復(fù)

使用道具 舉報

ID:457181 發(fā)表于 2020-5-6 10:22 | 顯示全部樓層
謝謝分享！�。�！
回復(fù)

使用道具 舉報

ID:748788 發(fā)表于 2020-8-17 08:34 | 顯示全部樓層
單片機學(xué)習(xí)習(xí) 發(fā)表于 2017-12-26 22:43
這么簡單的程序一看就知道啦還要原理圖，你應(yīng)該先去玩流水燈

樓主懟版主
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表