Program poprawiłem, ale dalej jest problem z drugim timerem tzn. działa tylko z TIMER0 , działa klawiatura, funkcja rozpędzania wirnika. włączenie drugie timera wiesza program. Zamieszczony program (tylko z TIMER0) działa fizycznie. [syntax=vbnet] $regfile = "m2560def.dat" $crystal = 16000000 '$sim '***************************************... Config...
Ja bym zdeassemblował kod i zobaczył jak BASCOM robi to na Timerze0 i tak samo bym to zrobił na Timerze2 ;) Dodano po 13 Na początek: $regfile = "M16def.dat" $hwstack = 32 $swstack = 32 $framesize = 32 $crystal = 16000000 '---------------------------------------... Dim Licznik_servo As Byte Dim Servo As...
Cześć Mam pewien problem do rozwiązania potrzebuje zrobić licznik który będzie mi zliczał do 10000 co 1 sek zrobiłem sobie liczniki T0 i T1 zliczają do 255 bo mają 8bit ale T2 ma 16bit nie mogę tego przeskoczyć[syntax=basic4gl] $regfile = "m32def.dat" $crystal = 16000000 Config Porta = &B11111111 : Porta = &B11111111 Config Portb = &B00000000 : Portb...
' Zegar, termometr, budzik (przynajmniej takie mam założenie) $regfile = "m8def.dat" $crystal = 8000000 Dim Sekjed As Byte : Dim Sekdzies As Byte : Dim Minjed As Byte Dim Mindzies As Byte : Dim Godzjed As Byte : Dim Godzdzies As Byte Dim Multi As Byte : Dim Miganie As Bit : Dim Wlaczeniebudzika As Bit Dim Ustawianie...
A poniżej obiecany działający kod: [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 16000000 Config Portd = Output Config Pinb.0 = Output Config Pinb.1 = Output Config Pinb.2 = Output Config Pinc.1 = Input Config Timer2 = Timer , Prescale = 256 Declare Sub Pobr_znaku(cyfra As Byte) On Timer2 Mult_wysw Dim A As Byte Dim B As Byte Dim C As Byte Dim...
Witam Mam problem z moim układem. Przy pomiarze ADC w moim układzie wyskakuje mi cały czas wartość w okolicach 60 (zakres ADC do 1023). Obojętnie co podaję na wejście cały czas mam tą wartość. Jeżeli jednak dokonuję pomiaru miernikiem to mam odpowiednie napięcie, np 2,5V. Jednak co ciekawe, jeżeli podam te napięcie bezpośrednio na nóżkę w płytce prototypowej...
Witam, mam mały program napisałem przy użyciu książki Pana Marcina Wiązania oraz przy użyciu elektrody do obsługi matrycy led, lecz mam nieporządany efekt stroboskopowy. Nie widać liter, tekstu, tylko wszystkie diody mrugają. Czy to jest spowodowane zasilaniem czy też błędem programu? Dorzucam dwa programy, przy których pracowałem i schemat, schemat...
[syntax=c]mam jeszcze pytanie czy ten kod może źle pracować z atmega 8a-pu [syntax=c]|Program "analizator widma akustycznego 20*2 - V2" kompilator bascom 1.11.9.0 | '|Autor: HUNTERHOUSE(Adam Kędzierski) i częciowo MANEKINEN(Paweł Kisielewski) | '| data: 02.08.2009 | '| | '| info: http://www.elektroda.pl/rtvforum/topic77... | '| www: http://diy.elektroda.eu/analizator-widma...
Witam. Jestem początkującym w dziedzinie programowania na elektronice znam się dobrze. Chciałbym zbudować komputer pokładowy do mojej hondy civic i znalazłem na elektrodzie projekt z pod tego linku. http://www.elektroda.pl/rtvforum/topic22... Płytkę zaprojektowałem na nowo pod atmege128 reszta bez zmian. Wyświetlacz od Siemensa s65 ls020 podłączyłem...
Po małych zmianach działam na czymś takim. Pomimo taktowania z wewnętrznego kwarcu nie widać efektu. Jakiegokolwiek. [syntax=c]/* * RealTimeClock.c * * Created: 2013-11-17 01:46:48 * Author: Piotr Pabian */ #include <avr/io.h> #include <avr/interrupt.h> void init_RTC(void) { //ASSR = 1<<AS2; //Enable asynchronous mode TCCR2 = (1<<CS22)|(1<<CS21)|(1<&l...
emarcus:: Czy Ciebie całkiem pogieło? Jak chcesz pomnożyć częstotliwość rozkazem MUL? Ewentualnie jak chcesz tym pomnożyć impulsy? Bez obrazy ale to zupełnie co innego. Dodano po 19 Na mój gust cos takiego: $regfile = "M8def.dat" $crystal = 8000000 $hwstack = 64 '---------------------------------------...
Policzyłem dla AVCC, to jednak nieważne. Zobacz jak korzystać z symulatora w takich sytuacjach. Zmieniłem trochę Twój kod (miał też błąd w obsłudze przerwania bo zaraz pod Select case miałeś ustawianie portów bez żadnego Case. Przeniosłem więc tę linię powyżej Select Case) Wracając do symulatora to każdy ruch suwaka w symulatorze powoduje teraz printowanie...
Potrzebuję pomocy przy zamianie kodu "RFID Reader", tzn. żeby zamiast wyświetlania kodu karty na LCD uzyskiwać odpowiedni poziom na wyjściu 1z10 i czy jest to możliwe do zrealizowania na atmega8? Chciałbym użyć 8 ostatnich cyfr kodu karty. Posłużyłem się gotowcem, który był już na elektrodzie (dopiero uczę się bascoma i nie wiem jak się do tego zabrać):...
Nie mam "pod ręką" tego układu ale w symulatorze (co mnie zdziwiło, że symuluje nawet podłączony zewnętrzny kwarc) ten kod działa. Masz tam pętlę Do Loop jak ja? https://filmy.elektroda.pl/10_1450452071...
Witam, czy ktoś może miał taki problem jak ja, a polega on na tym, że po pewnym czasie moduł przestaje odbierać? Korzystam z bibliotek Pana Mirka, tylko funkcję sprawdzania czy pojawiły się dane wrzuciłem do obsługi przerwania timera, która się wywołuje co 250mS. Wygląda to tak: arcyimperator , co u Ciebie oznacza NSEL_RFM12_DOWN oraz NSEL_RFM12_UP?...
Proszę. Gotowe bo jak widzę kilka If`ów do tej samej zmiennej zamiast Select Case i tym podobne kwiatki... [syntax=vbnet]$regfile = "m32def.dat" $crystal = 11059200 $hwstack = 64 $swstack = 16 $framesize = 64 Const Timeout_time = 8 'x500ms Config Submode = New ' config LCD 2X16 Config Lcdpin = Pin , Rs = Porta.2 , E = Porta.3 , Db4 = Porta.4 , Db5 =...
To jest przykład dla Atmega8, nie wiem czy pomoże: $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Portd.0 , E = Portc.2 , Rs = Portc.1 Config Pinb.1 = Output Config Pinb.2 = Output Config Pinb.3 = Output Cursor Off Cls Rem konfiguracja portów Dim R As...
Ten program jest taki, że nie wiadomo od czego zacząć poprawiać. Najlepiej byłoby go napisać od nowa :D Niemniej poprawiłem to co ewidentnie musiało być poprawione. Tak na marginesie to nie wiem co za magik wymyślił te ponowne włączanie przerwań w obsłudze przerwania po to tylko by odebrać kod RC5 w przerwaniu. Ludzie to małpują i kłopoty gotowe. Sprawdź...
Czy da się generować przerwania od timer2 przy każdym przepełnieniu w trybie CTC? Próbuję generować częstotliwość w zależności od ustawienia potencjometru, ale timer generuje przerwanie tylko raz, cały program poniżej: OCR2 zostaje wpisana tylko pierwsza odczytana wartość zaraz po starcie programu, dalej już nie generuje przerwań. Po wrzuceniu " OCR2...
Użyj Timer'a 2 i wszystko będzie cacy. Pzdr. A piny to się konfiguruje tak: Config Pinb.1 = 1 a nie Portb.1. Przydaje się też wrzucenie linijki z def'em procka: $regfile = "M8DEF.dat", zresztą: $crystal = 8000000 $regfile = "M8DEF.dat" Config Timer2 = Timer , Prescale = 256 On Timer2 Przerwanie Dim A As Byte , B As Byte Config Lcd = 16 * 2 Cursor Off...
Łap, bo jak się długo męczy temat a efektów nie widać to można popaść w depresję a tego nie chcemy :D Tego LM293 to kupiłem chyba ze dwa lata temu i tak sobie leżał bo używam innych driverów, ale pomyślałem, że się może kiedyś przydać. No i się doczekał :D Nie wiem jaki jest ten Twój silniczek, ale mój pochodzi z Walkmana. Pump up the volume żeby usłyszeć...
Łap. Przypomniałem sobie że miałem dwie płytki z RS485 na pokładzie i komplet kabli z innego projektu(most RS poprzez ETHERNET). W każdym miejscu gdzie podłączam RS`a mam zawsze dwa gniazda więc mogę je łączyć albo podglądać terminalem. W kodach Slave ustawiasz adres stałą My_ID. Z racji tego, że na szybko, miałem tylko dwa to testowałem adresy 3 i...
Zbudowałem sobie taki oto układ termometru i zegara oparty na atmega16 i wyświetlaczu lcd. I wszystko działa jak należy ale nie do końca. Temperatura wyświetlana na lcd strasznie skacze po różnych wartościach w przeciągu paru sekund tzn. jak np. w pokoju jest 20 stopni to on wskazuje raz właśnie te 20 raz 19 czasami 21 albo 14 15 czy 16 stopni celcjusza....
Witam, $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Output Config Pind.1 = Output Config Timer2 = Timer , Prescale = 128 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Disconnect , Prescale = 8 Cls Cursor Off Portd.0 = 1 Portd.1 = 0 Set Portd.4 On Timer2 Czas1s Dim Licz8ms As Byte Dim Wartoscpwm As...
No problem. Today I`m not read topic from the beginning and forgot about the third button. [syntax=vbnet]$regfile = "m8adef.dat" $crystal = 8000000 $hwstack = 64 $swstack = 32 $framesize = 64 Config Submode = New Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config Lcd = 16x2 Cursor...
Witam. Potrzebuję napisać funkcję która zainicjalizuje Timer w Atmega32 (asynchroniczny) tak, by działał z zewnętrznym kwarcem 32,768kHz podłączonym pod TOSC1/TOSC2. Timer ma zgłaszać przerwanie co 1 sekunde. W przerwaniu powinien zmieniać stan diody na pinie PD0 na przeciwny. Proszę o pomoc w napisaniu kodu . Przepisz dokładnie to samo co napisałeś...
Witam mam za zadanie sterować jasnością 3 diod przez pilot RC5i na wyświetlaczu ma się wyświetlać stan. Na timerze 1 steruje pwm1a i pwm1b i jest w porządku zmienia się jasność. Problem ze sterowaniem 3 diodą (TIMER2), ona nie reaguje gdy wysyłam kod 6 lub 9, mrugnie jednorazowo tylko wtedy gdy wysyłam dowolną komendę do tmfs5360. Jasność tej 3 diody...
Witam. Potrzebuje licznik co 1us sprawdzam poprawność działania na 1s i jakoś nie działa program do odliczania 1s działa : $regfile = "m8def.dat" $crystal = 8000000 Config Portd.1 = Output Config Timer2 = Timer , Async = Off , Prescale = 64 Dim Licznik2 As Integer On Timer2 Tim2_int Enable Timer2 Enable Interrupts Timer2 = 6 Licznik2 = 0 Do...
Witam, Mam problem z pomiarem czasu trwania impulsu. Próbowałem różnych sposobów, siedzę już nad tym 3 dzień i nic mi nie wychodzi. Na wejście INT0 atmegi32 podaję sygnał np. 30Hz i wypełnieniu 15%. Sygnał jest stabilny więc tutaj problem odpada. Potrzebuję zmierzyć czas trwania stanu wysokiego. W programie który stworzyłem na wyświetlaczu wyświetla...
Korzystam z legalnej wersji Bascom 2.0.4.0, która zresztą w pełni mnie zadowala i pokusiło mnie aby zobaczyć co tam się poprawiło w najnowszej wersji. Po ściągnięciu z MSC aktualizacji teoretycznie wszystko przebiegło bez problemu ale gdy... [syntax=basic4gl] $regfile "m168def.dat" $crystal = 16000000 $hwstack = 50 $swstack = 50 $framesize = 24 '---------------------------------------...
To jak skonfigurować PWM na Timer0 lub Timer2?? Może takie coś? : $regfile = "m16def.dat" 'Deklaracja rodzaju procesora Ddrd = B00110000 'Porty pełniące funkcję Timera powinny być skonfigurowane jako wyścia Tccr1a = &HA3 'Phase correct PWM mode ,PWM = 10 bit Tccr1b = &H5 'Prescale 1024 Do Pwm1a = Pwm1a + 1 'Ten program powoduje cykliczną zmianę...
Witam, napisałem taki oto kod: [syntax=basic4gl] Rem Regulacja jasności świecenia diody LED Rem zmienna JASNOŚĆ ma byc przedstawiona Rem w postaci liczbowej na wyświetlaczu LED $regfile = "m32def.dat" $crystal = 16000000 Ddra = &B11111111 'sterowanie katodami wyświetlacza LED Porta = &B11111111 'katody segmentów zgaszone Ddrc = &B00000000...
Witam. 1 - Stosuj aliasy. Np: drzwi alias portd.0 Później w kodzie po prostu drzwi = 1 lub drzwi = 0. bardzo poprawia czytelność kodu. 2 - Odczyt z przetwornika ADC powinien być do zmiennej WORD (przetwornik jest 10 bit). 3 - w pętli głównej masz instrukcje Wait. Powstaje problem ze sprawdzaniem stanu wejść, pętla może się wykonywać bardzo długo, w...
Mam nastepujaca wersje bascoma: Compiler version :1.11.8.7 Compiler build :1.11.8.7.001 To chyba najnowsza wersja. Ocr2 tez nie dziala Moze podam caly kod : $regfile = "m8def.dat" $crystal = 7680000 Config Pind.2 = Input , Pind.1 = Input Config Portd.0 = Output , Portd.1 = Output , Portd.2 = Output , Portd.3 = Output Config Lcdpin = Pin ,...
Witam Chciałem dołożyć "atrakcję" do budzika w postaci odtwarzacza muzyczki ( oprócz tradycyjnego buzera. Mimo ograniczeń co do parametrów pliku oraz wielkości obsługiwanej karty SD ( 2Gb bez SDHC ) moduł WTV020 jest ciekawy. Do wyjścia BUSY podpiąłem przez rezystor diodę LED. Do wyjścia SP+ i SP- podpiąłem głośniczek 0,5W/8om Pliki AD4 pobrałem i internetu,...
Czyli programowy PWM z multipleksowaniem ? Mam mniej więcej tak jak poniżej. Wyciąłem zbędne zmienne i pierdoły: Ale chciał bym by ten program był razy 4. Czyli 4 wejścia i sterowanie 4-ma paskami RGB [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 Config Portd.7 = Input Config Pinb.1 = Output Config Pinb.2 = Output Config Pinb.3 = Output...
Ten kod jest wersją maksymalnie testową. Zawiera kupę niepotrzebnych rzeczy i jest w nim nieziemski bałagan - przepraszam. Jestem bardzo początkujący i próbuję pisać posługując się najprostszą składnią. Był pisany "na szybko", aby stwierdzić czy ta idea zadziała. I generalnia działa. Config Lcd = 16 * 2 $crystal = 1382400 ' fusebit ustaw xtal full swing...
FRAGMENT opisu do "CONFIG RC5" Z HELPU BASCOMa =============================== Action Overrides the RC5 pin assignment from the Option Compiler Settings. Syntax CONFIG RC5 = pin [,TIMER=2] Remarks PinThe port pin to which the RC5 receiver is connected. TIMERMust be 2. The micro must have a timer2 when you want to use this option. This additional parameter...
"mongoł2000 napisał: a jak zrobić pwm na 6 kanałów bo jest jeszcze ock0?? Co to za wyjście bo nie znam?" jest to pierwszy pin procesora , zaraz przeinstaluje tego bascoma Dodano po 36 $regfile = "m162def.dat" 'Deklaracja rodzaju procesora Config Timer0 = Pwm , Prescale = 8 , Pwm = On , Compare Pwm = Clear Down Config Timer1 = Pwm , Pwm = 8 , Prescale...
Witam Zakupiłem w Seguro moduł DCF77 na układzie MAS6180B. Wykorzystałem klasyczny kod Bascom ( mam wersje Bascom 1.11.95 ) Config Dcf77 ? Czy sygnał trzeba podawać przez dodatkowy tranzystor ? Np. przez taki układ http://obrazki.elektroda.pl/8336138700_1...
Jeszcze jedno pytanko: Config Timer0 = Timer , Prescale = 64 Powyzsza linijka generuje mi nastepujacy blad: Error : 96 Line : 33 Prescale value must be 1,8,64,256 or 1024 $regfile = "m16def.dat" 'dyrektywa dla mikrokontrolera ATmega16 $crystal = 8000000 'częstotliwość taktowania 8 MHz Ddra = &B11110000 'PA.7-4 wyjscia wybierajace wyswietlacz,...
Witam,kupiłem niedawno moduł czytnika kart RFID ,po podłączeniu do komputera wyświetlał mi dziwne dane(tak jakby zła prędkość...),postanowiłem więc podłączyć go do M16 i wyświetlenie na LCD w celu odczytania kodu z karty .Na ekranie nic się nie pojawia ,próbowałem z różnymi poleceniami odczytu z rs'a ale nic mi nie wyszło(niby coś odczytuje ale w niezrozumiałym...
irda zmieniła swoją pozycje i nie jest na porcie na ktorym jest toglebit.. no i super... odlicza poprawnie.. tylko kody IRdy coś dziwne.. ale nieźle.. tylko ciekawe czy da się dorobić do tego dużo więcej funkcjonalności.. $regfile = "m32def.dat" ' specify the used micro $crystal = 16000000 ' used crystal frequency '$crystal = 1000000 '******************************...
Witam Mam mały problem z tym dość prostym programem. Generalnie działa tak jak powinien, tylko przy włączeniu układu następuje krótkie załączenie przekaźnika. Jest to spowodowane tym, że początkowy odczyt z DS18B20 jest 85 stopni ( integer 850 ) co przekracza ustaloną przeze mnie początkową wartość 45 stopni ( integer 450 ). Próbowałem dać badanie warunku...
[Bascom]Witam. Natrafiłem na pewien problem. Chciałem by po otrzymaniu ramki 10 01 0A 01 otrzymał zwrot w postaci "dana 1" a wysyłając ramkę 10 01 0A 02 odpowiedz "dana 2" Problem wygląda następująco: - nie za każdym wysłaniem jest reakcja - odpowiedz na wysłane dane - odpowiedz nie przychodzi raz tylko w koło i nie można tego przerwać Dodatkowo powiedzmy...
Każdy kiedyś patrzył na przykłady a nie od razu główkował. Proszę. Baw się dobrze. Przetestowany ;) [syntax=vbnet]'#########################... '# Program włącza jeden z trzech przekaźników w zależności # '# od tego ile razy lub jak długo naciesnieto przycisk # '# Jeden krótki Przekaznik1 na czas 1s # '# Dwa krótkie Przekaznik2...
Siemka! Mam tego typu problem do rozwiązania: Do kontrolera ATmega8 mam podpięty impulsator(encoder) z przełącznikiem w ośce: http://www.semiconductors.com.pl/web/pli... podpięty jest tak: encoder: ATmega8: A PORTD.6 B PORTD.5 E PORTD.4 C,D do masy porty kontrolera podciągnięte są do zasilania przez wewnętrzny pull-up. Oprócz tego każde z wyprowadzeń...
Witam Mam płytkę sterującą dwoma kanałami PWM - przez ULN oraz MOSFETY. Płytka ma dwa wejścia oraz wejście czujnika PIR - INT1. Ma przede wszystkim sterować włączaniem taśmy LED 12V z czujnika PIR ( oprócz tego z drugiego wejścia ). LED włączona przez PIR ma docelowo świecić określoną ilość czasu ( zależną od natężenia światła ) i się wyłączyć. Żeby...
Proszę. Dosłownie 5 minut bo niektóre rzeczy przekleiłem ze swoich programów. Reaguje na komendy LEDON ->właczy diodę na PORTD.2 i na LEDOFF wyłaczy tą diodę. Prędkość transmisji domyślna dla mojego HC-05 czyli BAUD 38400 [syntax=vbnet]$regfile = "m328pdef.dat" $crystal = 8000000 $hwstack=64 $swstack=32 $framesize = 128 $baud = 38400 Config Clockdiv...
Witam. Mam taki oto program do pomiaru temperatury przez DS18B20 i wyświetleniu jej na 14-sto pozycyjnym wyświetlaczu 14-sto segmentowym: '-------------Zegar Kalendarz 14-segment LED-" 'opis złącza ISP 'czerwony - "+" 'zielony - RESET 'biały - MISO 'niebieski - SCK 'brązowy - MOSI 'czarny - "-" '------------dyrektywy dla kompilatora--------"...
bascom timer2 timer2 bascom atmega8 bascom portd
silvercrest odkurzacz wymiana instalacji wodnej bloku zasilać kampera
Zmywarka Electrolux ESL4500L0 błąd i30 i wyciek wody Ferroli Bluehelix 25C błąd A7 - czujnik NTC
