ws2801 - LEDs am zweiten Schieberegister leuchten nicht

... Gast 26.10.2011 15:34 #2395838

Lesenswert?

•

Hallo,

ich habe zwei LED Platinen  mit dem WS2801 aufgebaut, dazu ein kleines 
Testprogramm geschrieben.

Das Problem ist nun, dass die beiden Strips einzeln für sich 
funktionieren. Hänge ich die aber aneinander, reagiert der zweite Strip 
nicht - dh alle LEDs bleiben aus.

SDO und CKO sind korrekt mit SDI und CKI verbunden. Masse und VCC 
ebenfalls. Ich bin etwas ratlos - wer hat evtl einen Tipp?

Datenblatt:
http://www.dz863.com/datasheet-8391361663-WS2801_3-channel-Constant-Current-Led-Driver-With-Programmable-Pwm-Outputs/

Angehängte Dateien:

neu2.png (7,9 KB)
neu2_sch.png (9,5 KB)

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

... Gast 26.10.2011 15:49 #2395860

Lesenswert?

•

▲
▼

Das Beispielprogramm:

$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 40
$framesize = 40


Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , 
Polarity = Low , Phase = 1 , Clockrate = 4 , Noss = 0


Spiinit

Declare Sub Set_rgb(byval Red As Byte , Byval Green As Byte , Byval Blue 
As Byte)

Dim R1 As Byte
Dim R2 As Byte
Dim R3 As Byte

Do

   'init
  Call Set_rgb(255 , 0 , 0)
  Waitms 1000

  Call Set_rgb(0 , 255 , 0)
  Waitms 1000

  Call Set_rgb(0 , 0 , 255)
  Waitms 1000

  '-----------------------


  ' testfarben
  Call Set_rgb(238 , 118 , 33)
  Waitms 1000

  '------------------

  Do
  R1 = Rnd(255)
  R2 = Rnd(255)
  R3 = Rnd(255)

  Call Set_rgb(r1 , R2 , R3)
  Waitms 1000

  Loop

Loop

'reihenfolge der bytes bei meiner platine: 1) GRÜN, 2) ROT, 3) BLAU
' setzt die übergebene farbe am spi
Sub Set_rgb(byval Red As Byte , Byval Green As Byte , Byval Blue As 
Byte)
   Spiout Green , 1
   Spiout Red , 1
   Spiout Blue , 1
End Sub

End

Antwort Zitieren Bearbeiten Löschen Beitrag melden

... Gast 26.10.2011 16:13 #2395900

Lesenswert?

•

▲
▼

subroutine war falsch...

Sub Set_rgb(byval Red As Byte , Byval Green As Byte , Byval Blue As 
Byte)
   For I = 1 To Strips
      Spiout Green , 1
      Spiout Red , 1
      Spiout Blue , 1
   Next I
End Sub

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren