Witam. 1./ konfiguracja Timera1 musi być w jednej linii jako całość np. Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect Po za tym masz nie pozamykane prawidłowo warunki IF. Poniżej przykład całości: $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.4 = Input Config Pinb.2 = Input Config Pinb.1...
[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...
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...
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:---------------....
Takie "na kolanie" ale powinno działać [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.3 = Input : Set Portb.3 : S1 Alias Pinb.3 Config Pinb.2 = Input : Set Portb.2 : S2 Alias Pinb.2 Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 64 Dim I As Byte I =...
Do autora - przyjrzyj się [syntax=vbnet]Config Portd.5 = Output : Dc_wlacz Alias Portd.5 Config Portd.1 = Input : S12_wolniej Alias Portd.1 Config Portd.2 = Input : S11_szybc Alias Portd.2 Config Pina.0 = Output : Kier_lewo Alias Pina.0 Config Pina.1 = Output : Kier_prawo Alias Pina.1 Config Pina.4 = Input : S10_start Alias Pina.4 Config Pina.5 = Input...
Jeśli chodzi o PWM to dorzucam Ci 2 programy sterowania PWM za pośrednictwem 2 przycisków w języku BASCOM. 'Program regulujący prędkość obrotową silnika DC 12 V 'Do sterowania wykorzystano sygnał PWM 'Częstotliwość przebiegu PWM ok. 254 Hz - 8 MHz/510/64 'Przycisk SI zwiększa prędkość obrotową silnika 'Przycisk S2 zmniejsza prędkość obrotową silnika...
Prosze bardzo: 'Program regulujący prędkość obrotową silnika DC 12 V 'Do sterowania wykorzystano sygnał PWM 'Częstotliwość przebiegu PWM ok. 254 Hz - 8 MHz/510/64 'Przycisk S1 zwiększa prędkość obrotową silnika 'Przycisk S2 zmniejsza prędkość obrotową silnika $regfile = "m8def.dat" 'informuje kompilator o pliku 'dyrektyw mikrokontrolera $crystal...
Zobacz to: $regfile = "m8def.dat" $crystal = 16000000 Config Portb = Output Portb = &B00000000 Config Portd = Input Portd = &B11111111 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 1 Przycisk Alias Pind.1 Dim D As Byte , Czekaj As Integer D = 0 Pwm1a = D Czekaj = 0 Do If Przycisk...
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...
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...
http://obrazki.elektroda.pl/3089511800_1... Witam, dziś prezentuje swój bezprzewodowy termometr pracujący na częstotliwości 433 MHz. Urządzenie składa się z nadajnika i odbiornika. Nadajnik odczytuje temperaturę pieca C.O. i wysyła ją do odbiornika. W odbiorniku mamy możliwość ustalenia górnego i dolnego progu załączenia alarmu, który...
http://obrazki.elektroda.pl/7139682100_1... Witajcie Wlasciwie jest to moj pierwszy temat na forum wiec prosze z gory o wyrozumialosc. Przepraszam rowniez, za brak polskich fontow, ale pomimo prob wielu nie ogarniam wiekszosci ogonkow z racji lokalizacji :/ Przyszly swieta, czas urlopu i odpoczynku... Niestety wraz ze swietami przybyla...
czy tak trudno zerknąć do helpa PWM1A = wartość zmienna = PWM1Aalias rejestru Compare 1A licznika TIMER1 (Word) używany gdy licznik pracuje w trybie PWM PWM1B = wartość zmienna = PWM1Balias rejestru Compare 1B licznika TIMER1 (Word) używany gdy licznik pracuje w trybie PWM PWM2 = wartość zmienna = PWM2rejestr Compare 2 licznika TIMER2...
Nie wiem na które pcb patrzysz , to ostatnie do pełnej wersji z pomiarem prądu i napięcia ,patrzę i widzę że jest OK . pin40 i pin39 są podpięte do dzielnika kondensator żeby nie pływał pomiar zbytnio. nie widzę tego o czym piszesz . Wieczorem sprawdzę jeszcze raz i podam zaktualizowane . Ok jest wieczór więc zamieściłem na 2 str. schemat i pcb w eagle...
$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...
Dzisiaj postaram się przybliżyć Wam mostki H. Mostek H jest układem elektrycznym umożliwiającym zmianę kierunku silnika prądu stałego poprzez odwracanie polaryzacji napięcia na jego wyjściu. Mostek taki można wykonać np. z przekaźników, tranzystorów lub można zastosować gotowy układ scalony. Nazwa pochodzi od graficznego odwzorowania układu. Mostek...
Udało mi się już uruchomić układ, i odpowiednio wysłać dane. Jedyny pozostały problem to częstotliwość dla GLCK generowana z procka 31kHz. Powinna być w granicach 1-8MHz :/ Bo aktualnie diody migają strasznie. Podłączenie (zamiast schematu) : Gclk Alias Pwm1a 'Portb.1 Clk Alias Portd.2 Le Alias Portd.5 Sdi Alias Portd.6 Nie wiem po co do tego podłączenia...
Akurat ten ma komunikację w jedną stronę ale też działa na ponad 200m. Specjalnie daje krótszy program żeby nikt nie musiał się męczyć i z 1000 linii kody wyciągać samej komunikacji z RFM12B. Nadajnik: $regfile = "M8def.dat" $crystal = 8000000 $hwstack = 128 '---------------------------------------... Dim Adc_data As Integer Dim...
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...
Kiedyś były zamieszczane kody źródłowe ale już nie ma ale znalazłem na naszym portalu kod .bas ale ma błędy czy ktoś mógłby pomoc ? na razie nie wiem co jest problemem. [syntax=vbnet] $regfile = "m8def.dat" $crystal = 8000000 '8MHz fuse bity CKSEL3...0!!! Config Portb = &B00110110 Config Portd = &B00001001 'Config Portc = &B00000000 Portd.6...
Morduje się już chyba dwa tygodnie i zaczynam już być w kropce bo w sieci krąży .bas (nawet na elektrodzie jest ) programu tego układu wiec radośnie zrobiłem hex i zaprogramowałem ( o ile czegoś nie pomieszałem bo już niczego pewny nie jestem ) i zadziałał. Chciałem wprowadzić zmiany w programie pozmieniać niektóre funkcje i nagle wszystko przestało...
Witam, Mam pewien problem z Rc5 w bascomie, chodzi mi o to, że instrukcje odpowiedzialne za rc5 są wykonywane tylko kilka razy a później, kaplica coś się zapycha:) i pilot nie działa. Cała sytuacja ma charakter nieliniowy tzn. że raz wykryje 3 naciśnięcia przycisku na pilocie a raz np. 5. Po zresetowaniu procka znowu RC5 działa przez parę cykli uP....
Witam: Mam problem, potrzebuję odczyt z pilota w przerwaniu a nie chce działać. Poniższy kod nie działa, natomiast to samo w pętli głównej działa: [syntax=basic4gl] $regfile = "m168pdef.dat" 'deklaracja rodzaju procesora (tutaj Atmega168p) $lib "mcsbyte.lbx" $crystal = 8000000 'taktowanie Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down ,...
Hmm po dodaniu zmiennej Pr i zrobeniu działania Pr = Pwm1a / 2.55 wyświetla mi na LCD gdy mam 255 85 % w czym robię błąd. $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Up Dim Pr As Integer Declare Sub Zwieksz 'Deklaracja procedury zwiększajšcej stan rejestru...
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...
$regfile = "m16def.dat" $crystal = 16000000 config pina.0 = input config pina.1 = input config pind.5 = output config TIMER1 = PWM , PWM = 8 compare , A PWM = clear down , compare B PWM = disconnect , prescale = 64 dim I as Byte s1 alias pina.0 s2 alias pina.1 set PORTA.0 set PORTA.1 PWM1a = 0 do if s1 = 0 then decr I if I = 0 then I = 225...
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 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...
W części pomiaru i wykrywania napięcia, autor sklecił taką konfigurację układu: http://obrazki.elektroda.net/43_12724788... Pomiar napięcia na A.0 odbywa się przez Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc Pomiar = Getadc(0) Stop Adc Pomiar2 = Pomiar / 72 Badanie stanu odbywa się poprzez ustalenie niskiej wartości...
Już poprawiłem. Zmiany naniosłem w kodzie w pierwszym poście. Niby wszystko jest ok, a jednak nadal nie działa. Co zrobić, żeby działało? Mi już brakło pomysłów ... A jednak udało mi się rozwiązać problem i znalazłem błąd:) Tutaj wklejam działający kod, jakby komuś kiedyś w przyszłości potrzebne było na wzór: mmacura Kolejny błąd: w odczycie ustawienia...
Oto cały ( poprawiony ) schemat wraz z kodem . Na drugi tydzień zostanie sprawdzony w praktyce . http://obrazki.elektroda.pl/4565788400_1...
czy to jest ten program gdzie didoda zmienia co chwile kolor ? tu jest ten kod co chcialem uzyc $regfile = "m8def.dat" $crystal = 8000000 config pinb.4 = input config pinb.2 = 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 s1 alias pinb.4 s2...
Ok. dzięki już zapominam o potencjometrze , co do wykrywania zera jestem totalnie zielony Próbowałem regulować pwm przez optotrak MOC3041 Nabazgrałem takie cos w skrócie to jest wycinek programu, chce sterować silnikiem 80W nadmuch do pieca centralnego. pomiar temperatur smagają pięknie a utknąłem na regulacji obrotów męczę się już 2 tygodnie i nic...
Cześć Uczę się dopiero BASCOMa i mam problem z PWM. Napisałem program: $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.4 = Input Config Pinb.2 = Input Config Portb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 1 Dim Obroty As Byte Plus Alias Pinb.4 Minus Alias Pinb.2 Set...
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, mam taki problem sprawdziłem elektronikę w robocie, wgrałem program i włączyłem zasilanie. I po włączeniu zasilania prawy silnik zaczął się kręcić do przodu a lewy nic nie ruszał się. Co może być nie tak i jak to naprawić. I gzie na zaciskach silników jest plus a gdzie minus? Proszę o pomoc.:D $regfile = "m88def.dat" $crystal = 16000000...
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 programem do atmegi8. Program ma za zadanie sterowac obrotami silnika DC 12V. Problem w tym, że sie nie chce skompilować.. Jestem początkujący i sie jeszcze słabo orientuje... Poniżej jego kod: $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.4 = Input Config Pinb.2 = Input Config Pinb.1 = Output Config Timer1 = Pwm...
Witam Wiem, że temat przycisku jest mocno nadwyrężony, ale ... Program ma jednym przyciskiem przy dłuższym przytrzymaniu zwiększać i zmniejszać wartość wyjścia PWM ( na zmianę ) lub przy krótszym włączyć/wyłączyć, czyli pwm1a = 0 lub pwm1a = 255. Każda z tych funkcji osobno działa ok, ale razem działa tylko włącz/wyłącz przy krótszym przytrzymaniu W1,...
$regfile = "m8def.dat" $crystal = 8000000 Config Pind.3 = Input Config Pind.4 = Input Config Portb.1 = Output Set Portd.3 Set Portd.4 Plus Alias Pind.3 Minus Alias Pind.4 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 1 Enable Interrupts Dim Obroty As Byte Pwm1a = 255 Obroty = Pwm1a Do...
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...
schemat w załączniku [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 1000000 Config Adc = Single , Prescaler = Auto , Reference = Avcc Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Config Portd = Output Config Portb = Output Const Granica = 900 Silnik_lewy_a Alias Portd.3 Silnik_lewy_b Alias...
Kolego emarcus umie kody wyglądają tak bit 0 ---> a bit 1 ---> b bit 2 ---> c bit 3 ---> d bit 4 ---> e bit 5 ---> f bit 6 ---> g wtedy tabela byłaby: ‘=================================... Cyfra: Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144 '0 1 2 3 4 5 6 7 8 9 ‘=================================... Dodano po 13 Mam...
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 -...
Obiecałem zrobić sterowanie silnikiem DC z Układem sie uporałem, natomiast moje małe umiejętności nie pozwalają mi przeskoczyć napisania programu regulacji obrotów. Kompilator Bascoma pokazuje mi wciąż błędy i to w linijce konfiguracji Timera, gdzie robię błąd? Proszę pomóżcie, a może ktoś ma już gotowy modół sterowania obrotami? Układ AtMega 8 2 przyciski...
Witam Chciałem do kuchni wstawić czujnik PIR, ale z dodatkową zaletą, czyli stopniowym zwiększaniem i zmniejszaniem PWM, dodatkowo jeśli podczas zmniejszania PWM nadejdzie przerwanie INT1 od czujnika PIR, to program ma przestać zmniejszać, tylko zacząć zwiększać i to nie od zera, ale od wartości na której "zastało" go przerwanie INT1 od PIR. W sumie...
Projekt to może nie jest, raczej element/część możliwości układu jakie staram się poznać. Na płytce Amtega32 Dwa wejścia/przyciski, uruchomiony Timer1 dla obydwu wyjść PWM. Sterowanie ( na razie LED ( chcę halogeny do tego podpiąć przez tranzystor NFET ), jeden przycisk/wejście - jedno wyjście ( tylko tak ciekawie, że na przemian, dłuższe przyciśnięcie...
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 już nadzieję że temat w odpowiednim miejscu :| Zamierzam zrobić robota, który będzie omijał przeszkody. Mój problem polega na jednym warunku. Oto program: $regfile = "m8def.dat" $crystal = 1000000 Config Adc = Single , Prescaler = Auto Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear...
alias poczta pwm1a attiny atmega8 pwm1a
licznik energia wyjście impulsowy ipconfig gigabit ethernet controller regulacja sprząc elektromagnetyczny
Skrzypienie w zawieszeniu Mercedes B 180 na hopkach Zakłócenia odbioru radia TOK FM przez obecność