CCS C Software and Maintenance Offers
FAQFAQ   FAQForum Help   FAQOfficial CCS Support   SearchSearch  RegisterRegister 

ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

CCS does not monitor this forum on a regular basis.

Please do not post bug Reports on this forum. Send them to support@ccsinfo.com

DS1307 Real time Clock Driver AM/PM Format

 
Post new topic   Reply to topic    CCS Forum Index -> Code Library
View previous topic :: View next topic  
Author Message
kaem1189



Joined: 27 Dec 2011
Posts: 12

View user's profile Send private message

DS1307 Real time Clock Driver AM/PM Format
PostPosted: Sun May 05, 2013 6:22 am     Reply with quote

Ds1307 with AM/PM function tested with software i2c on PIC16f88
Compiler: CCS v4.140

Driver
Code:
///////////////////////////////////////////////////////////////////////////////////////
///                                   DS1307_12.h                                   ///
///                     Modified Driver for Real Time Clock DS1307                  ///
///                             12 hour(AM PM) format                               ///
///                                                                                 ///
/// ds1307_init() - Enable oscillator without clearing the seconds register         ///
///                 used when PIC loses power and DS1307 run from 3V BAT            ///
///               - Disable squarewave output                                       ///
///                                                                                 ///
/// ds1307_set_date_time(day,mth,year,dow,hour,am_pm,min,sec)  Set the date/time    ///
///                                                                                 ///
/// ds1307_get_date(day,mth,year,dow)               Get the date                    ///
///                                                                                 ///
/// ds1307_get_time(hr,am_pm,min,sec)                     Get the time              ///
///                                                                                 ///
///  ****** am_pm returns                                                           ///
///         1 for PM and 0 for AM                                                   ///
///                                                                                 ///
/// Developed by Christian Rebogio                                                  ///
///   suggestions and request please email me at                                    ///
///   christian.rebogio@gmail.com                                                   ///
/// credits to http://www.ccsinfo.com/forum/viewtopic.php?t=23255                   ///
///////////////////////////////////////////////////////////////////////////////////////


#define RTC_SDA  PIN_B5
#define RTC_SCL  PIN_B4

#use i2c(master, sda=RTC_SDA, scl=RTC_SCL,FORCE_SW)

unsigned int8 bin2bcd(unsigned int8 binary_value);
unsigned int8 bcd2bin(unsigned int8 bcd_value);

void ds1307_init()
{
   unsigned int8 sec = 0;
   unsigned int8 hrs= 0;
 
   i2c_start();
   i2c_write(0xD0);
   i2c_write(0x00);
   i2c_start();
   i2c_write(0xD1);
   sec = i2c_read(0);
   i2c_stop();
   bit_clear(sec,7);

   i2c_start();
   i2c_write(0xD0);
   i2c_write(0x00); 
   i2c_write(sec);   
   i2c_start();
   i2c_write(0xD0);
   i2c_write(0x07);     
   i2c_write(0x80);     
   i2c_stop();
}

void ds1307_set_date_time(unsigned int8 day, unsigned int8 mth, unsigned int8 year, unsigned int8 dow, unsigned int8 hr,int1 am_pm, unsigned int8 min, unsigned int8 sec)
{
  sec &= 0x7F;
  hr &= 0x1F;
  hr=bin2bcd(hr);
  bit_set(hr,6);
  if(am_pm){
      bit_set(hr,5);
  }
  else{
      bit_clear(hr,5);
  }
  i2c_start();
  i2c_write(0xD0);         
  i2c_write(0x00);         
  i2c_write(bin2bcd(sec));   
  i2c_write(bin2bcd(min)); 
  i2c_write(hr); 
  i2c_write(bin2bcd(dow));   
  i2c_write(bin2bcd(day)); 
  i2c_write(bin2bcd(mth));   
  i2c_write(bin2bcd(year));     
  i2c_write(0x80);       
  i2c_stop();
}

