Forum www.nestor-electronic.pl Strona Główna www.nestor-electronic.pl
Forum sterowników procesorowych- programy BASCOM
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Płynne włączanie i wyłączanie podświetlenia wyświetlacza?

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.nestor-electronic.pl Strona Główna -> Pomoc w programowaniu BASCOM
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
done
Nowy


Dołączył: 19 Maj 2008
Posty: 5

PostWysłany: Sro Maj 21, 2008 11:47 am    Temat postu: Płynne włączanie i wyłączanie podświetlenia wyświetlacza? Odpowiedz z cytatem

Witam

Może ktoś ma sposób na płynne właczanie / wyłączanie.
Mam na myśli efekt stopniowego, płynnego wygaszania podświetlenia wyświetlacza.

Z góry dziękuję za wszelkie wskazówki.

Pozdrawiam
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Odwiedź stronę autora
rafal
Site Admin


Dołączył: 08 Lis 2007
Posty: 1180
Skąd: Olkusz

PostWysłany: Sro Maj 21, 2008 2:44 pm    Temat postu: Odpowiedz z cytatem

zaden problem wystarczy skozystac z PWM, z tego co pamiętam to na forum ktos udostępniał taki programik
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Wyślij email Odwiedź stronę autora
done
Nowy


Dołączył: 19 Maj 2008
Posty: 5

PostWysłany: Sro Maj 21, 2008 3:07 pm    Temat postu: Odpowiedz z cytatem

Dzięki za cenną wskazówkę, masz pamięć muszę przyznać Smile Prawdopodobie masz na myśli program enduraska
Czyli mam wysterować np. BUZ11

endurasek napisał:
$regfile = "m8def.dat"

$crystal = 8000000


Config Pinb.4 = Input
Config Pinb.2 = Input
Config Pinb.1 = Output
Config Timer1 = Pwm , Pwm = 8,
Compare A Pwm = Clear Down ,
Compare B Pwm = Disconnect ,
Prescale = 64

Dim I As Byte


S1 Alias Pinb.4

S2 Alias Pinb.2


Set Portb.4

Set Portb.2

Pwm1a = 0



Do

If S1 = 0 Then
Waitms 25


If S1 = 0 Then
Incr I
If I = 0 Then
I = 255
End If
Pwm1a = I



Waitms 20

End If

End If
If S2 = 0 Then
Waitms 25

If S2 = 0 Then


Decr I

If I = 255 Then
I = 0
End If
Pwm1a = I


Waitms 20
End If
End If
Loop
End
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Odwiedź stronę autora
rafal
Site Admin


Dołączył: 08 Lis 2007
Posty: 1180
Skąd: Olkusz

PostWysłany: Sro Maj 21, 2008 6:30 pm    Temat postu: Odpowiedz z cytatem

No najlepiej jak bedziesz jakims BUZ-em sterował
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Wyślij email Odwiedź stronę autora
LoLu
Zawsze na posterunku


Dołączył: 13 Lis 2007
Posty: 161
Skąd: Poznań (okolice) Nowy Tomyśl

PostWysłany: Nie Maj 25, 2008 3:06 am    Temat postu: Odpowiedz z cytatem

IRF'y też sie nadają Very Happy, generalnie nadaje sie zdecydowana większość tranzystorów mocy
_________________
Od kiedy powstało GOOGLE pytania nie maja sensu ?
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
done
Nowy


Dołączył: 19 Maj 2008
Posty: 5

PostWysłany: Wto Lip 08, 2008 8:01 pm    Temat postu: Odpowiedz z cytatem

Witam

Czy wie ktoś może jak przerobić program enduraska aby rozjasniać auomatycznie, a nie za pomocą przycisków?

Pozdrawiam
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Odwiedź stronę autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.nestor-electronic.pl Strona Główna -> Pomoc w programowaniu BASCOM Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


Powered by phpBB © 2001, 2005 phpBB Group