7 segment display

[richard]

your mainloop is unnecessarily long

firstly
I2CRead SDApin,SCLpin,$D0,$00,[RTCSec,RTCMin,RTCHour,RTCWDay,RTCDay,RTCMonth,RTCYear,RT CCtrl]
why read these when they are never used


second
Pause 20 why ????

third
all these never change why are they in the loop
PortA.2 =0
PortA.4 =0
PortC.0 =0
PortC.1 =0

and finally
you are reading the time hundreds of times a second when it can only change once a second


why not
count var word

count=1000

mainloop:
if count = 1000 then
I2CRead SDApin,SCLpin,$D0,$00,[RTCSec]
count =0
gosub bcd_to_bin
endif

count=count+1

temp1_sec = temp1
n = temp1_sec
PortA.0 =1
gosub display
PortA.0 =0

temp2_sec = temp2
n = temp2_sec
PortA.1 =1
gosub display

goto Mainloop
end

[lerameur]

Thank you for the help,
the pause after the I2Cread was screwing me up badly.
I get clear segments now.
I now have a different issue !!
Some of the segments not being used oare still being lit lighty !! I found that the dimm display on one display module was a pale mirror image of the display module next to it. I posted a picture to help understand what i'm talking about.
Basically i have a 1 and 6 I can see (barely) on the 1 module all the segments of the 6 in the 1 module. I guess thats what is called ghosting..

UPDATE: solved the problem by adding : PORTB = $00
Lookup n, [$3F, $06, $5B, $4F, $66, $6D, $7D, $07, $7F, $67], Segments
PORTB = $00
PORTB = Segments
pause 1
PORTB = $00

thanks for the really, very much appreciated

[fratello]

Nice job !
Please, can you post full code ? Maybe I try to build this clock.
Thanks !