der code von teslanikola ist schon nicht mehr zu begreifen für den anfänger, weil nicht kommentiert.
Sorry aber bin no ned so lang im Forum, wenn ich Progs tippe lass ich für gewöhnlich die Koms weg.

Mein Prog ist eigentlich ganz einfach:

der Basic befehl shift schiebt die 1en und nullen einer Variablen nach rechts oder links und um x stellen ( shift Var., left/right, x)
So sieht das dann aus wenn man die Var um eine stelle nach links shifted:
00000001
00000010
00000100
00001000
00010000
00100000
01000000
10000000
und so wenn man die Var um eine stelle nach rechts shifted:
10000000
01000000
00100000
00010000
00001000
00000100
00000010
00000001
Aber wie schon von anderen gesagt wurde kann man es auch mit x*2 oder x/2 machen ist aber nicht so gut, weil eine Division oder Multiplikation enorm Rechenleistung beansprucht!
Code:
$regfile = "2313def.dat"
$crystal = 10000000
Dim A As Byte

Config Portb = Output
A = 1
Do
Do
Portb = A
Waitms 10
Shift A , Left , 1                                          ' Schiebe 1 um eine Stelle nach links und somit auch die LED
Loop Until A = 128                                          ' wenn eins am "ende" der Var. beende Schiebvorgang
Do
Portb = A
Waitms 10
Shift A , Right , 1                                         ' Schiebe 1 um eine Stelle nach rechts und somit auch die LED
Loop Until A = 1                                            ' wenn eins am "ende" der Var. beende Schiebvorgang
Loop
SO besser??