@oze

ich wollte auch mit ner funktion arbeiten,
aber ich will kein case benutzen.

das led aus kannst du dir doch sparen oder ?

ich habe immer biäres format, wenn ich jetzt eine ebene einschalte
setzich ich damit ja immer die andere automatisch wieder auf "0":

porta = &B00000001 'led reihe 1 ein, alle anderen aus

porta = &B00010000 'led reihe5 ein, alle anderen aus