Scrolling thermo

[fratello]

I found a way...but I think it's not the BETTER way .

    '
    '    Display RTC & temp.
    '    -----------
LOOPing:
FOR scroll = 0 TO 70
    FOR scan = 0 TO 7
        PORTB=%11111111
        PAUSE 1
        PORTc = 1 
        PORTd = 1
        FOR counter = 0 TO 15
              PORTB = leddata [counter]
              pause 1
                if counter > 7 then      
                    PORTD = PORTD * 2
                else
                    portc = portc * 2
                endif 
        NEXT
    NEXT        
    FOR counter = 0 TO 70
        leddata [counter] = leddata [counter+1]
    NEXT
NEXT

LED's on column 7 (PortD 0) are, sometimes, on ... What @##%$@ is this ?

[mackrackit]

Thanks for making this an article!
http://www.picbasic.co.uk/forum/cont...ng-thermometer

[fratello]

My first working variant of scroll-thermo-clock :
Used : 16F877A, DS1307, home-made LED's matrix (7x7) and DS18B20 (missing in video, don't have anyone ).
Different code from previous example (because of my custom matrix). Enjoy !

[mackrackit]

There was a problem with the web site when the article was first published. It appears to be fixed now.

Thanks Dan for re-posting the article.

http://www.picbasic.co.uk/forum/cont...ng-thermometer