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...
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...
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...
[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...
Mam problem ze sterowaniem PWM w moim projekcie. Załączam fragment kodu który ma powoli rozjaśniać i ściemniac żarówkę led jednak rozjasnienie działa zgodnie z założeniem czyli powoli i płynnie a gaszenie w mgnieniu oka tzn. bardzo szybko. Jeżeli te procedurki połącze w jedna to prawidłowo rozjasnia i gasi? Jaka jest przyczyna? [syntax=basic4gl]$regfile...
Przy 8 bitach nic nie mruga. Jakiego typu cudownym rozróżnieniem jest podział na "diodę" i na "lampę" LED? Może ja jakieś boskie LEDy mam, ale moje potrafią się przy 8 bitach płynnie rozjaśniać; niezależnie od tego czy dioda jest sygnalizacyjna, czy mocy. Przecież to jest kwestia głównie częstotliwości, a nie rozdzielczości wypełnienia... Po drugie,...
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...
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....
http://obrazki.elektroda.pl/4246594200_1... Prosty obrazek pokazujący o co chodzi. Jak widać jest tam trochę zmiennych, ustawiam takie parametry jak: czas startu rozjaśniania czas startu ściemniania moc max czas trwania rozjaśniania/ściemniania Rozjaśniania/ściemniania nie jest liniowe tylko następuje według kroków zapisanych w tablicy....
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...
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 =...
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,...
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...
A dokładniej co? Chcesz żeby jedna ledka się rozjaśniała a druga w tym samym czasie się ściemniała?
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ć.
Program tylko rozjaśnia led bardzo powoli i na tym się zatrzymuję, switch nie działa. Co jest nie tak?
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...
Jakie ty tam bariery optyczne widzisz ? ;) - to są zwykłe chińskie lampki, każda posiada najzwyklejszą pasywną czujkę ruchu. W środku może siedzieć jeden procesorek nawet typu ATtiny10. A lampka może działać nawet na baterie jeśli tylko na krótko się załącza bo w pozostałym czasie procek śpi. Albo można spkojnie zasilać z zewnątrz. Wtedy nie trzeba...
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...
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...
Coś takiego już mam :) tylko że moge zrobić max 15 diód a ja chcę połączyć multiplexowanie z pwm czyli [url=http://www.elektroda.pl/rtvforum/to... z kodem wyżej aby płynnie sie rozjaśniało i gasło a do tego zajmowało mniej portów w uC
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ę.
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 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...
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 ??...
Jak nie jak tak. Właśnie tak jest. Zaraz po całkowitym zapaleniu diody R (umownej diody R) dioda ta jest gaszona. Dopietro potem nastęuje zapalanie i gaszenie G, a potem B. To jeszcze zależy czy diody podłączyłeś jedną końcówką do masy czy do VCC. Wtedy masz efekt zmieniania się innych barw, ale także niedokładnie taki jak byś chciał. Np. w jednym z...
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 =...
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...
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...
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...
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?
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...
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...
1. Ta przetwornica zawiodła mnie już parę razy - jak gotowca, to stosuję tę na LM2... - po 4zł są. 2. Nie stosowanie regulatora na płytce ardu to dobry pomysł - na zamiennikach ardu jest to badziewie. 3. Po co 3 potencjometry jak są 3 zworki? - takie czasy łatwo można 1 przyciskiem zrobić, można z 1 diódką 4. Te potencjometry na czujniku mają za krótkie...
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...
Z prockiem zrobiłem tak jak radzi SylwekK i reakcja jest prawidłowa tzn. dioda miga co 2s. Z mosfetem jest troszkę dziwna sprawa bo gdy jest niewysterowany to dioda między drain a "+" świeci cały czas bardzo słabo.Gdy dołączę do bramki "-" to nic się nie zmienia, a gdy dołączę "+" to dioda świeci mocniej. Czy w takiej sytuacji mosfet jest sprawny ?...
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...
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)...
Witam. uczę sie programowania na ATmega8, lecz z kilkoma rzeczami nie mogę sobie poradzić. chciałem rozjaśniać, bądź przyciemniać diodę na początku automatycznie, później przyciskiem [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 1000000 Config Portb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect...
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...
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...
I jeszcze jedno pytanie: jak dodać więcej diod, kiedy schody są dłuższe? Należy wykorzystać więcej kanałów PWM (co w pewnym momencie może stać się nie możliwe) lub jeden rozbić na więcej pinów. Dla zainteresowanych moja propozycja w BASCOM: http://www.elektroda.pl/rtvforum/viewtop... To tylko silnik napędowy, a w pętli głównej...
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...
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...
Ah.. Jeśli napiszemy taki program (który rozjaśnia diodę) $regfile = "attiny2313.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Portd.6 = Output Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portd.1 , Rs = Portd.0 Config Timer0 = Timer , Prescale = 1 Enable Timer0 On Timer0 Software_pwm Enable...
bascom rozjaśniać dioda thomson rozjaśniać płynny rozjaśniać
wyświetlacz klienta programator pamięci linux kondensator przechowywać
Błąd F43 w płycie indukcyjnej Whirlpool - co oznacza? Epson WF-C5790: Szare skany z pasami - przyczyny i rozwiązania