Scolling LED's

[Melanie]

Hi Melanie,
I would like ask for your help.
I have 8 LED diodes which are connected to PORTB of microchip PIC18F877, 8 toggle switches connected to PORTD for changing state of each LED diode and 2 toggle switches connected to PORTC.0, PORTC.1 for scrolling LED diodes to right and left. Not all diodes are switch on, sometimes is switch on diode of PORTB.0, PORTB.3 and PORTB.7, it deepens on conditions. Time delay for scrolling is 20ms.
My question is.
How can I scrolling LED diodes of PORTB to right and left in picbasic?

DO NOT Message me with your requests - keep them on the forum!



'
' Defines & Variables
' -------------------
ScrollRight var PortC.0
ScrollLeft var PortC.1

Mirror var Byte
Temp var Bit

TRISB=%00000000
TRISC.0=1
TRISC.1=1
TRISD=%11111111

' Put statements to Turn-Off ADC and Comparators here

Start:
'
' Read PortD Presets into Variable
' --------------------------------
Mirror=PortD
Loop:
'
' Output Variable to LED's
' ------------------------
PortB=Mirror
Pause 20
'
' Check for Scroll Right
' ----------------------
If ScrollRight=0 then
Temp=Mirror.0
Mirror=Mirror>>1
Mirror.7=Temp
endif
'
' Check for Scroll Left
' ---------------------
If ScrollLeft=0 then
Temp=Mirror.7
Mirror=Mirror<<1
Mirror.0=Temp
endif
Goto Loop

[manwolf]

Melanie
Thanks for putting this on the forum. Good example for us noobs. Might I suggest a copy in Code Examples?

Ted

[skimask]

12 words program from DT and Bruce awhile back...amazing...

http://www.picbasic.co.uk/forum/showthread.php?t=7730&highlight=contest