Hallo Leute,
ich hab hier noch ein Verständnis Problem-

dieses Lauflicht läuft bei der ersten do..loop Schleife nach links und bei der zweiten do..loop Schleife zurück. Nennen wir das Durchlaufen beider Schleifen einen Zyklus.

Wie kann ich jetzt z.B festlegen, daß 5 Zyklen durchlaufen werden ?


Code:
'knightrider_m8.bas aus roboternetz von teslanicola 28.03.05

$regfile = "m8def.dat"
'$crystal = 8000000

Dim A As Byte
Config Portd = Output
A = 1                                   'A= dezimal 1

Do
Do
Portd = A                               'PortB = 1 <= &B00000001
Waitms 100
Rotate A , Left , 1                     'Stelle A als Byte dar,Schiebe 1Bit um eine Stelle nach links
Loop Until A = 128                      'solange bis A = &B1000000

Do
Portd = A                               ' schreibe  A = &B10000000 nach PortB = PortB.7=1
Waitms 100
Rotate A , Right , 1                    'Stelle A als Byte dar,Schiebe 1Bit um eine Stelle nach rechts
Loop Until A = 1                        'solange bis A = &B0000001

Loop
End                                     'end program


'A=00000001
'A=00000010
'A=00000100
'A=00001000
'A=00010000
'A=00100000
'A=01000000
'A10000000

'und jetzt wieder zurück