ATNEL tech-forum

Re: DS1307 niepoprawnie wyświetlana ZMIANA DNIA

2014-10-05T09:22:57+01:00

Ja sprawdzałem --> COŚ TAKIEGO <-- i działało u mnie jak trzeba.

Statystyki: Napisane przez matrix — 5 paź 2014, o 09:22

Re: DS1307 niepoprawnie wyświetlana ZMIANA DNIA

2014-10-05T08:36:39+01:00

slawek3000 napisał(a):

nie wiem dlaczego ale tylko w wersji amerykańskiej pracuje zegar , to pewnie jakieś embargo

to za sprawą użytej biblioteki ...

małą dawkę wiedzy o tym co robisz dostaniesz na moim blogu np tu oraz tu

Statystyki: Napisane przez kaktus — 5 paź 2014, o 08:36

Re: DS1307 niepoprawnie wyświetlana ZMIANA DNIA

2014-09-05T05:22:03+01:00

zrobię to left , mid , right szkoda czasu na szukanie przyczyny raczej tego w ten sposób nie ustawie

Statystyki: Napisane przez slawek3000 — 5 wrz 2014, o 05:22

Re: DS1307 niepoprawnie wyświetlana ZMIANA DNIA

2014-09-04T20:54:56+01:00

nie wiem dlaczego ale tylko w wersji amerykańskiej pracuje zegar , to pewnie jakieś embargo

Statystyki: Napisane przez slawek3000 — 4 wrz 2014, o 20:54

Re: DS1307 niepoprawnie wyświetlana ZMIANA DNIA

2014-09-04T20:09:55+01:00

więc tak, jeżeli mam taką konfigurację

[syntax=basic4gl]Config Clock = User
Config Date = Dmy , Separator = -[/syntax]

wyświetla się tak miesiąc-dzień-rok

jeżeli tak
[syntax=basic4gl]Config Clock = Soft ' tutaj zmiana parametru
Config Date = Dmy , Separator = -[/syntax]

wyświetla się tak dzień-miesiąc-rok ,
ale tu uwaga zegar się zatrzymuje i nie działa

Statystyki: Napisane przez slawek3000 — 4 wrz 2014, o 20:09

Re: DS1307 niepoprawnie wyświetlana ZMIANA DNIA

2014-09-04T18:23:41+01:00

Pierwotnie wyświetlało się tak miesiąc /dzień/rok
a ja chcę ,żeby było dzień/miesiąc/rok

PS.poprawka , o której wcześniej wspomniałeś to tylko kosmetyka

Statystyki: Napisane przez slawek3000 — 4 wrz 2014, o 18:23

DS1307 niepoprawnie wyświetlana ZMIANA DNIA

2014-09-04T18:11:09+01:00

Witam,

własnie uruchomiłem zegar, kalendarz na DS1307 wszystko śmiga lub prawie , poza jednym drobnym szczegółem a mianowicie przy zmianie dnia na nowy zamiast zmieniać się dzień zmienia się miesiąc gdzie jest błąd w poniższym kodzie

[syntax=basic4gl]'-------------------------------------------------------------------------------
' DS1307.BAS
' shows how to use the ds1307 clock on the 2313 futurlec board
' it also shows the CONFIG CLOCK=USER option
'-------------------------------------------------------------------------------

$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

$lib "glcdKS108.lbx"

'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portb , Ce = 0 , Ce2 = 1 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib" ' modified lib
$framesize = 16
$hwstack = 24
$swstack = 16

'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
Const Clockmode = 1
Config Clock = User ' this will dim the bytes automatic
'dim other needed variables
Dim Weekday As Byte
Dim Dzientyg As String * 2
Declare Sub Setweekday
Cls
' assigning the time will call the SetTime routine
Time$ = "23:57:59" ' to watch the day changing value
Date$ = "03-09-14"
Weekday = 4
Call Setweekday ' 13 november 2002
Do
Setfont My6_8 : Lcdat 5 , 1 , "Date Time : " ; Date$ ; " "
Setfont My6_8 : Lcdat 6 , 1 , ; Time$ ; "" ; Weekday ;
Setfont My6_8 : Lcdat 7 , 1 , Dzientyg
Waitms 500
Loop

End

'called from ds1307clock.lib

'only when we use I2C for the clock we need to set the clock date time

'called from datetime.lib

Getdatetime:
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte _sec , Ack
I2crbyte _min , Ack
I2crbyte _hour , Ack
I2crbyte Weekday , Ack
I2crbyte _day , Ack
I2crbyte _month , Ack
I2crbyte _year , Nack
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
If Weekday = 1 Then 'dopasowanie zakresu do potrzeb programu i zakresu RTC
Weekday = 6
Else
Weekday = Weekday - 2
End If
Dzientyg = Lookupstr(weekday , Weekstrdays)
Return

Setdate:
If Weekday = 6 Then 'dopasowanie zakresu do potrzeb programu i zakresu RTC
Weekday = 1
Else
Weekday = Weekday + 2
End If
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 4
I2cwbyte _day
I2cwbyte _month
I2cwbyte _year
I2cstop
Waitms 10
Dzientyg = Lookupstr(weekday , Weekstrdays)
Return

Setweekday:
I2cstart
I2cwbyte Ds1307w
I2cwbyte 3
I2cwbyte Weekday
I2cstop
Waitms 10
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cwbyte _sec
I2cwbyte _min
I2cwbyte _hour
I2cstop
Waitms 10
Return
Weekstrdays:
Data "Poniedzialek" , "Wtorek" , "Sroda" , "Czwartek" , "Piatek" , "Sobota" , "Niedziela"
$include "my6_8.font"[/syntax]

Statystyki: Napisane przez slawek3000 — 4 wrz 2014, o 18:11