Portexpander mit Schieberegister 4094

[PicNick]

Wirklich Pete, mach das, was @MagicWSmoke vorschlägt. Die Inhalte der Expanderbytes sind ja von einer Menge Code abhängig, und nur dann vorhersagbar, wenn das alles auch fehlerfrei ist.

Folgendes ist aufgefallen:

If Zweihand = 0 And Folge.sensorabcd = 0 Then
Expander1 = Low(speicherwort)                        ' ZEILE  157
Expander1 = High(speicherwort)                       ' ZEILE  158
Reset Expander2.2
...

zweimal Expander1 ?

Expander3 wird nicht gesetzt, ist also offenbar immer NULL. heisst das bei dir, DIe LED's leuchten oder sind sie da finster ?

Ich hab nach den 3 SPIOUT kein Strobe gesehen ?

[PicNick]

Warum Q'S ?

Beim Zeus, da hat der Mann recht. Auf diese Art ist Müll gesichert. Du musst QS nehmen

[MagicWSmoke]

PicNick,

Der eigentliche Output Q8 ist ja NACH den Latches, kann man zum Kaskadieren also nicht brauchen ?

meinst Du mich ?
Nicht Q8, sondern QS, aber ohne Apostroph.
Edit:
Zu langsam...

[MagicWSmoke]

bekommen doch alle expander die selben daten, oder??

Nein. die werden durchgeschoben, vorausgesetzt die Verschaltung ist wie im verlinkten Bild.

Jeweils QH* des vorigen geht in SER des nächsten Bausteins, wenn 3 x 1 Byte geschoben wurde, so hat jeder Baustein seine Daten.
Ggf. solltest Du die zu sendenden Daten in ein Array aus 3 Elementen packen und auf einmal versenden, also:

Dim myArr(3) As Byte
' ... Array füllen
Spiout myArr(1), 3

[PicNick]

@MagicWSmoke: oops, sry

[MagicWSmoke]

@MagicWSmoke: oops, sry

Warum ?

Weil schneller ? Kein Problem  

[pete1612]

okay, danke =) dann werde ich das heute abend mal ausprobieren.
das heißt, die bytes werden praktisch von hinten nach vorne in die expander geschoben.
also das letzte byte zuerst.
gut =)
und den strobe macht das programm dann bei jedem loop? oder wie setzten sich die register wieder auf 0?

[PicNick]

Den RCK-Strobe kriegen alle Expander gleichzeitig. (nach dem letzen der 3 SPIOUT's)
Auf Null musst du die Expander "manuell" setzen, d.h. lauter 0-en reinschieben.