Hallo,
ich empfange Daten von meinem VB.net Software und übergebe die dann direkt an die 74HC595 weiter.
Das geschieht wie folgt:
Beispiel Werte
Wert2 = 255 <--- Dieser Wert kommen vom PC
Wert3 = 255 <--- Dieser Wert kommen vom PC
Wert4 = 255 <--- Dieser Wert kommen vom PC
Wert5 = 255 <--- Dieser Wert kommen vom PC
Alles anzeigen
Ich habe vier Schieberegister und die werden jeweils mit maximal 255byte versorgt. Das funktioniert auch soweit.
Nun möchte ich alle vier Schieberegistern kaskadieren. D.h, dann müsste mein Code in etwa so ausschauen:
Alles anzeigen
Frage, ist das so richtig?
ich meine würde das so funktionieren?
Testen kann ich leider noch nicht, da ich keine 595'er kaskadiert habe.
vg
Katipefendi
ich empfange Daten von meinem VB.net Software und übergebe die dann direkt an die 74HC595 weiter.
Das geschieht wie folgt:
Beispiel Werte
Wert2 = 255 <--- Dieser Wert kommen vom PC
Wert3 = 255 <--- Dieser Wert kommen vom PC
Wert4 = 255 <--- Dieser Wert kommen vom PC
Wert5 = 255 <--- Dieser Wert kommen vom PC
BASCOM-Quellcode
- $regfile = "usb162.dat"
- $crystal = 8000000
- '$baud = 19200
- $hwstack = 64
- $swstack = 86
- $framesize = 86
- Dim Wert2 As Byte
- Dim Wert3 As Byte
- Dim Wert4 As Byte
- Dim Wert5 As Byte
- Dim Ausgang1 As Byte
- Dim Ausgang2 As Byte
- Dim Ausgang3 As Byte
- Dim Ausgang4 As Byte
- Ausgang1 = Wert2
- Ausgang2 = Wert3
- Ausgang3 = Wert4
- Ausgang4 = Wert5
- Shiftout Dout1 , Sck1 , Ausgang1 , 1 ' Daten werden an die jeweilige 74HC595 übergeben
- Rck1 = 1 'PIN 12 bei 74HC595 wird kurz auf high und dann wieder auf low gesetzt, damit die Daten zum Ausgangsregister rutschen
- Rck1 = 0
- Shiftout Dout2 , Sck2 , Ausgang2 , 2 '"
- Rck2 = 1 '"
- Rck2 = 0 '"
- Shiftout Dout3 , Sck3 , Ausgang3 , 1 '"
- Rck3 = 1 '"
- Rck3 = 0 '"
- Shiftout Dout4 , Sck4 , Ausgang4 , 3 '"
- Rck4 = 1 '"
- Rck4 = 0 '"
- Config Portd.3 = Output 'Hier wird der PIN 13 von 74HC595 für immer auf low gesetzt,
- G Alias Portd.3
- G = 0
Ich habe vier Schieberegister und die werden jeweils mit maximal 255byte versorgt. Das funktioniert auch soweit.
Nun möchte ich alle vier Schieberegistern kaskadieren. D.h, dann müsste mein Code in etwa so ausschauen:
BASCOM-Quellcode
- Dim Wert2 As Byte
- Dim Wert3 As Byte
- Dim Wert4 As Byte
- Dim Wert5 As Byte
- Dim Ausgang1 As Byte
- Dim Ausgang2 As Byte
- Dim Ausgang3 As Byte
- Dim Ausgang4 As Byte
- Ausgang1 = Wert2
- Ausgang2 = Wert3
- Ausgang3 = Wert4
- Ausgang4 = Wert5
- Dim GesamtByte As Dword
- GesamtByte = Ausgang1 + Ausgang2
- GesamtByte = GesamtByte + Ausgang3
- GesamtByte = GesamtByte + Ausgang4
- Shiftout Dout1 , Sck1 , GesamtByte , 1 ' Daten werden an die jeweilige 74HC595 übergeben
- Rck1 = 1 'PIN 12 bei 74HC595 wird kurz auf high und dann wieder auf low gesetzt, damit die Daten zum Ausgangsregister rutschen
- Rck1 = 0
- Config Portd.3 = Output 'Hier wird der PIN 13 von 74HC595 für immer auf low gesetzt,
- G Alias Portd.3
- G = 0
Frage, ist das so richtig?
ich meine würde das so funktionieren?
Testen kann ich leider noch nicht, da ich keine 595'er kaskadiert habe.
vg
Katipefendi