Eine RGB-Led und ein AtTiny13

[Searcher]

Vielleicht fällt noch jemanden etwas ein?

Hallo Thomas,
folgendes bringt noch hier und da etwas:
statt:
Dim Modus As Bit 'Modus
Dim Flag_a As Bit 'Flag für Sub Fading

als Byte einrichten
Dim Modus As Byte 'Modus
Dim Flag_a As Byte 'Flag für Sub Fading

und alle
Set Modus mit Modus = 1, Reset Modus mit Modus = 0 ersetzen
Set Flag_a, Reset Flag_a gleichermaßen.

Alle "Decr Variable" mit "Variable = Variable - 1"
und alle "Incr Variable" mit "Variable + 1" ersetzen.

bringt pro Decr zwei Byte


Gruß
Searcher