Printable View
Hello. I am new here.
Please help me with this: I want to make a clock with DS1307 and displaying information about the time and date on a display of six digits. I would like for a while, let's say 5 seconds, only to tear the clock, then for the same period, to display the date. And resume the process.
At hardware are you using?
Do you have anyhing working?
Problems in a particular area?
Code?
Mihai Popa,Quote:
Originally Posted by Mihai Popa
If you have a little info and knowledge of programming, you can come up with your own code, design and finally a working system from this forum in about a week even without asking much about it.
There are so many similar projects of yours here at this forum.
Dig in.
Hello.
We're back with the code and electrical diagram made in Proteus.
My problem is that I want to toggle between showing the label "afisare_ceas" and labeled "afisare_data." Range of hits to be about 5 seconds.
I have one older version of Proteus. Please post the schematic in graphic format (.jpg).
Schematics.
Hi,
Looks to me like you're multilpexing the display, right?
Have loop counter variable incremented each time you get to the citeste_RTC routine. After reading the DS1307 you look at this loop counter and if it's less than say 10000 (or whatever) you jump jump to the routine displaying the time, if it more than 10000 you jump to the routine displaying the date. If it hits 20000 (in this case) you reset it to 0 and the whole thing starts over.
/Henrik.
Hello.
You are right.
But, how write a code?
thanks
Hi,
Something like this:Now have a go at it, if it doesn't work post your code and we'll have a look at it again.Code:Counter VAR WORD
Read1307:
'code for reading time and date here....
Counter = Counter + 1
If Counter > 2000 then Counter = 0
If Counter < 1000 Then GOSUB DisplayTime
If Counter > 1000 Then GOSUB Display Date
Goto Read1307
DisplayTime:
'code for time here
RETURN
DisplayDate:
'code for date here
RETURN
END
/Henrik.
Or something like this :
Code:citeste_RTC:
I2CREAD SDA,SCL,$d1,$00,[STR DB0\8] ' Read 8 bytes from DS1307
ore = (db0[2] & $F )+((db0[2]>>4)*10) 'formula de conversie Hex to Dec pentru ore,hour
minute = (db0[1] & $F )+((db0[1]>>4)*10) 'formula de conversie Hex to Dec pentru minute,minutes
Secunde = (db0[0] & $F )+((db0[0]>>4)*10) 'formula de conversie Hex to Dec pentru secunde,seconds
if secunde = 15 or secunde = 30 or secunde = 45 then
gosub afisare_data
else
gosub afisare_ceas
endif
Zi = (db0[4] & $F )+((db0[4]>>4)*10) 'formula de conversie Hex to Dec pentru zile,days
Luna = (db0[5] & $F )+((db0[5]>>4)*10) 'formula de conversie Hex to Dec pentru luni,months
An = (db0[6] & $F )+((db0[6]>>4)*10) 'formula de conversie Hex to Dec pentru ani,years
anod1=0
anod2=0
Anod3=0
Anod4=0
anod5=0
anod6=0
goto citeste_rtc
afisare_ceas: 'display clock
Digit=secunde dig 1
gosub convert
PortC=pattern
Anod5=1
pause 1
anod5=0
digit=secunde dig 0
gosub convert
PortC=pattern
Anod6=1
pause 1
anod6=0
Digit=minute dig 1
gosub convert
PortC=pattern
Anod3=1
pause 1
anod3=0
Digit=Minute dig 0
gosub convert
PortC=pattern
Anod4=1
pause 1
anod4=0
digit=ore dig 1
gosub convert
PortC=pattern
Anod1=1
pause 1
anod1=0
digit=ore dig 0
gosub convert
PortC=pattern
Anod2=1
pause 1
anod2=0
return
afisare_data: 'afisare date
Digit=zi dig 1
gosub convert
PortC=pattern
Anod5=1
pause 1
anod5=0
digit=zi dig 0
gosub convert
PortC=pattern
Anod6=1
pause 1
anod6=0
Digit=luna dig 1
gosub convert
PortC=pattern
Anod3=1
pause 1
anod3=0
Digit=luna dig 0
gosub convert
PortC=pattern
Anod4=1
pause 1
anod4=0
digit=an dig 1
gosub convert
PortC=pattern
Anod1=1
pause 1
anod1=0
digit=an dig 0
gosub convert
PortC=pattern
Anod2=1
pause 1
anod2=0
;goto citeste_RTC
return
convert:
lookup digit, [$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],pattern
pattern=pattern^$FF
return
end
Hello. Sorry I did not reply, but I had some work. I managed to do something, and I put the code below. Thank you for your advice.
</perioada></perioada>Code:'****************************************************************
'* Name : Ceas cu DS1307.BAS *
'* Author : [Mihai POPA] *
'* Notice : Copyright (c) 2010 [Mihai] *
'* : All Rights Reserved *
'* Date : 5/31/2010 *
'* Version : 1.3 *
'* Notes : Procesor PIC16F690 *
'****************************************************************
OSCCON = %1100100 'Oscilator 4 MHz
ANSEL = 0 'A/D dezactivat
ANSELH = 0 'A/D dezactivat
TrisA = %00000000 'Setare intrare/iesire
TrisB = %00000000 'Setare intrare/iesire
TrisC = %00000000 'Setare intrare/iesire
DP var PortC.7 'punct zecimal, secundar
Anod1 var PortB.4 'Anod1
Anod2 var PortB.5 'Anod2
Anod3 var PortB.6 'Anod3
Anod4 var PortB.7 'Anod4
Anod5 var PortA.0 'Anod5
Anod6 var PortA.1 'Anod6
Secunde var byte
Minute var byte
Ore var byte
Zi var byte 'Afiseaza zile
Luna var byte 'Afiseaza luni
An var byte 'Afiseaza ani
Grup1 var byte
Grup2 var byte
Grup3 var byte
Counter1 var byte
Counter2 var byte
counter1=1 'contor pentru afisare ceas
counter2=1 'contor pentru afisare data
Perioada var byte 'Perioada de timp cat sta afisata o informatie
perioada=200 'valoarea initiala a perioadei de afisare
Digit var byte
Pattern var byte
'Set_minute var PortA.0 'Buton de setat minute
'Set_ore var PortA.1 'Buton de setat ore
SCL var PortA.4 'SCL pentru RTC
SDA var PortA.5 'SDA pentru RTC
DB0 var byte[8] 'cuvantul receprionat de la RTC
'setare_RTC: 'Setare data initiala:
pause 1
I2CWRITE SDA,SCL,$d0,$00,[$59,$59,$19,$7,$14,$2,$10,$90] ' Write to DS1307
pause 10
citeste_RTC:
I2CREAD SDA,SCL,$d1,$00,[STR DB0\8] ' Read 8 bytes from DS1307
' lcdout $fe,1,"Time=",hex2 DB0[2],":",hex2 DB0[1],":",hex2 DB0[0] 'bit 0=sec, bit 1=min, bit 2=hrs
' lcdout $fe,$c0,"Date=",hex2 DB0[4],":",hex2 DB0[5],":",hex2 db0[6] 'bit 4=day, bit 5=month, bit 6=year
ore = (db0[2] & $F )+((db0[2]>>4)*10) 'formula de conversie Hex to Dec pentru ore,hour
minute = (db0[1] & $F )+((db0[1]>>4)*10) 'formula de conversie Hex to Dec pentru minute,minutes
Secunde = (db0[0] & $F )+((db0[0]>>4)*10) 'formula de conversie Hex to Dec pentru secunde,seconds
Zi = (db0[4] & $F )+((db0[4]>>4)*10) 'formula de conversie Hex to Dec pentru zile,days
Luna = (db0[5] & $F )+((db0[5]>>4)*10) 'formula de conversie Hex to Dec pentru luni,months
An = (db0[6] & $F )+((db0[6]>>4)*10) 'formula de conversie Hex to Dec pentru ani,years
anod1=0
anod2=0
Anod3=0
Anod4=0
anod5=0
anod6=0
rutina_afisare_ceas_si_data:
counter1=counter1+1 'initializare contor
if counter1
grup1=secunde 'daca nu a atins perioada, atunci
grup2=minute 'afiseaza ceasul
grup3=ore
else
if counter1=perioada then 'daca contor1 a atins valoarea perioadei,
counter2=counter2+1 'incrementeaza contor2
if counter2
grup1=an 'daca nu a atins perioada, atunci
grup2=luna 'afiseaza data
grup3=zi
endif
if counter2=perioada then 'verifica daca contor2 a atins perioada
counter2=1 'daca contor2 a atins perioada, atunci reseteaza contor2=1
counter1=1 'si contor1=1
endif
endif
endif
afisare_ceas: 'display clock
Digit=grup1 dig 1
gosub convert
PortC=pattern
Anod5=1
pause 1
anod5=0
digit=grup1 dig 0
gosub convert
PortC=pattern
Anod6=1
pause 1
anod6=0
Digit=grup2 dig 1
gosub convert
PortC=pattern
Anod3=1
pause 1
anod3=0
Digit=grup2 dig 0
gosub convert
PortC=pattern
Anod4=1
pause 1
anod4=0
digit=grup3 dig 1
gosub convert
PortC=pattern
Anod1=1
pause 1
anod1=0
digit=grup3 dig 0
gosub convert
PortC=pattern
Anod2=1
pause 1
anod2=0
goto citeste_RTC
convert:
lookup digit, [$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],pattern
pattern=pattern^$FF
return
end