Problem mit dem TLC9571 und Bascom

[Steffen W. (woern92)]

Guten Abend,

ich habe ein kleines Problem mit dem TLC9571, Datenblatt habe ich 
gelesen und ich denke auch verstanden. In meinem Testprogramm ist ein 
TLC verbaut und 4 Leds die einfach alle erstmal weiß leuchten sollen.

Hier der Code von Bascom:

$regfile = "xm128a3def.dat"
$crystal = 32000000                                         ' xmega128 is running on 32 MHz
$hwstack = 64
$swstack = 40
$framesize = 40

$lib "xmega.lib"
$external _xmegafix_clear
$external _xmegafix_rol_r1014

'System Clock
'=====================================================================================
'=====================================================================================
Config Osc = Disabled , 32mhzosc = Enabled                   'internal 2 MHz and 32 MHz enabled
Config Sysclock = 32mhz

'Debug UART und BOOTLOADER
'=====================================================================================
'=====================================================================================
Config Com1 = 115200 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8       ' use USART C0
Echo off


'LED Modul
'=====================================================================================
'=====================================================================================

LED_DATA alias Portc.0
LED_SCK Alias Portc.1

Config LED_DATA = output
config LED_SCK = output

LED_SCK = 0
LED_DATA = 0

Dim LED_Config as Long
Dim LED_R as Word
Dim LED_G as Word
Dim LED_B as Word
Dim LED_Counter0 as byte
Dim LED_Counter1 AS Byte
Dim OUT_TESt as byte

Declare Sub LED_Refresh()

LED_Config = &B10010110010010101010101010101010 'Write Command _ Function _ BC B _ BC G _ BC R
'Farbe 0 - 65535
LED_R = 30000
LED_G = 30000
LED_B = 65535

do
call LED_Refresh
waitms 500
loop


Sub LED_Refresh()

WAITUS 100

'Die ersten 32 bit Config Senden
For LED_Counter0 = 0 to 31
   led_Counter1 = 31 - Led_Counter0
   Led_Data = Led_Config.Led_Counter1
   LED_SCK = 1
   LED_SCK = 0
next LED_Counter0

For LED_Counter0 = 0 to 191
   led_Counter1 = 191 - Led_Counter0
   Led_Data = 1
   LED_SCK = 1
   LED_SCK = 0
Next LED_Counter0

LED_SCK = 0
LED_DATA = 0

end sub

END

Vielen dank fürs Lesen :)

[Tja (Gast)]

So what ????

[Thorsten Legat (Gast)]

Dein Problem liegt ganz klar in Zeile 42!

[Christian M. (Gast)]

Thorsten Legat schrieb:
> Dein Problem

Welches Problem? :-))

Gruss Chregu

[Woern92 (Gast)]

Christian M. schrieb:
> Welches Problem? :-))

Oh ja hoppla :D

ja es passiert einfach nichts, es bleibt alles dunkel.

[Thorsten Legat (Gast)]

Woern92 schrieb:
> ja es passiert einfach nichts, es bleibt alles dunkel.

Strom Rechnung nicht bezahlt?

[Hennry (Gast)]

Ist ja wieder der Klassiker hier, fast nur dumme Antworten.

[PiepMatz (Gast)]

Hallo, vielleicht bist Du mal so gut, das Datanblatt anzuhängen?

mit google Suche

"TLC9571 filetype:pdf datasheet"  finde ich auf die schnelle leider 
nichts.

[aGast (Gast)]

Steffen W. schrieb:
> In meinem Testprogramm ist ein TLC verbaut

Hennry schrieb:
> Ist ja wieder der Klassiker hier, fast nur dumme Antworten

Ahh in der Software (?) ist Hardware (?) verbaut. Und da wunderst Du 
dich allen Ernstes?

[Zensiert (Gast)]

Vermutlich meint er den TLC5971?

[PiepMatz (Gast)]

vielleicht einfach mal dieses Beispiel anpassen und ausprobieren?

https://gist.github.com/tmpvar/3876228

[PiepMatz (Gast)]

Hier ist auch sehr ausführlich ein Beispiel zu finden:

http://www.avrfreaks.net/forum/spi-communication-between-atmega1294p-and-tlc5971