PIC16F877A单片机+DS1307实时时钟RTC程序与Proteus仿真图

仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:

1. // LCD module connections
   
2. sbit LCD_RS at RB2_bit;
   
3. sbit LCD_EN at RB3_bit;
   
4. sbit LCD_D4 at RB4_bit;
   
5. sbit LCD_D5 at RB5_bit;
   
6. sbit LCD_D6 at RB6_bit;
   
7. sbit LCD_D7 at RB7_bit;
   
8. 
   
9. sbit LCD_RS_Direction at TRISB2_bit;
   
10. sbit LCD_EN_Direction at TRISB3_bit;
    
11. sbit LCD_D4_Direction at TRISB4_bit;
    
12. sbit LCD_D5_Direction at TRISB5_bit;
    
13. sbit LCD_D6_Direction at TRISB6_bit;
    
14. sbit LCD_D7_Direction at TRISB7_bit;
    
15. // End LCD module connections
    
16. 
    
17. 
    
18. 
    
19. unsigned short read_ds1307(unsigned short address)
    
20. {
    
21.   unsigned short r_data;
    
22.   I2C1_Start();
    
23.   I2C1_Wr(0xD0); //address 0x68 followed by direction bit (0 for write, 1 for read) 0x68 followed by 0 --> 0xD0
    
24.   I2C1_Wr(address);
    
25.   I2C1_Repeated_Start();
    
26.   I2C1_Wr(0xD1); //0x68 followed by 1 --> 0xD1
    
27.   r_data=I2C1_Rd(0);
    
28.   I2C1_Stop();
    
29.   return(r_data);
    
30. }
    
31. 
    
32. 
    
33. void write_ds1307(unsigned short address,unsigned short w_data)
    
34. {
    
35.   I2C1_Start(); // issue I2C start signal
    
36.   //address 0x68 followed by direction bit (0 for write, 1 for read) 0x68 followed by 0 --> 0xD0
    
37.   I2C1_Wr(0xD0); // send byte via I2C (device address + W)
    
38.   I2C1_Wr(address); // send byte (address of DS1307 location)
    
39.   I2C1_Wr(w_data); // send data (data to be written)
    
40.   I2C1_Stop(); // issue I2C stop signal
    
41. }
    
42. 
    
43. 
    
44. unsigned char BCD2UpperCh(unsigned char bcd)
    
45. {
    
46.   return ((bcd >> 4) + '0');
    
47. }
    
48. 
    
49. 
    
50. unsigned char BCD2LowerCh(unsigned char bcd)
    
51. {
    
52.   return ((bcd & 0x0F) + '0');
    
53. }
    
54. 
    
55. 
    
56. int Binary2BCD(int a)
    
57. {
    
58.    int t1, t2;
    
59.    t1 = a%10;
    
60.    t1 = t1 & 0x0F;
    
61.    a = a/10;
    
62.    t2 = a%10;
    
63.    t2 = 0x0F & t2;
    
64.    t2 = t2 << 4;
    
65.    t2 = 0xF0 & t2;
    
66.    t1 = t1 | t2;
    
67.    return t1;
    
68. }
    
69. 
    
70. 
    
71. int BCD2Binary(int a)
    
72. {
    
73.    int r,t;
    
74.    t = a & 0x0F;
    
75.    r = t;
    
76.    a = 0xF0 & a;
    
77.    t = a >> 4;
    
78.    t = 0x0F & t;
    
79.    r = t*10 + r;
    
80.    return r;
    
81. }
    
82. 
    
83. 
    
84. 
    
85. int second;
    
86. int minute;
    
87. int hour;
    
88. int hr;
    
89. int day;
    
90. int dday;
    
91. int month;
    
92. int year;
    
93. int ap;
    
94. 
    
95. unsigned short set_count = 0;
    
96. short set;
    
97. 
    
98. char time[] = "00:00:00 PM";
    
99. char date[] = "00-00-00";
    
100. 
     
101. void main()
     
