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)...
Jest to kawałek kodu w bascomie dla atmega8, może coś pomoże: **Podprogram konfiguracji** Sub Konfig Cls Pwm1a = 200 'to od podświetlenia lcd Lcd "USTAWIENIA" Locate 2 , 1 Lcd " PROGRAMU" Wait 2 Cls Lcd "Przycisk START" Do Getrc5(address , Command) Command = Command And &B01111111 If Adress <> 255 Then...
oto listing: Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Pwm1a = 251 Do If Pind.0 = 1 Then Pwm1a = 251 If Pind.0 = 0 And Pwm1a > 0 Then Decr Pwm1a Cls Lcd "pwm1a=" ; Pwm1a Waitms 21 Loop : End pod 90s2313 działa pod attiny juz nie
Witam Co jest złego w tym programie? [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 8000000 Config Portd.6 = Output Config Portb.0 = Output Config Portb.3 = Output Enable Interrupts Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Up Config Rc5 = Pind.2 Dim Komenda As Byte , Adres As Byte Dioda Alias Portd.6 Przek Alias...
Mam problem z PWM na ATtiny26. Z danych katalogowych wynika ze ATtiny26 ma PWM Gdy ustawiam timer1 jak poniżej program nie chce się skompilować. Natomiast bardzo ładnie kompiluje się na 90S2313. Może ktos wie jak ustawić PWM w ATtiny 26 Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 1 Pwm1a = 10 Pwm1a = 100
Witam wszystkich Jako początkujący w temacie postanowiłem napisać sobie taki krótki program który po kombinacji styków odpala pwm1a lub pwm1b i regulacji ADC będzie mi albo szybciej albo wolniej rozjaśniał diody tylko że problem jest taki, że po włączeniu lub resecie, diody jakby obie zaświecą na raz w ułamku sekundy na max i przygasną. Chciałbym żeby...
Witam Zapewne pytanie podyktowane jest moją niewiedza ale zadam je :( Chce sterować 2 kanałami PWM na końcówce.OC1A i OC1B w ATtiny 2313 Napisałem to w ten sposób (analogicznie jak wcześniej dla jednego kanału) $regfile = "2313def.dat" $crystal = 4000000 Config Portb = Output Config Portd = Input Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm...
Robię przetwornicę na ATtiny261. Chcę skonfigurować PWM tak, żeby miałem 2 symetryczne przebiegi na wyjściach OC1D i /OC1D (piny 7, 8) z czasem martwym ok. 200-300ns. Udało mi się to zrobić na ATtiny 25/45/85, ale musiałem się przesiąść na coś co ma więcej pinów. W ATtiny261 jest więcej rejestrów, które trzeba ustawić. Na początku włączam PLL (potrzebuję:...
Jako że zajmuję się modelarstwem rc chciałem wyposażyć mój model w światła, ale żeby nie było tak łatwo sięgam również do mojego drugiego hobby jakim jest elektronika. Więc kupiłem attiny 2313 i próbuje zrobić migacz do modelu mam nadzieje że znajdę tutaj pomoc. Będę w tym temacie opisywał moje boje i problemy pierwszym z nich jest to, że chciałbym...
jeśli chodzi o ten port d to musiałem pominać i nie zmienić nie działają polecenia do timera i PWM polecenia While Wend. najlepszym sposobem bedzie jeśli sobie skompilujesz to w bascomie to co linijke występuje błąd. Jeśli chodzi o następce AT90s2313 na ATtiny to owszem ale ja potrzebuje zminimalizowąć wymiary układu dltego ten ATtiny mi odpowiada Dodano...
Witam, Mam procka Attiny 2313 i taki malutki kodzik: $regfile = "attiny2313.dat" 'najpierw określamy typ proca $crystal = 1000000 Config Portb = Output Portb = &B000000 Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Prescale = 1 Do Pwm1a = 1024 Waitms 500 Pwm1a = 750 Waitms 500 Pwm1a = 600 Waitms 500 Pwm1a = 260 Waitms 500 Pwm1a...
Oba przerwania INT mam ustawione na zbocze opadające EDIT: Jest jakaś różnica w działaniu Idle i Powerdown przy zastosowaniu wewnętrznego zegara zamiast kwarcu? A tak wygląda kod: $regfile = "ATtiny2313.DAT" $crystal = 4000000 Enable Interrupts Enable Int0 Enable Int1 Config Int0 = Falling Config Int1 = Falling Config Portd = Input Portd =...
Super, działa tak jak chciałem! $regfile = "m8def.dat" $crystal = 1000000 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...
Ustaw PWM1A w TCCR1A. Po co ustawiasz PWM1X?
Piny te od PWM-a trzeba skonfigurować jako wyjścia. DDRB.3 = 1 DDRB.4 = 1
Sub Zwieksz if a < 100 then incr a endif Pwm1a = a End Sub Sub Zmniejsz if A > 0 then Decr a end if Pwm1a = A End Sub
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down Dim Pokaz As Single dim B as single Cls : Lcd " Swiatlo v0.1" : Lowerline : Lcd " by Grzegorz Z." Waitms 500 Pwm1a = 0 b=100/255 Do If Pind.5 = 0 Then if pwm1a=255 then pwm1a=255 else Pwm1a = Pwm1a +1 end if If Pind.4 = 0 Then if pwm1a=0 then pwm1a=0...
Rozświetlanie natychmiastowe: PWM1A = 0 jeśli aktywny stan zero lub PWM1A=255 jeśli konfiguracja odwrotna (aktywny stan wysoki). Gaszenie płynne: Pętla, Waitms/Wait, PWM1A = PWM1A - 1, Koniec pętli. Konfiguracja: http://zbeegin.republika.pl/bashelp/s_co... Już większej filozofi nie można w tym temacie napisać...
Masz gotowca, zaznaczam kompletny brak wsparcia technicznego. Wszelkie prawa zastrzeżone. Udostępniam na licencji GNU GPL. Wartości PWM dobierz sobie we własnym zakresie. '-----------GNU GPL---------------- '----------By Kaytec--------------- '-------www.elektroda.pl----------- '---------------------------------- '------Konfiguracje:---------------....
Proponuje tak: Dim I As Byte 'przykładowy Do If PINB.1 = 0 Then if I <255 then Incr I 'albo otwarte, albo zamknięte Else if I >80 then Decr I endif Pwm1a = I Waitms 100 Loop
To możesz zrobić tak: [syntax=basic4gl] Odczytaj_sprzetowy_uart: Dane = "" Do 'Odbierz znak po znaku Kod = Inkey() Dane = Dane + Chr(kod) 'Zapisz w Dane If Dane = "Obroty1" Then Obroty = 1 If Dane = "Obroty2" Then Obroty = 2 If Dane = "Obroty3" Then Obroty = 3 Bufor = Ischarwaiting() 'Zakoncz jeśli brak znaku Loop Until Bufor = 0 Return [/syntax] i...
Mniej więcej tak: $regfile "Attiny2313.dat" $crystal = 4000000 Config Pind.3 = Output Config Pind.0 = Input Config Pind.1 = Input Config Pinb.3 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 8 Dim I As Byte S1 Alias Pind.0 S2 Alias Pind.1 Set Pind.1 Set Pind.0 Pwm1a = 0 Do If I...
Poczytaj tematy i uzyj szukaj. Attiny2313 nie posiada adc wiec potencjometrem nie dasz rady tego sterowac. Domyslam sie ze robisz do w bascomie. Tu masz kawalek kodu jak konfigurowac timery zebys mial 4 pwm. '******* procek ******* $regfile = "attiny2313.dat" $crystal = 8000000 $hwstack = 30 $swstack = 30 $framesize = 30 '****** dioda R/G...
Aż se na płytce złożyłem ten układ i program sprawdziłem. No i faktycznie świeciło na stałe. Do poprawienia były bzdety. Wklejam jeszcze raz, przetestowany i na 100% wszystko działa jak chciałeś [syntax=basic4gl] $crystal = 8000000 'Deklaracja częstotliwości kwarcu $regfile = "attiny2313.dat" Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A...
A masz gotowca: Set Tccr1a.7 // Set OC1A on Compare Match (Set output to high level). Set Tccr1a.6 Set Tccr1a.5 //Set OC1B on Compare Match (Set output to high level). Set Tccr1a.4 Set Tccr1a.0 //WGM10 Fast PWM 8-bit Set Tccr1b.3 //WGM12 Pwm1a = 0 Pwm1b = 0 Set Tccr1b.cs00 //Prescale = 1
Witam.. Mam podłączony sterownik silnika krokowego m542 + silnik pod prostą aplikację z attiny. potrzebuję uzyskać na silniku dość wysokie obroty (jak na krokowy/skokowy) i przez to musze zrobic łągodny rozruch. Wszystko byłoby ok gdyby nie fakt, iż program czasem się przycina (moim zdaniem w losowych momentach w czasie przyspieszania) i cała procedura...
http://obrazki.elektroda.pl/5214176000_1... Witam. Przedstawione rozwiązanie powstało z myślą o zdalnym (radiowym) sterowaniu modelem samochodu. Umożliwia płynne regulacje: kierunku (lewo/prawo) oraz prędkości ruchu (przód/tył). Rozkaz typu "włącz/wyłącz" pozwala np. uruchamiać sygnał dźwiękowy (klakson) lub włączać światła. Spośród...
Witam, Znalazłem taki schemacik: http://obrazki.elektroda.net/23_12875005... I część kodu: Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Prescale = 1 Do Pwm1a = 22 Loop End Mam pytanie: Czy można zastosować zamiast tranzystora unipolarnego tranzystor bipolarny?
Witam, po prześledzeniu masy materiałów dotyczących obsługi PWM, oraz sterowania nim serwa nadal mam kilka pytań. Następująco: Pełen cykl serwa wynosi 50Hz czyli 20ms, podczas którego zwięszkając/zmniejszając wypełnienie o 0.5ms porusza się silnikiem. Problem w tym aby dokładnie podzielić zegar procesora (który wynosi 4MHz) na 50Hz. Przy preskalerze...
Witam przepisałem z książki Pana Góreckiego taki programik: Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare A Pwm = Clear Down 'Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down 'Config Portb = 255 : Portb = &B11111111 : Config Portd = &B1111100 : Portd = &B1111111 Pwm1a = 255 Do If Pind.0 = 0 Then Decr Pwm1a If Pind.1...
Ok :) Teraz mam tak: Do 1wreset 'reset 1wwrite &HCC 'jedna kostka, więc wykorzystujemy rozkaz SKIP ROM 1wwrite &H44 'dokonaj konwersji Waitms 750 'Czekaj 1wreset 'reset 1wwrite &HCC 'rozkaz adresowy SKIP ROM 1wwrite &HBE 'rozkaz funkcyjny - polecenie odczytu DS18B20 Odczyt(1) = 1wread(2) 'odczytaj dwa pierwsze bajty T...
$regfile = "attiny2313.dat" $crystal = 1000000 Config Portb.2 = Output Config Portb.3 = Output Config Portb.4 = Output Set Tccr0a.0 Set Tccr0a.7 Set Tccr1a.0 Set Tccr1a.7 Set Tccr1a.7 Set Tccr1a.5 Set Tccr1b.7 Set Tccr0b.cs00 Set Tccr1b.cs00 Zielony Alias Pwm0a Czerwony Alias Pwm1a Niebieski Alias Pwm1b A co do zmiany kolorów to porostu ręcznie...
Witam. Mam pewien problem z działaniem jednego programu. Programowania uczyłem się z książki Góreckiego "Mikrokontrolery dla początkujących" i na tym się opierałem tworząc ten program. Chciałem sobie zmontować rozładowarkę do pakietu i napisałem tak: $crystal = 8000000 Declare Sub Ustaw(x As Byte) Config Timer1 = Pwm , Pwm = 8 , Prescale = 1...
Witam Mam taki mały program sterujący dwoma sekcjami LED. [syntax=basic4gl] $regfile = "attiny2313.dat" $crystal = 8000000 $baud = 9600 ' predkość transmisji $lib "mcsbyte.lbx" '********************* Konfiguracja UART Config Serialin = Buffered , Size = 18 '********************* Konfiguracja wejść i wyjść Config Portb.1 = Input 'wejście IN1 Set Portb.1...
zmienna3 = Mid(zmienna , 7 ,3) i teraz zmienna3 = pwm1a - czyli pwm1a będzie z wartością 123 ?? Nie. Ale może zadziała: PWM1A = VAL(zmienna3)
Witam Szukałem dużo na forum ale niestety nie znalazłem odpowiedzi jak dokładnie zrobić pwm na pwm0a Czy może mi ktoś napisać co mam dopisać do programu abym mógł sterować 3 kanałem pwm? Oto program: [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 8000000 Config Portd.6 = Output Config Portb.0 = Output Config Portb.3 = Output Config Portb.4...
Witam, Nie wiem dokładnie jak to dobrze ując w temacie. Przeprowadzam ćwiczenia z ksiązki a dokładnie sterowanie PWM, czyli w moim przypadku diodą LED. Rzecz w tym, że kiedy włącze zasilanie do swojej płytki AVR ZL11AVR na chwilę dosłownie ok. 10 ms zapala się dioda i gaśnie. Pozniej już jest wszystko ok. Program spisuje sie dobrze i chodzi tak jak...
Napisałem w Bascom AVR kawałek programu na Attiny2313 (sterowanie silnikiem za pomocą PWM) i się zapętliłem - program ogólnie działa tylko nie wiem dlaczego kolejne naciskanie przycisku S1 (pind.1) powoduje cykliczną zmianę Pk (pinb.2) - pierwsze nacisnięcie S1 powoduje ustawienie Pk na 1, a kolejne na 0. (sprawdzałem bez wykonawczej części układu -...
Witam serdecznie napisałem programik, ktory gra na glosniczku rozna czestotliwosc w zaleznosci od wcisnietego przycisku s1 lub s2 generowana PWM. Na wyswietlaczu podawana jest aktualna wartosc , z tym ze jak czestotliwosc dzwieku na glosniczku idzie w gore na wyswietlaczu spada i odwrotnie :( . Czym moze to byc spowodowane ? Proszę o ewentualne sugestie...
Witam. Nadmieniam, że czytałem już kilka wątków i stosowałem metody rozwiązania problemu, jednak nie pomogło mi to;/ Do rzeczy - buduję samochodzik zabawkę, sterowany pilotem w kodzie RC5. NIestety bezskutecznie. Odbiornik podczerwieni - tsop1736, zasilanie podpięte przez szeregowy rezystor 220omów i kondensator 100u. W pierwotnej wersji, wyjście odbiornika...
Szukam porady na temat odpalenia 4kanałow PWM na tiny2313. Kod poniżej uruchamia jeden kanał: Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 8 Start Timer1 Pwm1a = 100 Próbowałem z Tccr0a = &B00110011 Tccr0b = &B00001000 Ocr0a = 200 Ocr0b = 200 jednak bascom nie "podświetla" Tccr0a tak jak Tccr1a,...
Czy ktos ma jakis pomysl aby napisac program do sterowania dioda rgb poprzez pwm na attiny2313 tak a zeby byly 3 kanaly? bo swoja przygode z pwm wlasnie zaczynam i mam drobne problemy. jak z osobna sterowac kazdym kolorem. ' $sim Config Portb = Output Config Portd = Input Config Portb = Output Dim I As Integer Config Timer1 = Pwm , Pwm = 10 , Compare...
Dzień dobry, Popełniłem prosty programik na ATtiny2313. Przy naciśnięciu któregoś z guzików (Pind.0 lub Pind.1), zmienia się wartość rejestru Pwm1a - porównywanie ze stanem timera1. Dzięki temu uzyskujemy efekt rampy i rosnącą częstotliwość na wyjściu. Niestety program działa o tyle dziwnie, że czasami się zacina - tzn czasami zmiana częstotliwości...
Tak mi to wyszło to mój pierwszy program (nie licząc włącz-wyłącz diode) wiec proszę o wyrozumiałość. Częstotliwości jeszcze nie obliczyłem bo mam z tym trudności. Nie wiem tylko czy dobrze zrozumiałem ze timer1 w trybie Pwm jako jedno przerwanie zlicza jeden cykl [syntax=basic4gl]$regfile = "2313def.dat" $Crystal=8000000 Config Pinb.3 = Output Config...
Witam Mam problem z ustawieniem PWM na attiny2313 + L293D dla silników. Czy ustawie pwm1a = 255 czy pwm1a = 100 to silnik i tak kręci się z maksymalną prędkością. Pin 1 z L293D podłączyłem pod 16 pin attiny2313, a pin 9 z L293D podłączyłem pod pin 15 w attiny2313. $regfile = "attiny2313.dat" $crystal = 1000000 Config Timer1 = Pwm , Pwm = 8...
wklejam jeszcze raz cały kod: [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 12000000 $baud = 9600 $hwstack = 18 $swstack = 8 $framesize = 20 Config Serialin = Buffered , Size = 40 Config Portb.2 = Output Config Portb.3 = Output Config Portb.4 = Output Config Portd.6 = Input Ucr = &B10010000 Set Tccr0a.0 Set Tccr0a.7 Set Tccr1a.0 Set Tccr1a.7...
Program: $crystal = 4000000 $regfile "attiny2313.dat" Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Down Config Portd = 255 Config Portb = 255 Portd = 255 Portb = 0 Dim Licznik As Byte Dim Lock As Bit Lock = 0 Licznik = 0 Do If Pind.0 = 0 Then If Lock = 0 Then Lock = 1 Gosub Up End If Else Lock = 0 Gosub Down End If...
Szkoda że tak łatwo się zniechęcasz. Ja mam taki problem z zegarkiem , że po podłączeniu kwarcu zegarkowego do XTAL w atmega8 zaczął chodzić dokładnie ...tylko 2 razy wolniej. Wie ktoś jak to naprawić ?? Już wiem co jest nie tak chyba. Timer1 jest 16-bitowy >liczy do 65536 potem następuje przepełnienie. A kwarc zegarkowy "liczy" do połowy tego(32.768Khz)....
zagladałem i wiele nie znalazłem, mam taki mniej wiecej program i nie wiem.... moze czegos brakuje? szukałem juz na elektrodzie, ale nie znalazłem niczego... [code] $crystal = 3500000 $regfile = "2313def.dat" Ddrb = &B00111111 Ddrd = &B11111111 '****deklaracje zmiennych Config Timer1 = PWM , PWM = 8 , COMPARE A PWM = CLEAR UP Config Timer0 = Timer ,...
Witam mam problem ze stworzeniem 4 kanałów pwm na attiny2313 w bascomie zrobiłem pwm1a i pwm1b na Timer 1 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 64 ale niestety nie wiem jak sie zabrać za pwm0a i pwm0b ? gdy dodaje linijkę Config Timer0 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare...
pwm1a alias atmega8 pwm1a atmega16 pwm1a
losowy piosenka synchronizacja częstotliwością sieci dymić briggs
pralka bosch wan2026 pralka bosch wan2026
Ford Focus Mk1 – wymiana żarówek podświetlenia panelu nawiewu T5 W1.2W krok po kroku Volvo FM9 vs FM240 Injector Compatibility: D9A EUI vs D7E Common Rail