Hallo, SirMaik
In dieser Anwendung kannst du den Strobe des Schiebereg. auf Udd legen, das Reg. ist dann "durchsichtig".
Bei der Micro -nehme an die hast du- ist Port3 NUR ein Eingang, der zudem beim Start logisch "H" sein muss ( sonst Download-Modus ).

Zum Programm:
Zuerst Definitionen:

define licht port[1] ' siehe zusatzidee
define blink port[4] ' zum blitzen, s. progende
define takt port[5] ' anderer port geht auch, ausser P3
define daten port[6] ' dito

define i byte ' schleifenzähler
define warten byte ' wartezeit x mal 20ms
' define

define anzahl = 31 ' anzahl der angesteuerten ausgänge -1


'Init:
warten= 3
takt= off
daten= off
for i= 0 to anzahl ' mit max Geschwindigkeit "leertakten"
takt= on
takt= off
next
blink= on

' Programmschleife:
#loop

daten= on
takt= on
takt= off
pause warten

' "blitzer" -siehe progende:
blink= off
pause warten ' ED= 50%
' pause warten ' ED= 33%, wenn kommentar entfernt
' pause warten ' ED= 25%, wenn beide kommentare entfernt
blink= on

for i= 1 to anzahl
takt= on
takt= off
pause warten
' die nächste zeile erzeugt ein ( optionales ) licht, was dem ersten
' in 5 Schritten abstand folgt:
' if i = 5 then daten= on else daten= off ' kommentar links entfernen

' die nächste zeile erzeugt ein ( optionales ) licht, was in
' gleichen abständen erzeugt wird:
' if not ( i mod 4 ) then daten= on else daten= off

' mod ist der Rest einer Ganzzahl-Division, mod 8 bzw mod 16 geht auch;

' "blitzer" -siehe progende:
blink= off
pause warten ' ED= 50%
' pause warten ' ED= 33%, wenn kommentar entfernt
' pause warten ' ED= 25%, wenn beide kommentare entfernt
blink= on

next
' wenn du lust hast, hier> for next< wie oben, mit anderen parametern
' und nochmal
goto loop

' Zusatzidee:
' Spannungsteiler mit normalem R und Foto-R an ad_wandler, zb. P1
' anschliessen, und nach #loop befehl
' warten= licht / 64 + 2 ( evtl. berechnung anpassen )
' einfügen, passt die geschwindigkeit der Helligkeit an
'zum Blitzer:
'wenn die leds nach masse angeschlossen sind: alle kathoden zusammen
' an Kollektor eines nPn- transistors, Emitter an masse, basis über 4K7
' an Port4;
Funktion:
led an-> warten -> led aus -> warten -> weiterschalten
' es gibt bestimmt noch mehr möglichkeiten...

So, hab das "On the Fly" geschrieben -also nicht getestet-
hoffe aber auf fehlerfreiheit
Viel Spass bei Probieren, Lutz