void ds1307_get_date(unsigned int8 &day, unsigned int8 &mth, unsigned int8 &year, unsigned int8 &dow)
{
  i2c_start();
  i2c_write(0xD0);
  i2c_write(0x03);
  i2c_start();
  i2c_write(0xD1);
  dow  = bcd2bin(i2c_read() & 0x7f); 
  day  = bcd2bin(i2c_read() & 0x3f);
  mth  = bcd2bin(i2c_read() & 0x1f); 
  year = bcd2bin(i2c_read(0));       
  i2c_stop();
}

void ds1307_get_time(unsigned int8 &hr, int1 &am_pm, unsigned int8 &min, unsigned int8 &sec)
{
  i2c_start();
  i2c_write(0xD0);
  i2c_write(0x00);   
  i2c_start();
  i2c_write(0xD1);
  sec = bcd2bin(i2c_read() & 0x7f);
  min = bcd2bin(i2c_read() & 0x7f);
  hr = i2c_read(0);
  i2c_stop();
  am_pm = bit_test(hr,5);
  hr  = bcd2bin(hr & 0x1f);
}

unsigned int8 bin2bcd(unsigned int8 binary_value)
{
  unsigned int8 temp;
  unsigned int8 retval;

  temp = binary_value;
  retval = 0;

  while(true)
  {
    if(temp >= 10)
    {
      temp -= 10;
      retval += 0x10;
    }
    else
    {
      retval += temp;
      break;
    }
  }

  return(retval);
}

unsigned int8 bcd2bin(unsigned int8 bcd_value)
{
  unsigned int8 temp;
  temp = bcd_value;
  temp >>= 1;
  temp &= 0x78;
  return(temp + (temp >> 2) + (bcd_value & 0x0f));
}


Example use:
Code:

#include <16f88.h>
#FUSES NOWDT,PUT,NOPROTECT,NOBROWNOUT,NOLVP,NOCPD,INTRC_IO

#use delay(internal=8000000)
#include "lcd16x2.h"
#include "ds1307_12.c"

unsigned int8 sec;
unsigned int8 min;
unsigned int8 hrs;
char time;
unsigned int1 am_pm;
unsigned int8 sec_cache=0;

void main(){

ds1307_init();
ds1307_set_date_time(1,1,1,1,11,0,59,50);
lcd_init();
while(true){

      ds1307_get_time(hrs,am_pm,min,sec);
      if(am_pm){time='P';}
      else{ time='M';}
      if(sec_cache!=sec){
         sec_cache=sec;
         printf(lcd_putc,"\f\%02d:\%02d:\%02d \%cM\n", hrs,min,sec,time);
      }
}
}


Still working with combined 24/12 hours format driver.
muratmert4



Joined: 19 May 2011
Posts: 3

View user's profile Send private message

PostPosted: Fri May 10, 2013 8:00 am     Reply with quote

Thanks to a good project.
kaem1189



Joined: 27 Dec 2011
Posts: 12

View user's profile Send private message

PostPosted: Wed May 15, 2013 4:32 pm     Reply with quote

welcome Very Happy
ckielstra



Joined: 18 Mar 2004
Posts: 3680
Location: The Netherlands

View user's profile Send private message

PostPosted: Mon May 20, 2013 12:53 pm     Reply with quote

Thanks for sharing your code.
It would have been nice when you made more clear that your code only differs from the original version in the part where your code is 12hrs with AM/PM support where the original is 24hrs.
Also, why did you delete all the comments from the original version? Now your code is more difficult to understand.
kaem1189



Joined: 27 Dec 2011
Posts: 12

View user's profile Send private message

PostPosted: Fri May 24, 2013 8:23 pm     Reply with quote

ckielstra wrote:
Thanks for sharing your code.
It would have been nice when you made more clear that your code only differs from the original version in the part where your code is 12hrs with AM/PM support where the original is 24hrs.
Also, why did you delete all the comments from the original version? Now your code is more difficult to understand.


Ok, i will edit my code and write some comments to make it clearer.
Display posts from previous:   
Post new topic   Reply to topic    CCS Forum Index -> Code Library All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group