https://obrazki.elektroda.pl/7533783400_... Witajcie Chciałbym zaprezentować i podzielić się uniwersalną platformą do obsługi zdalnie sterowanych modeli. Wiele lat nie publikowałem niczego na forum - nie znaczy to, że nic się nie działo, natomiast nie zawsze nadawało się to do pokazania ;) Wszystko zaczęło się od tego, że chciałem...
Witam. Buduję kolejową makietę modułową, makieta jest podzielona na 6 modułów. Mam kod do obsługi klawiatury 4x4x i serwomechanizmów. Jak widać kod działa i mogę sterować wychyleniem serwomechanizmów po przez klawiaturę. Problem polega na tym że muszę przy pomocy klawiatur obsłużyć 13 serwomechanizmów. Jak to wykonać żeby można było np wpisać z klawiatury...
oryginalnie wygląda to tak: [syntax=vbnet] $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 16 $swstack = 8 $framesize = 16 Config Timer0 = Timer , Prescale = 1 Enable Timer0 On Timer0 Pwm Enable Interrupts Start Timer0 Declare Sub Miganie Config Pinb.3 = Input Set Pinb.3 Config Portb.4 = Output Przycisk Alias Pinb.3 Config Portb.0 = Output Config...
Zrobiłem sobie programik pod Atmege8 wychylajacy serwo w jedna strone. Wiem, ze PWM można zrobić w pełni sprzętowo, ale jeszcze do tego nie doszedłem. #include <avr/io.h> #include <avr/interrupt.h> int b=0; int main (void) { DDRB |= (1 << 0); // Set LED as output TCCR1B |= (1 << WGM12); // Configure...
Świetnie. Wszystko jak należy. Wrzucilem na procesor ten podstawowy kod z tutoriala bo mój własny się nie skompilował. Także wrzucilem ten : $regfile = "m8def.dat" $crystal = 12000000 Config Servos = 1 , Servo1 = Portd.1 , Reload = 10 Config Portd = Output Enable Interrupts Dim Zmienna As Integer 'Nasze "odchylenie" serwa Zmienna = 150 'Czas trwania...
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...
Cześć. Mam taki problemik. Jest sobie program, który działa, tylko denerwuje mnie jedna rzecz. Po włączeniu zasilania serwomechanizm robi chaotyczny ruch. Wydaje mi się, że gdyby zapisywać po każdej zmianie i odczytywać na początku programu ostatnia wartość problem by zniknął, ale nie ma już pary pod kotłem. 96% pamięci zajęte. Piszę w Bascom. Kozystam...
Witam, Na wstępie pragnę zaznaczyć iż nie jestem elektronikiem, ani żadną osobą zajmującą się rzeczami z tym związanymi. Jestem studentem inf. i potrzebuję rady. Razem z kolegą robimy projekt na zajęcia z mikroprocesorów i mikrokontrolerów. Śluzę 3-drzwiową zwalnianą i zamykaną przy pomocy serwomechanizmów(SG-5010). Zaprojektowaliśmy układ mamy do tego...
Enable Interrupts - jeżeli tego nie ma w programie to uzupełnij.... e marcus
Czołem. Rozpoczynam przygodę z serwo modelarskimi. Mam taki programik, działa. Pytanie takie: Czy da się regulować w jakiś sposób prędkość poruszania się orczyka. [syntax=vbnet] $regfile = "attiny13.dat" $crystal = 8000000 $hwstack=20 $swstack = 8 $framesize = 16 Declare Sub Zmiana Config Pinb.2 = Input Config Pinb.1 = Input Set Portb.2 Set Portb.1...
emarcus Ile serwo wytrzyma to mnie nie interesuje, bowiem ja tylko dostałem zlecenie ;) Znalazłem w domu serwo nieprzerobione. ......... dać wartości położenia w pętle, a tu niespodzianka bowiem serwo nie działa poprawnie. Oczywiście że w takim sterowaniu nie będzie ono funkcjonować poprawnie. Soróbuj taki kode: $regfile = "m16def.dat" $crystal...
Wszystko masz na tacy. Napisanie poniższego kodu zajęło mi 5 minut.. Zacznij myśleć coś sam bo to ostatni gotowiec. [syntax=vbnet]' "STEROWANIE SERWOMECHANIZMAMI DLA LENI" ' ' BARTek niveasoft(at)tlen.pl ' ' SERWO1 na PORTB.0 ' SERWO2 na PORTB.1 'PRZYCISKI SERWA1: PINB.3 i PINB.4 'PRZYCISKI SERWA2: PINB.5 i PINB.6 ' 'W ATtiny2313 wyłączyć CKDIV8 tak...
Witam. Może ktoś mi podpowie. Mam podpięte servo (PowerHD 1235 MG) do płytki stykowej. Wciskając przyciski S1 lub S2 serwo płynie ustawia się wg. aktualnego parametru. Problem pojawia się gdy wysyłam wartość przez UART (dane dochodzą, widzę odebraną wartość na LCD), ale servo tylko burczy i nie chce zmienić położenia. Jakieś pomysły? Dodam że testowałem...
Witam Niestety tamten sposób - program miał wade, przykładowo kiedy jeden z kanałów zmienił swój stan kilkukrotnie stan licznika był zmieniany w jednym kierunku (w zależności od stanu drugiego kanału) prostymi słowy wahający się enkoder generował błędy rozwiązałem ten problem ustawiając wejście by reagowało na zbocze rosnące i opadające. [syntax=bascom]$regfile...
Witam, Mam pewien problem z ATMEGĄ8 i serwem MG90S. $regfile = "m8def.dat" $crystal = 1000000 Config Servos = 1 , Servo1 = Portb.1 , Reload = 10 Config Adc = Single , Prescaler = 128 , Reference = Avcc Start Adc Dim W As Integer Config Pinb.1 = Output Dim I As Byte Dim I2 As Integer I = 150 Servo(1) = I Enable Interrupts Do 'W = Getadc(0)...
Witam Jak wyeliminować opóźnienia w instrukcji wait przy używaniu przerwań do obsługi serwa? Przy tym programie czas oczekiwania się niemal podwaja: [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 Config Pind.1 = Output Config Servos = 1 , Servo1 = Portd.1 , Servo2 = Portc.0 , Reload = 10 Dim I As Byte Enable Interrupts Do I = 70 Servo(1)...
Witam Mam problem ze sterowaniem serwem w bascomie. Połączenie pomiędzy uC a serwem jest prawidłowe. Gdy wgrywam jakikolwiek program, np taki krótki: $regfile = "m16def.dat" $crystal = 10000000 Config Porta.4 = Output Config Servos = 1 , Servo1 = Porta.4 , Reload = 10 Enable Interrupts Servo(1)=100 wait 1 serwo dziwnie skacze, to przerobione...
Na swoje usprawiedliwienie powiem tylko, że w polskim helpie nie ma słowa o tym, że waitus nie może być zmienną. W takim razie mam jeszczy pytanie dlaczego nie działa mi taki program [syntax=vbnet]Config Portb.1 = Output Config Portb.0 = Output $crystal = 1000000 Config Servos = 1 , Servo1 = Portb.1 , Reload = 10 Enable Interrupts Do Servo(1) = 60 Portb.0...
Program w Bascom Atiny 24 Dwa serwo poruszające kamerą. Po włączeniu zasilania pozycja środek. Przyciski. S1_lewo obraca Serwo 1 w lewo S1_praw obraca Serwo 1 w prawo S2_lewo obraca Serwo 2 w lewo S2_praw obraca Serwo 2 w prawo Nie ustawia pozycji środkowej , i nie zmienia pozycji. A to mój kod [/code][syntax=vbnet] 'STEROWANIE SERWOMECHANIZMAMI KAMERY"...
Na podstawie helpa z bascoma napisałem taki programik [syntax=basic4gl] $regfile = "attiny2313.dat" $crystal = 8000000 Config Servos = 1 , Servo1 = Portd.1 , Reload = 17 Config Portd.1 = Output Config Portd.4 = Input Config Portd.3 = Input Dim I As Byte S1 Alias Pind.3 S2 Alias Pind.4 Enable Interrupts Set Pind.3 Set Pind.4 I = 150 Servo(1) = I Do Debounce...
Pomijajac pakt, ze post umiesciles w zlym dziale to moglbys troche poszukac zanim napiszesz post :boss: Tutaj masz przyklad z ksiazki "Programowanie mikrokontrolerow AVR w BASCOM": 'Mikrokontroler taktowany oscylatorem 10 MHz 'Przyciski S1 oraz S2 umożliwiają zmianę położenia serw. 'Serwo 2 zawsze będzie miało odwrotny kierunek obrotu niż serwo 1 $regfile...
Od kilku godzin próbuje zrozumieć dlaczego ten układ nie chce działać. Podłączyłem atmege do zasilania, a do jej pinu C.5 podłączyłem kabelek Signal od serwa. Serwo do zasilania i GND (napięcie stabilizowane 5V). Wszystko ładnie pięknie - przy podłączeniu zasilania serwo wykonuje jakiś ruch, jednak serwo według programu (napisanego w oparciu o help...
Witam. Mam przerobione serwo tak aby obracało się dookoła, odpiąłem potencjometr który jest w środku (5k) i wlutowałem miniaturowy i ustawiłem go w połowie tak aby serwo myślało że jest na środku.Oryginalną elektronikę zostawiłem. Jednak mam taki problem,jak uda mi się kręcić serwem w obie strony to go nie mogę zatrzymać. Jak skręcę potencjometr na...
Witam Napisałem prosty program używający timera1 i timera 2 do zliczania częstotliwości, Chciałbym użyć dodatkowo serwa do mojego projektu ale używając intrukcji Servo coś nie tak dzieje się z serwem . Po włączeniu zasilania ciągle pracuje i próbuje przekręcić się o 360 stopni "ciągle pracuje". Kiedy w kodzie spełniony jest warunek i uruchamia się komenda...
Witam To moze zaczne od kodu: $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portd.2 Cls Config Servos = 1 , Servo1 = Portc.5 , Reload = 10 Config Portc.5 = Output Config Portd.0 = Input Set Portd.0 Cursor Off Dim Serworuch...
Spróbuj program z helpa w razie potrzeby zmień sobie port wyjściowy , oraz Twój tak jak powinien wyglądać . Jedno pytanie czy coś jeszcze jest dołączone do mikrokontrolera oraz jest to jedyny program czy tylko jakiś fragment ? Masz serwo dobrze połączone i zasilacz o odpowiedniej wydajności prądowej ? [syntax=basic4gl]$regfile "m8def.dat" $crystal =...
Witam! Mam problem z Atmega32 i serwomechanizmami. Przeanalizowałem mnóstwo postów z forum, ale mój problem nadal nie został rozwiązany. Mam układzik do sterowania 25 serwomechanizmami modelarskimi. Chciałbym chociaż jedno wysterować. Podłączony kwarc 16MHz. Fuse bity na 011111:Ext Crystal/Resonator High Freq; Start-up time: 16K CK + 0 ms; $regfile...
Witam. Zacznę od tego, że jestem amatorem/początkującym więc moje programy gównie opierają się na tym co znajdę w internecie + jakaś znikoma wiedza :) Chciałem zrobić sterowanie serwem w zależności od temperatury. Założenia: -Mikrokontroler atmega8 -Pomiar temperatury DS18B20 -Sterowanie serwem "binarne" dwa wybrane przeze mnie położenia do sterowanie...
Program na razie jest bardzo kulawy, pierwsze co miałem na celu to osiągnięcie takiego stanu, że kiedy serwo znajdzie się w położeniu 19 to wtedy zapali się dioda led. Generalnie to nie wiem czy nie mam gdzieś coś namieszane w fusebitach bo jakieś te przeliczenia mi śmieszne wychodzą, ale serwo obraca się raz w lewo raz w prawo. $regfile = "m8def.dat"...
Niby wszystko jest w porządku a za żadne skarby nie chce poprawnie działać. Kiedy przy timerze 2 ustawiam wartość prescalera na 256, to wychyla się w prawo, a jak na 1024 to w lewo. Ma to też wpływ na prędkość ruchu i siłę, ale nie rozumiem dlaczego. Poza tym cały czas lekko drży. Na razie używam wewnętrznego oscylatora, bo nie dopatrzyłem i wlutowałem...
Udało się! $crystal = 2000000 Config Timer1 = Timer , Prescale = 1 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.6 , Db6 = Portc.2 , Db7 = Portc.7 , E = Portc.5 , Rs = Portc.4 Enable Timer1 Enable Interrupts On Timer1 Niski Config Porta = Output Config Pinc.0 = Output Config Pinc.1 = Output Config Pinb.0 = Input Config Pinb.1...
Oto program który napisałem $regfile = "attiny2313.dat" 'rodzaj mikrokontrolera $crystal = 8000000 '8MHz Dim Pozycja1 As Integer 'zmienna określająca położenie serwa1 Dim Pozycja2 As Integer 'zxmienna określająca położenie serwa2 Dim Czas1 As Integer 'zmienna pomocnicza do odmierzania czasu Dim Czas2 As Integer 'zmienna pomocnicza do odmierzania...
Witajcie, Mam zamiar zbudować prosty system radiowego zamykania/ otwierania drzwi. Nadajnikiem będzie UART/Mega8L zamknięta w obudowie pilota+ nadajniczek na 833MHz µC ten po naciśnięciu jednego z dwóch przycisków wysyła w odstępach 1 sekundowych komendę do otwarcia lub zamknięcia. Mechanizm wykonawczy: serwo modelarskie. Po stronie odbiorczej...
Witam. Na wstępie chciałem podziękować za listę porad i pouczeń. Wziąłem to do siebie. I po raz kolejny poprosić o sprawdzenie kolejnych wypocin. http://obrazki.elektroda.pl/3279083700_1... brak GND dla uC tego nie zrozumiałem. Jestem kompletnie zielony czym jest tu to uC. ? Czy kondensator na syjściu LM317 wystarczy do filtracji zasilania...
Witam mam problem z programem do Serwa step dir na silniku DC z enkoderem , chodzi mi o pomoc w zrozumieniu zasady działania tak na chłopski rozum jak powinno się to odbywać naprawde z regulatorem PID . Ja piszę w bascomie jeśli ktoś może pomóc byłbym wdzięczny. Zrobiłem sobie enkoder do silnika o małej rozdzielczości na obrót 10 impulsów , celowo taki...
Co myślisz o tym żeby użyć tylko jeden Timer? [youtube]https://www.youtube.com/watch?v... [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 16000000 '*** Timer0 Config for 500Hz Interrupt CTC Mode *** Config Timer0 = Timer , Prescale = 256 , Compare A = Disconnect , Compare B = Disconnect , Clear Timer = 1 Enable Compare0a :...
Dzięki wszystkim za opinie :D W odpowiedzi na wasze pytania, płytki robię metodą termotransferową z użyciem folii, projektuje w Eagle'u, serwa tak jak ktoś napisał na allegro chodzą po 23zł i właśnie na allegro je kupowałem, niezła cena jak za takie małe i dość silne serwo. Tolerancja odstępu puknięć układu jest wystraczajaca, na początku opracowałem...
Krauser . Jeśli dobrze rozumiem pytanie to: Pozdrawiam Dziękuje że napisał pan dla mnie własną funkcję, ale jak widać działa prościej w ten sposób więc jednak przy tym pozostane. ________________________________________... Action The MID function returns part of a string (a sub string). The MID...
O licznik to raczej jestem spokojny. Bardziej mnie niepokoją te przerwania na int0. No 16-bitowym timerem to nie sztuka zrobić taki spowalniacz :-) ale akurat 2313 nie mam na stanie, a np. dużą ATmegę 8 pakować do modelu w takim celu to jak armata na muchy. Ale w przyszłości na pewno się zabiorę za jakiś tiny z 16-bitowym timerem. Jeżeli chodzi o uruchamianie...
Witam! Mam problem z jednoczesnym użyciem Timera1 i funkcji RC5 która jak wiadomo dziął na Timerze0 (kod napisany na ATTINY2313) Jeśli rozdzielę kod na dwa czyli: 1. Wykorzystuje timer1 do sterowania serwem - wszystko działa (bez funkcji pilota na RC5) 2. Jeśli zaprogramuje attiny2313 aby używało tylko funkcji RC5 (pilota) i przy okazji korzystam z...
Witam Nie wiem czemu po dodaniu do kodu serw mikrokontroler zaczyna zachowywac sie kompletnie "niespodziewanie" Generalnie Atmega chodzi na kwarcu 16K obsługuje wyświetlacz alfanumeryczny i 11-Czujników (1wire) Zrobiłem małe menu ,po przejściu do odpowiedniej zakładki uruchamiane jest pierwsze 8 czujników albo gdzie indziej inne 3 , jest też zakładka...
Ogarnełem CTC. Teraz nawet co 1s mam z wykorzystaniem ctc a program wygląda tak: [syntax=basic4gl]$regfile = "ATtiny24.DAT" ' specify the used micro $crystal = 8000000 ' used crystal frequency $hwstack = 32 ' default use 32 for the hardware stack $swstack = 32 'default use 10 for the SW stack $framesize = 32 'default use 40 for the frame space Config...
Witam. Chciałbym zapytać o poprawność mojego kodu: $regfile = "m8def.dat" $crystal = 12000000 Config Servos = 1 , Servo1 = Portd.1 , Reload = 10 Config Portd = Output Enable Interrupts Dim Zmienna As Integer 'Nasze "odchylenie" serwa Zmienna = 150 'Czas trwania impulsu będzie wynosić 'Zmienna*Reload=1500us (1,5ms) Do Servo(1)...
Właśnie zacząłem trochę czytać o serwach i doszedłem do wniosku że to rozwiązanie bardziej mi odpowiada. Teraz tak - jest sobie taki program: Dodano po 31 [syntax=basic4gl] $regfile = "attiny13.dat" $crystal = 4800000 Config Adc = Single , Prescaler = Auto , Reference = Avcc Config Portb.0 = Output Config Portb.4 = Input Portb.0 = 0 Dim A As Word Start...
Masz błędny kod. Jak chcesz by program działał jak trzeba to musisz wiedzieć co robi każda linijka. Włączasz przerwanie od przepełnienia timera0, a nie maż funkcji do jego obsługi. Deklarujesz funkcję do obsługi przerwania zewnętrznego, a nie masz funkcji obsługi i nie zezwalasz na to przerwanie. Na moje oko to po uruchomieniu timera procesor się zresetuje...
To nie będzie działać. (at)ElektrodaBot Użyj schmatu z tego kodu Input to odczytany procent tlenu Setpoint 5.5% tlenu Oudput sygnał do serwa Funkcje docount i microseconds oraz rpm nie będą potrzebne w przypadku [syntax=arduino]#include <Servo.h> #include <PID_v1.h> volatile unsigned long MicrosecondsPerRevolution = 0; const unsigned long...
Stworzyłem następny program: $regfile = "m8def.dat" $crystal = 10000000 Config Pinb.0 = Output Config Pinb.1 = Output Config Int0 = Change Config Rc5 = Pind.2 , Timer = 2 Config Servos = 2 , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = 10 On Int0 Pobr_rc5 Dim Address As Byte , Command As Byte Dim I As Byte Dim J As Byte Dim Odebr_kod As Bit Enable...
Nie to nie jest cały kod. Mam problem z wklejeniem z tagami syntax, ale spróbuję to jeszcze zrobić. W moim przypadku, to że przerwanie będzie generowane zbyt często nie ma praktycznie znaczenia bo korzystam z jednego kanału i nie muszę się martwić o gubienie pomiarów czy jakieś błędy. Ten programik jest tylko dla celów nauki. W obsłudze przerwania ustawiłem...
Witam! Jestem w trakcie budowy małego manipulatora. Chcę nim sterować przez rc5. Mam przerobione serwa(wyjęta elektronika -sterowanie przekaźnikami.) Problem jest w tym ,że nie potrafię ogarnąć rc5 w bascomie. to moj kod $regfile = "m8def.dat" $crystal = 4000000 Config Rc5 = Pind.2 Config Portd.3 = 1 Portd.3 = 1 Config Portd.0 = 1 Portd.0...
Zrobiłem jakiś czas temu taki układzik na attiny-13 do sterowania dwoma serwami i linijką diodową pokazującą położenie. Niestety do obsługi dwóch serw trzeba po zaprogramowaniu zablokować ISP: '(Program sterownika dwóch serwomechanizmów. Mikrokontroler Attiny 13. Funkcjonalność: Sygnały Ppm 1 - 2 ms: Sygnał Ppm Serwo1 - Port Pb0 - Pin 5...
systick interrupts system interrupts interrupts proces
wymiana rozrusznik zafira excel usuwa puste wiersz atmega podłączyć czujnik
Schemat płytki drukowanej ładowarki FERM FASL-1800K2 – poszukiwanie dokumentacji i typowe usterki FYT, NAD, TS10 – typ procesora w radiach Android, Unisoc UIS7862, Rockchip, Allwinner
