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...
Poi pierwsze. Do BASCOM-a jest pomoc - także po polsku, której to zresztą jestem autorem. Wersję on-line (beta) znajdziesz na mojej stronie WWW. Jak one działają? Zliczają impusy. Albo z prescalera, albo z zewnątrz. Patrz nota katalogowa. W którą stronę zliczają? Zwykle liczą w górę. W trybach PWM liczą też w obie strony. Patrz nota katalogowa. Jak...
Dlaczego jak napisze: On Timer0 Timer0_int Disable Timer0 nop nop nop Tirf.0=1 'Ustawiam flagę oznaczająca rzadanie przerwania od Timer0 nop nop nop Enable Timer0 nop nop Timer0_int: nop nop Return to program nie wykonuje przerwania po wykonaniu instrukcji Enable Timer0? Czy ustawienie bitu tirf.0 jest niemożliwe programowo? Czy to wina Bascoma?...
Potrzebuje emulator DS18B20 na atmega8 - mam na PC program do odczytu temp i chciałem w tym programie dodac inne parametry ( np wilgotnosc ) ale nie zmieniajac programu - w scrachpadzie bede wisyłał inne dane nie temperature. ( w bajtach temperatury lub bajtach uzytkownika wolnych 2szt) Aktualnie używam "lampomitari" , ale napisalem przeróbke programu...
Witam, drogich forumowiczów. Mam problem z komunikacją kilku urządzeń w sieci rs485. A tak prawdę mówiąc to z komunikacją pomiedzy dwoma, jednym "master" i jednym "slave". Normalnie staram się zadawać pytania w ostateczności na forum Elektroda, ale po prawie 3 tygodniach siedzenia przy problemie, przeglądaniu masy poradników i postów związanych z rs485...
Na forum znalasłem program do odczytu kodów klawiszy do pilota NEC. Z tego co widzę to autor nie przejmował się zbyt dokłądnością. Nie wszystko tutaj rozumiem, mógłby ktoś w kilku słowach opisać jak to działa? Przepełnienie występuje co 96us co 96us wykonuje się etykieta tikers (nie wiem po co ta pętla 1200), to jest czas w którym powinien zostać odebrany...
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, 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...
Witam. Schemat całego układu: Przed położeniem uC do snu ustawiam stany wysokie na bazach tranzystorów (zmierzyłem prąd samych tranzystorów, poniżej 0.00uA bo miernik nie chwyta). Ustawiam wszystkie pozostałe piny w stan wysoki oprócz: pinów przycisków S1-S4 które mają być masą dla pinu przerwania INT0 (który ustawiam jako wejście i podciągam wewnętrznie),...
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...
Witam Jestem w trakcie robienia zagara nixie ze strony Mikrokontrolerem jest Atmega8 a wkład zrobiony na Bascomie. Potrzebuję dodać opcję chwilowego wyłączenia lamp, w celu zabezpieczenia lamp przed zatruciem. Bardzo proszę o pomoc. To kod: '************* Konfiguracja uC ***************** '***************************************... $regfile = "m8def.dat"...
Witam wszystkich serdecznie. Właśnie zacząłem zabawę z modelarstwem i chciałbym sobie zrobić prosty regulator do silników szczotkowych. Znalazłem w necie kilka schematów. Poskładałem sobie układ wg schematu Przerobiłem kod z noty katalogowej bascoma [code:1] $regfile = "ATtiny2313.dat" $hwstack = 32 ' default use 32 for the hardware stack $swstack =...
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 =...
To zmienia moją koncepcję :( obecnie mam ustawione tak: Timer1=Timer (odlicza mi jedną sekundę) Timer0=Counter (zlicza mi impulsy). Chciałem dodać do tego programu zegar z datą, ale wydaje mi się że sekunda z Timera1 na kwarcu 4Mhz nie jest zbytnio dokładna. Może jakaś podpowiedź jak najprościej przerobić program żeby mieć ten zegarek? (chciałbym użyć...
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...
Zacznę może od początku... Chcę odczytać kody IR z pilota do LG. W manualu znalałem opis transmisji IR w TV LG. I po porównaniu wygląda to na kod protokół NEC. Ale jest mała różnica... Pewnie jedna-setna ms nie robi różnicy? :) Znalazłem taki kod: '***************************************... '* Filename : IR NEC...
Witam Zrobiłem termometr na Ds18b20 i wynik wyświetlany jest na 3 wyświetlaczach 7 segmentowych Led. Dodatnia temperatura działa bardzo dobrze jednak gdy pojawia się ujemna temperatura poniżej - 10 stopni na wyświetlaczach pokazują sie same 8 8 8 . Może to dlatego że pojawia się - ? Nie wiem jak w bascomie można napisać moduł z liczby np. |-10| = 10...
Witam, na początek dodam że dopiero zaczynam z Bascom'em. Mam problem w przepisaniu programu z ATTINY2313 na ATMEGA8. Oryginalną wersję zamieszczam poniżej: '************* Konfiguracja uC ***************** '***************************************... $regfile = "attiny2313.dat" $crystal = 16000000 Config Portb = &B11111111 : Portb...
Witam. Koledzy mam błachy problem którego nie mogę mogę sam rozwiązać (taki tam że mnie programista...) Otóż do atmegi32 mam podłączony poprzez mosfeta alarm (piezo z generatorem 110dB) atmega po prostu załącza zasilanie. I teraz potrzebuję za pomocą tego wygenerować dwa lub trzy różne alarmy. W atmedze dostępny jest timer0. Żadne przerwy typu wait...
Witam Staram się zrobić odliczanie na przerwaniach - jak do tej pory nie używałem jeszcze przerwań, więc proszę o wyrozumiałość za banalne pytanie. A więc tak. Potrzebuję za pomocą Timera0 wprowadzić diodę w pulsację z częstotliwością 10Hz (to tak dla testu) Wszystko wydaje się w miarę proste. Skonfigurować T0 i przerwanie na ten zegar. A więc mam tak:...
Witam. Robię sterownik (do teściowej :) ) do kotła z możliwością regulacji prędkości dmuchawy i jest drobny problem, stosuję wyświetlacz led który wyświetla róże parametry (multipleksowany jest i wykorzystuje do tego celu timer0), jak uruchomię przerwanie zewnętrzne INT0 to zaczyna mi strasznie migotać,tzn. wyświetlacz jest taktowany częstotliwością...
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, 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. Chciałbym sobie wykonać zegar z tego tematu [url=]LINK ale chciałbym dodać do tego zegar RTC. Myślałem żeby użyć DS1307 lub PCF8583, do obsługi tego drugiego znalazłem taki oto fragment kodu: [syntax=basic4gl]Config Sda = P3.5 'konfiguracja linii SDA magistrali I2C Config Scl = P3.7 'konfiguracja linii SCL magistrali I2C Dim M As Byte 'deklaracja...
Config Hitag = 64 , Type = Em4095 , tymczasem w dokumentacji : syntax for EM4095 prescale - The pre scaler value that is used by TIMER0. A value of 8 and 256 will work at 8 MHz.
Witam Walczę z programem w Bascomie (coraz mniej mi się on podoba) listing poniżej. Docelowo będzie to zegar na lampach nixe. Projekt bazujący na mirley, ale zmianę ustawień chcę zrobić na impulsatorze. Dlaczego funkcja Zmiana_godziny i Zmiana_minuty nie zwraca mi wartości? Edytowałem post umieszczając w tytule znacznik
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...
$crystal = 8000000 $regfile = "m8def.dat" Config Timer0 = Timer , Prescale = 64 Dim Licznik As Word Dim Flaga_1ms As Byte Dim Temp_1 As Byte Dim Liczniczek_1 As Byte Config Portb.1 = Output Reset Portb.1 Config Portb.2 = Output Set Portb.2 Config Pinb.0 = Input Set Portb.0 Enable Interrupts Enable Ovf0 On Timer0 Timer0_int Do If Flaga_1ms...
Sorry, Wiesz ja to sie z tym bawie tylko i program pisze w bascomie metoda prob i bledow. Za bardzo sie na tym nie znam tylko sobie przerabiam inne projekty na moje potrzeby. Chodzi mi tylko o to czy dobrze rozumiem te taktowanie procesora. no ale jak co to tu masz caly kod: $regfile = "m8def.dat" $crystal = 12000000 Config Lcd = 16 * 2 Config...
Witam Potrzebuje pomocy tym razem w ulepszeniu zegarka . W związku z tym iż uruchomiłem go chciałem polepszyć jego dokładność a nie znam języka c napisałem program w bascomie wzorując się na koledze powstało takie coś $regfile = "m8def.dat" $crystal = 8000000 Dim Cyfra1 As Byte Dim Cyfra2 As Byte Dim Cyfra3 As Byte Dim Cyfra4 As Byte Dim Nr_wysw...
Poczytaj sobie ten watek :
napisałem jak podałes , program skompilował sie ale nie działa :(:(:( mógłbys to sprawdzić czy cos nie pomyliłem :) do testów wystarczy by przełaczał sie co 2 sek i wyłaczał po 10 sek $crystal = 8000000 $regfile = "m8535.dat" Dim T1 As Integer ` czas zał /wył w sek Dim T2 As Integer ` czas całk w sek T1 = 2 ` zmienna zał/wył w sek T2 = 10` zmienna całk...
Jak długa ma być ta sekwencja? Mam na myśli ilość tych elementów "_____" czyli przerw. Osobiście proponował bym użycie przerwania z licznika timer0, CONFIG TIMER0 = TIMER , PRESCALE = 64 LOAD TIMER0, 125 (także przed wyjściem zobsługi przerwania) To da przepełnienie licznika timer0 co 1ms przy zegarze 8Mhz. Do zapamiętania sekwencji można użyć zmiennej...
Witam, chciałem się podzielić z szanownym gronem moim problemem, który napotkałem, gdy chce odebrać coś w RC5. Napisałem (a właściwie to skopiowałem z helpa) program do odbioru rc5, i tu pojawia się problem, ponieważ na wyświetlaczu cały czas mam wartość 255 255 a w drugiej lini pomocnicze 0 0... (jest to tylko test) nieważne, czy podłącze pin do masy,...
witam , potrzebuję pomnożyć 7razy impulsy wejściowe , częstotliwość wej nie jest duża max 200hz , znalazłem podobny program na pic16 mnożacy 39razy i kawałek kodu na atmege8 również mnożący 39razy , jednak zupełnie nie mam pojęcia jak cos takiego napisac w bascomie kod dla pic: Device 16F628A Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_ON...
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...
Dzień dobry, Nie mogę dojść dlaczego emulator DS2050 działa na wewnętrznym oscylatorze 8Mhz a na kwarcu 8MHz zawiesza się i resetuje gdy tylko chcę odczytać z niego wartości. Kondensatory przy kwarcu 22pF. Fusebity: gdy clock 111101:Ext (czyli kwarc) to nie działa poprawnie. Próbowałem wszystkich ustawień kwarcu. Dlaczego tak się dzieje ? [syntax=Bascom]...
Szukałem odpowiedzi na to pytanie, lecz nie znalazłem, wiec postanowiłem rozpocząć nowy temat. Otóż mam problem z liczeniem kanałów DMX, a dokładnie z timerem0 którego używam w tym celu. Mikrokontroler to jak w temacie ATmega8, częstotliwość taktowania 8 MHz, ustawienia sprzętowego UART 250 000 baud. Według specyfikacji DMX najpewniej rozpoznać nowy...
witam chce odmierzyć 1 s za pomocą timer0 w procku Atmega8, robię to tak: $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Timer0 = Timer , Prescale = 256 On Timer0 Sekunda Enable Interrupts Enable Timer0 Start Timer0...
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ć...
Jak dla mnie to powinno być tak. Nie mam kompilatora pod rękom nie jestem pewien czy jest dobrze ale to mniej więcej to. Kod: $regfile = "m8def.dat" $crystal = 1000000 Config Portd = Input ' ustawiam we/wy Dim A As byte 'po co marnować pamięć A = 0 Config Timer0 = Timer , Prescale = 1024 Enable Timer0 Enable Interrupts Do If Pind.4 = 0...
Mam zamiar wykorzystać wszystkie dostepne porty do sterowania diodami led, oczywiscie PWM - niestety tylko programowy ;/ Mam kilka wskazowek, lecz nie dzialaja. $regfile = "m8def.dat" $crystal = 8000000 Config Pind.0 = Output 'Konfiguracja 4 pinów wyjściowych PWM Config Pind.1 = Output Config Pind.2 = Output Config Pind.3 = Output Reset Portd.0...
Witam Postanowiłem zbudować miernik odległości wykorzystujący ultradźwięki. Zakupiłem 2 czujniki w TME Jednego używam do wysłania fali a 2-go do odebrania. Po przejrzeniu postów na Elektrodzie i innych www zbudowałem poniższy układ w załączniku (PDF). Program napisałem a Bascomie ale NIESTETY NIE DZIAłA. Oto on $regfile = "m8def.dat" $crystal...
Może ma ktos z was gotowy program do wyswietlania cyfr na dwóch wyswietlaczach? Może w przerwaniu. Mam cos takiego ale wyswietlacz mruga. Używaj znaczników "code" jak wklejasz kod. Poprawiłem $regfile = "m8def.dat" $crystal = 8000000 Config Portd = Output Config Pinb.0 = Output Config Pinb.1 = Output Config Pinb.2 = Output Config Pinb.3 =...
Config Portb = 63 : Portb = 63 Config Timer0 = Timer , Prescale = 1 Enable Interrupts : Enable Timer0 : On Timer0 Time Do Loop End Time: Timer0 = Zmienna Toggle Portb.3 Return Zmieniając wartość zmiennej "Zmienna" zmieniać będzie się częstotliwość impulsów.
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...
Atom, dziękuje ci bardzo za pomoc. Dzięki tej asemblerowej wstawce bez problemu mogę obsługiwać teraz INT0 i INT1. Nie mam pomysłu jeszcze jak zrobić obsługę 4 przycisków, ale i z dwoma przyciskami już coś można powalczyć. Na ATMEGA8 zostały mi wolne linie: PORTB.0 PORTB.1 PORTC.0 Aktualnie poniższy kod: Pokazuje na przemian temperaturę i czas. Wybór...
słuchajcie panowie, ja coś popełniłem w BASCOM8051. nie napisałem jeszcze żadnego programu którego działanie sprawdziłem w praktyce, bo nie mam programatora. wszystko tylko symulowane programowo. chciałem zrobić Config Lcd = 16 * 2 declare sub ustawienia dim d as byte 'przejechana droga dim v as single 'predkosc modelu dim o as byte 'obwod kola modelu...
Dzięki za pomoc. Teraz już wiem z czym mam eksperymentować. Niestety w tej chwili piszę czysto teoretyczne. Do szpitala nie było jak brać płytki z prockiem. Więc jedynie co w tej chwili mogę to testy w emulacji Bascoma, wiec czysto teoretycznie. Ale mam już jakiś początek. Czyli jak rozumiem Timer0 odpowiadać będzie za wyjścia OC0(A,B), Timer1 za OC1(A,B),...
Witam Panowie (Panie?) Jetem początkującym elektronikiem a tym bardziej programistą uP. Kiedyś lubiłem, jeszcze na Commodore, bawić się w pisanie programików w Basicu, więc jako tako znam i lubię ten język. Więc dlatego zdecydowałem się na realizację projektu w tym języku... O ile z samym językiem nie ma problemu, gdyż coś tam ze składni i zasad pisania...
Witam Przerobiłem program znaleziony gdzieś w internecie aby pracował z lampami NIXI i mam problem ponieważ nie chce mi się kompilować. Wywala bład 212 "Low level, Rising or Falling expected Config Int0 = Timer , Prescale = 128 Prosił bym o wmiare łopatologiczne tłumaczenie ponieważ dopiero się uczę :D Reszta programu ' Zegar, termometr, budzik NIXIE...
Witam, Bardzo proszę o sprawdzenie czy program jest poprawnie napisany. Nie korzystałem do tej pory z instrukcji Watchdog, więc nie mam pewności czy jest ona poprawnie umieszczona. Zadaniem programu jest stały pomiar napięcia i w razie wystąpienia spadku załączany jest przekaźnik na czas 2 minut. Jeżeli spadek będzie występował czały czas to przelaźnik...
$regfile = "m8def.dat" $crystal = 16000000 $baud = 57600 $framesize = 32 $hwstack = 32 $swstack = 32 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Debounce = 30 'Długość naciśnięcia przycisków Config Timer0 = Timer , Prescale = 256 On Timer0 Odmierz_1s...
zumek Właśnie mam przed sobą książkę P. Marcina Wiazania (Programowanie mikrokontrolerów AVR w języku bascom) i cytuję za nią: Counter0 = 206 ' zapisanie licznika Timer0 wartości początkowej 206 To przypisanie jest równoważ następującej instrukcji: Load Timer0, 50 ' zapisanie di licznika Timer0 także wartości początkowej 206 Kurdę aż dziś odwiedziłem...
Próbuję właśnie na timerze i fladze, ale nie działa tak jak chciałem. Powinno być tak, że po naciśnięciu dowolngo przycisku rusza timer i ustawia flagę B na 1. Jeżeli w czasie odliczania nacisnę drugi przycisk, to następuje start. I tak jest. Problem w tym, że gdy trzymam wciśnięty jeden przycisk i poczekam na skończenie odliczania ( B ustawia się na...
Witam. Żeby się nie rozpisywać, mam taki kod do zegara: '----Zegar nixie LC-531----.' 'opis złącza ISP 'czerwony - "+" 'zielony - RESET 'biały - MISO 'niebieski - SCK 'brązowy - MOSI 'czarny - "-" '------opis podłączenia lamp----.' 'segmenty-sterowanie 74141: 'A-pb.0 'B-pb.1 'C-pb.2 'D-pb.3 'pozycje: 'godziny dziesiatki-pc.0...
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...
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...
Witam, siedzę już kilka dni pisząc i jednocześnie ucząc się programowania w BASCOM'ie. Napotkałem na mały problem przy programowaniu stopera, mianowicie nie potrafię zmusić układu by rozpoczynał odliczanie w momencie wciśnięcia przycisku. Proszę o pomoc, sam próbowałem już wielu sposobów ale puki co na razie nic nie wychodzi :( Switch włączający jest...
Kawałek kodu, który powinien Ci pomóc z odmierzaniem czasu: Odmierz_1s: Load Timer1 = 12500 Incr Licz_10ms If Licz_10ms = 10 Then Licz_10ms = 0 End If Return Zlicz: Incr Czestotliwosc Return Odmierza 1s, a potem zlicza ilość przerwań na timer0. Przerób na swój kwarc.
Witam! Od pewnego czasu usiłuje napisać program do obsługi zegara na pcf8583 i wyświetlaczach siedmiosegmentowych lecz bez efektu. Jest sporo tematów tego typu, ale większość zegarów realizowana jest na LCD. Główny problem polega na wyświetleniu czasu na wyświetlaczach 7segmentowych. Proszę o jakąkolwiek pomoc i podpowiedzi. Schemat układu: Program:...
Co do wyłączenie światła po 30 sek. Dodaj dodatkową zmienną bit która będzie ustawiana np: na 1 po wyłączenia światła przez timer po 30 sekundach a dzięki niej nie będzie ponownie włączane światło przez wciąż otwarte drzwi (stan niski na wejściu uC). Dopiero zamkniecie drzwi ( stan wysoki na wejściu uC) spowoduje zmianę tej zmiennej na 0 dim 30SEK as...
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...
Witam. Proszę o przejrzenie kodu i uwagi. Zasada działania urządzenia jest prosta. Pomiar temperatury z pieca z centralnego, porównanie , ja ze zmienna alarmową, jeśli się zgadza to sygnał buzera co 250 ms. 4 przyciski: 1 - pozwala zwiększyć zmienna alarmową 2 - pozwala zmniejszyć zmienna alarmową 3- wyłącza buzer 4- po naciśnięciu jeśli załączy się...
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...
Na wstępie zaznaczę, że jestem raczej laikiem w temacie programowania, miałem na studiach przedmioty temu poświęcone, ale prywatnie napisałem tylko kilka programów (wydział mechaniczny). Od dłuższego czasu przerabiałem samochód, żeby sterować radiem z kierownicy. Wszystko fizycznie jest poskładane, interface zbudowany. Problem leży jeszcze po stronie...
Witam Już dłuższy czas męczę się z banalnym jak mi się wydawało zagadnieniem wybudzania procesora z PowerDown. Wybudzanie chciałem zrealizować na wejsciu INT0. Samo wyzwalanie przerwania działa podczas pracy, gorzej w momencie kiedy ustawię PowerDown. Przerwanie juz się nie wykonuje. Poniżej fragment kodu [syntax=basic4gl] $regfile = "m8def.dat" $crystal...
witam. w moim programiku multipleksowanie czterech wyświetlaczy 7-segm. odbywa się inaczej niż zakładałem, i nie mogę ruszyć z miejsca. $regfile = "m8def.dat" $crystal = 1000000 '$sim Config Portd = Output Portd = &B11111111 Config Portc.0 = Output Config Portc.1 = Output Config Portc.2 = Output Config Portc.3 = Output On Timer0 Multi...
Kolego bykham w ten sposób nie uda Ci się osiągnąć stałej czasowej np. te 100ms. W zależności ile uP wykona przerwań ten czas raz będzie krótszy, raz dłuższy. Raczej spróbuj to wykonać według poniższego programu. Kod: [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 1000000 Dim F As Word , Pomocnicza As Byte Config Portd.5 = Input 'T1 (Counter1)...
Witam. Piszę prosty program do generacji zależności czasowych i mam problem. Gdy sprawdzam składnię tego co napisałem Bascom szaleje i zaznacza błedy których moim zdaniem nie ma. Czy ktoś może rzucić okiem na składnię zwłaszcza na instrukcje if, then czy wszystko jest prawdłowe? [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 4000000 Dim Co4ms As...
Witam, jestem w trakcie pisania programu do własnej stacji lutowniczej. Temperaturę chciałbym czytać poprzez MAX31855 ponieważ mam dwa takie scalaki (sample). Jednak nie potrafię odczytać z niego danych. Nie wiem co robię źle ale na wyświetlaczu pokazuje cały czas 35 niezależnie od zmian temperatury. Oto moje wypociny: Na schemacie jest max6675 ale...
Witam serdecznie Program ma obsługiwać pomiar napięcia i wyświetlić na wyświetlaczu Led wartość odpowiadająca do 1 do 6 oraz wartość n. Problem polega ze dla wartości 1 oraz 2 brak stabilności pracy. Napięcie jest mierzone na pinie 23 uP przez dzielnik napięcia. Moje pytanie czy jest możecie sprawdzić źródło pod katem błędy dlaczego tak się dzieje?...
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...
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...
Mam coś takiego: [syntax=basic4gl]Config Timer0 = Timer , Prescale = 256 On Timer0 Odmierz Dim Licz As Byte Enable Interrupts Enable Timer0 Load Timer0 = 250 Stop Timer0[/syntax] i przerwanie: [syntax=basic4gl]Odmierz: Load Timer0 = 250 Incr Licz If Licz = 150 Then Licz = 0 Toggle Buz End If Return[/syntax] tylko że to miga 1 sekunde a ja potrzebuje...
Mam inny pilot który bankowo nadaje w RC5.I nic.Zero reakcji W takim razie po co przy konfiguracji Getrc5 można zmienić domyślny Timer0 na Timer2? Czy tylko po to żeby zwolnić Timer0 jeśli jest używany do innej funkcji? i co nam daje zmiana mnożnika PRESCALE określana przy funkcji GETRC5? W gruncie rzeczy chodzi mi o to że mam parę projektów wykorzystujących...
Witam. W temacie mikroprocesorów jestem dalej początkującym, i dlatego zwracam się do was z prośbą o pomoc. Nie będę ukrywał, że porwałem się kolejny raz z motyką na Słońce, ale dla mnie tylko takie wyprawy są cenne. Jednak przechodząc do problemu. Wydaje się być błahy, ale siedzę całą noc nad tym programem, i może nie potrafię trzeźwo myśleć. Funkcja...
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...
Witam ponownie Sugestia Kolegi M. S. była pomocna. Całość wygląda tak [syntax=basic4gl] '************ Zegar 6 wyswietlaczy LED + PCF8563 $regfile = "m8adef.dat" $crystal = 8000000 $hwstack = 32 ' rozmiar stosu sprzętowego $swstack = 32 ' rozmiar stosu programowego $framesize = 32 $baud = 9600 '************ deklaracje portow - 74HC595 Config Portc.3...
Witam. Chciałem w celach edukacyjnych zrobić częstotliwościomierz. Ponieważ nie mam za bardzo skąd wziąć zewnętrznych impulsów postanowiłem, że jeden pin procka będzie je generował, a przerwanie int0 będzie liczyć ile tych impulsów było. Do odmierzenia czasu posłużył timer1, który ma odliczyć sekundę (więc wynik od razu w Hz). Po upływie sekundy ma...
Witam. Nie jestem zbyt biegły w programowaniu, więc zwracam się z prośbą o zmodyfikowanie kodu do naświetlarki z projektu [url=www.mirley.firlej.org/timer_fotogra... Chciałbym żeby usunąć z programu tryb podgląd i przycisk wywołujący go, a dodać trzy przyciski do których po dłuższym przyciśnięciu mógłbym zapisać czasy naświetlania. Krótkie...
$regfile = "m8def.dat" $crystal = 800000 Config Timer0 = Timer , Prescale = 64 Dim Licz8ms As Byte Enable Interrupts Dim A As Byte 'Enable Timer0 'On Timer0 Procedura Load Timer0 = 250 Reset Portc.5 Reset Portc.4 Reset Portc.3 Set Portc.0 Set Portd.4 Config Watchdog = 2048 Config Portc.5 = Output Config Portc.4 = Output Config Portc.3 = Output Config...
1.sprawdzone 2.sprawdzone 3.nie zmieniałem fusebitów a wątpię żeby w 2 nowych Uc było inaczej ustawione niż fabrycznie.Wgrałem program oparty na wewnętrznym kwarcu (zegar na timer0) i pokazuje dobrze a został pisany pod 1Mhz
Witam Przetestowałem moduł Sparkfun, działa rewelacyjnie - karta 512Mb Na takim kodzie mówi czas: W module wtv020 na 6pin od karty dałem połączenie do GND - na forum Arduino znalazłem że to pomaga, ale nic nie pomogło. tylko, że według schematu wersji mini pin 6 karty to GND i raczej powinien być podłączony, przy poborze prądu jaki wymaga karta SD to...
Witam!! pisze sobie program do alarmu samochodowego sterowanego z fabrycznego zamka centralnego. w emulatorze wszystko cacy w rzeczywistosci niestety nie :( klopot poleg na tym, ze uklad nie reaguje na zadne impulsy wejsciowe. podawalem nawet bezposrednio zwierajac piny procka i nic - brak reakcji... za przyklad podam programik ponizej uklad wyswietla...
Tak, z niego właśnie korzystam. Nie wiem czemu ale kompilator wyrzuca mi timer2 jako błąd w składni. Myślałem że może jakoś ustawiając flagi zacznie mi działac. Zamiast timera2 spróbowałem na pierwszej połówce timera1 i to samo.. :/ Dodano po 2 Ten port to pozostałość po poprzednim programie gdzie zamiast lcd chciałem włączać i wyłączać diode pod niego...
Zastosowałem kwarc 16 MHz oraz zasilanie uP +5V . Według poniższych wzorów odliczany czas powinien wynosić 1 sekundę , a niestety w przypadku b) i c) tak NIE JEST i w programie wynosi odpowiednio: około 2 i około 10 sekund . Tylko dla konfiguracji z pkt. a) jest okey. Gdzie jest problem? O co tu chodzi? Proszę o pomoc! Oto tożsame wzory, z których obliczany...
witam! mam taki problem: chcę zliczać zewnętrzne impulsy, timer mam skonfigurowany w taki sposób: config Timer0 = counter, edge = falling, noice cancel = 1, na portd.4 mam ustawiny wewnętrzny pull-up i dodatkowo zewnętrzny rezystor podciągający 4,7k.do masy kondensatorek 100 nF. Licznik oczywiście mi liczy ale zlicza też przypadkowe impulsy. widać to...
No to popróbuj jeszcze :-) Ja tylko tak, aby sprawdzić, napisałem coś takiego: '---------------------------------------... ' ' RC5.bas ' '---------------------------------------... '$sim 'jen pro simulaci $regfile = "Attiny2313.dat"...
dawid512 : Ty mi pomogłeś! Tylko teraz napisz jeszcze (jak możesz) jak go przerobić na :!: wew. 8MHz :!: I żeby w pierwszej lini było wyświetlone "Sekunda:" A w drugiej te zliczane sekundy. $regfile = "m8def.dat" 'nagłowek, model uc $crystal = 1000000 'kwarc (generator taktujący) '************************* Config Lcdbus = 4 'konfiguracja...
Config Timer0 = Timer , Prescale = 32 Enable Interrupts Enable Int0 On Int0 Przerwanie1 Nosave Cls 'tutaj wysyłasz impuls pierwszy start timer0 Do : Loop Przerwanie1: stop timer0 'tutaj co ci sie podoba lcd "odleglosc:" ; wynik 'co tam jeszcze chcesz 'wysyłasz impuls start timer0 return End
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...
udało mi się wyświetlać pojedyncze znaki ascii, nie wiem czemu ale pojawiają smugi (widac na zdjęciu) są to jakieś zakłócenia czy może wina programu?? nastepnym zadaniem jakie należałoby wykonać to napisanie czterech znaków na matrycy (bo tyle się zmieści), później zabawa z przesuwaniem tego :) o to program: $regfile = "m8def.dat" $crystal...
...Ja zapytam - dlaczego ? pytam powaznie . W skrócie: Procedura przerwania od Timer0, która steruje serwami, powinna być wywoływana co 10uS, a faktycznie jest wykonywana co 10uS+czas jej wykonania.Czym wolniejszy $crystal i więcej zadeklarowanych serw, tym gorzej :(
tak, o to chodziło. Zależność miedzy częstotliwością a OCR2 powinna być liniowa? Bo układ steruje obrotomierzem i niestety wskazania jego nie są liniowo zależne od „f” a powinny. W samochodzie są liniowo zależne od częstotliwości impulsów z cewki. Podejrzewam, że wypełnienie 50% wprowadza nieliniowość w obrotomierzu. Jak mogę zmniejszyć...
Już kiedyś się na tym złapałem przy pomiarach oscyloskopem :) Teraz będę chciał te 22kHz załączać na czas 0,5ms a następnie przerwa 1ms czy do tego mogę użyć przerwania od Timer0 ?? dzięki za wcześniejszą pomoc
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...
Przykładowy program który działa na symulatorze lecz po przesłaniu do uP nie działa , zależy mi na tym by Potrd.4 był w stanie wysokim po przepełnieniu timer0(po 8,2 ms) ale niestety:(proszę o pomoc $crystal = 8000000 Config Timer0 = Timer , Prescale = 256 Config Pind.4 = Output Bramka Alias Portd.4 Enable Interrupts Enable Timer0 On Timer0 Tim Do '...
0vf0 jest to przerwanie od licznika Timer0 po jego przepełnieniu- można napisać Timer0.
Odświerzę trochę temat. Ja konkretnie muszę w miarę precyzyjnie zmierzyć prędkość obrotową w możliwie krótkim czasie. prędkość w zakresie 750-6500 obr/min. Dysponuje tarczą 25 nacięć na obrót i fotokomórką szczelinową która daje ttl na wyjściu. Puki co ttl generuje z generatora ne555 by uniknąć błędów pomiarów związanych ze stroną mechaniczną systemu....