Andrés Esteban Piedrahita Rincón / RTC-DS1307

RELOJ CON 4 ALARMAS

Fork of RTC-DS1307 by Henry Leinen

Rtc_Ds1307.cpp@10:e40a1f6d31a1, 2016-11-30 (annotated)

Committer:
kingstone1990
Date:
Wed Nov 30 04:18:24 2016 +0000
Revision:
10:e40a1f6d31a1
Parent:
9:5627b407e097 
reloj con 4 alarmas utilizando RTC

Who changed what in which revision?

UserRevisionLine numberNew contents of line
kingstone1990 10:e40a1f6d31a1 1
leihen 5:30531f2121a2 2 #include "mbed.h"
leihen 0:3940f0ad2ca5 3 #include "Rtc_Ds1307.h"
leihen 7:dca20be3ef38 4
leihen 5:30531f2121a2 5 #ifndef DEBUG
leihen 9:5627b407e097 6 //#define DEBUG
leihen 5:30531f2121a2 7 #endif
leihen 3:e89d63f3342e 8 #include "debug.h"
leihen 0:3940f0ad2ca5 9
leihen 1:64274190e842 10 const char *Rtc_Ds1307::m_weekDays[] = { "Saturday", "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday" };
leihen 0:3940f0ad2ca5 11
leihen 0:3940f0ad2ca5 12
leihen 0:3940f0ad2ca5 13 Rtc_Ds1307::Rtc_Ds1307(PinName sda, PinName scl)
leihen 0:3940f0ad2ca5 14 {
leihen 0:3940f0ad2ca5 15 // Create a new I2C object
leihen 0:3940f0ad2ca5 16 m_rtc = new I2C(sda, scl);
leihen 0:3940f0ad2ca5 17 if (m_rtc == NULL)
leihen 0:3940f0ad2ca5 18 error("Rtc_Ds1307");
leihen 1:64274190e842 19
leihen 1:64274190e842 20 // Set the frequency to standard 100kHz
leihen 1:64274190e842 21 m_rtc->frequency(100000);
leihen 0:3940f0ad2ca5 22 }
leihen 0:3940f0ad2ca5 23
leihen 0:3940f0ad2ca5 24 Rtc_Ds1307::~Rtc_Ds1307()
leihen 0:3940f0ad2ca5 25 {
leihen 0:3940f0ad2ca5 26 if (m_rtc != NULL)
leihen 0:3940f0ad2ca5 27 delete m_rtc;
leihen 0:3940f0ad2ca5 28 }
leihen 0:3940f0ad2ca5 29
leihen 5:30531f2121a2 30 bool Rtc_Ds1307::setTime(Time_rtc& time, bool start, bool thm)
leihen 0:3940f0ad2ca5 31 {
leihen 2:ee81f2c5a706 32 char buffer[7];
leihen 2:ee81f2c5a706 33 INFO("reading clock registers to write the new time : %d:%d:%d\n", time.hour, time.min, time.sec);
leihen 2:ee81f2c5a706 34 if (!read(0,buffer,7)) {
leihen 2:ee81f2c5a706 35 ERR("Failed to read from RTC\n");
leihen 2:ee81f2c5a706 36 return false;
leihen 2:ee81f2c5a706 37 }
leihen 2:ee81f2c5a706 38 // Now update only the time part (saving the existing flags)
leihen 2:ee81f2c5a706 39 if (start) { buffer[0] &= 0x7F; } else { buffer[0] |= 0x80; }
leihen 2:ee81f2c5a706 40 buffer[0] = (buffer[0]&0x80) | (decimalToBcd(time.sec)& 0x7f);
leihen 2:ee81f2c5a706 41 buffer[1] = decimalToBcd(time.min);
leihen 2:ee81f2c5a706 42 if (thm) {
leihen 2:ee81f2c5a706 43 // AM PM format
leihen 2:ee81f2c5a706 44 buffer[2] = (buffer[2]& 196) | (time.hour>12 ? (0x20 | ((decimalToBcd(time.hour-12)))) : decimalToBcd(time.hour));
leihen 2:ee81f2c5a706 45 }
leihen 2:ee81f2c5a706 46 else {
leihen 2:ee81f2c5a706 47 // 24 hours format
leihen 2:ee81f2c5a706 48 buffer[2] = (buffer[2]& 196) | (decimalToBcd(time.hour) & 0x3F);
leihen 2:ee81f2c5a706 49 }
leihen 2:ee81f2c5a706 50 buffer[3] = time.wday;
leihen 2:ee81f2c5a706 51 buffer[4] = decimalToBcd(time.date);
leihen 2:ee81f2c5a706 52 buffer[5] = decimalToBcd(time.mon);
leihen 2:ee81f2c5a706 53 buffer[6] = decimalToBcd(time.year-2000);
leihen 2:ee81f2c5a706 54 INFO("Writing new time and date data to RTC\n");
leihen 2:ee81f2c5a706 55 if (!write(0, buffer, 7) ) {
leihen 2:ee81f2c5a706 56 ERR("Failed to write the data to RTC!\n");
leihen 2:ee81f2c5a706 57 return false;
leihen 2:ee81f2c5a706 58 }
leihen 0:3940f0ad2ca5 59 return true;
leihen 0:3940f0ad2ca5 60 }
leihen 0:3940f0ad2ca5 61
leihen 5:30531f2121a2 62 bool Rtc_Ds1307::getTime(Time_rtc& time)
leihen 0:3940f0ad2ca5 63 {
leihen 1:64274190e842 64 char buffer[7];
leihen 1:64274190e842 65 bool thm = false;
leihen 1:64274190e842 66
leihen 1:64274190e842 67 INFO("Getting time from RTC\n");
leihen 2:ee81f2c5a706 68 if (!read(0, buffer, 7) ) {
leihen 1:64274190e842 69 // Failed to read
leihen 1:64274190e842 70 ERR("Failed to read from RTC\n");
leihen 1:64274190e842 71 return false;
leihen 1:64274190e842 72 }
leihen 1:64274190e842 73 thm = ((buffer[2] & 64) == 64);
leihen 1:64274190e842 74 time.sec = bcdToDecimal(buffer[0]&0x7F);
leihen 1:64274190e842 75 time.min = bcdToDecimal(buffer[1]);
leihen 1:64274190e842 76 if (thm) {
leihen 1:64274190e842 77 // in 12-hour-mode, we need to add 12 hours if PM bit is set
leihen 1:64274190e842 78 time.hour = Rtc_Ds1307::bcdToDecimal( buffer[2] & 31 );
leihen 1:64274190e842 79 if ((buffer[2] & 32) == 32)
leihen 1:64274190e842 80 time.hour += 12;
leihen 1:64274190e842 81 }
leihen 1:64274190e842 82 else {
leihen 1:64274190e842 83 time.hour = Rtc_Ds1307::bcdToDecimal( buffer[2] & 63 );
leihen 1:64274190e842 84 }
leihen 1:64274190e842 85 time.wday = buffer[3];
leihen 1:64274190e842 86 time.date = Rtc_Ds1307::bcdToDecimal( buffer[4]);
leihen 1:64274190e842 87 time.mon = Rtc_Ds1307::bcdToDecimal( buffer[5]);
leihen 2:ee81f2c5a706 88 time.year = Rtc_Ds1307::bcdToDecimal(buffer[6]) + 2000; // plus hundret is because RTC is giving the years since 2000, but std c struct tm needs years since 1900
leihen 2:ee81f2c5a706 89
leihen 2:ee81f2c5a706 90 return true;
leihen 2:ee81f2c5a706 91 }
leihen 2:ee81f2c5a706 92
leihen 2:ee81f2c5a706 93
leihen 2:ee81f2c5a706 94 bool Rtc_Ds1307::startClock()
leihen 2:ee81f2c5a706 95 {
leihen 2:ee81f2c5a706 96 char strtStop;
leihen 2:ee81f2c5a706 97
leihen 2:ee81f2c5a706 98 INFO ("Reading clock start/stop register value\n");
leihen 2:ee81f2c5a706 99 if (!read(0, &strtStop, 1)) {
leihen 2:ee81f2c5a706 100 ERR("Failed to read clock start stop register !\n");
leihen 2:ee81f2c5a706 101 return false;
leihen 2:ee81f2c5a706 102 }
leihen 2:ee81f2c5a706 103
leihen 2:ee81f2c5a706 104 strtStop &= 0x7F;
leihen 2:ee81f2c5a706 105
leihen 2:ee81f2c5a706 106 INFO("Writing back start/stop register value\n");
leihen 2:ee81f2c5a706 107 if (!write(0, &strtStop, 1)) {
leihen 2:ee81f2c5a706 108 ERR("Failed to write the start stop register !\n");
leihen 2:ee81f2c5a706 109 return false;
leihen 2:ee81f2c5a706 110 }
leihen 2:ee81f2c5a706 111
leihen 2:ee81f2c5a706 112 INFO("Start/stop register value successfully written\n");
leihen 2:ee81f2c5a706 113 return true;
leihen 2:ee81f2c5a706 114 }
leihen 2:ee81f2c5a706 115
leihen 2:ee81f2c5a706 116 bool Rtc_Ds1307::stopClock()
leihen 2:ee81f2c5a706 117 {
leihen 2:ee81f2c5a706 118 char strtStop;
leihen 2:ee81f2c5a706 119
leihen 2:ee81f2c5a706 120 INFO ("Reading clock start/stop register value\n");
leihen 2:ee81f2c5a706 121 if (!read(0, &strtStop, 1)) {
leihen 2:ee81f2c5a706 122 ERR("Failed to read clock start stop register !\n");
leihen 2:ee81f2c5a706 123 return false;
leihen 2:ee81f2c5a706 124 }
leihen 1:64274190e842 125
leihen 2:ee81f2c5a706 126 strtStop |= 0x80;
leihen 2:ee81f2c5a706 127
leihen 2:ee81f2c5a706 128 INFO("Writing back start/stop register value\n");
leihen 2:ee81f2c5a706 129 if (!write(0, &strtStop, 1)) {
leihen 2:ee81f2c5a706 130 ERR("Failed to write the start stop register !\n");
leihen 2:ee81f2c5a706 131 return false;
leihen 2:ee81f2c5a706 132 }
leihen 2:ee81f2c5a706 133
leihen 2:ee81f2c5a706 134 INFO("Start/stop register value successfully written\n");
leihen 2:ee81f2c5a706 135 return true;
leihen 0:3940f0ad2ca5 136 }
leihen 1:64274190e842 137
leihen 5:30531f2121a2 138 bool Rtc_Ds1307::setSquareWaveOutput(bool ena, SqwRateSelect_t rs)
leihen 2:ee81f2c5a706 139 {
leihen 2:ee81f2c5a706 140 char reg;
leihen 2:ee81f2c5a706 141 INFO("Reading register value first\n");
leihen 2:ee81f2c5a706 142
leihen 2:ee81f2c5a706 143 if (!read(7,&reg, 1)) {
leihen 2:ee81f2c5a706 144 ERR("Failed to read register value !\n");
leihen 2:ee81f2c5a706 145 return false;
leihen 2:ee81f2c5a706 146 }
leihen 2:ee81f2c5a706 147 INFO("[Reg:0x07] = %02x\n", reg);
leihen 2:ee81f2c5a706 148
leihen 2:ee81f2c5a706 149 // preserve the OUT control bit while writing the frequency and enable bits
leihen 2:ee81f2c5a706 150 reg = (reg & 0x80) | (ena ? 0x10 : 0) | ((char)rs & 0x03);
leihen 2:ee81f2c5a706 151
leihen 2:ee81f2c5a706 152 INFO("Writing back register value\n");
leihen 2:ee81f2c5a706 153 INFO("[Reg:0x07] = %02x\n", reg);
leihen 2:ee81f2c5a706 154
leihen 2:ee81f2c5a706 155 if (!write(7, &reg, 1)) {
leihen 2:ee81f2c5a706 156 ERR("Failed to write register value !\n");
leihen 2:ee81f2c5a706 157 return false;
leihen 2:ee81f2c5a706 158 }
leihen 2:ee81f2c5a706 159
leihen 2:ee81f2c5a706 160 INFO("Successfully changed the square wave output.\n");
leihen 2:ee81f2c5a706 161 return true;
leihen 2:ee81f2c5a706 162 }
leihen 2:ee81f2c5a706 163
leihen 2:ee81f2c5a706 164
leihen 1:64274190e842 165
leihen 1:64274190e842 166 bool Rtc_Ds1307::read(int address, char *buffer, int len)
leihen 1:64274190e842 167 {
leihen 1:64274190e842 168 char buffer2[2] = {(char)address, 0};
leihen 1:64274190e842 169
leihen 2:ee81f2c5a706 170 // m_rtc->start();
leihen 1:64274190e842 171 if (m_rtc->write(0xd0, buffer2, 1) != 0) {
leihen 1:64274190e842 172 ERR("Failed to write register address on rtv!\n");
leihen 1:64274190e842 173 m_rtc->stop();
leihen 1:64274190e842 174 return false;
leihen 1:64274190e842 175 }
leihen 1:64274190e842 176 if (m_rtc->read(0xd0, buffer, len) != 0) {
leihen 1:64274190e842 177 ERR("Failed to read register !\n");
leihen 1:64274190e842 178 return false;
leihen 1:64274190e842 179 }
leihen 1:64274190e842 180 m_rtc->stop();
leihen 1:64274190e842 181
leihen 1:64274190e842 182 INFO("Successfully read %d registers from RTC\n", len);
leihen 1:64274190e842 183 return true;
leihen 1:64274190e842 184 }
leihen 1:64274190e842 185
leihen 1:64274190e842 186 bool Rtc_Ds1307::write(int address, char *buffer, int len)
leihen 1:64274190e842 187 {
leihen 1:64274190e842 188 char buffer2[10];
leihen 1:64274190e842 189 buffer2[0] = address&0xFF;
leihen 1:64274190e842 190 for (int i = 0 ; i < len ; i++)
leihen 1:64274190e842 191 buffer2[i+1] = buffer[i];
leihen 1:64274190e842 192
leihen 2:ee81f2c5a706 193 // m_rtc->start();
leihen 1:64274190e842 194 if (m_rtc->write(0xd0, buffer2, len+1) != 0) {
leihen 1:64274190e842 195 ERR("Failed to write data to rtc\n");
leihen 1:64274190e842 196 m_rtc->stop();
leihen 1:64274190e842 197 return false;
leihen 1:64274190e842 198 }
leihen 1:64274190e842 199 m_rtc->stop();
leihen 1:64274190e842 200 return true;
leihen 7:dca20be3ef38 201 }
leihen 7:dca20be3ef38 202
leihen 7:dca20be3ef38 203
leihen 7:dca20be3ef38 204
leihen 7:dca20be3ef38 205
leihen 7:dca20be3ef38 206 RtcCls::RtcCls(PinName sda, PinName scl, PinName sqw, bool bUseSqw)
leihen 7:dca20be3ef38 207 : Rtc_Ds1307(sda, scl), m_sqw(sqw), m_bUseSqw(bUseSqw), m_bAlarmEnabled(false), m_alarmfunc(NULL)
leihen 7:dca20be3ef38 208 {
leihen 9:5627b407e097 209 Time_rtc t;
leihen 9:5627b407e097 210 // query time from device
leihen 9:5627b407e097 211 getTime(t);
leihen 9:5627b407e097 212 // sync the time with MBED RTC
leihen 9:5627b407e097 213 struct tm now = {t.sec, t.min, t.hour, t.date, t.mon-1, t.year-1900};
leihen 9:5627b407e097 214 m_time = mktime(&now);
leihen 9:5627b407e097 215 set_time(m_time);
leihen 9:5627b407e097 216
leihen 7:dca20be3ef38 217 // Only register the callback and start the SQW if requested to do so. Otherwise the system
leihen 7:dca20be3ef38 218 // will use the MBED built-in RTC.
leihen 7:dca20be3ef38 219 if (m_bUseSqw) {
leihen 7:dca20be3ef38 220 // start the wave
leihen 7:dca20be3ef38 221 setSquareWaveOutput(true, RS1Hz);
leihen 7:dca20be3ef38 222 // register callback from now on the time will be maintained by the square wave input
leihen 7:dca20be3ef38 223 m_sqw.rise(this, &RtcCls::_callback);
leihen 7:dca20be3ef38 224 }
leihen 7:dca20be3ef38 225 }
leihen 7:dca20be3ef38 226
leihen 7:dca20be3ef38 227 void RtcCls::_callback(void)
leihen 7:dca20be3ef38 228 {
leihen 8:d0e66fa78e79 229 // INFO("Tick!");
leihen 7:dca20be3ef38 230 // Simply increase the number of seconds
leihen 7:dca20be3ef38 231 m_time++;
leihen 8:d0e66fa78e79 232 // if (m_bAlarmEnabled && (m_time == m_alarmTime)) {
leihen 8:d0e66fa78e79 233 // if (m_alarmfunc != NULL)
leihen 8:d0e66fa78e79 234 // m_alarmfunc();
leihen 8:d0e66fa78e79 235 // m_bAlarmEnabled = false;
leihen 8:d0e66fa78e79 236 // }
leihen 7:dca20be3ef38 237 }
leihen 7:dca20be3ef38 238
leihen 7:dca20be3ef38 239 time_t RtcCls::getTime()
leihen 7:dca20be3ef38 240 {
leihen 7:dca20be3ef38 241 // when not using the HW support, we have to query the RTC chip. Other wise we can just return out stored value
leihen 7:dca20be3ef38 242 if (!m_bUseSqw) {
leihen 7:dca20be3ef38 243 Time_rtc t;
leihen 7:dca20be3ef38 244 getTime(t);
leihen 8:d0e66fa78e79 245 struct tm now = {t.sec, t.min, t.hour, t.date, t.mon-1, t.year-1900};
leihen 7:dca20be3ef38 246 m_time = mktime(&now);
leihen 8:d0e66fa78e79 247 INFO("getting time %02d.%02d.%04d %02d:%02d:%02d Ticks=%08lx", t.date, t.mon, t.year, t.hour, t.min, t.sec, m_time);
leihen 8:d0e66fa78e79 248 }
leihen 8:d0e66fa78e79 249 else {
leihen 8:d0e66fa78e79 250 INFO("getting time Ticks=%08lx", m_time);
leihen 7:dca20be3ef38 251 }
leihen 7:dca20be3ef38 252 return m_time;
leihen 7:dca20be3ef38 253 }
leihen 7:dca20be3ef38 254
leihen 7:dca20be3ef38 255 void RtcCls::setTime(time_t t)
leihen 7:dca20be3ef38 256 {
leihen 7:dca20be3ef38 257 Time_rtc tim;
leihen 7:dca20be3ef38 258 struct tm *now;
leihen 7:dca20be3ef38 259 now = localtime(&t);
leihen 7:dca20be3ef38 260
leihen 7:dca20be3ef38 261 tim.sec = now->tm_sec;
leihen 7:dca20be3ef38 262 tim.min = now->tm_min;
leihen 7:dca20be3ef38 263 tim.hour = now->tm_hour;
leihen 7:dca20be3ef38 264 tim.date = now->tm_mday;
leihen 8:d0e66fa78e79 265 tim.mon = now->tm_mon+1;
leihen 7:dca20be3ef38 266 tim.year = now->tm_year + 1900;
leihen 7:dca20be3ef38 267 tim.wday = now->tm_wday +1;
leihen 7:dca20be3ef38 268
leihen 7:dca20be3ef38 269 setTime( tim, true, true);
leihen 8:d0e66fa78e79 270 set_time(t);
leihen 7:dca20be3ef38 271 }