Das ist eine Möglichkeit:
Portb = A XOR &HFF
Ist wohl schon ein wenig älter der Thread, aber ich habe noch mal ein Frage..
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?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
Schönen Gruß
Das ist eine Möglichkeit:
Portb = A XOR &HFF
mfg robert
Wer glaubt zu wissen, muß wissen, er glaubt.
Cool, soas habe ich gesucht.. Aber ich möchte das gerne auch verstehen. Heißt das Xor "Exklusiv Oder" ??
Lesezeichen