Portexpander mit Schieberegister 4094

[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??

[pete1612]

Wie mache ich denn einen Strobe??

Wird über den SS-Pin von Spiout selbst gemacht.

Alles klar. Danke!
Versuche das jetzt mal in mein Hauptprogramm zu übernehmen....
Vielen Dank für Eure Hilfe!!