Na ja, auch Deine Version hat noch einen Schönheitsfehler, Kampi:

Zwar wird A von 0 bis 255 hochgezählt, aber der Befehl PORTB = A kommt erst danach! Und so wird auch immer nur 255 am PORTA ausgegeben.

@ HM:

Wenn Du alle 200 Milisekunden den PortB um einen Zähler erhöhen möchtest, würde ich das so machen:

Code:
...
...

Dim A as Byte

Do
For A = 0 to 15  (limitiert das ganze auf die "unteren" 4 Bits von PORTB)
PORTB = A
waitms200
Next A
Loop