Prosty sterownik diody RGB

[end]

Witam, czy macie jakieś schematy lub pomysły jak można sterować diodą RGB ?
Wiem, ze było coś w EdW chyba 9/2004 ale nie jestem pewien.
Jesli macie jakieś gotowe schematy lub pomysły to bardzo proszę

[tasza]

a proszę Cię bardzo - gotowe kostki
http://cache.national.com/ds/LP/LP3942.pdf
http://www.linear.com/pc/productDetail. ... 1094,P2511

albo jakiś mały procesorek + równie mały program, modulacja PWM...
tego EdW poszukam, ale to wieczorem..

ps.
takie cóś ktoś zmajstrował, tylko że na PIC-u...
http://www.emanator.demon.co.uk/bigclive/rgbcont.htm
ale cała 'mądrość' to soft...czy PIC czy Atmel to sprawa wtórna....

[Pantera33]

no ja też zrobiłem na 2313 w bascomie:
$crystal = 8000000
Ddrb = &B00011100 ' konfiguracja linii jako wyjściowych

Dim T As Word , L As Word
Portb = 255

For T = 0 To 1024 'zapal 3
For L = 0 To 1024
If L > T Then
Portb.4 = 1
Else
Portb.4 = 0
End If
Next L
Next T

Do
For T = 0 To 1024 'zapal 1
For L = 0 To 1024
If L > T Then
Portb.2 = 1
Else
Portb.2 = 0
End If
Next L
Next T

For T = 0 To 1024 'zgas 3
For L = 0 To 1024
If L < T Then
Portb.4 = 1
Else
Portb.4 = 0
End If
Next L
Next T
Portb.4 = 1

For T = 0 To 1024 'zapal 2
For L = 0 To 1024
If L > T Then
Portb.3 = 1
Else
Portb.3 = 0
End If
Next L
Next T

For T = 0 To 1024 'zgas 1
For L = 0 To 1024
If L < T Then
Portb.2 = 1
Else
Portb.2 = 0
End If
Next L
Next T
Portb.2 = 1

For T = 0 To 1024 'zapal 3
For L = 0 To 1024
If L > T Then
Portb.4 = 1
Else
Portb.4 = 0
End If
Next L
Next T

For T = 0 To 1024 'zgas 2
For L = 0 To 1024
If L < T Then
Portb.3 = 1
Else
Portb.3 = 0
End If
Next L
Next T
Portb.3 = 1

Loop
End

[end]

Cześć Tasza

A gdzie dostanę LP3942 ?
Ten na PIC-u widziałem już

Podoba mi się ten projekt z EdW jednak nie mam programatora a to jest na Atmelu.
Pozatym płytka drukowana 25zł oni chyba zwariowali....
Projekt fajny, bo kolory zmieniają się płynnie i można uzyskac "tęcze".

P.S Moja dioda wygląda tak:

no ja też zrobiłem na 2313 w bascomie:

Niestety o BASCOM nie mam pojęcia ani o uC itp.
Mam zamiar się wziąć za to ale coś nie mogę znaleźc czasu, pewnie w zimowe długie wieczory będe starał się czegoś nauczyć...
Na razie jestem pustak

[tasza]

A gdzie dostanę LP3942 ?

hihi, dobre pytanie....trzeba by teraz po wszystkich TME, Elfach i innych popytać....

a wiesz co?
tak na szybko - weź trzy NE555, zrób trzy PWM-ki, na wyjścia zapnij jakieś
tranzystory (mocy?) i podłącz LED-a... regulację intensywności składowych będziesz miał
na trzech potencjometrach...

Na razie jestem pustak

[Pantera33]

A co tu się znać? Musisz przejść parę kroków:
1. Łyknąć z netu Bascom AVR Deno
2. Wkleić to co wysłałem
3. W opcjach ustawić odpowiedni uC (no teraz można kupić Tiny2313)
4. Skompilować i do procka (ISP programator "firmowy" to 30zł,- w sumie to jeden scalak, a można jeszcze prościej)
5. Do 2313 dajesz rezonator i reset, rgb-led anodę do plus 5V, katody przez oporniki (różne, aby prąd był max 20mA dla każdego) do nóżek procka

gotowe

ten program robi że płynnie śmigają kolory