Регистрация | Вход

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: demanik, ivan_fd  
Нужен пример рабочего кода для RTC DS3231
rvstar Дата: Пт, 25.11.2016, 13:22  |                                                                                                                Сообщение # 1
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 69
Репутация: 7   ±
Замечания:   ±
На сайте с 09.10.2007

Статус: Offline

Доброго времени суток! Прошу помочь с примером рабочего кода для DS3231. На PBP или Протоне. Заранее благодарен
ЯНДЕКС Дата: 25.11.2016
Matrix252005 Дата: Пт, 25.11.2016, 14:08  |                                                                                                                Сообщение # 2
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 636
Репутация: 43   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

Приятного времени суток!!!

Гляньте на это... Сразу говорю, не для ПИК и не на протоне... Но смысл понятен...
http://cxem.net/mc/mc316.php


THE TRUTH IS OUT THERE.

С уважением, Николай.
rvstar Дата: Пт, 25.11.2016, 15:52  |                                                                                                                Сообщение # 3
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 69
Репутация: 7   ±
Замечания:   ±
На сайте с 09.10.2007

Статус: Offline

Спасибо, все довольно понятно.
Matrix252005 Дата: Пт, 25.11.2016, 16:31  |                                                                                                                Сообщение # 4
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 636
Репутация: 43   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

Всегда пожалуйста!!! Рад был помочь!!!

THE TRUTH IS OUT THERE.

С уважением, Николай.
xvovanx Дата: Сб, 26.11.2016, 21:28  |                                                                                                                Сообщение # 5
Группа: Модераторы
Ранг:  Помогаю всем
Сообщений: 327
Репутация: 59   ±
Замечания:   ±
На сайте с 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
Репутация: 7   ±
Замечания:   ±
На сайте с 09.10.2007

Статус: Offline

Спасибо. буду пробовать
mikhail09p Дата: Ср, 28.12.2016, 23:50  |                                                                                                                Сообщение # 7
Группа: Проверенные
Ранг:  Помогаю всем
Сообщений: 481
Репутация: 14   ±
Замечания:   ±
На сайте с 04.05.2010

Статус: Offline

xvovanx, а команды управления?
Хотя, вроде всё понятно.

Сообщение отредактировал mikhail09p - Чт, 29.12.2016, 00:00
  • Страница 1 из 1
  • 1
Поиск: