Dodam że w programie poprawiłem błędy składni a nie popatrzyłem na schemat i nie poprawiłem błedów logiki. Na schemacie podłączone masz tylko wyjście OC1A więc odwoływanie się w programie do PWM1B jest całkowicie bezcelowe. Do tego DC_on_off to alias pinu OC1A czyli Timera1 który został ustawiony w tryb generowania sygnału PWM. W takim trybie Timer...
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
a gdzie masz Prescale?? i napisz sobie w programie że PWM1a=A i przy ustawianiu portów jako wyjściowych usuń " ' " bo masz napisany i to Ci knoci wszystko Do For A = 0 To 255 PWM1a = A PWM1b = A waitms 4 Next A For I = 255 To 0 Step -1 Pwm1a =A Pwm1b =A Waitms 4 Next I Loop cześć kodu z książki Marcina Wiązania A z tego co zrozumiałem z twojej wypowiedzi...
Najprosciej mowiac PWM to wyjscie na pinach PB1 i PB2 Do tych wyjsc mozemy zapisywac wartosc PWM ktora bedzie sie zawierac miedzy 0 a 254 , Dzieki temu mozna regolowac predkosc silnika DC w prosty sposob, np za pomoca tranystora NPN bez wiekszej komplikacji ukladu moze to byc np TIP122 co do progamowania ten kawelk kodu pokazuje jak zaprgoramowac PWM...
Podejrzewam że problem jest z odbiorem danych z pilota. BASCOM i GETRC5 nie za bardzo sobie z tym radzi. No i czy masz na pewno pilota RC5? Dodano po 1 Zobacz to: [syntax=basic4gl] $regfile "m8def.dat" 'konfiguracja mikroprocesora $crystal = 4000000 'konfiguracja kwarcu Config Portb = &B11111111 Portb = &B11111111 Config Portc = &B1111101...
Witam, Natknąłem się na problem dotyczący konfiguracji licznika Timer1. Najprawdopodobniej BASCOM zawiera jakiś błąd i używając standardowych instrucji uzyskanie PWM z tego licznika nie jest możliwe. Używając standardowych "Config Timer1..." nie można nawet zmusić Timer1 do zwyczajnego zliczania... Mniejsza o BASCOM, postanowiłem zrobić to samo wpisując...
Mam taki problem napisałem mały programik w bascomie i nie wiem dlaczego nie mogę użyć pwm1b oraz jak poprawnie w bascomie skonfigurować ten 3-ci pwm z timera 0 oto mój programik http://obrazki.elektroda.pl/4067233800_1... http://obrazki.elektroda.pl/4067233800_1...
Rozumiem ze zmiana dotyczy: Config PinB.5 = Output mimo tego nie daje sie skompilować. Wyświetla: Error : 46 Line : 16 Assignment error [PWM1B: 0 127: 112] , in File : C:\PROGRAM FILES\MCS ELECTRONICS\BASCOM-AVR\SAMPLES\EDBEXPERI... a dotyczy: Pwm1b = 127
Proszę was o szybkie sprawdzenie czy ta konfiguracja pwm będzie działała poprawnie. $regfile = "m8def.dat" $crystal = 12000000 Baud = 19200 Config Portb = Output Portb = &B00000000 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up Pwm1a = 100 Pwm1b = 200 Ps.Z jaka częstotliwością działa pwm w atmega8?
Włącz przerwania " Enable Interrupts " i możesz sprawdzić zamienić "OCR1B = 100" na " PWM1B =100 " Z ciekawości sprawdzę na attiny85 jak wrócę.
Programuję mikrokontroler Atmega 128 w Bascomie i mam problem z ustawieniem tego trybu dla timera3. Posiada on trzy wyjścia na których mogę ustawić PWM, jednak nie potrafię tego zrobić. Ustawiając PWM na timerze 1 wszystko działa. Bascom podświetla PWM1a oraz PWM1b na niebiesko natomiast z PWM1c nic się nie dzieje, tak samo dzieje się z timerem3. Bardzo...
Witam. Ja zrobiłem tak: [syntax=basic4gl]Declare Sub PWM_ Dim Zm_pwm As Byte Sub Pwm_ For Zm_pwm = 0 To 255 Step 1 Pwm1a = Zm_pwm Pwm1b = Zm_pwm Waitms 15 Next Zm_pwm Wait 4 For Zm_pwm = 255 To 0 Step -1 Pwm1a = Zm_pwm Pwm1b = Zm_pwm Waitms 15 Next Zm_pwm End Sub[/syntax]
Witam, proszę o pomoc w następującym problemie. Uproszczony przeklejony program w bascom działa w ten sposób że po przesłaniu określonych liter przez rs zapala RGB ledy w odopowiedni sposób. Przerwanie działa dobrze. Natomiast chodzi o procedure "zmieniaj" która to wywołana w przerwaniu działa, ale przerwanie nie powoduje wyjścia z niej. Musi wykonać...
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...
Nie potrzebnie są wpisane Pwm1b i Ocr2. Brakuje Do i Loop, ale w programie było. No i raczej waitms 4 tutaj nie pasuje:-)
jakis przyklad jak to zrobic nie tacąc tej regulacji jaka daje mi T1? Edit: Lol - po 3 piwach dostalem przeblysku... $regfile = Mega32.def $crystal = 20000000 '20MHz Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Dim T1 As Integer Dim Licznik As Integer Config Portd = Output T1 = 1 Do Pwm1a = 1...
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down, prescale 1 przy konfiguracji musisz dodać opje "prescale" w helpie tego nie napisali ale jak jej nie dodasz to ci pwm nie ruszy start timer1 i zadajesz wartosć wypełnienia np. Pwm1a = 100 Pwm1b = 200 i smiga
O K Widzę,że sam muszę sobie odpowiedzieć. Po żmudnych próbach z konfigurowaniem PWM w Bascomie doszedłem do wniosku, że żadna z wersji tego kompilatora nie jest w stanie prawidłowo skonfigurować PWM na procesorze ATMEGA. Trzeba to zrobić przez bezpośrednie oddziaływanie na rejestry. Np.: $regfile = "m16def.dat" 'Deklaracja rodzaju procesora Ddrd =...
Witam,mam jeszcze jeden problem w bascomie ,nie chodzi teraz o silniki krokowe ale nie chciałem zakładać nowego tematu. Otóż chce wygenerować pwm na atmega8 przy użyciu timera2,jaka to będzie zmienna dla tego timera?Wyczytałem ze to pwm2a/b ale nie działa .Oto kod: ...... Config Timer2 = Pwm , Prescale = 1 , Compare Pwm = Clear Down Dim P1 As Byte Dim...
Witam. Po przeczytaniu kilku postów na forum napisałem program żeby sterować jasnością dwóch diód led. Jednak program nie działa , gdy podaję stan niski na wejścia nic się nie dzieje. Czy dobrze skonfigurowałem PWM? Oto kod w bascom: $regfile = "m8def.dat" $crystal = 1000000 Config Pind.0 = Input Config Pind.1 = Input Config Pind.2 = Input...
Witam. Z PWM nie mam zbyt wielkiego doswiadczenia aczkolwiek wydaje mi sie ze PWM nie dziala na pinach ktore sobie sam ustawisz tylko na pinach OC1A i OC1B. Mam dla ciebie program do obslugi PWM ktory miga diodami LED. $regfile = "m16def.dat" $crystal = 8000000 Config Pind.4 = Output Config Pind.5 = Output Config Timer1 = Pwm , Pwm = 8 , Compare...
Wielkie dzięki za wszystkie rady i uwagi. Dzisiaj napisałem od nowa kod. 'KONFIGURACJA czujników dla czarnej lini $regfile = "m8def.dat" $crystal = 1000000 Config Portd = Input Config Adc = Single , Prescaler = Auto , Reference = Avcc 'konfiguracja adc Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down...
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...
oj przepraszam chodziło mi o 5 kanałow, i czy wartośc modulacji pwm mam wpisywać po Pwm1a=...?? Pwm1a = 128 Pwm1b = 128 Compare2 = 128 ///i czy tutaj ma być Compare czy pwm analogicznie dotego wyżej (np pwm2a i pwm2b) ?? Pwm3a = 128 Pwm3b = 128
np Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1 Config Timer0 = Pwm , Prescale = 1 , Pwm = On , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down 'Konfiguracja Timera Config Timer2 = Pwm...
Prośba o sprawdzenie kodu , dokładnie chodzi czemu nie działa PWM . Zmiana jest dokonywania przez Bluetooh , z aplikacji . Wysyła kody ASCII wysłanie kodu nic nie zmienia. Aplikacja działa poprawnie , wysyła kody cyfrowe od 0 do 9 i PWM 100% litera q . [syntax=vbnet]BLUE VEHICLE BY JARO ©2015 '---------------------------------------...
Witam ma problem przepisałem z książki program "Programowanie AVR w języku Bascom" Marcin Wiązania Listing 8.5 REGULACJA JASNOŚCI ŚWIECENIA DIODY LED ZA POMOCĄ PWM . Przy kompilacja wywala mi jakiś błąd może ktoś to składał ? Prosił bym o pomoc bo muszę do szkoły coś zmajstrować a bez tego ani rusz był bym wdzięczny POZDRAWIAM ! http://obrazki.elektroda.net/14_12578811...
Witam, Wiem, że może to nie najlepszy pomysł, aby zakładać taki temat, ale chciałbym zrozumieć pewne rzeczy dotyczące bascoma i jego instrukcji, mam nadzieję, że ktoś będzie miał ochotę pomóc. Mianowicie : [syntax=Bascom]$regfile = "m8def.dat" $crystal = 1000000 'Konfiguracja przetwornika analog-cyfra (ADC) Config Adc = Single , Prescaler = Auto 'Konfiguracja...
Witam Potrzebuje pomocy w napisaniu programu dla Atmega32 w Bascom Mam prosty układ w którym podanie masy z przycisku na pin PC0 (PINC.0) powoduje sofstart na PWM1A (PD5) od 0 255 i po softstarcie PWM1A pozostaje na wartosci 255 aż do puszczenia przycisku na PINC.0. Natomast podanie masy z przycisku na pin PC1 (PINC.0) podowduje taki sam efekt ale na...
Chciałbym zrealizować sterowanie diodą led rgb. Atmega8535 ma w sumie 4 kanały PWM Na razie udało mi się wykorzystać tylko jeden kanał pwm z zegara t1. Ale sterowanie dioda rgb nie było dokładnie takie jak chciałem. Ogólnie chciałem zrobić tak aby móc wybrać kolor w standardzie rgb (czyli dla każdego segmentu wartość od 0 do 255). jednak uznałem, że...
$regfile = ? 'procek $crystal = ? ' oscylator Config Pinb.1 = Output Config Pinb.2 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 Dim I As Byte Dim J As Byte J = 255 Do For J = 0 To 6 For I = 0 To J Pwm1a = I Waitms 4 Next I For I = J To 0 Step -1 Pwm1a = I Waitms 4 Next I For I = 0 To J...
Witam wszystkich. Zaczynam programowanie w bascomie i mam już na starcie małe problemy. Mam książkę "programowanie mikrokontrolerów AVR w języku bascom" czytam właśnie temat o generowaniu sygnału PWM i pisze program z ksziążki listing 8.5. Zbudowałem sobie zestaw uruchomieniowy z2avr (taki jak w książce) wgrałem ten program a PWM nie działa nie wiem...
Witam ponowne, Kupiłem LCD i mam z nim problem ciągle świeci. Nie wyświetla mi nic co mu puszcze z BASCOM'a. Już wyczytałem aby wyłączyć JTAG'a i też nic. Domyślam się że może być coś z kontrastem ale nie wiem na 100%. Może zrobiłem błąd podczas projektowania płytki z uC tam gdzie jest bramka która steruje kontrastem poprzez sygnał PWM... Nie wiem...
Witam proszę o sprawdzenie oraz prze kompilowanie programu program nie jest mój tylko został przerobiony na moje potrzeby. Przy portach adc jest 5 pinów jednak wykorzystam tylko ADC4,ADC3,ADC2 Schemat: http://obrazki.elektroda.pl/2618172200_1... Program: [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 16000000 'Konfiguracja przetwornika...
Witam, Mam ATmege16 i chce zrobić zegar RTC. Mam podłączony wyświetlacz LD 16x2 i mam taka opcje steruje podświetleniem poprzez sygnał PWM1b Ogólnie mój kod wygląda tak: $regfile = "m16def.dat" $crystal = 8000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0...
Witam. Jak wczytać zamiast wartości I (For I = 0 To 255), elementy tablicy i nimi wysterować wypełnieniem? Tab1: Data 94 , 61 , 115 , 13 , 97 , 127 , 73 , 79 , 127 , 127 , 119 , Data 107 , 127 , 95 , 89 , 64 , 255 , 65 , 0 , 100 , 90 , 65 , 60 , Data 127 , 125 , 60 , 70 , 80 , 0 , 65 , 90 , 65 , 0 , 78 , 63 , 10 , Data 3 , 10 , 28 , 15 , 60 , 127 ,...
Chciałbym zrealizować sterowanie diodą led rgb. Atmega8535 ma w sumie 4 kanały PWM Na razie udało mi się wykorzystać tylko jeden kanał pwm z zegara t1. Ale sterowanie dioda rgb nie było dokładnie takie jak chciałem. Ogólnie chciałem zrobić tak aby móc wybrać kolor w standardzie rgb (czyli dla każdego segmentu wartość od 0 do 255). jednak uznałem, że...
Witam, chciałem napisać prosty program w bascomie do sterowania oświetleniem w moim samochodzie. Chodzi o to aby po otwarciu lewych drzwi zaświeciła się od dołu biała listwa LED ma ona jednak robić to powoli dlatego korzystam ze sterowania PWM. Chodzi jednak o to że jak lewe drzwi to lewa listwa jak prawe to prawa. Napisałem program jak niżej: Do If...
OK, problem rozwiązałem, problem polegał na tym, że pilot ma przyciski "CD", "FM", "MW" i "AUX". Naciskając przypadkowo przycisk "FM" zmieniłem nadawane adresy i komendy, żeby wszystko wróciło do normy musiałem nacisnąć przycisk "CD". Jak widać więcej osób zgodziło się, że nie zrozumiało postu, więc przepraszam za nieścisły język. Program do testowania:...
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...
Witam wszystkich fachowców, Z programowaniem uC w języku Bascom dopiero zaczynam wiec bardzo proszę o wyrozumiałość. Chodzi mi o wstawienie obsługi przycisku. Całość ma działać w następujący sposób -jeśli wciskam i cały czas trzymam przycisk, podając stan niski "0" na pind.1, to zaczyna działać pierwsza część programu. Natomiast w momencie kiedy puszczam...
Witam po przerwie! Wasze rady znacznie uprościły algorytm za co szczerze dziękuję. Liczę na Waszą pomoc i w tym problemie. Otóż idąc za ciosem chcę w określonym co najważniejsze RÓŻNYM przedziale czasu korzystać ze zmiany jasności LEDa w tym okresie czasu i robić zmierzch korzystając z PWM. Problem w tym, że nie chcę zakłócać pracy programu głównego...
Witam! Płytki i schematu nie trzeba już sprawdzać - wykonane, połączone i działa. Kwestia nierozwiązana to program w Bascomie. Poprzedni kod trochę zmodyfikowałem, ale nic to nie dało. Sama obsługa przerwania Timera0 jest zła, bo wywalając całą resztę i zostawiając: [syntax=basic4gl]$regfile = "m8adef.dat" $crystal = 8000000 Config Pinb.1 = Output Config...
Witam Mam problem z wyświetleniem wartości PWM w %. Użyłem instrukcji fusing ale ona wyświetla mi wartość w ten sposób XX.X %. http://obrazki.elektroda.pl/6558296000_1... Jak to zrobić żeby wyświetliła XX % czyli jako liczbę całkowitą, bez kropki i miejsca po przecinku W załączniku plik.bas [syntax=basic4gl]$sim $regfile = "m8def.dat"...
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...
Czekam na przesyłkę bo zamówiłem tego nieszczęsnego MAX232 o który takie nerwy :D. a w między czasie szperałem w necie i posklejałem w ten sposób: [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 12000000 $baud = 19200 Config Portb.2 = Output Config Portb.3 = Output Config Portb.4 = Output Config Serialin = Buffered , Size = 30 Set Portd.3 Set...
witam wszystkich! napisalem taki program: Config Timer1 = Pwm , Pwm = 10 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down 'Start Timer1 Start Timer0 Config Portb = 255 : Config Portd = &B1110000 : Portd = &B1110111 Dim S As Integer...
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ć...
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...
Witam Zawsze bawiłem się z atmega32 ale od do projektu potrzeba mi 6 kanałów PWM 16bit (sterowanie 2 serwa i 4 regulatory z rewersem). Zastosowałem atmega128 T1 i T3 . Wszystko było było by OK ale na kanale OC1C jest brak sygnału , zapewne banalne rozwiązanie ale jakoś nie mogę zatrybić nadajnika: [syntax=vbnet]$regfile = "m32def.dat" $crystal = 16000000...
pwm1b attiny2313 bascom bascom enkodera bascom projekt bascom
uszkodzona grzałka kuchenki lodówka whirlpool otwierać drzwi sterowanie oświetleniem akwarium
beninca heady mikrokomputer cobra1
Uchwyt pliku w Arduino: co to jest i jak działa? Światła do jazdy dziennej przygasają zamiast gasnąć - przyczyny i rozwiązania
