ATNEL tech-forum

Re: DIODA RGB moje pierwsze doświadczenia

2014-04-13T19:24:35+01:00

Przerwanie, odliczaj zmienną i wpisuj ją do pwm'a. Gdy osiągniesz wartość max i wrócisz do min to zmień zmienną dla koloru diody i od nowa licz pierwsza zmienną w górę i w dół.

Wysłane z mojego LG-P760 przy użyciu Tapatalka

Statystyki: Napisane przez matrix — 13 kwi 2014, o 19:24

Re: DIODA RGB moje pierwsze doświadczenia

2014-04-13T18:58:15+01:00

No właśnie zwykła chiałem zrobić oświetlenie do swojego quadcoptera i tu ma być zmiana płynna.
Docelowo ma to działać z Attiny narazie zrobiłem na Atmedze

------------------------ [ Dodano po: 24 minutach ]

A tu dioda nocą
Mój 5 letni syn wszedł do pokoju i mówi " Tęcza na suficie !!! Tata zobacz Tęcza "
Wzięliśmy kamerę i efekt uwieczniliśmy.

iframe

Statystyki: Napisane przez czarny30 — 13 kwi 2014, o 18:58

Re: DIODA RGB moje pierwsze doświadczenia

2014-04-13T17:02:12+01:00

Przepraszam za moje pytanie. Nie spojrzałem na kod. Ocywiście że zwykła.
Gratulacje tylko musisz teraz nauczyć się eliminować polecenia WAIT.

Swego czasu na programowym pwm napisałem soft który w miarę pokręcania potencjometrem od lewej do prawej przechodził przez kolory od niebieskiego przez zielony po czerwony przy max skręconym potencjometrze w prawo.

Statystyki: Napisane przez matrix — 13 kwi 2014, o 17:02

Re: DIODA RGB moje pierwsze doświadczenia

2014-04-13T16:57:06+01:00

Przenoszę do projektów programistycznych.

Statystyki: Napisane przez kila — 13 kwi 2014, o 16:57

Re: DIODA RGB moje pierwsze doświadczenia

2014-04-13T14:55:11+01:00

Ale to Mirkowa dioda WS czy zwykła RGB?

Wysłane z mojego LG-P760 przy użyciu Tapatalka

Statystyki: Napisane przez matrix — 13 kwi 2014, o 14:55

DIODA RGB moje pierwsze doświadczenia

2014-04-13T14:44:56+01:00

Przedstawiam Wam filmik z moim pierwszym programem i diodą RGB
Połączenie na Płytce Uniwersalnej

iframe

Poniżej kod BASCOM

[syntax=basic4gl]$regfile = "m8def.dat"
$crystal = 1000000

Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
Config Timer2 = Pwm , Async = Off , Pwm = On , Compare Pwm = Clear Down , Prescale = 1

Pwm1a = 0
Pwm1b = 0
Ocr2 = 255

Dim R As Byte
Dim G As Byte
Dim B As Byte

Do

Wait 3

For R = 0 To 255
Pwm1a = R
Waitms 20
Next R

Wait 3

For B = 255 To 0 Step -1
Ocr2 = B
Waitms 20
Next B

Wait 3

For G = 0 To 255
Pwm1b = G
Waitms 20
Next G

Wait 3

For R = 255 To 0 Step -1
Pwm1a = R
Waitms 20
Next R

Wait 3

For B = 0 To 255
Ocr2 = B
Waitms 20
Next B

Wait 3

For G = 255 To 0 Step -1
Pwm1b = G
Waitms 20
Next G

Wait 3

For R = 0 To 255
Ocr2 = R
Waitms 20
Next R

Wait 3

For G = 255 To 0 Step -1
Pwm1b = G
Waitms 20
Next G

Loop
End[/syntax]

Statystyki: Napisane przez czarny30 — 13 kwi 2014, o 14:44