Portexpander mit Schieberegister 4094

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

[MagicWSmoke]

Allerdings erscheinen die Bytes genau verkehrt herum. Expander3 hat Expander1 sein Byte....

Wenn man die Array-Version nimmt, dann wandert Array(1) zuerst raus. Infolge der Schieberei befindet sich das erste Byte nachher im letzten, hier also dritten 4094 der Kette.
Poste dennoch Dein funktionierendes Testprogramm, damit auch nachfolgende Leser was davon haben.

[pete1612]

Okay, das hattet ihr mir ja erklärt =)
Ich danke Euch noch einmal vielmals! Versuche das heute Nacht nach der Arbeit einmal in mein Projekt zu übernehmen!!

Hier der funktionierende Codeschnipsel:

$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
Baud = 19200

Config Spi = Hard , Master = Yes , Clockrate = 16
Spiinit

Dim Expander(3) As Byte
Expander(1) = &B10101010
Expander(2) = &B01010101
Expander(3) = &B00110011

Do
Spiout Expander(1) , 3
Delay
Loop
End