'@ device PIC16F876A, XT_osc, wdt_on, wrt_off, lvp_off, pwrt_on, protect_off

SCL VAR PORTC.4 ' I2C clock pin
SDA VAR PORTC.3 ' I2C data pin
rtc_read CON %11010000 '
sec VAR BYTE ' seconds
sec2 var byte
mins VAR BYTE ' minutes
mins1 var byte
hr VAR BYTE ' hours
hr1 VAR BYTE '
day VAR BYTE ' day
date VAR BYTE ' date
date1 VAR BYTE '
mon VAR BYTE ' month
mon1 var byte
yr VAR BYTE ' year
yr1 VAR BYTE '
d_hi VAR BYTE
d_lo VAR BYTE
'------------------------------------------------------------

gosub read_time
if sec.7 then phase0 = 10: BRANCHL br, [set_time]

main:'-------------- главная программа----------------------------------
END

set_time:'-----------меню установки часов--------------------------------

return'----------------------------------------------------------

read_time:'---------------------------------------------------------
I2CRead SDA, SCL, rtc_read, 0, [sec,mins,hr,day,date,mon,yr]
d_hi = sec / 16: d_lo = sec // 16: sec2 =d_hi * 10 + d_lo
d_hi = mins / 16: d_lo = mins // 16: mins1 =d_hi * 10 + d_lo
d_hi = hr / 16: d_lo = hr // 16: hr1 =d_hi * 10 + d_lo
d_hi = date / 16: d_lo = date // 16: date1 =d_hi * 10 + d_lo
d_hi = mon / 16: d_lo = mon // 16: mon1 =d_hi * 10 + d_lo
d_hi = yr / 16: d_lo = yr // 16: yr1 =d_hi * 10 + d_lo
return'----------------------------------------------------------

но как я понял проблема не в проге у меня такойже кусок в другом устройстве работает. тут быстрее глюк железа или разводки платы. у меня при переходе на автономное питание иногда пропадает генерация на кварце.

Попробуй всё и вся... может быть пол...

К моему сожалению в папках SAMPLES: PBP244, PicBasicPro_243, Mecanique, PicBasicProton мне не удалось обнаружить программу управления часами реального времени DS1307.

Я и другие начинающие будут благодарны если Вы найдете её в другой литературе и опубликуете здесь.

С уважением
Анатолий Медведев.

SCL VAR PORTC.3 ' ножка clock
SDA VAR PORTC.4 ' ножкка data
rtc_read CON %11010000 ' Адрес часов для чтения
rtc_write con %11010001 ' Адрес часов для записи
sec VAR BYTE ' секунды
mins VAR BYTE ' минуты в формате DS1307
mins1 var byte ' минуты в десятичном формате
hr VAR BYTE ' часы в формате DS1307
hr1 VAR BYTE ' часы в десятичном формате
day VAR BYTE ' день недели
date VAR BYTE ' дата в формате DS1307
date1 VAR BYTE ' дата в десятичном формате
mon VAR BYTE ' месяц в формате DS1307
mon1 var byte ' месяц в десятичном формате
yr VAR BYTE ' год в формате DS1307
yr1 VAR BYTE ' год в десятичном формате
tmp var byte
tmp1 var byte

main:
' ваша программа
end

read_time:'---------------------------------------------------------
I2CRead SDA, SCL, RTC_read, 0, [sec,mins,hr,day,date,mon,yr]
tmp = mins
GOSUB fix_bcd_in
mins1 = tmp
tmp = hr
GOSUB fix_bcd_in
hr1 = tmp
tmp = date
GOSUB fix_bcd_in
date1 = tmp
tmp = mon
GOSUB fix_bcd_in
mon1 = tmp
tmp = yr
GOSUB fix_bcd_in
yr1 = tmp
return'----------------------------------------------------------

write_time:'---------------------------------------------
tmp = mins1
GOSUB fix_bcd_out
mins = tmp
tmp = hr1
GOSUB fix_bcd_out
hr = tmp
tmp = date1
GOSUB fix_bcd_out
date = tmp
tmp = mon1
GOSUB fix_bcd_out
mon = tmp
tmp = yr1
GOSUB fix_bcd_out
yr = tmp
sec = 0
I2CWrite SDA, SCL, RTC_write, 0, [sec,mins,hr,day,date,mon,yr]
Return'----------------------------------------------------------

fix_bcd_in:'-------------------------------------------------------------------------
tmp1 = tmp & 15
tmp = tmp >> 4
tmp = tmp1 + 10 * tmp
RETURN

fix_bcd_out:'------------------------------------------------------------------------
tmp1 = tmp / $A
tmp = tmp - (tmp1 * $A)
tmp = tmp + (tmp1 << 4)
RETURN

Попробуй всё и вся... может быть пол...

Анатолий.

Подскажите, данный код для PicBasicPro?

Добавлено (17.02.2009, 7:53:19)
---------------------------------------------