Płynne rozjaśnianie i gaszenie diody Led

Rysiek_XL · Postautor: **Rysiek_XL** » 23 maja 2007, o 21:59

Witam. Mam pytanie . W jaki sposób zrobić płynne rozjaśnianie diody led i gaszenie za pomocą modulacji Pwm i dwóch przycisków.Posiadam uC Attiny2313. Każda pomoc jest mile widziana. Dziękuję.
Pozdrawiam

Press · Postautor: **Press** » 24 maja 2007, o 18:47

No i nie rozumiem problemu.
ustawiasz timer do pracy jako PWM. Diode przez tranzystor podłączasz do wyjścia generatora. W pętli głównej programu sprawdzasz stan przycisków i po wykryciu ze któryś jest naciśnięty zwiększasz lub zmniejszasz współczynnik wypełnienia generatora.

Mrrudzin · Postautor: **Mrrudzin** » 25 maja 2007, o 19:03

A dałoby radę dorzucić do tego pomiar prądu?
Chodzi o to żeby nie przekroczyć pewnego dopuszczalnego.

Może jest jakis przykładowy program rozwiązujacy podobny problem?

Press · Postautor: **Press** » 25 maja 2007, o 19:23

A po co jeśli to ma być zwykła LED?
stabilizator i rezystor chyba wystarczą. Ewentualnie jakieś źródło prądowe.

Rysiek_XL · Postautor: **Rysiek_XL** » 26 maja 2007, o 10:53

PWM zrobione z pomocą kolegów z Elektrody i małej EP

. Może mi ktoś podać jak w bascomie sprawdzić napisać prostu program komynikacyjny z RS232. Mam uC ATtinny2313.

Pozdrwiam.

gregoorr · Postautor: **gregoorr** » 19 cze 2007, o 21:18

Witam. Mam pytanie . W jaki sposób zrobić płynne rozjaśnianie diody led i gaszenie za pomocą modulacji Pwm i dwóch przycisków.Posiadam uC Attiny2313. Każda pomoc jest mile widziana. Dziękuję.
Pozdrawiam

Ja piszę głownie na Atmega8 :

Kod: Zaznacz cały

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Portd.0 , E = Portc.2 , Rs = Portc.1
Cls
Cursor Off


Config Pinb.1 = Output                                      'wyjście PWM OC1A nóżka 15
Config Pind.3 = Input                                       'minus
Config Pind.4 = Input                                       'plus
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 1


Set Portd.3
Set Portd.4

Dim Moc As Long


Minus Alias Pind.3
Plus Alias Pind.4



Locate 1 , 5
Lcd "PWM="

Do
Pwm1a = Moc

If Minus = 0then : Decr Moc : End If
If Moc <= 0 Then : Moc = 0 : End If
If Plus = 0 Then : Incr Moc : End If
If Moc >= 255 Then : Moc = 255 : End If

Waitms 70
Locate 1 , 9
Lcd Moc ; "  "
Loop

Ograniczenie mozna zrobić tak:
If Moc >= 200 Then : Moc = 200 : End If

Płynne rozjaśnianie i gaszenie diody Led

Port Uart.

Re: Płynne rozjaśnianie i gaszenie diody Led

Kto jest online