Piny te od PWM-a trzeba skonfigurować jako wyjścia. DDRB.3 = 1 DDRB.4 = 1
Problemem okazał się brak konfiguracji wyjść PWM1a i PWM1b
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
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...
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:---------------....
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)...
Na 100% działa: Dim I As Byte I = 0 Do If PINB.1 = 0 Then If I < 255 Then Incr I Else If I > 0 Then Decr I endif Pwm1a = I Pwm1b = I Waitms 100 Loop Dodano po 2 $crystal = 8000000 Config Pinb.3 = Output Config Pinb.4 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1 Dodano po 3 I oczywiście...
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...
Dzinx Zaraz się zabieram za Twojego help'a ;) Już - stestowane : Dodano po 31 $regfile = "attiny2313.dat" $crystal = 8000000 Config Portb = Output 'Portb = 0 Config Portd = Input Portd = 0 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8 Start Timer1 Config Timer0 = Pwm , Prescale = 8 ,...
Jeżeli chodzi o PWM - wszystkie 4ry wyjścia mam zajęte ponieważ są po 2 pary diod gasnących i zapalających się. Napisałem o 1 parze bo to w sumie nie będzie duża różnica w kodzie. Jeśli chodzi o PWM mam to rozwiązane tak: For Zn = 0 To 255 Pwm0b = Zn Waitms 15 Next Zn For Nn = 0 To 255 Pwm0a = Nn Waitms 15 Next Nn For Zn = 255 To 0 Step -1 Pwm0b = Zn...
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...
Mam pytanie jak skonfigurować timer0 który jest 8 bitowy aby pracował jako generator PWM ? Mam coś takiego: $regfile = "attiny2313.dat" Config Portd = &B1111100 Portd = &B1111111 Config Pinb.3 = Output Config Pinb.4 = Output Config Pinb.2 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale...
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...
Generalnie wszystko musisz oprzeć o najmniejszy interwał czasu w tym przypadku 4ms. Dłuższe odcinki czasu należy odliczać poprzez zliczanie tych najkrótszych. [syntax=basic4gl] Dim Dir as Bit Dim I, J, K as Byte Do Pwm1a = I Pwm1b = I If Dir = 0 Then Incr I If I = 255 Then Dir = 1 End If 'jak max to zaczynam zmniejszać I Else Decr I If I = 0 Then Dir...
$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...
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...
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...
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 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...
Witam ;) Napisałem program który zaświeca 5 diód, wraz ze wzrostem sygnału pwm . Udało mi się uzyskać efekt, w którym diody świecą się zależnie od natężenia , gdy jest ono najwieksze świecą się wszystkie na raz, a gdy najmniejsze, żadna. Układem sterują dwa przyciski jeden zwiększający wartość , a drugi zmniejszający. Program wygląda tak: $sim $regfile...
Postanowiłem wypróbować pwm i nie jest wcale takie trudne:) Napisałem program z rożnymi funkcjami, przełączam je przyciskiem ale nie raz muszę go przetrzymać aby się przełączyła i bywa tak że przełącza o kilka do przodu co koledzy polecacie aby wyeliminować te dwa problemy? Oto kod [syntax=basic4gl]'stroboskop by Pawel $crystal = 8000000 'Deklaracja...
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...
masz tu kod przepsiany z ksiazki "programowanie mikrokontrolerow avr z jezyku bascom" dla procesora atmega8. Jedna dioda bedzie sie zapalac, druga gasnac. $regfile = "m8def.dat" $crystal = 8000000 config pinb.1= output Config Pinb.2 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Up , Prescale =...
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...
Poczytałem trochę o PWM lecz nie zrozumiałem za wiele oto przykładowy sygnały pwm są generowane na pb.1 i pb.2 i są to odpowiednio PWM1a i PWM1b. Ogólnie pwm'a konfigurujemy tak: Kod: Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down pwm 8 bitowy- czyli wartości od 0 od 255 następnie po wszystkich...
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...
No to popróbuj jeszcze :-) Ja tylko tak, aby sprawdzić, napisałem coś takiego: '---------------------------------------... ' ' RC5.bas ' '---------------------------------------... '$sim 'jen pro simulaci $regfile = "Attiny2313.dat"...
Mam problem z zaprogramowaniem żyrandolu RGB na ATtiny2313. Postanowiłem wykorzystać 3 kanały PWM do ustalania koloru świecenia diod. Problem polega na tym, że nie odbiera kodu RC5 nadawanego z pilota. Atmega8 na płytce testowej radziła sobie z tym bardzo dobrze, natomiast tiny na właściwej płytce nie chce. Podaje program jaki w tej chwili mam. [syntax=basic4gl]$regfile...
Ups : :) Jako wartość w terminalu podajemy np: red:125 Enter, lub gre:200 Enter [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 12000000 $baud = 19200 Config Serialin = Buffered , Size = 25 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...
Mam tranzystor IRF620 podłączony do 12V, który to tranzystor chciałby sterować przez PWM z Attiny2313. Nie chodzi mi jednak o sterowanie silnika - ja potrzebuję mieć stałe, konkretne napięcie 1,5V. Znalazłem w internecie wiele opisów konfiguracji PWM w bascomie, ale wszystkie były pobieżne i większość traktowała o regulacji obrotów silnika, a więc o...
Niestety żadna z w/w opcji nie działa ale poradziłem sobie z tym. oto kod:[syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 12000000 $baud = 9600 Config Serialin = Buffered , Size = 20 $hwstack = 16 $swstack = 6 $framesize = 14 Config Portb.0 = Output Config Portb.1 = Output Config Portb.5 = Output Config Portb.6 = Output Config Portb.7 = Output...
Witam :D Mam pomysł jak oświetlić pokój diodami LED RGB i halogenami sterując pilotem w standardzie rc5 i klawiaturą 4 klawisze . Chciałbym uzyskać następujące efekty : 1 przycisk off on 2 przycisk mode : a)przejście RGB ( regulacja szybkości zmiany kolorów ) b)regulacja R ( regulacja mocy ) c)regulacja G ( regulacja mocy ) d)regulacja B ( regulacja...
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...
Witam! Mam kłopot z odbiorem danych z PC. Podłączam uC do PC + terminal i wpisuje ciąg danych r:122.g:144.b:125 i enter no i wszystko super bo diody przygasają, ale jest problem jak Podepnę pod linuxa i chcę wysłać w ten sposób echo "r:122.g:144.b:125" > /dev/ttyUSB1 i nic sie nie dzieje, wiec moje pytanie w jaki sposób wysyłać dane lub co zmienić...
Dzięki za pozdrowienia i za odpowiedź . A co do układu to jest automat do pokoju i ma sterować światłem rgb , halogenami , klawiatura umieszczona we włączniku+ dioda rgb ma sygnalizować jaka funkcja światła zostanie zmieniona , odczytać i zapisać i2c to zadanie dla attiny2313 . A atmega8 ma wyświetlać na wyświetlaczu co jest obecnie za funkcja , pobierać...
Właśnie chcę to dokładnie zrozumieć by nawet bez kalkulatora móc to wyliczyć :) choć on bardzo ułatwia i nie trzeba za bardzo wysilać szarych komórek :) Kalkulatory jak najbardziej się przydadzą i za nie wielkie BÓG ZAPŁAĆ :) Z pierwszego kalkulatora zauważyłem, że Timer0 i Timer2 są 8 bitowe natomiast Timer1 i Timer3 16 bitowe Attiny13 ma tylko jeden...
Da się i własnie na flagach timera powinno się to zrobić. Samo taktowanie obniżaniem wartości to nie wszystko. Dioda zapala się już przy bardzo małej wartości PWM i potem dokładanie jej czasu intensywność świecenia zmienia coraz mniej. Dlatego przy ściemnianiu mało się dzieje i potem nagle dioda szybko gaśnie. Chciałem wiec uzyskać taki efekt by im...
bascom pwm1b attiny2313 odmierza attiny2313 wyprowadzenia
monta telewizji pompa ciepła usterka urmet moduł schemat
napęd bramy przesuwnej uziemienie basenu
Brama dwuskrzydłowa zamyka się, ale nie otwiera Demontaż stref zgniotu w Jaguar F-PACE