Нужен пример рабочего кода для RTC DS3231
|
|
rvstar |
Дата: Пт, 25.11.2016, 13:22 | Сообщение # 1 |
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
69
Замечания:
±
На сайте с 09.10.2007
Статус:
Offline
|
Доброго времени суток! Прошу помочь с примером рабочего кода для DS3231. На PBP или Протоне. Заранее благодарен
|
|
|
|
Matrix252005 |
Дата: Пт, 25.11.2016, 14:08 | Сообщение # 2 |
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
636
Замечания:
±
На сайте с 12.10.2007
Статус:
Offline
|
Приятного времени суток!!!
Гляньте на это... Сразу говорю, не для ПИК и не на протоне... Но смысл понятен... http://cxem.net/mc/mc316.php
THE TRUTH IS OUT THERE.
С уважением, Николай.
|
|
|
|
rvstar |
Дата: Пт, 25.11.2016, 15:52 | Сообщение # 3 |
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
69
Замечания:
±
На сайте с 09.10.2007
Статус:
Offline
|
Спасибо, все довольно понятно.
|
|
|
|
Matrix252005 |
Дата: Пт, 25.11.2016, 16:31 | Сообщение # 4 |
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
636
Замечания:
±
На сайте с 12.10.2007
Статус:
Offline
|
Всегда пожалуйста!!! Рад был помочь!!!
THE TRUTH IS OUT THERE.
С уважением, Николай.
|
|
|
|
xvovanx |
Дата: Сб, 26.11.2016, 21:28 | Сообщение # 5 |
Группа:
Модераторы
Ранг:
Помогаю всем
Сообщений:
327
Замечания:
±
На сайте с 02.05.2013
Статус:
Offline
|
Цитата rvstar ( ) Прошу помочь с примером рабочего кода для DS3231. На PBP или Протоне Вот пожалуйста, на Протоне, именно на пике и именно этого блочка, в примере и установка времени и считывание текущего (отлично работает в системе умного дома)
'----------------------- WRITE_TIME:
TMP = MIN_LCD GoSub FIX_OUT 'расчет перед записью данных в датчик времени MINS = TMP TMP = HR_LCD GoSub FIX_OUT HR = TMP TMP = DATE_LCD GoSub FIX_OUT DATE = TMP TMP = MON_LCD GoSub FIX_OUT MON = TMP TMP = YR_LCD GoSub FIX_OUT YR = TMP SEC = 0 BusOut $D1,0,[SEC,MINS,HR,DAY,DATE,MON,YR] ' запись данных в датчик времени Return
'------------- FIX_OUT: TMP1 = TMP/$A TMP = TMP-(TMP1*$A) TMP = TMP+(TMP1<<4) Return
'----------------------- READ_TIME:
BusIn $D0,0,[SEC,MINS,HR,DAY,DATE,MON,YR] ' считывание данных времени из датчика TMP = SEC GoSub FIX_IN ' расчет данных времени, полученных из датчика SEC_LCD = TMP TMP = MINS GoSub FIX_IN MIN_LCD = TMP TMP = HR GoSub FIX_IN HR_LCD = TMP TMP = DAY GoSub FIX_IN DAY_LCD = TMP TMP = DATE GoSub FIX_IN DATE_LCD = TMP TMP = MON GoSub FIX_IN MON_LCD = TMP TMP = YR GoSub FIX_IN YR_LCD = TMP Return
'------------- FIX_IN: TMP1 = TMP&15 TMP = TMP>>4 TMP = TMP1+10*TMP Return
LCD_INFO:
Print At 0,0,Dec2 DATE_LCD,"/",Dec2 MON_LCD,"/20",Dec2 YR_LCD Print At 1,0,Dec2 HR_LCD,":",Dec2 MIN_LCD,":",Dec2 SEC_LCD
Сообщение отредактировал
xvovanx - Сб, 26.11.2016, 21:41
|
|
|
|
rvstar |
Дата: Пн, 28.11.2016, 20:25 | Сообщение # 6 |
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
69
Замечания:
±
На сайте с 09.10.2007
Статус:
Offline
|
Спасибо. буду пробовать
|
|
|
|
mikhail09p |
Дата: Ср, 28.12.2016, 23:50 | Сообщение # 7 |
Группа:
Проверенные
Ранг:
Помогаю всем
Сообщений:
481
Замечания:
±
На сайте с 04.05.2010
Статус:
Offline
|
xvovanx, а команды управления? Хотя, вроде всё понятно.
Сообщение отредактировал
mikhail09p - Чт, 29.12.2016, 00:00
|
|
|
|