Może tak: Config Timer1 = Pwm , Pwm = 10 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Up 'Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down Start Timer1 Dim I As Integer Config Portb = 8 Do Do Incr Pwm1a If Pwm1a = 1000 Then Exit Do Waitms 10 Loop Do Decr Pwm1a If Pwm1a = 5 Then Exit Do...
Jeżeli przycisk miałby podciąganie to zawsze byłby w trybie gaszenia a po wciśnięciu i zwarciu do masy 0 czyli tryb rozjaśniania tu mi już coś nie pasuje! Dodano po 20 [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 16000000 Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale =...
http://obrazki.elektroda.pl/5462459700_1... Witam Chciałbym zaprezentować mój projekt zdalnego sterowania pilotem RTV z funkcją uczenia się kodu przycisku. Układ powstał na potrzebę sterowania oświetleniem diodowym pod półką w pokoju. Układ powstał na bazie procesora ATMEGA8 taktowanego zegarem wewnętrznym 8MHz. Program napisany w BASCOM...
Możesz wykorzystać Lookup do pobierania elementu z tablicy. Tylko pasuje żeby dane w linii Data były tego samego typu, można zrobić tak że "AUTO" będzie równe 0, a "OFF" równe 255. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 16000000 $baud = 19200 $hwstack = 64 $swstack = 64 $framesize = 64 Dim G As Byte , Nr_elementu As Byte Nr_elementu = 0...
[syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.5 = Input Config Pinb.4 = 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 Centr1 Alias Pinb.5 Centr Alias Pinb.4 Set Portb.4 Set Portb.5 Pwm1a = 0 Do If pwm1a = 0 then 'dodatkowy warunek...
Ma to tak działać że zaraz po włączeniu ma się rozjaśniać jedna dioda i taka jest konfiguracja pinów. Kierunek wzrostu jasności ze wzrostem zmiennej X (pwm1a) nie zależy od konfiguracji pinów. Kontroluje to konfiguracja timera. Zmień odpowiednie wpisy dla timera (tak jak doradziłem w poprzednim) : Config Timer1 = Pwm , Prescale = 256 , Pwm = 8 , Compare...
Witam Panowie potrzebuje powoli rozjasniac diode LED znalazlem w sieci rozne programy ale niestety nie dzialaja ponizej podaje programik czy ktos mi moze wytlumaczyc co robie źle [syntax=vb]$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1 Dim I As Byte Do For I =...
Witam mam taki mały problem z tym kodem... Nie wiem za bardzo jak do tego podejść. Działanie: 1. Przytrzymaj kilka sekund Przycisk - Wtedy uruchamia się procedura rozjaśniania. 2. Gdy puścimy przycisk i znowu naciśniemy, bądź przytrzymamy procedura rozpoczyna się od nowa czyli przyciemnianie i rozjaśnianie ... A powinno być tak: 1. Aby po przytrzymaniu...
Coś namieszałeś w tym podprogramie odbioru z UART. Najpierw czytasz do zmiennej F, potem to Case 0 to 4 (?). Jeśli używasz ASCII to skąd niby mogły by się odebrać takie wartości ? Potem nagle ni z tego i owego pojawia się zmienna E bez związku z odczytem. Myślę, że ciągle mylisz kod ASCII z liczbami i przez to masz problemy. Możesz też przed parsowaniem...
Pozwoliłem sobie napisać do osoby która ożywiła układ i w odp mam Podłączamy ADC atmegi bezpośrednio do prawego lub lewego kanału (sygnału audio oczywiście, nie głośnika). Najlepiej przez potencjometr, mamy wtedy regulację. Masy układów łączymy ze sobą. Po nowym roku oczywiście sprawdze :)) Dodano po 5 idąc dalej:) wysterowanie PWM1a i PWM1b czyli płynne...
mam coś takiego: [syntax=basic4gl] $regfile = "attiny2313.dat" $crystal = 12000000 Config Timer0 = Timer , Prescale = 8 ' Enable Timer0 ' : On Timer0 Prztimer0 Enable Interrupts Config Portb = &B00111111 Portb = &B11000000 Sw1 Alias Pinb.6 Sw2 Alias Pinb.7 Config Portd = &B1111111 Portd = &B0000000 D1 Alias Portb.0 D2 Alias Portb.1 D3 Alias Portb.2...
http://obrazki.elektroda.net/75_12360769... W projekcie użyta Atmega8, irlz34n, tsop1736. Każdy kolor sterowany jest przez wyjście pwm atmegi8. Można zapisać 10 własnych kolorów. Zmiana kolorów następuje ręcznie za pomocą oryginalnego pilota do telewizora. Ma on funkcje sterowania TV, DVD i VCR. Ta ostatnia opcja umożliwia sterowanie podświetleniem...
Witam Tak Panowie ja się z Wami zgadzam (z racji tego iż w programowaniu jestem jak but) chociaż z tymi diodami i analogowym wskaźnikiem zupelnie nie. Jeżeli chodzi o program to od początku miałem takie wrażenie, że cos jest nie tak. Uważałem, że trzeba to napisać co najmniej w C, ale najlepiej w asemblerze - niestety programista mi nie powiedział w...
Do tego najlepiej użyć PWMa. Na medze ósmej musisz uruchomić timer1. [syntax=basic4gl] config timer1 = PWM , pwm = 10 , compare a pwm = clear up , compare b pwm = disconnect , prescale = 1 Dim opu as word do for opu = 0 to 1023 pwm1a = opu waitms 3 next opu for opu = 1023 to 0 step -1 pwm1a = opu waitms 3 next opu loop end [/syntax] To tak na szybko....
Witam Moje wypociny na podstawie których ma się zwiększać lub zmniejszać PWM w zależności od jakiś ustawionych parametrów. W tablicy mam zapisane kroki według jakich ma zachodzić rozjaśnianie/ściemnianie a w przerwaniu co 1s ustawiam odpowiednie flagi na podstawie których zliczany jest czas do kolejnego kroku. I niby wszystko działa ale gdy rozjaśni...
Po co taki bajer? Jak będziesz miał w tej makiecie więcej światełek to mikroprocesor + np. BASCOM. Najprościej rozjaśniającą się diodę zrobić tak: tranzystor NPN, kolektor do + 12V, emiter do rezystora jakieś 1k, potem dioda i do masy, między bazę a masę wpinasz kondensator jakieś parę mikro, i z plusa do bazy rezystor jakieś parę kilo. Nie będzie to...
timer jest tak ustawiony, aby przerwanie było generowane co 100us, w ten sposób mam możliwość ustawienia 100 poziomów, bo poł okres sinusoidy trwa 10ms, wiec 10ms / 100 = 100us. W przerwaniu mam formułkę podobną do tej (teoretycznej): if( temp_delay++ >= (100 - x%)) triac_pulse(); to były założenia, a w praktyce, jasność żarówki przy 20% jest na tyle...
Sterowanie tranzystorem przez rezystor ok, tylko tak teraz przejrzałem ten program i jakoś jego działanie wydaje mi się ogólnie pogmatwane... Jaki właściwie efekt chcesz uzyskać, bo jeśli to ma być kolejne stopniowe rozjaśnianie led to zdecydowanie prościej można to zrobić.
A dokładniej co? Chcesz żeby jedna ledka się rozjaśniała a druga w tym samym czasie się ściemniała?
hmmm no tak, ale dla mnie największą niewiadomą tego programu jest miejsce, w którym "mówię" które wyjście ma np. świecić na 50% (czyli przyjąć wartość 128). Dowolne miejsce w pętli głównej programu (do...Loop) gdzie przypisujesz zmiennym R, G, B konkretne wartości. R, G, B są zwykłymi zmiennymi, w żaden sposób nie są przypisane do konkretnych pinów,...
Program tylko rozjaśnia led bardzo powoli i na tym się zatrzymuję, switch nie działa. Co jest nie tak?
Jeszcze jedno pytanie bo Twój program do póki nie zaświeci bądź zgasi diody to nie przejdzie do następnej? bo mi zależy aby rozjaśnianie było płynne ale w ten sposób: jeżeli 1 > 20 to 2 rozjaśnij jeżeli 2 > 20 to 3 rozjaśnij Czyli zasada z pierwszego postu, chyba że się mylę.
Ustaw to: $crystal = 400000 tak: $crystal = 8000000 I fuse do tego. Poza tym podałem ci program który podaje PWM na 2 porty, nie musisz stosować 2 tranzystorów, wybierz 1 port na którym będzie ci to działać. Kolejna sprawa, to wielkość WAITMS musisz dobrać eksperymentalnie, ponieważ zależy od tego prędkość rozjaśniania i gaszenia lampki. Jeśli chcesz...
Płynne zapalenie / gaszenie możesz zrobić przez PWM. Czyli Modulacje szerokości impulsu... Możesz do tego wykorzystać sprzętowy PWM, albo napisać to programowo. Sprzętowo taka zaleta, że nie zajmujesz tym procka. o Co chodzi... ? otóż przełączając dość szybko ze stanu 1 na 0 i odwrotnie w równych odstępach czasu dostaniesz wypełnienie impulsu 50%, czyli...
mickpr - zły pomysł bo będzie mu blokowąło program A kto mówił, żeby przerwa była typu "waitms/delay". Przerwa może być zrealizowana jako flaga blokująca odczyt RC5 przez określony czas - a pętla odbierająca zdarzenia może chodzić cały czas z pełną prędkością wykonując inne zdarzenia. Zaletą "mojego" rozwiązania jest to, że regulując ten czas można...
witam. znalazłem na forum taki programik pod bascom , który miał sciemniać i rozjaśniać diodę. Kod: $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1 Dim I As Byte Do For I = 1 To 255 Pwm1a = I Waitms 50 Next I For I = 255 To 1 Step -1 Pwm1a = I Waitms 50...
A była by możliwość by podać mi przykład konfiguracji timera, lub programu dla (chyba) tej opcji licznika?Rozumiem muszę zmusić by timer liczył impulsy. Kiedyś bawiłem się tą funkcją z wykorzystaniem PWM- realizowałem wówczas opcję zwiększania i zmniejszania sygnału wyjściowego, czyli dioda rozjaśniała i przygasała. Z helpa bascoma nie wyciągnąłem nic...
A co ma płynność zaświecania się lampek do czujki pasywnej ? NIC ;) są umieszczone blisko siebie i stając na jednym stopniu gościu wchodzi od razu i szybko w zasięg kolejnej i kolejnej, a lampka rozjaśnia się powoli i masz taki efekt że widać kolejne rozjaśnianie - nie trudno to sobie wyobrazić. pewnie że możesz sobie to zrobić sam, po co chińszczyzna,...
Witam Ok, nie ma problemu, może nie dokładnie opisałem na początku Obsługo PWM działa bez problemu w kodzie, który podałem w pierwszym poście - zmiana przy pomocy zmiennej A ( dla W1 ) i B ( dla W2 ) dłuższe przytrzymanie np. 1 sek - rozjaśnianie ( jeśli poprzednio było ściemniane ) dłuższe przytrzymanie np. 1 sek - ściemnianie ( jeśli poprzednio było...
Witam. Przy okazji drobnego remontu strychu jako oświetlenie chciałbym założyć 5 zwykłych okrągłych lampek halogenowych 50W. Jako że konsumpcja tego układu to ok 250W chciałbym dorobić do tego układ sterowania za pomocą pilota i klawiatury. System postawiony na Atmega16 + moc3022 + bt136 Zero sieci otrzymuje tym genialnym ukłądzikiem http://obrazki.elektroda.net/80_12543096...
Myślę że to powinno być tak: Po wciśnięciu przycisku program nie robi nic, tylko odlicza 3 sekundy, po czym przechodzi w tryb przyciemniania/rozjaśniania. Jeśli przycisk zostanie puszczony wcześniej niż 3 sekundy to program zauważa puszczony przycisk i automatycznie ustawia stan 0 lub 255.
Ten film zarejestrowałem jeszcze zanim napisałem NoSave Tool... Programowe PWM na ośmiu kanałach małego Tiny2313 pyka tam sobie bez problemu. Kamera telefonu klatkuje efekt. W rzeczywistości wszystko jest jeszcze płynniejsze. Po krótkim wstępie gdzie rozjaśniaja się i ściemniają wszystkie na raz program przechodzi do płynnego rozjaśniania i ściemniania...
Dopisałem sobie do tego kodu dla testu coś takiego: [syntax=basic4gl] Do Pwm0a = 255 Waitms 100 Pwm0a = 235 Waitms 100 Pwm0a = 215 Waitms 100 Pwm0a = 195 Waitms 100 Pwm0a = 175 Waitms 100 Pwm0a = 155 Waitms 100 Pwm0a = 135 Waitms 100 Pwm0a = 115 Waitms 110 Loop [/syntax] i moim zdaniem dioda powinna przygasać, a ona się rozjaśnia, o co tu chodzi ??...
Nie mowie o Twoim wpisie, tylko ogólnie - jak postrzegam rozwiązywanie problemów na tym forum. Ktoś o coś zapytał? Ok, więc zajmujemy się wszystkim innym, byle nie tym o co autor pyta. 3, 2, 1 start! :) Wracając do ukladu: Jest to stan zastany i próba dorobienia do tego płynnego migania Led (rozjazsnianie/ściemnianie, ale nie 1/-1 tylko np kiedy jedna...
Hej emarcus No zawsze mnie zastanawiało czemu raz piszą PIN a raz PORT lecz zapominałem dopytać :) Zrobiłem tak jak napisałeś ale nadal się świeci bez przycisku. 1. Włączam zasilanie - dioda lekko świeci 2. Naciskam przycisk - dioda się rozjaśnia mocno 3. puszczam - Wraca do punktu 1 :/ Mierzylem napiecie na portb.4 ( juz nie pinb.4 ;) ) i jest tam...
W załączniku moja wersja firmware dla Twoich modułów. Na razie do przetestowania :-) PB.0 i PB.1 to wejścia, którymi łączysz moduły w łańcuszek. Nie ma też znaczenia, które wejście łączysz do następnego modułu oba identycznie działają. Do skrajnych modułów normalnie podłączasz przyciski. Ustawiłem czas na około 1,8s rozjaśniania/ściemniania i 5s (licząc...
Witam, Jestem w trakcie pisania programu obsługującego regulację jasności LED za pomocą przycisków. Ma to działać na zasadzie: 1. Naciśnięcie i przytrzymanie przycisku 1 - rozjaśnianie diody (diod) od zera do 100% - w momencie puszczenia przycisku zapamiętanie stanu 2. Naciśniecie i przytrzymanie przycisku 2 - ściemnianie diody (diod) od 100% lub poziomu...
Uruchomiło :D Szkoda tylko, że nic z tego nie rozumiem. Co prawda jest na odwrót niż w ATmega8 (tam 0-dioda nie świeci, tutaj 0 - dioda świeci), pozmieniałem trochę kod i jest tak samo jak wcześniej na ATmega. Kod: $regfile = "attiny2313.dat" $crystal = 1000000 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect...
to już mi rozjaśnia umysł :] Czyli dałoby się sterować bardzo szybko tym :) Czyli koder rozdzielałby na poszczególne serwa sygnał tak? A czy konieczny jest LCD? Rozumiem ze koderem miałby vyć układ analogowy który na podstawie kodu BCD lub innego zaprogramowanego atmegą wybierałby odpowiedni port. To gdzie wtedy wyjścia adresujące z atmegi?
Ciekawe rozwiązanie z tym powolnym rozjaśnianiem i ściemnianiem. Sam rozważę taki efekt, tyle że u mnie to potrwa długo gdyż będzie to pewnie Bascom i Eagle... Właśnie w tej chwili jestem na wykończeniu z kuchnią i pod szafkami będę montować szyny ALU z taśmą RGBWW. I właśnie część Warm White będzie chyba włączana czujką ruchu. W tej chwili zamontowałem...
Podpięcie bezpośrednio diody między port i masę razcej nie wchodzi w rachubę. Sugerowałbym raczej użycie do tego dodatkowego tranzystora PNP np. BC307, BC557, itd. Emiter do +5V, kolektor do rezystora, rezystor do diody a diodę do masy. Baza przez opornik do portu. sterowanie odbywa się przez ustawienie na porcie stanu niskiego. Co do rozjaśniania i...
Jeszcze nigdy nie bawiłem się ściemniaczami na mikrokontrolerach. Muszę zrobić 3-4 kanały z czegokażdy musi być rozjaśniany 0-100 z osobna i niezależnie. I nie wiem jak to ugryźć w bascomie.Do tego muszę jeszcze obsłużyć LCD z nokii6100 oraz panel dotykowy rezystancyjny(przez ADC) . Z panelem i LCD nie powinienem mieć problemów ale z wysterowaniem triaków...
Do zwykłej diody wystarcza 8 bitów. Do żarówki diodowej 8 bitów to za mało gdyż powoduje widoczne migotanie. Niestety nie posiadam oscyloskopu aby dokładnie to sprawdzić. Ale czy ktoś wie (lub może sprawdził to w praktyce) jaka powinna być konfiguracja ATMEGA64 aby sterować płynnie PWM od najmniejszego wypełnienia . U mnie działa tak że na jednym wyjściu...
Witam wszystkich ponownie! Czytałem o konfiguracjach timerów, coś tam liznąłem :) Mam problem bo timer1 chciałbym wykorzystać jako PWM, ale miałby on stopniowo rozjaśniać diodę utrzymywać ten stan (do tego momentu proste..) a potem ŚCIEMNIĆ. Problem jest w tym czy to da się na 1 pinie Timera1 (konkretniej mam podpięte pod Pwm1b). Helpy nic o tym nie...
Nie będzie bo "kawałek kodu" (w cudzysłowie) który pokazałeś to jakaś abstrakcja. Niezadeklarowany typ wyświetlacza Config Lcd = 16 * 2 Brak choćby jednej linijki kodu, która spowodowałaby, że coś na tym wyświetlaczu się wyświetli. Można by jakąś pętlę główną, można jakieś End na końcu…itp W zamian tego jest linijka konfigurująca ADC patrzę na...
Witam! Mam problem z urządzeniem po uruchomieniu LED'y RGB są przygaszone, a IRFZ44N grzeje się, po chwili diody rozjaśniają się a tranzystory już się nie grzeją. Natomiast jak wyłącze i włącze ponownie to działa normalnie, schemat i Link do kodu uC jest [url=http://www.elektroda.pl/rtvforum/vi...
Po ciężkich zmaganiach z metodą losową dla kolorów postanowiłem porzucić ten pomysł i zastosować przewidywalny sposób który będzie się powtarzał co jakiś czas. Może i nie jest to rozwiązanie pierwsza klasa, ale działa. Nie stosowałem jednak korekcji gamma, bo przy rozdzielczości PWM 8 bitów i zastosowaniu płynnego rozjaśniania było widać przeskoki (mruganie)...
yhmm, dziekuje a info bardzo mi to rozjaśnia - próbkowanie chciałbym co pół godziny, zapis na wszelki wpadek stały czyli jakis flash. Od razu pisze ze i tak nie wiem jak odbierac sygnaly z czujnika, a tym bardziej jak je próbkować i zapisywac (na razie). dopiero się ucze - co do mikroprocesora to heh... jak narazie zagadka... moze cos na poczatek? uczyc...
No samo posiadanie książki to trochę mało- moze jednak przeczytać. Ale po przeczytaniu książki Mirka zwykle już się nie wraca do Bascoma. To wszystko zaczyna się mocno rozjaśniać po przeczytaniu rozdziału- "wstęp do systemów czasu rzeczywistego". Wartość dydaktyczna tej książki w 90% zawiera się w tym krótkim rozdziale. Resztę- to można sobie od biedy...
U siebie mogłem do testu odłączyć PWM od LM`a i zewrzeć sygnał ENABLE do masy lub do plusa. Można wtedy sprawdzić czy układ reaguje tak jak należy na podawanie sygnału Niski/Wysoki na zmianę. W druga stronę możesz przecież do lini PWM podłaczyć jakąś diode LED (oczywiście poprzez rezystor) i sprawdzić czy ona się ściemnia i rozjaśnia pod wpływem zmian...
rozjaśnianie diody bascom rozjaśnianie filmu fujitsu rozjaśnianie
proszek lexmark wymiana kondensatorów zasilacz megane odpalić
citizen clu058 kabel brake radio
Kody FMR F120 i EDC F150 w Mercedesie 1824AK Jak rozebrać siłownik drzwi D+H - instrukcja
