How to display many informations on 6 digits?
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?
Dave
Always wear safety glasses while programming.
|
Mihai Popa,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.
"If the Earth were a single state, Istanbul would be its capital." Napoleon Bonaparte
|
How to display many informations on 6 digits?
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).
|
How to display many informations on 6 digits?
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.
|
How to display many informations on 6 digits?
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
|
how to display many informations on 6 ditits?
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
Last edited by ScaleRobotics; - 1st July 2010 at 16:43. Reason: added code tags
Members who have read this thread : 0You do not have permission to view the list of names.
Posting Permissions
Bookmarks