ATNEL tech-forum

Re: DS 1307 niepoprawne dane po ponownym włączeniu zegara

2015-10-31T11:53:55+01:00

Mam jeszcze inny problem jak obliczyć dzień roku , ma ktoś pomysł ?

Statystyki: Napisane przez slawek3000 — 31 paź 2015, o 11:53

Re: DS 1307 niepoprawne dane po ponownym włączeniu zegara

2015-10-19T20:59:24+01:00

[syntax=basic4gl]'****************** Zapis RTC ********************
Zapis_rtc: 'zapisuje czas g,m i s do układu RTC

Dzien = Makebcd(dzien) : Miesiac = Makebcd(miesiac) : Rok = Makebcd(rok)
Sekundy = Makebcd(sekundy) : Minuty = Makebcd(minuty) : Godziny = Makebcd(godziny)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte Dzien ' Send Data to SECONDS
I2cwbyte Miesiac ' MINUTES
I2cwbyte Rok ' Hours
I2cstop

I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte Sekundy ' Send Data to SECONDS
I2cwbyte Minuty ' MINUTES
I2cwbyte Godziny ' Hours
I2cstop
Return
'************* Zapis RTC Koniec *****************

'****************** Odczyt RTC ********************
Odczyt_rtc: 'odczytuje czas z RTC do zmiennych
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307

I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte Sekundy , Ack
I2crbyte Minuty , Ack ' MINUTES
I2crbyte Godziny , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte Dzien , Ack ' Day of Month
I2crbyte Miesiac , Ack ' Month of Year
I2crbyte Rok , Nack ' Year
I2cstop

Sekundy = Makedec(sekundy) : Minuty = Makedec(minuty) : Godziny = Makedec(godziny)
Dzien = Makedec(dzien) : Miesiac = Makedec(miesiac) : Rok = Makedec(rok)
Return
'************** Odczyt RTC Koniec *****************[/syntax]

adres:

[syntax=basic4gl]Const Ds1307w = 208 ' &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = 209[/syntax]
zmienne:
[syntax=basic4gl]Dim Godziny As Byte , Minuty As Byte , Sekundy As Byte Dzien As Byte , Miesiac As Byte , Rok As Word , Y As Byte
Dim Godziny_bcd As Byte , Minuty_bcd As Byte , Sekundy_bcd As Byte 'ustawienia zegara PCF
Dim Dzien_bcd As Byte , Miesiac_bcd As Byte
Dim Weekday As Byte[/syntax]

Wycielem to z programu.Chyba jest wszystko,tylko wyświetlić sobie musisz. Nie mam juz tego układu wiec nie sprawdzę czy działa. Ogólnie radze przejść na DS3231.Juz tylko tego zegarka używam.

Nie korzystam z bibliotek bascomowych.Chyba tam cos sie działo zlego jak je includowalem. Ale juz dokładnie nie pamiętam.

Statystyki: Napisane przez grzeniu 73 — 19 paź 2015, o 20:59

Re: DS 1307 niepoprawne dane po ponownym włączeniu zegara

2015-10-19T19:16:54+01:00

Co się dzieje po ponownym włączeniu , data i czas przyjmują wartości zera , jeżeli ktoś ma tą kostkę to może spróbuje wgrać ten soft

Statystyki: Napisane przez slawek3000 — 19 paź 2015, o 19:16

Re: DS 1307 niepoprawne dane po ponownym włączeniu zegara

2015-10-19T17:42:48+01:00

slawek3000 napisał(a):

co jest grane ?

Chyba coś nie działa, ale nie jestem pewny :v

Kolego więcej szczegółów!!! Co się dzieje po ponownym włączeniu?

Statystyki: Napisane przez kaka0204 — 19 paź 2015, o 17:42

Re: DS 1307 niepoprawne dane po ponownym włączeniu zegara

2015-10-19T14:52:28+01:00

bateria zmierzyłem napięcie na nurzkach 3,4 daje 0,7 V jak mam wyłączone zasilanie

Statystyki: Napisane przez slawek3000 — 19 paź 2015, o 14:52

Re: DS 1307 niepoprawne dane po ponownym włączeniu zegara

2015-10-19T09:00:28+01:00

No to może więcej szczegółów... Schemat, fotke, czy zmierzyłeś napięcie na baterii? Może ustawiasz jakoś bit CH na 1?

Statystyki: Napisane przez eMCe2 — 19 paź 2015, o 09:00

DS 1307 niepoprawne dane po ponownym włączeniu zegara

2015-10-18T20:01:56+01:00

Witam,

Mam taki kod do obsługi DS1307 wszystko jest poprawne wyświetlane , do czasu ponownego uruchomienia w układzie mam baterię wpięto według noty
co jest grane ?
[syntax=basic4gl]$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200
$lib "glcdKS108.lbx"
'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Ce = 6 , Ce2 = 7 , Cd = 4 , Rd = 3 , Reset = 1 , Enable = 5
' modified lib
$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib" ' modified lib

'configure the scl and sda pins
Config Sda = Portc.1
Config Scl = Portc.0

'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
Config Date = Dmy , Separator = .
Config Clock = User ' this will dim the bytes automatic
'dim other needed variables
Dim Weekday As Byte
'Time$ = "23:59:45" ' to watch the day changing value
'Date$ = "02.28.16"
Cls
Do
Setfont My6_8 : Lcdat 5 , 1 , "Datum: " ; Date$
Setfont My6_8 : Lcdat 6 , 1 , "Zeit: " ; Time$
Loop
End

'called from ds1307clock.lib
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307

I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return
$include "my6_8.font"[/syntax]

Statystyki: Napisane przez slawek3000 — 18 paź 2015, o 20:01