|
Нужен пример рабочего кода для 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 |
Группа:
Модераторы
Ранг:
Помогаю всем
Сообщений:
363
Замечания:
±
На сайте с 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
|
|
|
|
