Zitat Zitat von Kampi Beitrag anzeigen

Wenn du das vor dem "Do" machst wird das nur 1x beim starten des Programmes gemacht. Desweiteren wird im Simulator nur bis 5x gezählt, weil die "For"-Schleife nur von 0-4 geht. Wenn du höher zählen willst musst du:

For A = 0 To 100

oder sowas schreiben.
Das fertige Programm sieht dann etwa so aus:

Code:
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 32
$framesize = 60

Ddrb = &B0001_1111
Portb = &B0000_0000

Dim A As Byte

Do

For A = 0 To 255
Waitms 10
Next A
Portb = A

Waitms 200

Loop

End
Jetzt wird nur 1 x am Ende etwas passieren Portb = A gehört VOR dem Next A

For A = 0 To 255
Waitms 10
Portb = A
Next A

Gruß Richard