np tak: Config Pinc.5 = Output Config Servos = 1 , Servo1 = Portc.5 , Reload = 4 a potem w kodzie wpisujesz odpowiednie wartości do : Servo(1) = wartość wychylenia to na szczęście w Bascomie proste jak poezja ;) zesztą zajrzyj sobie do helpa Bascom'a - config servos
Zajętość flash`a z 46% na 38% :P Tak bym się nie bawił, ale w Tiny13 to ma znaczenie bo można coś jeszcze upchnąć ahahaha :D [syntax=vbnet]$regfile = "attiny13.dat" $crystal = 9600000 $hwstack=20 $swstack = 8 $framesize = 16 'Declare Sub Zmiana Config Pinb.2 = Input Set Portb.2 Config Portb. 4 = Output Config Servos = 1 , Servo1 = Portb.4 , Reload =...
Użycie miniaturowego potencjometru nie jest dobrym rozwiązaniem. Najlepiej jest wstawić w to miejsce wstawić dzielnik napięciowy (dwa rezystory). Oczywiście z przerabianiem takiego serwa wiążą się pewne problemy. W przypadku gdy zostawisz elektronikę, a taki przypadek wybrałeś musisz empirycznie dobrać pozycję neutrum. Z tego co się orientuję to wartość...
Witam ogarnąłem już dużo na temat programowania w bascom, tylko mam kolejny problem, mianowicie chciałbym zaprogramować obsługę serwa pilotem nadającym w RC5 lecz gdy połączę obsługę rc5 i serwa mam takie błędy i nic nie działa: ........ Pojedynczo programy działają ok. ................. Rc5+ servo (nie działa) Pozdrawiam. Zauważ że zarówno 'Config...
Po pierwsze i bardzo ważne. Kiedy używasz w uC portu UART to port TX jest skonfigurowany jako wyjście i jest tam stan wysoki oprócz momentów kiedy nadaje. TX jest na PORTD.1 Kiedy więc wciskasz przycisk podłączony do PIND.1 to robisz procesorowi kuku w postaci zwarcia. Lepiej przenieś przyciski na inne piny. Nad konstrukcją tej płyty spuśćmy w tym temacie...
Z całym szacunkiem Panowie, ale odnoszę wrażenie, że nie czytacie tego co piszę. Rozwiązaniem nie jest ani wymiana uC, ani opóźnienie załączania zasilania napędu. Problem leży w pozycji początkowej serwomechanizmu vs. zmienna wysyłana przez program. Serwo pozostawione w jednej pozycji, po włączeniu zasilania pomalutku podąża do pozycji drugiej. Serwo...
(at)ElektrodaBot napisz kod i2c dla mikrokontrolera PIC16F1526 i układu scalonego PCA9685 do sterowania serwomotorem. Wstępna ocena dostępnych informacji Dwie przykładowe odpowiedzi offline zawierają już solidny sterownik bare-metal dla: - funkcji master I²C na module MSSP PIC16F1526 - Podstawowa konfiguracja PCA9685 do pracy z serwomechanizmem 50...
Sama obsługa serwa to nie wszystko co program ma robić. CONFIG SERVOS zdaje się potrzebuje do poprawnej pracy dwóch timerów - w każdym razie robiłem już testy i to programowe sterowanie serwami kolidowało mi przerwaniami timerów potrzebnych do czego innego. Dlatego potrzebuję 4 sprzętowych kanałów PWM. Dwa na Timer1 działają bez problemu, no ale tam...
Na podstawie helpa z bascoma napisałem taki programik Config Servos = 1 , Servo1 = Portd.1 , Reload = 17 Ta metoda pracuje z servem o rotacji 180 st. Twoje servo zdaje się jest 'continuous rotation' więc nie będzie pracowac. Bascom Help : "The CONFIG SERVOS only works with servo's that rotate 180 degrees. These are the servo's found in RC models. There...
Zapoznaj się CONFIG SERVOS w helpie Bascoma, masz tam też przykład. Pamiętaj że esc wymaga ustawienia aparatury na 0 podczas podłączenia zasilania, inaczej silniki nie ruszą.
Nie rób na złość sam sobie. Ustaw ten procek na 8MHz i masz 20ms 50Hz period jak ta lala i sprawa pójdzie do przodu :D http://obrazki.elektroda.pl/8929356500_1...
nowsze bascomy (np. 1.11.9.8) mają wbudowaną obsługę serw: CONFIG SERVOS Configures how much servo’s will be controlled. Syntax CONFIG SERVOS = X , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = rl Remarks Servo’s need a variable pulse in order to operate. The CONFIG SERVOS directive will set up a byte array with the servo pulse width values...
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...
Witam!! Ustawiłem sobie powyższym poleceniem wyjścia kilku serw, teraz chciałbm aby w programie móc wyłączyć generowanie impulsów dla jednego z serw, poleceniem disable timer0 przestaje generowac impulsy dla wszystkich a zmiana portu z wyjściowego na wejściowy nic nie daje... Jest jakaś możliwość?? Ponadto, jakie są najdłuższe interwały przerwania wyzwalanego...
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...
1. Opcja Szukaj znajdzie jedną z moich wypocin na temat CONFIG SERVOS. 2. Opcja Szukaj znajdzie jedną z moich wypocin, które są helpem do BASCOM-a w języku polskim.
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 =...
No właśnie, do listy zakupów dodałem zasilacz uniwersalny. Jeszcze trochę pogrzebie w częściach może coś się nada. Przy okazji: Na innym forum kiedyś wyczytałem, że do sterowania serwami przez Config Servos w Bascomie, potrzebny jest kwarc > 8MHz. Jednak w helpie bascoma widać przykład na wewnętrznym oscylatorze 4MHz (tak jak ja próbuje). Może to również...
Witam. Kupiłem ostatnio regulator Redox eco 20A oraz silnik Emax cf2812. Podłączyłem silnik do regulatora, regulator do pakietu 3cele (11,1V) i cisza, choć spodziewałem się usłyszeć piszczenie oznaczające wejście do trybu programowania. Sprawdziłem napięcie na wyjściu BEC regulatora i było 5V, więc regulator raczej działa. Nie wiem dlaczego tak jest....
Witam Mam problem poprawieniem tego programu... Ogólnie każde z osobna działa, kod na servo i kod na RC5. Moge sterować np diodami, ale gdy do kodu dolacze: Config Servos = 1 , Servo1 = Portc.6 , Reload = 10 Pojawia sie taki problem... http://lh6.ggpht.com/_FRfDBMKh5wM/S4lPXC... Czy nie można łączyć tych dwóch...
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)...
0. Tak, 1m/s nie 1mm/s. Przy serwach to nie jest problem. 1. Panowie, nie macie dysgrafii i dysleksji, tylko nie chce się Wam zwyczajnie czytać. Czem pomagają solidne pasy od ojca. 2. Czy to jest grzech, że nie mam kompilatora i programatora? Nie mam i nie chcę mieć - całą sprawę chętnie zlecę. A jak widzicie wiem czego chcę, czyli co ma być na tych...
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)...
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)...
problem po części rozwiązany. Problem tkwił przede wszystkim w miejscu FOR oraz usunąłem DO LOOP w pierwszej fazie ( też nie wiem dlaczego) Zmniejszyłem zakres do 60 i ruszyło (nie wiem tylko czemu). Bynajmniej efekt końcowy wygląda następująco: $regfile "m8def.dat" $crystal = 2000000 Config Servos = 1 , Servo1 = Portb.0 , Reload = 10 Config...
Stworzyłem następny program. Położenie serva jest zmieniane za pomocą dwóch przycisków pilota RC5. Oto on: 'Jedno servo sterowane pilotem, 60 kroków $regfile = "m8def.dat" $crystal = 10000000 Config Pinb.0 = Output Config Int0 = Low Level Config Rc5 = Pind.2 Config Servos = 1 , Servo1 = Portb.0 , Reload = 10 On Int0 Pobr_rc5 Dim Address As Byte , Command...
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...
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...
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"...
Witam Mój problem to brak kompilacji przy konfiguracji Timer2 w tryb Counter Unknown CONFIG parameter Porblem polega na tym że w helpie BASCOM-AVR można konfigurować Timer 2 w tryb Counter. Wrzucam cały kod :[syntax=basic4gl] $regfile = "m16def.dat" $crystal = 16000000 Dim Freq As Long Const Licznik = 2789 Config Timer1 = Timer , Prescale = 256 Config...
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...
Witam. Pomyślałem że, dopiszę się do rozmowy o sterowaniu serwami :D . W BASCOM jest gotowa obsługa serw która wygląda tak: $regfile = "m16def.dat" $crystal = 8000000 Config Servos = 1 , Servo1 = Portd.5 , Reload = 10 Enable Interrupts Dim I As Byte , Ruch As Byte Do If I < 130 And Ruch = 0 Then Incr I If I = 130 Then Ruch = 1 End If If...
Polecenie konfiguracyjne serwa w języku Bascom wygląda następująco: CONFIG SERVOS = liczba , SERVO1 = końcówka [ , SERVOn = końcówka ] , RELOAD = czas W Helpie napisano, że parametr RELOAD to czas opóźnienia pomiędzy kolejnymi przerwaniami licznika TIMER0, rozdzielczość. Zazwyczaj jest to 10us, a wielokrotność tego to szerokość stanu wysokiego. W opisach...
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...
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...
Dzięki Marcin za odpowiedź. W sobotę kupiłem TowerPro SG-5010, bo tamte, faktycznie za delikatne były, jak mi sprzedawca w sklepie pokazał (prawdziwe mini) ;-) Uruchomiłem serwo bez problemów. Sterowanie sygnałem z regulatora PI zbudowanego na Atmega16. Jedynie problem mam tego typu, że przy korzystaniu z drugiego timera Timer1 (Timer0 wykorzystuje...
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...
Pierwsza zmienna od lewej na górze to pobrana z Input i po odcięciu pierwszego znaku (LF). Druga za nią, to zmienna liczbowa przekonwertowana ze zmiennej którą opisałem w poprzednim zdaniu. W dolnej linijce, zmienna Y, która jest "wysyłana" do serwomechanizmu. Dzieją się znowu cuda, i nie mam pojęcia dlaczego. https://filmy.elektroda.pl/37_1323381786...
Zmieniłem w Alias, niestety nie mogę znaleźć składni funkcji debounce z dwoma warunkami, więc może mógłby ktoś umieścić jak to powinno wyglądać. Po zmianie dalej występuje błąd: Error 61: Label not found [PINC.1 ]. Co jeszcze zmienić, aby poprawić error? Poprawiony kod: <code> $regfile = "m8def.dat" $crystal = 12000000 Config Portc.0 = Input Config...
W instrukcji CONFIG SERVOS jest taki parametr jak RELOAD = xxx. Liczba xxx określa jaki czas w us będzie pomiędzy kolejnymi przerwaniami licznika taktującego generator PWM dla układów serwa. I będzie to rozdzielczość tego układu. Zatem jeśli wpiszesz 10 to SERVOS(1) = 100 da nam 100x10us = 1ms impuls powtarzający się co 20ms na wyjściu podłączonym do...
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"...
Ś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...
Do retsef Nie mam w tej chwili programu do schematów.Schemat jest bardzo prosty. Potencjometr serwa jest podłączony do 5v, masy i środkowa nóżka "zbierająca" do ADC w procesorze. Mostek-driver do silnika podłączony do dowolnego portu (sygnały IN_A i IN_B - kierunek obrotów), a 3-cia żyła (EN_A) podłączona do sygnału OC1A w procesorze (do PWM) (Ściągnij...
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 ponieważ w programie będe używał polecenia CONFIG SERVOS co powoduje iż Timer0 jest zajęty przez tę komendę potrzebuje zamienić wykorzystany wcześniej timer0 do przerwań na timer1 aby timer0 był wolny do sterowania serwem. Pozamieniałem w programie komendy timer0 na timer1 odpaliłem układ w symulatorze i nie działa. Dopiero uczę się programować...
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 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...
Znalazłem na forum kod dostosowałem do swoich potrzeb: /* Test serwo*/ /* Programik przykladowy */ /* typ uC: ATmega8 1MHz */ /* licznik/timer1 w trybie PWM */ /* Sygnal impulsowy (50Hz) na wyprowadzeniu PB1(OC1A) */ /* Przyciski sterujace szerokoscia impulsu przylaczone miedzy PD2 i mase oraz PD3 i mase */ #define F_CPU 1000000L...
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...
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...
bascom servos servos bascom oscam config
zmiana ciśnienie wtrysk dobór transformator pasek laguna
rover wymiana rozrusznika telewizor thomson
Kontrolka silnika i misfire detected - przyczyny i diagnostyka Opel Vectra C - lokalizacja bezpiecznika świateł mijania
