Portexpander mit Schieberegister 4094

[MagicWSmoke]

wieso ist das so?

Mit dem gezeigten Code, bzw. der Variablendimensionierung bezweifle ich, dass das überhaupt "so" ist.
Wenn Du nur ein Byte hast, kannst Du keine 3 Bytes schicken, bzw. Du kannst es versuchen und wirst scheitern. Schrieb ich bereits.

Wenn die Variablen in der gezeigten Reihenfolge dimensioniert sind:

DIM Expander1 as Byte
DIM Expander2 as Byte
DIM Expander3 as Byte

dann führt das hier:

spiout expander3 , 3

dazu, dass als erstes das Byte Expander3, als nächstes aber noch 2 nachfolgende Bytes aus dem Speicher rausgeschoben werden. Nach dem Expander3-Byte kommen aber keine weiteren sinnvollen Daten, zumindest nach den gezeigten Codefetzen zu urteilen. Du schreibst also Datenmüll in die Schieberegister.

Wenn man Datenmüll in die Register schreibt, wird aber ganz sicher nicht das hier passieren:

geben die ersten beiden expander die richtigen bytes und der dritte zeigt mir das byte vom ersten expander.

Wie PicNick schrieb, zeig vollständigen und compilierbaren Code, sonst ist das ein Stochern im Nebel. Eine Beschreibung der der Verbindungen 4094 untereinander/mit dem µC, bzw. ein Schaltplan wie die 4094 tatsächlich angeschlossen sind, würde sicher auch weiterhelfen

[pete1612]

@MagicWSmoke:
Das mit den 3 Bytes habe ich verstanden. Das war einfach Unwissenheit von mir und ein wenig naiv zu glauben, dass es klappt. Bin halt ganz frisch in der SPI-Welt =)
Danke, trotzdem.
Das es so ist, wie ich es beschrieben habe, kannst du mir glauben. Die ganze Zeit habe ich überlegt, wieso das Byte, das an Expander1 ansteht auch an Expander3 auftaucht. Eine sinnvolle Erklärung dazu habe ich auch nicht, sonst hätte ich weniger Probleme eine Lösung zu finden.
Ersteinmal danke ich euch, dass ihr mir bei meinem Problem helft. Das ist nicht selbstverständlich! Danke.
Ich werde mal schnell einen Schaltplan von meiner 4094-er Verschaltung anfertigen....

[MagicWSmoke]

An Deiner Stelle würde ich den Code auf ein Minimum reduzieren, also die reine SPI-Ausgabe mit einem Delay danach. Sonst kannst Du Seiteneffekte aus dem anderen Code nicht ausschließen. Auch würde ich über ein vernünftiges Einrücken nachdenken, der Code ist im Moment unübersichtlich.
Du brauchst auch kein Interrupt = On und Enable SPI, da Du keinen Interrupt verwendest. Und eine Stack- und Framedefinition im Code wär' sinnvoll.
Teste das dann mal in dieser Weise:

' ...
Dim Expdr(3) As Byte
Expdr(1) = &b10101010
Expdr(2) = &b11110000
Expdr(3) = &b00001111

Do
  Spiout Expdr(1) , 3
' ...

[pete1612]

Hier der Schaltplan:

[MagicWSmoke]

Warum Q'S ?
Laut DB:

The output of the last stage (QS) can be used to cascade several devices.

[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

[pete1612]

So, habe mal den Code so geschrieben wie es smoke mir vorgegeben hat... habe an jedes register 8 leds gehangen... nichts passiert.... diesmal gar nichts...
habe auch QS genommen, was ich auch vorher schon versucht hatte, bevor ich mich an das Forum gewandt habe...
wie mache ich den strobe??
es ist zum verzweifeln, habe auch noch zweimal meine verdrahtung überprüft...... alles okay....

[MagicWSmoke]

So, habe mal den Code so geschrieben wie es smoke mir vorgegeben hat...

Poste den Code, damit man den kontrollieren kann.

wie mache ich den strobe??

Wird über den SS-Pin von Spiout selbst gemacht.
Ansonsten Soft-SPI verwenden, das bisserl Bitgeschubse könnte man auch noch "zu Fuss" erledigen.

[pete1612]

Ich nehm alles zurück!
Klappt jetzt... programmiere in Bascom und lade das Programm über AVR studio in den Controller. Hab ein neues Programm in Bascom geschrieben und unter einem neuen Namen gespeichert.
Musste dann natürlich noch das richtige HEX-File auswählen in AVR-Studio. MagicWSmoke's Programm läuft... Danke.
Allerdings erscheinen die Bytes genau verkehrt herum. Expander3 hat Expander1 sein Byte.... Aber Hauptsache es geht jetzt so ersteinmal...Das krieg ich auch noch raus =)
Wie mache ich denn einen Strobe??