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...
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...
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...
$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...
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...
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...
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, 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...
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...
Oto cały ( poprawiony ) schemat wraz z kodem . Na drugi tydzień zostanie sprawdzony w praktyce . http://obrazki.elektroda.pl/4565788400_1...
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...
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...
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, 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 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,...
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...
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...
$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...
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...
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...
Niestety nadal pisk w głosniku Kod: $regfile = "M32Def.dat" $crystal = 16000000 $external Waitms Const Cmmc_soft = 0 #if Cmmc_soft = 0 ' --------- Start of Section for HW-SPI ---------------------------------------- ' define Chip-Select Pin Config Pinb.4 = Output ' define here Pin for CS of MMC/SD Card Mmc_cs Alias Portb.4 Set Mmc_cs ' Define...
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...
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...
Zmieniłem jeszcze raz program, tak aby nie wykonywał dodatkowych pętli. W sumie działa sprawniej niż poprzednie wersje ale po pewnym czasie nadal się restartuje [syntax=basic4gl]$regfile = "m8adef.dat" $crystal = 8000000 $hwstack = 40 $swstack = 16 $framesize = 32 Config Pind.0 = Output Config Pind.1 = Output Config Pind.6 = Input Config Pind.7 = Input...
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...
Witam Mam taki oto problem do rozwiązania. Do Atmegi8 do wyjść OC1A, OC1B oraz PB3 podpięta jest trzywejściowa bramka "OR" (4075). Wyjścia OC1A oraz OC1B pracują jako PWM, natomiast wyjście PB3 przyjmuje stan wysoki lub niski w zależności od potrzeby jako kluczowanie bramki "OR". Sygnały z wyjść OC1A oraz OC1B są doprowadzone w układzie do oddzielnych...
W oparciu o poniższy link: A Alias Pind.2 'wyjscie enkoddera wchodzi na pind.2 Config A = Input 'configi Dim Dystans As Long ' ilosc impulsow do przejechania Dim Ruszyl As Bit ' czy ruszylem z miejsca Ruszyl = 0 ' domyslnie nie ruszylem Config Int0 = Falling 'chyba opadajace zbocza On Int0 Akanal 'jak bedzie przerwanie to idz do Akanal Config Timer1...
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...
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...
Chciał bym żeby ktoś mi pomógł napisać program ma mniej więcej wyglądać to tak: Po włączeniu na ekraniku 40x2 (tylko taki mam akurat) Pojawi się napis Wybierz opcję: 1. Line follower 2. Minisumo 3.Rc5 naciskam przycisk 1 i na ekraniku pojawia się: Wybrałeś obcję: line follower (ładowanie takie po kolei po jednym kwadracie) . jak się załadują wszystkie...
jeszcze jeden mały problemik (próbuję to już zrobić od 6 godzin): mianowicie chodzi o zapis wartości pwm do epromu co jakiś czas (nie za często - tylko kilka chwil po nastawieniu nowej wartości przyciskami) żeby można ją było odtworzyć po włączeniu zasilania. przerobiłem to już w każdym możliwym wariancie ale nie potrafię wmontować tego w pętlę. najlepsze...
Witam, Chcialem sobie zbudowac regulator predkosci smigielek a w przyslosci troche rozwinac ten projekt. To moj pierwszy program napisany na podstawie pewnego opracowania. Poniewaz w opracowaniu byla konwersja temperatury dla 1820 a ja mam 18b20 chcialem zasiegnac waszej wiedzy czy u mnie te dzialania sa podejmowane prawidlowo ? Bardzo byl bym takze...
Oto kod dla Atmegi 32 $regfile = "m32def.dat" '$lib "mcsbyte.lbx" $crystal = 8000000 Config Com1 = Dummy = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 'konfiguracja portu COM $baud = 1200 Config Portb.3 = Output Config Portb.2 = Output Config Portb.1 = Output Config Portb.0 = Output Dim Xer As Integer Dim Temp...
Panowie a taki problem z programem podpowiedzcie co robię nie tak w poniższym programie który załącza i wyłącza port o ustalonej godzinie wykorzystując strukturę zegara RTC.Pierwsza część programu działa bez zarzutu , ale mam problem ze sterowanim silnika przez PWM.Oto treść programu: Kod: $regfile = "m8def.dat" $crystal = 8000000 . Config Lcd = 16...
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. Mój problem przedstawiam następująco: Wykonuje platformę mobilną z wykorzystaniem jako napęd silniczków DC z przekładniami. Do regulacji szybkości wykorzystuje 2 sygnały PWM idące na wejścia Enable mostka H - L298. By zadanie które sobie postawiłem było cięższe, do określenia regulacji PWM używam wyników pobranych z 2 wejść ADC Atmegi, które...
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, buduje sterownik do robota i potrzebuje regulacje obrotów silnika 24V/250W. Wszystko mam podłączone jak na tym schemacie: http://obrazki.elektroda.pl/7251443600_1... http://obrazki.elektroda.pl/4546172800_1... R2 i R3 są zastąpione zworami, IC2 i IC3 są podłączone dobrze, wg pdfa, opis wyprowadzeń z innego układu...
hunterhouse -jeszcze raz serdeczne dzięki.Troche to trwało ale mniej więcej wiem o co w nim chodzi np.gdy zmienimy proporcje z g1=r2 na g1=2*r2 uzyskujemy krótszy czas świecenia ledów.Przyznam że przez cały ten czas próbowałem włączyć dwa pod programy migającą diodę i włącznik /wyłącznik - nie wszystkie diody wykożystuję : $regfile = "m8def.dat" $crystal...
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 czy jest możliwość użyć tylko jednego portu oc1 (atmega16) jako wyjście PWM a drugi wykożystać do czegoś innego ? aktualnie na moim "modelu" mam podpięte wyjście PWM do oc1b (silniczek) a oc1a to po prostu dioda, która zapala się gdy podam na nią 1. i jak sterowanie obrotami silnika działa znakomicie, tak dioda ciągle świeci. kawałek kodu odpowiedzialnego...
Witam, zamieszczam program do sprawdzenia. Mam nadzieje, że dobry. Czy czegoś mu brakuje i co byście jeszcze dodali? I tak na przyszłość jak dodać kod w poście. :D [syntax=basic4gl]$regfile = "m88def.dat" $crystal = 16000000 Config Portb = Output Config Portd = &B01111111 Config Portc = Input Portd.7 = 1 Przycisk Alias Pind.7 Led Alias Portd.6 Enable_a...
'******* procek ******* $regfile = "m8def.dat" $crystal = 16000000 $hwstack = 60 $swstack = 60 $framesize = 60 '******* pwm ******* Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 1 Pwm1a = 255 '****** mostek-h ****** Config Pind.5 = Output Config Pind.6 = Output...
Witam Mam płytkę z Atmega8 połączoną z czujnikiem PIR ( wejście INT1 przez transoptor ), do tego pomiar ADC ( od wartości adc zależy czas po jakim PWM będzie zmniejszone, opcjonalnie chcę też pod INT0 podpiąć przycisk, coby włączyć światło, gdybym nie znalazł się w zasięgu czujnika. Dodatkowym "bajerem" jest to, że światło ( listwa LED ) powoli się...
Witam. Chcę zbudować lampę na Power Ledach Cree do akwarium morskiego. Radiator już mam, drivery też już upatrzone na http://www.darel.elektroda.eu/produkt4.h... pozostało mi pomyśleć o sterowaniu tym oświetleniem. Generalnie najprościej byłoby zewnętrznymi zegarami elektronicznymi na przekaźnikach takich jakie można kupić w każdym markecie budowlanym....
Witam. Mam problem z porgramemem w Bascomie, Do tej pory wszystko działało poprawnie aż do poewnego momentu zaczeły sie jakies anomalie. Mianowicie, program nie reaguje na zminanę na porcie A w podprogramie zamkanie_awaryjne, zamykanie i otwieranie, gdy wciskam przycski i wysyłam stam przez RS232 to odczytuje poprawnie ale w Do Loopp Until Kpz=1 nie...
Niestety wychodzi teraz trochę moje lenistwo, uznałem że jeśli zbyt wysoka dokładność nie jest potrzebna to nie ma co się bawić. :arrow: tmf 1. Powinienem go podłączyć tak jak w mojej płytce testowej http://www.elektroda.pl/rtvforum/topic22... . 2. Rzeczywiście z rozpędu podłączyłem AREF do VCC, na szczęście nie stwarza to w tym przypadku problemów...
Szukałem, ale nie znalazłem niczego, co zapewniało by regulację w pożądanym zakresie (60-100%) i przełącznie przód-tył, tak jak to chcę zrobić. http://obrazki.elektroda.net/47_12198423... Gotowe, przebieg PWM ma częstotliwość ok 20kHz (przy kwarcu 10MHz): $regfile = "m8def.dat" $crystal = 10000000 Config Adc = Single , Prescaler =...
Witam Myślę że trzeba by to zrobić korzystając z trafo.Inaczej nie widzę możliwości jak sterowanie napieciem (wielkością napiecia) .PWM zapewni tylko zmianę napięcia po stronie pierwotnej.Trzeba by spróbowac...'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...
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"...
Witam. Jestem początkujący jeżeli chodzi o mikrokontrolery. Chciałbym prosić kogoś bardziej doświadczonego o sprawdzenie poprawności mojego programu. Działanie: Sterowanie 3 silnikami BLDC i 1 serwo za pomocą PWM. uC otrzymuje przez UART literę oznaczającą funkcję, następnie ma ją zrealizować. Silniki podłączone będą przez regulatory modelarskie, a...
gdzie jest błąd Nie znam BASCOM'a więc mogę się mylić... ale wydaje wydaje mi się, że tu: Zadziałało dzięki za pomoc Witam Czy ktoś może mi powiedzieć gdzie jest błąd w kodzie zamieszczonym poniżej? W tym projekcie atmega ma sterować obrotami wentylatora (wolniej/szybciej) po naciśnięciu przycisku. Tu konfigurujesz Timer1 do pracy w trybie (1) 'Phase...
witam Na technikę skonstruowałem pojazd przewodowy, konstrukcja jest prosta: l293, atmega8, 2 przełączniki i potencjometr. Problem w tym, że niezależnie od pozycji przełączników na wyjściach atmegi połączonych z l293 jest stan niski. Rolę silników pełnią przerobione serwa, jednak na czas testów ich nie podłączałem. Modyfikowałem program jednak bezskutecznie,...
Ok dzięki panowie już teraz rozumiem. Pobrałem sobie ze strony BTC z zaproponowanej książki przykładowe programy BASCOm i pewnie chodzi o ten właśnie kod ?? '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...
Problem ze zmianą nazwy pliku rozwiązałem - oczywiście należy pamiętać, że nazwa pliku może być ośmio znakowa. W kodzie dodałem: Plik = "temDD_MM" + ".txt" Mid(plik , 4 , 5 ) = Data_plik oraz w odczycie czasu Data_plik = Bcd(dday) + "_" + Bcd(mmonth) oraz zmieniłem wpis zapisu Open Plik For Append...
Powinno działać : $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Output 'Wyjscie Pwm Config Pind.4 = Input 'wejscia na przyciski Config Pind.5 = Input Sw1 Alias Portd.4 Sw2 Alias Portd.5 Set Portd.4 'podniesienie przyciskow do plusa Set Portd.5 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1 Dim I As Byte...
Witam, Jestem w trakcie realizacji układu ściemniacza oświetlenia z wykorzystaniem uC Atmega8. Sterowanie natężeniem oświetlenia realizowane jest przez optotriak MOC3023 wyzwalany sygnałem PWM. Napotkałem problem, z którym nie potrafię sobie poradzić, niestety na forum nie znalazłem też przypadku podobnego do mojego. Dlatego proszę o pomoc. Niewłaściwe...
$crystal = 8000000 $regfile = "m16def.dat" Led1 Alias Portc.1 Led2 Alias Portc.2 S1 Alias Pinb.0 S2 Alias Pinb.1 S3 Alias Pinb.2 Pp Alias Pinc.7 Lp Alias Pinc.6 Lt Alias Pinc.5 Pt Alias Pinc.4 A1 Alias Portd.0 A2 Alias Portd.1 B1 Alias Portd.2 B2 Alias Portd.3 Ena Alias Portd.4 Enb Alias Portd.5 Ddra = &B00000011 Ddrd = &B00111111...
Właśnie znalazłem taki oto programik służący do odtwarzania plików wav z karty mmc na atmedze32.Moja prośba jest następująca: czy ktoś mógł by podany niżej program mi bardzo jasno wyjaśnić. Chodzi mi o to żebym wiedział co jest po co napisane i jak można to zmienić według własnych potrzeb(np: w którym miejscu zmienia się nazwę odtwarzanego pliku itp)....
Witam Mam problem z prostym programem Poniższy program działa tak jak powinien $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 1 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portc.4 , Rs = Portc.5 Cls Config Pind.3 = Input Config Pind.2 = Input Config Pind.4 = Input Config Pinb.1 = Output...
pozmieniałeś nieco moje fragmenty, i dlatego nie działa dobrze. oto gotowy kod według mojego pomysłu i w miarę prosto. Pętla główna pusta. Testowałem na atmega644p i działa jak należy. Przeanalizuj różnice między swoim a moim kodem i zobaczysz dlaczego nie działało $regfile = "m644pdef.dat" $crystal = 16000000 '$baud = 9600 Config Timer1 =...
To jest program który ma obsługiwać mi dwa termometry, wgrywam i pojawia się ,, 298 " te wszystkie zmiany wprowadzałem aby sprawdzić czy ruszy. $regfile = "m8def.DAT" $crystal = 8000000 Config Portb = Output Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Pind.1 , Rs = Pind.0 Initlcd Wait...
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...
Zacznę od zamieszczenia kodu źródłowego i schematu: ' ########################################... ' # Control Programm for Trolling Motor Driver # ' # (C)2008 by Tomasz Orczyk # ' ########################################... $regfile = "m8def.dat" $crystal = 8000000 'CKSEL3..0=0100 - 8MHz Internal (PWM ~30kHz) 'SUT1..0=01...
Raczej problemem jest sama komunikacja po uart bo cały program bez niej działa jak należy. Mam jeszcze jedno podejrzenie co może być nie tak. Jak sprawdzę to napiszę. Dodano po 38 Myślałem że to budowa ramki danych jest problemem ale niestety nie. Wielkość ramki $framesize mam ustawione na 150. Dodano po 15 Dodaję uproszczony program jak Pisałeś. [syntax=vbnet]...
nie pamiętam bardzo testowałem to na konkretnej pompie dotąd aż za bardzo sie nie grzała a podawała prawidłowo paliwo podaje kod jakiś znalazłem z pierwszych prób może się ktoś pokusi o poprawki jeszcze kilku zapaleńców i można by wrócić do projektu chociaż czasu brak Dodano po 16 Jednak teraz bym pozmieniał elektronikę gdyż dużo zależny od tranzystorów...
Witam. Robię układ oparty na karcie SD, mikroprocesorze ATMEGA32. Program napisany w Bascomie, użyte zostały biblioteki AVR-DOS. MA on odtwarzać pliki WAV z karty, do testów używam tego programu znalezionego w internecie. 'dźwięk 32khz / 8 bit / mono / wav 'do każdego nagranego pliku dodać z przodu pliku 10% czasu utworu ciszy potrzebej na załadowanie...
Napisałem sobie program lecz jak rozjaśniam to bardzo duzo razy trzeba klikać przycisk aby na maxa rozjaśnic lub ściemnić. Chciał bym aby tak rozjaśniało do maxa przy np 10 kliknięciach , takie 10 stopni rozjaśnie. Prosze o pomoc jak mam zmienić moj kod. Wsad: Config Pinb.1 = Output Config Rc5 = Pind.2 Dioda Alias Portd.6 Cursor Off Cls Config Timer1...
Witam Napisałem taki program, który ma płynnie wygaszać lampkę oświetlenia wnętrza samochodu po rozwarciu krańcówki w drzwiach, i płynnie rozjaśniać gdy krańcówka poda masę. Niestety program działa dobrze tylko na biurku i to nie do końca, w momencie kiedy zainstalowałem go w samochodzie, układ nie spełniał swojej roli. Np. żarówka zaświecała się podczas...
Witam!! Układ sterownika tampoprintu zbudowany na bazie mikrokontrolera AVR, schemat poniżej, zasilanie dostarczane przez dwie osobne przetwornice +5V dla logiki oraz +24V dla elektrozaworów i oświetlenia, na przewodach zasilających koraliki ferrytowe, pole masy na płytce, tranzystory sterujące cewkami zabezpieczone diodami, przy samych cewkach we wtyczkach...
Hej, Próbuję zrobić menu ustawień swojego sterownika i kompletnie mi to nie wychodzi :( Menu ma być sterowane pilotem NEC (pilot działa poprawnie) Jak ja to sobie wymyśliłem: 1. ekran główny (tu jest OK) - przycisk strzałka w lewo przełącza ekran na zegar "MAXI" - przycisk strzałka w prawo przełącza na ekran główny - przycisk strzałka w górę blokuje...
Witam Mam problem z odczytem danych z 24C02. Program piszę w bascom, procesor to atmega8 taktowany wewnętrznie 1MHz. Zapisuję do eeproma zewnętrznego 3 zmienne Byte, są to liczby w zakresie 1-31; 1-12; 1-40. Wszystko ładnie się zapisuje do eeproma w menu. Po przejściu z pętli głównej do procedury nazwijmy ją "czytanie" za poierwszym razem pojawia się...
Witam Właśnie robie sobie wyświetlacz do samochodu, na razie mam dwie temperatury i napięcie... Zamieszczam listing: $regfile = "m8def.dat" $crystal = 8000000 Config Lcdpin = Pin , Db4 = Portd.1 , Db5 = Portd.2 , Db6 = Portd.3 , Db7 = Portd.4 , E = Portd.0 , Rs = Portd.5 Config Lcd = 20 * 4 Config 1wire = Portd.7 Config Pinc.0 = Output Config...
alias poczta pwm1a attiny atmega8 pwm1a
backup partycji linux bosch rozbieralny laguna demontaż
Płyta indukcyjna SMO 658C/NE dymi - co robić? Pad świeci na pomarańczowo po podłączeniu USB, brak reakcji
