Witam. Dawno nie pisałem w BASCOM-ie a zdecydowałem się na niego bo myślałem, że tak będzie szybciej i prościej. Nic bardziej błędnego. Do napisania był dwu-trybowy program uśredniający do nieco przerobionego radiometru SOSNA. Ale nie w tym rzecz. O ile kod który zamieszczam powstał w miarę szybko o tyle błędu nie potrafię wyeliminować 3 dzień. Po krótce...program...
Znalazłem kod tablicy świetlnej, 8x8 sterowanej przez rejestr 74164, niestetypo załadowaniu programu na tablicy świecą się tylko trzy kolumny diód :(. Czy ktoś mi pomorze to rozgryść? 'Program tablicy świetlnej 'Sterowania multipleksowe wyświetlaczem matrycowym 7x5 LED 'Częstotliwość sterowania kolumn wyświetlacza wynosi ok. 333 Hz 'czyli częstotliwość...
Dzień dobry ! Sprawdź ten kod: [syntax=vbnet] $regfile = "attiny2313.dat" $crystal = 1000000 $hwstack = 8 $swstack = 16 $framesize = 32 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Porta.0 , Db6 = Portd.1 , Db7 = Porta.1 , E = Portb.3 , Rs = Portb.4 Config Lcd = 16 * 1 Cursor Off Cls Const Wartosc_timera = 131 Config Timer0 = Timer , Prescale = 8 On...
na każdym który napiszę jest tak samo, w nowym temacie powyżej podałem ustawienia fuse bitów, zaraz wkleję kawałek na którym teraz się bawię Dodano po 4 to kod na którym teraz się bawie '***************************************... '-------------------- konfiguracje ----------------------------------------... $regfile...
Witam ! N apisałem taki program: $regfile = "m8def.dat" $crystal = 8000000 Config Portd = Output : Portd = 255 Config Portb = Output : Portb = 255 K1 Alias Portd.0 K2 Alias Portd.1 K3 Alias Portd.2 K4 Alias Portd.3 K5 Alias Portd.4 K6 Alias Portd.5 K7 Alias Portd.6 K8 Alias Portd.7 Config 1wire = Portc.5 Dim Nr_kol As Byte , A As...
Nie jestem, bo kompletnie nie znam C. To dla mnie czarna magia. Widzę, że muszę zrekonstruować program i coś pozmieniać. Znalazłem coś równie ciekawego. Procedura w Bascom opracowana na podstawie plików w ASM '---------------------------------------... 'name : TB_peda_debouncer_BP_V1.bas 'date :...
Witam robie stacje lutowniczą z atmegą8 napisałem taki kod w bascomie, czy bardziej doświadczeni koledzy mogli by na nieo zerknąć i wytknąć mi poważne błędy jakie popełniłem. Temperatura z termopary jest brana za pomoca mac6675 i spi, uśpienie powinno się włączyć po minucie leżenia kolby nieruszanej i zmniejszyć ustawiona temp do 160 stopni, po podniesieniu...
Witam zrobiłem efekt knight ridera (skaner , linijka) na mikroprocesorze Atiny 2313. Spis elementów: -17rezystorów 3,7 -tranzystory BC337 -mikroprocesor Atiny2313 -stabilizator 5V -16 LED -kondensatory ceramiczne i elektrolityczne Zaprogramowanie dzięki programatorowi pod LPT składający się ze zworek, 3 rezystorów, kondensatora ceramicznego. Program...
Faktycznie troche nieczytelnie to wszystko opisałem.. Jeszcze raz. Robię tablicę z przełącznikami. Przełączniki te, będą mogły być ustawione w różnych konfiguracjach np. 2 na raz włączone w pierwszej kolumnie, jeden w drugiej i trzy w trzeciej. Aktualnie dla testów i napisania poprawnie mojego kodu podłączyłem tylko jedną kolumnę i 3 wiersze, ale gdzieś...
Witam Mimo, że większość proponowanych tutaj rozwiązań podłączenia RFM12 do Atmegi wykorzystuje SPI programowe, ja podłączyłem tradycyjnie, przez SPI sprzętowe - mimo, że nie miałem problemów z wgrywaniem kodu do Atmegi spiętej z RFM12, to uruchomienie ich razem jest problematyczne ( każde osobno działa bez problemu ) [syntax=basic4gl] $include "Config_AVR-DOS.BAS"...
Mam oto taki problemik. Programik jest banalnie prosty i działa mniej więcej tak: Gdy zmienna (Wart) nie osiągnie 30 zostaje załączone wyjście Portc.0 . Po osiągnięciu tej wartości wyjście zostaje wyłączone i załącza się kolejne czyli Portc.1 . Podprogram kończy się na wyłączeniu wyjścia Portc.3 . To wszystko jest proste. Problemem dla mnie jest natomiast...
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...
Tego powyżej nie bardzo rozumiem. Wymyśliłem to tak, działa ale czy jest dobrze? (at90s2313, kwarc 4MHz) Portd = portd or &B1111 timer0=timer, preskale=256 on timer0 wuswietlanie dim cyfra(4) as byte do ... ... loop wyswietlanie: Portb = Lookup(cyfra(1) , Tabela) ' pierwsza cyfra Portd.0 = 0 waitms 3 portd.0=1 Portb = Lookup(cyfra(2)...
Witam, pojawił się u mnie problem (pewnie banalny) z obsługą matrycy led. Posiadam podręcznikowy przykład M. Wiązani i próbuje go przerobić tak aby działał z moim schematem: [syntax=basic4gl]'wiersze Config Pinb.4 = Output Config Pinb.3 = Output Config Pinb.2 = Output Config Pinb.1 = Output Config Pinb.0 = Output 'kolumny Config Pind.7 = Output Config...
Przeznaczenie: Konfiguruje pracę programowego interfejsu I2C jako urządzenia podrzędnego (Slave). Ta instrukcja korzysta z biblioteki I2CSLAVE.LIB, która jest rozprowadzana oddzielnie przez MCS Electronics. Składnia: CONFIG I2CSLAVE = adres 'Instrukcja Config I2cslave automatycznie włącza globalny system przerwań! Config I2cslave = &B01000000 'czyli...
Witam. Mając trochę wolnego czasu postanowiłem wrócić do zmagań z PIDem. W sieci znalazłem program PIDa w Bascomie na Atmegę8 (maluszek Attiny2313 okazał się niestety za mały). W programie wyłączyłem różniczkowanie - aby było łatwiej. Program działa dość dobrze tzn. obroty utrzymują się na żądanym poziomie ale troszkę oscylują wokół wartości zadanej....
Witam Mam płytkę Loggera GPS + SD + PCF8563. Jeśli chodzi o GPS i zapis na SD wszytko jest OK. Problemem jest ( i to pierwszy raz się z czymś takim stykam ) odczyt danych z z układu PCF8563. Otóż dla pewnych wartości sekund, odczytana wartość czasu - godziny jest większa o 40 ( czterdzieści ). Czyli jeśli czas jest 22:40:02 to jest wyświetlany poprawnie,...
Oczywiście mam przypisane wartości początkowe do zmiennych. Oto kod:
Napisałem swój pierwszy program z przerwaniami i w zasadzie działa tak jak oczekuje. Jego zamysł jest podobny do pierwszego programu (początek tematu) z tym że nie steruje szybkością migania diody. Problem polega na tym, że (co nie powinno być dziwne) zmienić diodę mogę tylko wtedy gdy się ona pali. Gdy wcisnę przycisk gdy jest zgaszona program się...
Cześć. Postanowiłem zrobić sterownik do ładowarki, który to ma dwa tryby -automat - ładuje aż prąd nie spadnie na mniej niż 15A z możliwością przerwania i wyświetlania parametrów ładowania -ustawianie na czas, w którym ładowarki nie interesują parametry tylko czas, jaki pozostał Wszystko działa tylko problem polega na tym, że LCD przestaje reagować,...
Wklepałem to: $regfile = "m32def.dat" $hwstack = 32 $swstack = 32 $framesize = 32 $crystal = 16000000 Dim Licz As Byte , Wyp(4) As Byte Portd = Portd Or &B00001111 Ddrd = Ddrd Or &B00001111 Config Timer0 = Timer , Prescale = 1 On Timer0 Przerwanie Enable Interrupts Enable Timer0 Wyp(1) = 31 Wyp(2) = 63 Wyp(3) = 95 Wyp(4) = 127 Do Wait 10 Set Wyp(2).7...
Czy Kolega będzie może wiedział co jest nie tak od strony programistycznej ? Tzn. jeśli wyświetlam stałe wartości to jest ok, podobnie jak wyświetlam w pętli For... Next od 1 do 59. Dodałem jeszcze obsługę LCD, żeby widzieć, co się dzieje z czasem. Ale jak podepnę do tego PCF8563 i odczytuje czas z niego, a dopiero później wysyłam do SAA1064 to jest...
Wymyśliłem coś na próbę nim zacznę kombinować bo nie wiem czy do końca to ma tak wyglądać jak przedstawiam bo to teoria książkowa na której opieram swoje założenia. $crystal = 8000000 $regfile = "m8def.dat" ... .. Config Timer0 = Timer , Prescale = 64 .. On Timer0 Timer0_int Enable Interrupts Enable Timer0 Timer0 = 6 Licznik = 0 Timer0_int:...
Mam takie coś. Co jest nie tak? $regfile = "m8def.dat" $crystal = 8000000 $sim Config Timer0 = Timer , Prescale = 64 Config Portd = Output Portd.0 = 0 Portd.1 = 0 Portd.2 = 0 Dim Sekundnik30 As Byte Dim Minutnik As Byte Dim W As Byte Led1 Alias Portd.0 Led2 Alias Portd.1 Led3 Alias Portd.2 Stop Timer0 Timer0 = 0 Do Start Timer0 Wait 1 Led1 = 1 Wait...
Bascom - wersja 1.11.95 Kod, no jest tego sporo: - zegar PCF8563 - Zapis na SD - dwa czujniki DHT11 - odczyt z PCF8574AP ( klawiatura ) - RC5 - ma być DS18B20 - ma być DCF77, ale nie doszedłem do tego momentu ( tzn testowałem na innym procesorze i działało ) Działa - zegar PCF8563 - dwa czujniki DHT11 - odczyt z PCF8574AP w przerwaniu ( klawiatura )...
atom1477 -> może chociaż odpal jakiś Timer żeby Ci generował przebieg 36kHz na swoim pinie OCxx? To jeszcze nie wymaga używania jakichkolwiek przerwań. Nie rozumiem... nie wymaga przerwań? mam zrobione generowanie na OC1A. Ale chyba do tego potrzeba przerwania, przecież timer po przepełnieniu generuje przerwanie... $regfile = "m32def.dat"...
Witam.. Od godziny próbuję dojść czemu wyświetlacz tak niemiłosiernie mruga. Gdyby ktoś mógł rzucić na to okiem: $regfile = "attiny2313.dat" 'model proca $crystal = 1000000 'taktowanie Dim Cyfra As Integer Dim Her As Byte Declare Sub Wyswietl Declare Sub Pokaz Dim A As Byte Config Portb = Output 'port b jako wyjścia Portb = &B00000000 'stan...
Witam. Czy ktoś z Was mógłby napisać gdzie tkwi błąd w tym kodzie?. Problem w tym że w pętli do-loop nic się nie chce wykonywać czyli na wyświetlaczu mam cały czas wynik 001 tak jakby pętla ruszyła tylko jeden raz.A może błąd nie tkwi w pętli? $regfile = "attiny2313.dat" $crystal = 8000000 Config Timer0 = Timer , Prescale = 256 On Timer0 Multiwyswietl...
witam ponownie ,oto cały kod: [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 1000000 Config Kbd = Portb , Debounce = 40 Config Sda = Portc.0 Config Scl = Portc.1 Config Pind.0 = Output Config Pind.1 = Output Config Pind.2 = Output Config Pind.3 = Output Config Pind.4 = Output Config Pind.5 = Output Config Pind.7 = Output Set Portd.7 Config Timer0...
witam ! '2 wyświetlacze LED 7segmentów 'fusebity ustawione fabrycznie $regfile = "attiny2313.dat" $crystal = 1000000 Config Portb = Output 'katody segmentów LED Config Portd = Output Anoda1 Alias Portd.0 Anoda2 Alias Portd.1 Dim Nr_wysw As Byte Dim Cyfra2 As Byte Dim Cyfra1 As Byte Dim Temp_liczba_1 As Word Dim Temp_liczba_2 As Word Config...
Z bascomem zacząłem jakiś miesiąc temu, w C zacznę programować jak jeszcze trochę poduczę się bascoma (już zacząłem, to skończę). Napisałem taki program: $regfile = "m8def.dat" $crystal = 1000000 Config Portb = Input Config Portd = Output Config Portb.0 = 1 Config Portb.1 = 1 Config Portb.2 = 1 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3...
Przepraszam za dłuższą nieobecność. Nie mając nic nowego (i mądrego) nie pisałem. Ale w międzyczasie polutowałem zestaw startowy, a ostatnio napisałem inny program, który umożliwia (w zamyśle) liczenie dokładniej częstotliwości dla "paczki" impulsów, tym razem około 500 Hz. Wiem, że to dosyć skomplikowany tok myślenia, pewnie można to zrobić prościej,...
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ę...
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...
To jest fragment kodu, którego używałem , żęby zrobić obsługę licznik, ale nie działa w symulacji $sim $regfile = "m8def.dat" 'Informacja dla kompilatora. $crystal = 8000000 'Też dla kompilatora,zastosujemy kwarc zewnętrzny 10MHz. Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E =...
Mam problem jestem początkujący napisałem program który ma za zadanie regulować włączanie wiatraka i czas z jakim ma pracować, jednocześnie mierzy temperaturę i nie działa tak jak powinno : Temperatura pokazuję co jakiś czas błędny pomiar np 124 , 32 , 98 procek się resetuje chińskie znaki raz na jakiś czas w programie można było ręcznie zmieniać czas...
Witam, postanowiłem dodać do programu pomiar temperatury mam czujnik DS18B20 , tylko że kod programu odpowiedzialny za sterowanie czujnikiem opóźnia działanie encodera ,gdzie jest tutaj błąd może czegoś nie uwzględniłem w tym kodzie ? poniżej cały kod [syntax=basic4gl] 'Filename Encoder_100.bas 'Version 1.00 'Date 2012-03-19 'Purpose Test of ALPS STEC11B13...
Chciałem się dowiedzieć jakie częstotliwość próbkowania osiągacie przy stabilnym odtwarzaniu *.wav bez zakłóceń wynikających z obsługi karty. Śledzę temat od dawna. Ostatnio z potrzeby chwili zacząłem eksperymenty. Oprogramowanie jest napisane w Bascom/Asm. Kiedyś napotkałem PDF'a kolegi Saabotaz dotyczącego obsługi karty SD / MMC. Uruchomiłem na podanym...
Witam Mam program budzika, który jako dodatkową atrakcję miał mieć możliwość mówienie czasu na żądanie i odtwarzanie oprócz buzzera utworu jako alarmu. Atmega steruje przez jedno SPI programowe układem MAX7219, a przez konwerter poziomów i drugie SPI programowe odtwarzaczem WTV020SD. O ile sam WVT020SD + PCF8563 ( wyjście CLK do INT1 ) działają dobrze,...
Witam Jak wielu spotkałem się z problemem problemem kłopotliwej obsługi pilota z RC5. Po poszperaniu w necie wpadłem na ten temat. Jak się okazało wszystko na tym programie pracowało, ale nie zawsze. Kłopotem było napisanie programu "pod pilota". Oczywiście pochwała dla Sabotaz'a który problem "ruszył" Postanowiłem napisać coś co rozwiąże problemy poprzednika....
Tamten program napisałem z pamięci,bo korzystałem z komputera na którym nie mam bascoma. $regfile = "m8def.dat" $crystal = 8000000 Config Portd.0 = Output Config Timer0 = Timer , Prescale = 1 Enable Interrupts Enable Timer0 Start Timer0 On Timer0 Nosna Do Loop Nosna: Counter0 = 255 Portd.0 = Not Portd.0 Return Fusbity ok ,praca na kwarcu...
Oto istotny fragment mojego kodu. Faktycznie nie wiem nic o tym, czym charakteryzuje się tryb CTC Timera i chyba jednak go nie używam. Bardzo proszę rzućcie na to okiem. $regfile = "m32def.dat" $crystal = 8000000 Config 1wire = Portc.5 Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.0 , Db6 = Portd.7 , Db7 = Portd.6 , E = Portb.0 , Rs =...
Witam. Napisałem program który mierzy czas między podaniem napięcia na cewke przekaźnika, a przyciągnięciem kotwicy i zwarcia styków. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 16000000 Config Lcd = 16 * 1a Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 Config Timer0 = Timer ,...
program wygląda tak: $crystal = 8000000 $regfile = "m8def.dat" Dim Impuls As Integer Dim Przerwa As Integer Dim Licznik As Integer Config Timer0 = Timer , Prescale = 64 Impuls = 500 Przerwa = 200 On Timer0 Timer0_int Enable Interrupts Enable Timer0 Timer0 = 6 Licznik = 0 Open "COMD.1:9600,8,N,1," For Output As #1 Print #1 , Chr(&H1f)...
Witam. Mam nastepujacy problem... napisalem programik generujacy przerwania od przepelnienia licznika. $crystal = 16000000 $regfile "m8def.dat" Config Portd.5 = Output Config Timer0 = Timer , Prescale = 8 On Timer0 Intr Enable Interrupts Enable Timer0 Portd.5 = 0 Do Loop End Intr: Load Counter0 = 5 Toggle Portd.5 Return Problem w tym ze...
Witam. Projektuje właśnie zegar widmowy i mam do rozwiązania następujący problem... Wyświetlanie zamierzam zrealizować dzieląc "obszar rysowania" na n równych częsci. Stabilizację obrazu zrobiłem za pomocą halotronu podłączonego do INT0. W przerwaniu ustawiana jest flaga rozpoczęcia wyświetlania a opóźnienia generowane są fukncją waitms... Właśnie to...
Tak myślałem że coś nie wyjdzie ale powiedzcie co zrobiłem źle. Układ ma za zadanie odczytywać spadek napięcia na dzielniku z termistorem i podawać na wyświetlaczu led odpowiednią temperaturę. Na razie zrobiłem skale co 5 żeby było prościej. $regfile = "m8def.dat" $crystal = 8000000 Config Adc = Single , Prescaler = Auto , Reference = Avcc...
Witam Mam pewien problem.Potrzebuję podczas odliczania Timera0 wykorzystać przerwanie Int0. Sprawa wygląda tak, rozpoczynam odliczanie timera0 do momentu pojawienia się sygnału narastającego na wejściu Int0 i w tym momencie muszę przerwać Timer0 i odczytać jego wartość. No i właśnie tu pojawia się problem. Zamieszczę moje wypociny: Config Timer0 = Timer...
bibliotek KS108, a kod taki [syntax=basic4gl] $regfile = "m644pdef.dat" ' specify the used micro $crystal = 16000000 $baud = 19200 ' use baud rate $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 40 ' default use 40 for the frame space $lib "glcdKS108.lbx" 'First we define that we use...
Witam. Mam zbudowany od 3 lat inkubator na jaja kurze, gęsie i kacze. Cała konstrukcja działa w oparciu czujnik temperatury i wilgotności DHT22. Stary program działa bardzo dobrze, ptaszynki klują się ładnie. Ale żeby nie było tak pięknie to co jakiś czas, powiedzmy raz a może dwa razy na sezon coś się zawiesza i zamiast 37,7 stopni temperatura rośnie...
Nie chce zakładać owego tematu wiec napisze w starym.Napisałem taki soft do zegarka miałem pod ręka tylko polski help do bascoma i soft do innego zegarka tylko na AT89C405. Proszę o pomoc i wyrozumiałość ponieważ bascoma znam bardzo krotko. Nie wyświetla tego co powinien na początku widać cyfry odlicza sekundy potem się coś rypie i już nic nie wyświetla.Z...
Witam. Mam taki problem i nie bardzo wiem czemu tak sie dzieje. Prosty programik: ________________________________________... .......... Config Portd = &B11111111 Portd = &B00000111 Config Timer0 = Timer , Prescale = 64 On Timer0 Czas Enable Interrupts Enable Timer0 Start Timer0 Do Loop End Czas: Timer0 = 254 Toggle Portd.0 Return ________________________________________...
Witam Od jakiegoś czasu próbuje napisać program(na atmege8) który by mierzył mi obroty wentylatora. Posiadam wentylator od laptopa 5v 4Pin. Wentylator steruje Pwm. Przeszukałem chyba wszystko na forum i nie znalazłem konkretnej odpowiedzi na mój problem. Pisałem już program który wykorzystuje do zliczania wejście Int0, również konfigurowałem timer0...
Witam Niedawno zbudowałem radar na podczerwień coś na wzór tego: Działał wyśmienicie aż do momentu kiedy zachciało mi się coś zmienić w programie i przypadkowo go usunąłem bez możliwości odzyskania. Po jakimś czasie udało mi się napisać program ale mam pewien problem z którym nie mogę sobie poradzić i nie wiem jak go rozwiązałem wcześniej. Otóż gdy...
Witam Koledzy mam taki "program" który zapala i gasi diodę led w odstępach około 1sekundowych: Do Set Porta.3 Wait 1 Reset Porta.3 Wait 1 loop end I taki programik działa jak należy ale dlaczego po dodaniu przerwania od timera0 które zmienia stan portu z określoną częstotliwością polecenie wait 1 trwa ponad minutę? Mam taki program: $crystal = 4000000...
Witam, Napisałem sobie program do obsługi 2 wyświetlaczy 7segmentowcyh (połączonych przez 4543) Taki kod mam: $regfile = "m8def.dat" $crystal = 8000000 Config Pinc.0 = Output Config Pinc.1 = Output Config Pinc.2 = Output Config Pinc.3 = Output Config Pinb.0 = Output Config Pind.7 = Output Config Timer0 = Timer , Prescale = 256 Declare Sub...
Witam Używam Attiny2313 do pomiaru dwóch temperatur z DS18B20. Wynik ( Integer ) przesyłam bez żadnej obróbki przez UART przewodem 40 cm do Atmega328. Atmega rozbija odebrane dane i jest obróbka Kod Attiny2313 $regfile = "attiny2313.dat" $crystal = 8000000 $baud = 4800 '********************* Konfiguracja magistrali 1-Wire Config 1wire = Portd.5...
witam mam takie pytanie co w tym programie jest źle $regfile = "attiny2313.dat" $crystal = 8000000 Config Portd = Input Portd = &B00000000 Config Portb = Output Portb = &B0000000 Config Timer0 = Timer , Prescale = 64 On Timer0 Przerwanie_co_2ms Dim Licznik As Integer Enable Interrupts Enable Timer0 Timer0 = 56 Licznik = 0 Do Loop End :...
Mam problemy z odbiornikiem modelarskim gdzie jest sygnał PWM o różnym wypełnieniu. Chciał bym zmierzyć czas tego wypełnienia. Napisałem prosty program ale jak na moją głowę coś z nim nie tak. Zbyt prosto wygląda. Może lukniecie na niego i podacie jakieś spostrzeżenia ? [syntax=c]$regfile = "M8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin...
Pojedynczy Bit nie może być przekazywany do funkcji. Ogólnie tez działanie na Bitach powoduje małą oszczędność w zmiennych SRAM za to wymaga przyrostu kodu bo pojedynczy bit trzeba wyłuskać z całego bajtu. Przerabiałem kiedyś czyjś program na Attiny2313 i zamiana tych zapisów w całym kodzie : [syntax=vbnet]Jakis_bit = Not Jakis_bit[/syntax] na coś takiego...
Witam! Mam problem z przerobieniem kodu tablicy świetlnej z wyświetlaczem matrycowym led. Posiadam kod z książki Marcina Wiązani - Programowanie mikrokontrolerów AVR w języku Bascom przerobiony według instrukcji użytkowników w temacie: 'Program tablicy świetlnej 'Sterowania multipleksowe wyświetlaczem matrycowym 7x5 LED 'Częstotliwość sterowania kolumn...
Witam, Mam problem. Chodzi o listingi z książki Marcin Wiązania - Programowanie mikrokontrolerów AVR w języku Bascom W książce są dwa przykłady sterowania matryca Led 5X7 Pierwszy przykład z książki ma za zadanie wyświetlać znaki po kolei i to działa. Natomiast drugi listing ma za zadanie przesuwać znaki z lewej do prawej. I to już nie działa. Schemat...
Witam Przepisałem program tablicy świetlnej z wyświetlaczem matrycowym LED z książki "Programowanie mikrokontrolerow AVR w języku BASCOM" i wyskakuje sporo błędów, których nie potrafię skorygować. Jestem początkujący i myślałem, że z przepisaniem nie będzie problemów, tym bardziej, że poprzednio napisany program na ten wyświetlacz działał, ale jednak...
Witam Zmontowałem sobie układ Atmega32 z pojedynczym wyświetlaczem 5x7 i wszystko działa tak jak należy ale problem zaczyna się w innym miejscu. Potrzebuję połączyć 3 takie wyświetlacze, lecz nie mam pojęcia w jaki sposób to zrobić. Proszę o pomoc Tutaj podaję listing programu
Witam Mam taki program w symulatorze działa tak jak bym chciał czyli po nacisnięciu przycisku dioda sie zapala i po kilku sekundach gasnie ale po wgraniu do atmegi 8 niedziała prawidłowo czyli diode można zgasic i zapalić ale już nie gasnie po kilku sekundach.Czy ktoś wie czemu??? $regfile = "m8def.dat" $crystal = 1000000 Config Portb = &B11111111...
Witam ,probuje wyswietlac w trybie multiplexowania na wyswietlaczu LED litery. gdy definuje katody bezposrednio (przypisane do portu B) wszystko jest w porzadku. [syntax=basic4gl]Config Timer0 = Timer , Prescale = 64 On Timer0 Przerwanie_timera_wyswietlacz Enable Interrupts Enable Timer0 Przerwanie_timera_wyswietlacz: Portd = Lookup(wyswietlacz , Wyswietlacze)...
Witajcie ! Wiem, że temat był wałkowany na Elektrodzie wielokrotnie, czytałem chyba wszystkie, nie znalazłem jednak rozwiązania mojego problemu. Może na początek schemat : (tablica ma faktycznie 5 rejestrów i 40 kolumn, nie chciało mi sie jednak całości rysować.) teraz banalny kod : $regfile = "m8def.dat" $crystal = 8000000 Config Pind.0 =...
Witam! Od niedawna zacząłem przygode z bascomem i jak dotąd wszystko szło gładko i przyjemnie dopóki nie zabrałem sie za obsługe timera. Korzystają z helpa napisałem najprostszy chyba program liczący od 0 w góre co 1s. W symulatorze wszystko działa jak należy ale w realu już nie. Mógłby mi ktoś podpowiedzieć co robie nie tak? Może Atmega8 ma inną składnie...
Witam! Napisałem sobie obsługę klawiatury matrycowej 3x4 w bascomie. Nie używam umieszczonej tam funkcji getkb(), ponieważ podłączona jest do różnych portów. Sprawdzanie wciśniętych przycisków chcę przeprowadzić w przerwaniu od wewnętrznego zegara TIMER0. Na ATmega32 wszystko bez problemu działa. Płytka, pod którą to robię działa niestety na ATmega8515....
Pisząc program stanąłem przed problemem odbioru kodu RC5 z pilota ale z użyciem przerwania. O ile w BASCOM 8051 GETRC5 w przerwaniu działa doskonale, to w BASCOM AVR jest to kompletna porażka. Wadą Bascomowej funkcji GETRC5 jest: 1) Dziadowskie działanie w przerwaniu (niby działa ale traci pierwszy pakiet z pilota) 2) Zastosowanie jej w programie powoduje...
No to mam juz jakis podstawowy kod do pomiaru predkosci :) mam multipleksa NIE WIEM CZY DOBRZE ZADEKLAROWALEM PORTY - prosze o sprawdzenie czy ilosc cyferek sie zgadza i czy prawidlowo "pominalem" bity kwarcu (portB) resetu (PortC) i timer'a (portD) - wystarczy tam dac zera (wejscia) i juz?? no i potem jak deklaruje ktore maja byc w jakich stanach to...
Mam taki problem, że zrobiłem projekt Odbiornika Morsa na ATmedze8. W oryginalnym projekcie jest kwarc 10 MHz, a ja użyłem 10.240 MHz gdyż taki miałem w domu, a sklepu elektronicznego w mojej okolicy nie ma. Jak podłącze ten odbiornik do komputera i z programu morsik coś wysyłam to np. "adrian" dekoduje poprawnie, a "jarek" już nie, tylko na LCD pojawia...
Ten program nie może wystartować . To znaczy? jak zmusisz go i wyjdzie z pętli Jakiej pętli? naciśnięcie przycisku zmienia stan led na chwilę na czas trwania przyciśnięcia przycisku. Czyli wszystko OK, zgodnie z tym programem. Ja nie do końca rozumiem jak to ma działać ;( Na początek zajmijmy się jednym przyciskiem. Powiedz jak to ma działać? Jak zrobisz...
Witam Moja Atmega 16 wiesza się w pętlach Uszczenianie i Paletyzacja poniższego programu: 'Listing programu obsługującego symulator procesów. Program został napisany ' i skompilowan w programie BASCOM-AVR 1.11.9.8. $regfile = "m16def.dat" 'określenie typu procesora $crystal = 8000000 'określene szybkości zegara 'Watchdog Wdtcr = &B00011111...
Witam, Od kilku dni borykam się z problemem odbioru i wyświetlenia odebranej temperatury na wyświetlaczu odbiornika. Zmienną nadaje układ pomiarowy z atmega8 poleceniem print zmienna. Odbieram w terminalu ta zmienna bez problemu. Odbiornikiem jest również układ z atmega8 który na wyświetla odebraną temperaturę na wyświetlaczach 6 *7led . Wyświetla przez...
Przeniosłem temat. Chcę zbudować urządzenie, które będzie sterowane przez RC5, lecz nie mogę sobie z tym poradzić. Poniżej umieszczam kod: $regfile = "m32def.dat" $crystal = 10000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.6 , E = Portd.1 , Rs = Portd.0 Config Timer0 = Timer , Prescale =...
Kod znajomy, prawda :) ad.1. zrobiłem bez podprogramu ale i tak nie do końca działa jak chcę. Jak zrobiłem podprogram to sypało mi się przy Do bo program wracał do jednej nadrzędnej pętli i się zapętlał. Chciałbym to zrobić jakoś poprawnie składniowo. [syntax=basic4gl] '---------------------------------------... ' 20...
Proszę bardzo, oto program. Jeśli chodzi o obsługę multipleksu to jest ona zrealizowana, że najpierw jest zatrzaskiwana wartość w rejestrach przesuwnych, potem zaświecany dany poziom wraz z odpowiednią wartością dla niego i w tym samym czasie do rejestrów przesuwnych ładowane są już kolejne dane dla kolejnego poziomu i tak w kółko. [syntax=basic4gl]$regfile...
Witam, Chciałem skomunikować ze sobą 2 atmegi32 i mam z tym problem. Jedna atmega wykonuje pomiar z wejścia adc i próbuję wartość ADC wyświetlić na wyświetlaczu podłączonym do drugiej atmegi, ale zamiast wartości np 467 na wyświetlaczu uzyskuję jakieś przypadkowe cyfry np. 13 10 19 51 54 ... Podłączone jest dobrze RxD do Txd i podciągnięte rezystorami...
Witam, wymyśliłem generator ("prostokąt") na atmega. W założeniach miałem częstotliwość do 5MHz i wyświetlanie na LCD w Hz. Moje pytanie brzmi czy program jest napisany poprawnie, oraz co należało by zmienić? $regfile = "m8def.dat" 'Info dla kompilatora. $crystal = 8000000 'Informujemy kompilator o kwarcu 8MHz. Config Lcd = 16 * 2 'Konfiguracja...
Witam Mam problem z odbiorem sygnału rc5 a dokładnie buduję zegar na wyświetlaczu 7-seg w oparciu o atmege8 i układ pcf8583. Jak na razie wszystko mi działa i odczytuje czas i wyświetlam go lecz po dodaniu wierszy kodu programu odpowiedzialnych za odbiór rc5 program się wiesza i nic nie realizuje, a na wyświetlaczu są same zera... Nie mam już pomysłów...
Przepraszam za jakosc ale robilem w starym diptrace bez bibliotek czy program zaczerpniety z innego tematu by dzialal ? $regfile = "m8def.dat" $crystal = 4000000 Dim Setsek As Byte , Dziesek As Byte , Sekjed As Byte , Sekdzies As Byte , Minjed As Byte , Mindzies As Byte Dim 100ms As Byte , Ktorywysw As Byte , Licz As Bit , Pomoc As Bit , Flaga...
Wklejam kod. [syntax=basic4gl]'ATtiny2313 mruga dioda ustawienie portów. $regfile = "ATtiny2313.dat" $crystal = 10000000 Config Lcd = 16 * 1a Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , Rs = Portd.4 , E = Portd.5 Config Portd.6 = Output 'podłączenie diody pin nr 11 Config Timer0 = Timer , Prescale = 1024 Dim...
Witam wszystkich Przeczytałem kilka postów, szukałem w google, ale i tak nie mogę zrozumieć pewnej sprawy, mam kłopot ze zmiennymi żeby je umieścić w pamięci nieulotnej. Jest to wyświetlacz 3-cyfrowy 7-seg. multiplex, na razie sterowany przyciskami, może później będę chciał dorzucić sterowanie podczerwienią, ale to jeszcze sporo nauki przede mną (:....
Dzięki za pozdrowienia i za odpowiedź . A co do układu to jest automat do pokoju i ma sterować światłem rgb , halogenami , klawiatura umieszczona we włączniku+ dioda rgb ma sygnalizować jaka funkcja światła zostanie zmieniona , odczytać i zapisać i2c to zadanie dla attiny2313 . A atmega8 ma wyświetlać na wyświetlaczu co jest obecnie za funkcja , pobierać...
Witam Mam oto taki problem jak ww w temacie. Napisałem program na odmierzanie czasu przerwanie co 1 sekundę i ogólnie po wgraniu programu wszystko działa czas leci i jest wszystko OK. Lecz po chwili a dokładnie 9-14 sekundach wyłącza mi się lcd. Nie wiem w czym jest problem:( A o to program $regfile = "m8def.dat" $crystal = 8000000 '$sim Config...
Witam Znalazłem na elektrodzie poniższy kod: $regfile = "m8def.DAT" Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5 Config Portd.0 = Input Config Portd.1 = Input Config Portd.2 = Input Config Portd.3 = Input Config Portd.5 = Input Config Portb.4 = Output Cursor...
Witam, Wybaczcie dłuższą nieobecność. Program działa jak użyje PORT.X Mam inny problem. Otóż potrzebuje Timer1 do PWM i chciałbym zegarek zrealizować na Timer0. Znalazłem w sieci program, który wykorzystuje Timer0 do odliczenia 1 sekundy. Działa. Po zmodyfikowaniu programu który do odliczania czasu wykorzystuje Timer0 niby też działa, tylko problem...
Panowie, Panie potrzebuję pomocy bo siedzę i siedzę i nie mogę sobie dać rady z kodem BASCOM. Jestem początkujący, a raczej raczkujący w AVR, programowaniu itd. :( Próbuję zbudować sterownik do pokoju który ma wykonywać: -sterowanie światłem (8x) -sterowanie piecem/kotłem gazowym (temperatura noc i dzień-dwie różne temperatury) -każdy przycisk ma dwie...
Poczytałem trochę o timerach i prescalerach i mam nadzieję że teraz napisałem obsługę timer0 bez "rażących" błędów :?: Program posiada dwa założenia: zlicza liczbę zapisanych na SD zmiennych typu word lub zlicza ilość odczytów z ADC w ciągu 1sek, wyniki wyświetla na lcd. Zmieniłem również zmienną "f" liczącą zapisy/odczyty z byte na single bo zorientowałem...
Witam. Jestem zielony i nie wiem jak zmodyfikować kod programu, żeby histereza wynosiła 2°C 'Termostat $regfile = "m8def.dat" $crystal = 8000000 ' ' Config Pinb.1 = Input 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 Config Timer0 = Timer , Prescale = 1024...
Witam. Tak jak w temacie. $regfile = "m8def.dat" ' $crystal = 8000000 Config Pinb.1 = Output 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 'konfiguracja linii Config Timer0 = Timer , Prescale = 1024 Enable Interrupts : Enable Timer0 On Timer0 Co4ms Config...
Mam z tym taki mały problemik :) Otóż wcześniej stosowałem przeliczanie z dodanym T = makebcd(t) po T = T /10 i temperatura była zawyżana ale wyświetlana dobrze na wyświetlaczach. Gdy osunąłem ten wpis temperatura jest rzeczywista, ale powyżej 20st tylko liczba po przecinku jest wyświetlana ok, natomiast dziesiątki zostają 1 a jedności wariują. Coś...
Witam. Mam problem z prawidłowym odczytywaniem danych z eepromu atmega 8. Dzieje się to po kilkunastu startach procesora, zamiast np. 90 wskakuje mi 10 lub inne głupoty... do procka mam podłączony kwarc 8MHz z każdego +5V 100nF, reset podciągnięty do +5V przez 5,1k i kondensator 100nF do masy, fusy mam ustawione na CKOP = 0 , kwarc zewnętrzny czyli...
witam .. złożyłem układ prostego termostatu , ale mam problem z wyświetlaniem temperatury , do wartości 255 jest dobrze , natomiast następna wartością po 255 jest 250 ,później 251 , 252 , 253 i 264 ... nie umiem tego rozwiązać , czy ktoś może podpowiedzieć co jest źle ?? zamieszczam kod : [syntax=vb] $regfile "attiny2313.dat" $crystal = 8000000 Config...
Witam, od jakiegoś czasu próbuję stworzyć sobie zegarek z termometrem + napięcie akumulatora do auta. Wszystkie programy osobno działają bez zarzutu. Problem zaczął się z chęcią wprowadzenia przełączalnych ekranów i wprowadzeniu przerwań. Doczytałem że przerwania skutecznie psują komunikację z DS'ami przez co temperatura się nie odczytuje. Ogólnie to...
Dziękuję Ci bardzo, dużo mi to rozjaśniło :) Propos rozjaśniania... Czy uda się dowalić do tego LCD 2*16 ? Tzn próby już za mną i nawet się mieści (96% FLASH) ale program z LCD strasznie zamula (pewnie przez te programowe PWM'y). Bez obsługi wyświetlacza natomiast działa wyśmienicie. [syntax=vbnet] ' * RGB COLOR SETTER * $regfile = "attiny2313.dat"...
Witam. Chciałem zrobić sterownik wzmacniacza audio na bazie kitu AVT2829. Szczególnie zależy mi na uczeniu się dowolnego pilota. Zrobiłem płytkę przystosowałem do niej program, użyłem większego procesora (atmega8) no i program działa ale strasznie ułomnie. Procedura zapamiętania kodów z pilota przebiega jak należy ale już samo działanie jest strasznie...
napisałem prosty programik w bascomie i mam problem mianowicie licznik liczy caly czas aż do przepelnienia . Pin b.0 jest podpiety do kolektora fototranzystora (emiter na mase). Własiwie nie ma to znaczenia ponieważ po odpieciu i tak liczy . Prosze o pomoc -co jest nie tak lub o sugestie jak zrealizowac układ ktory zliczając zadaną wartość impulsów...
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 '---------------------------------------...