102. {
     
103.    I2C1_Init(100000); //DS1307 I2C is running at 100KHz
     
104. 
     
105.    CMCON = 0x07;   // To turn off comparators
     
106.    ADCON1 = 0x06;  // To turn off analog to digital converters
     
107. 
     
108.    TRISA = 0x07;
     
109.    PORTA = 0x00;
     
110. 
     
111.    Lcd_Init();                        // Initialize LCD
     
112.    Lcd_Cmd(_LCD_CLEAR);               // Clear display
     
113.    Lcd_Cmd(_LCD_CURSOR_OFF);          // Cursor off
     
114.    Lcd_out(1,1,"Time:");
     
115.    Lcd_out(2,1,"Date:");
     
116.    
     
117.    do
     
118.    {
     
119.      set = 0;
     
120.      if(PORTA.F0 == 0)
     
121.      {
     
122.          Delay_ms(100);
     
123.          if(PORTA.F0 == 0)
     
124.          {
     
125.              set_count++;
     
126.              if(set_count >= 7)
     
127.              {
     
128.                 set_count = 0;
     
129.              }
     
130.          }
     
131.      }
     
132.      if(set_count)
     
133.      {
     
134.         if(PORTA.F1 == 0)
     
135.         {
     
136.           Delay_ms(100);
     
137.           if(PORTA.F1 == 0)
     
138.               set = 1;
     
139.         }
     
140.         
     
141.         if(PORTA.F2 == 0)
     
142.         {
     
143.           Delay_ms(100);
     
144.           if(PORTA.F2 == 0)
     
145.               set = -1;
     
146.         }
     
147.         if(set_count && set)
     
148.         {
     
149.           switch(set_count)
     
150.           {
     
151.             case 1:
     
152.                     hour = BCD2Binary(hour);
     
153.                     hour = hour + set;
     
154.                     hour = Binary2BCD(hour);
     
155.                     if((hour & 0x1F) >= 0x13)
     
156.                     {
     
157.                       hour = hour & 0b11100001;
     
158.                       hour = hour ^ 0x20;
     
159.                     }
     
160.                     else if((hour & 0x1F) <= 0x00)
     
161.                     {
     
162.                       hour = hour | 0b00010010;
     
163.                       hour = hour ^ 0x20;
     
164.                     }
     
165.                     write_ds1307(2, hour); //write hour
     
166.                     break;
     
167.             case 2:
     
168.                      minute = BCD2Binary(minute);
     
169.                      minute = minute + set;
     
170.                      if(minute >= 60)
     
171.                         minute = 0;
     
172.                      if(minute < 0)
     
173.                         minute = 59;
     
174.                      minute = Binary2BCD(minute);
     
175.                      write_ds1307(1, minute); //write min
     
176.                      break;
     
177.             case 3:
     
178.                     if(abs(set))
     
179.                       write_ds1307(0,0x00); //Reset second to 0 sec. and start Oscillator
     
180.                     break;
     
181.             case 4:
     
182.                      day = BCD2Binary(day);
     
183.                      day = day + set;
     
184.                      day = Binary2BCD(day);
     
185.                      if(day >= 0x32)
     
186.                         day = 1;
     
187.                      if(day <= 0)
     
188.                         day = 0x31;
     
189.                      write_ds1307(4, day); // write date 17
     
190.                      break;
     
191.             case 5:
     
192.                     month = BCD2Binary(month);
     
193.                     month = month + set;
     
194.                     month = Binary2BCD(month);
     
195.                     if(month > 0x12)
     
196.                       month = 1;
     
197.                     if(month <= 0)
     
198.                       month = 0x12;
     
199.                     write_ds1307(5,month); // write month 6 June
     
200.                     break;
     
201.             case 6:
     
202.                     year = BCD2Binary(year);
     
203.                     year = year + set;
     
204.                     year = Binary2BCD(year);
     
205.                     if(year <= -1)
     
206.                        year = 0x99;
     
207.                     if(year >= 0x50)
     
208.                        year = 0;
     
209.                     write_ds1307(6, year); // write year
     
210.                     break;
     
211.           }
     
212.         }
     
213.      }
     
214. 
     
215.       second = read_ds1307(0);
     
216.       minute = read_ds1307(1);
     
217.       hour = read_ds1307(2);
     
218.        hr = hour & 0b00011111;
     
219.        ap = hour & 0b00100000;
     
220.       dday = read_ds1307(3);
     
221.       day = read_ds1307(4);
     
222.       month = read_ds1307(5);
     
223.       year = read_ds1307(6);
     
224. 
     
225. 
     
226.       time[0] = BCD2UpperCh(hr);
     
227.       time[1] = BCD2LowerCh(hr);
     
228.       time[3] = BCD2UpperCh(minute);
     
229.       time[4] = BCD2LowerCh(minute);
     
230. ……………………
     
231. 
     
232. …………限于本文篇幅 余下代码请从51黑下载附件…………
     

复制代码

所有资料51hei附件下载:
Digital-Clock.zip (308.52 KB, 下载次数: 31)

2021-8-26 23:18 上传

点击文件名下载附件
RTC
下载积分: 黑币 -5