Ist wohl schon ein wenig älter der Thread, aber ich habe noch mal ein Frage..
Code:
$regfile = "2313def.dat" 
$crystal = 10000000 
Dim A As Byte 

Config Portb = Output 
A = 1 
Do 
Do 
Portb = A 
Waitms 10 
Rotate A , Left , 1 
Loop Until A = 128 
Do 
Portb = A 
Waitms 10 
Rotate A , Right , 1 
Loop Until A = 1 
Loop
Der code funzt ja einwandfrei, nur wie und mit welchen befehl kann ich denn die Ausgänge inventieren. Nun leuchten ja immer alle LEDs und eine geht immer aus. Extern kann man es inventieren, nur es muss ja auch softwaretechnisch leicht inventiert werden können. Gibt es dort in Bascom einen schönen Befehl für?

Schönen Gruß