Musisz właczyć przerwania . Dodaj na początku programu sei lub inaczej enable interrupts
Nie wiem czy będziesz mógł ustawić Timeout bo jest od wersji 2076. Najwyżej zakomentuj. Reszta powinna działać. Poczytaj o "Config Serialin" i "Ischarwaiting" Tak dokładniej to Input czeka na Enter albo na to co ustawimy żeby czekał (Config Input) Jak Enter nie nadchodzi z powodu jakiegoś błędu to przydaje się Timeout. Najczesciej odbieram dane po jednym...
Zastosuj bufor: Config Serialin = Buffered , Size = 100 enable interrupts A oczekiwanie na znak zrób: Bufor_flaga = Ischarwaiting() : If Bufor_flaga = 1 Then Gosub Odbierz_uart Następnie procedura odbioru danych: Odbierz_uart: Bufor = "" Do Bufor_znak = Inkey() Bufor = Bufor + Chr(bufor_znak) Bufor_flaga = Ischarwaiting()...
:arrow: Mictronic: Predkosc transmisji to 9600! Ponizej wklejam wycinki mojego programu do obslugi tego modulu: '------------------------------- ' modul RFiD ' ' 9600.1.0 ' dane 0xff,x,x,x,x,x,crc8 '------------------------------- {...} $baud = 9600 ' predkosc transmisji Config Serialin = Buffered , Size = 100 ' rozmiar bufora {...}...
Ischarwaiting() działa tylko w połączeniu z Config Serialin = Buffered i do tego Enable Interrupts .
To można rozwiązać na wiele sposobów. Jeśli tylko cześć ramki jest stała a zależy Ci na wartościach odebranych to można użyć bufora kołowego i kiedy wykryjesz koniec ramki to wciągasz z bufora poprzednie siedem bajtów. Tutaj jednak sprawa jest prostsza. Poniższy mikroprogram powinien sprawdzać po kolei nadchodzące bajty. Jeśli się zgadzają to wskaźnik...
Config Serialin = Buffered , Size = 80 Enable Interrupts Dim _Flaga_1s as Bit _Flaga_1s = 0 Config Timer1 = Timer , Prescale = 64 Enable Timer1 : On Timer1 Co1s Cls Do If Ischarwaiting() = 1 Then Znak = Inkey() Print Chr(znak) ; End If if _Flaga_1s = 1 then ' ------> a tutaj wyświetlaj już sobie spokojnie co chcesz co...
Tutaj masz Baud Rate kalkulator http://www.wormfood.net/avrbaudcalc.php ] i dla 16MHz predkosc 19200 jest jak najbardziej odpowiednia, a mozesz nawet ustawic na 38400 lub 76800 i tez bedzie smigac! Odbior danych najlepiej zrobic wykorzystujac wskazowki ZbeeGin 'a: Dim jakas_zmienna As Byte Dim Uart_buffer As Byte Enable Interrupts {...} Do...
Już nic mądrzejszego nie wymyśle. Czy chodzi o coś takiego ?? Konfiguracja Config Serialout = Buffered , Size = 20 Config Serialin = Buffered , Size = 20 , bytematch = 13 Enable Interrupts Serial0charmatch: A = Ischarwaiting() If A = 1 Then input temperatura End If Return Jeżeli to nie tak to proszę o pomoc
Witam Odbieram po rs232 ramki , najdłuższa z nich ma 176 znaków a najkrótsza 44 znaki , kawałek kodu w bascomie wygląda tak : Dim Znaki As String * 176 Enable Interrupts Enable Urxc Do If Ischarwaiting() = 1 Then Inputbin Znaki . . 'tu wyświetlam na lcd . Loop Problem polega na tym że jak przyjdzie krótsza ramka to program stoi w miejscu , rusza...
Witam, Od wczoraj próbuję uruchomić symulację w Bascom-AVR i nic :( Oto mój kod do odbierania danych: $sim '----tylko do testu na kompie $regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 Dim A As String * 1 Config Serialin = Buffered , Size = 20 Enable Interrupts Print "Start" Do If Ischarwaiting() = 1 Then A = Waitkey()...
zrobiłem tak: Atmega328 - Master Do Config Serialin = Buffered , Size = 24 Enable Interrupts If Ischarwaiting() = 1 Then ' sprawdź czy jest jakiś znak do odebrania w buforze lub HW UART Gosub Odczyt_rs End If '***************************** wysyłanie żadania danych do modułu 001 If Flaga_001 = 1 Then Set Re_de Waitms 2 Print "MOD001"...
Jeżeli dobrze zrozumiałem Twój problem to spróbuj poniższy kod [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 16000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 '************************* Dim ***********************************...
Temperaturę odczytaną z ds'a formatuję i wrzucam do zmiennej string poleceniem FUSING, np: Temp = Fusing(t1 , "#.#") gdzie Temp to string, a t1 to zmienna single z odczytaną temperaturą. Następnie mam kilka warunków if..then gdzie zmienna Temp jest uzupełniana znakami (np. spacji), tak aby fragment łańcuch z pojedynczą temperaturą miał zawsze tą samą...
No dobra. Wywal wszystko na linii Tx telefonu do Rx procesora. Ma być połączenie bezpośrednie. Na drugim kierunku zostaw tak jak masz. Poniżej kod do testów. Powinien działać. [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 16000000 $baud = 19200 Config Lcd = 16 * 2 Config Serialin = Buffered , Size = 100 Enable Interrupts 'Declare Sub Oproznij_bufor...
Ja robie to w ten sposób: Ustawiam buforowanie: Config Serialin = Buffered , Size = 150' ilość odbieranych znaków Enable Interrupts' trzeba zezwolić na przerwania W pętli głównej daje warunek: B = Ischarwaiting() If B = 1 Then Gosub Odbierzuart A dalej procedura odczytu: Odbierzuart: C = "" Do A = Inkey() C = C + Chr(a)...
witam mam zrobioną obsługę wyświetlacza led na przerwaniach i problem z odbieraniem znaków przez uart mianowicie uart "gubi" znaki podczas odbioru, jeżeli wyłączę przerwania przerwania problem znika, niestety wyświetlacz muszę mieć zrobiony na przerwaniach i nie wiem jak mam się z tym problemem uporać. poniżej zamieszczam wybrane fragmenty kodu. $regfile...
Ł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...
Witam. Mam mały problem z przepisaniem wartości z DANE do zmiennej CZAS. Potrzebuję by po odczycie z UART wartość CZAS=DANE. Oczywiście żle to robię bo BASCOM pokazuje błąd. [syntax=vbnet] Config Serialin = Buffered , Size = 4 Enable Interrupts Declare Sub Kas_bufor Dim Uart As String * 1 Dim Buf As Word Dim Dane As String * 4 Dim Czas As Word Cls Locate...
Proszę, łap. Miałem chwilę to sprawdziłem. W nadajniku przerwa co dziesięć znaków nie jest bez powodu. Teraz nadajnik nadaje znak "U" a to znaczy &H55, ale co ciekawsze &B0101_0101 czyli na przemian jeden i zero. Może się jednak zdarzyć, że jakiegoś bitu radio nie zauważy i lepiej jest zacząć od nowa. Nadajnik miałem na Mega8, ale pewnie sobie...
Jak sobie z tym poradzić aby program nie czekał tej minuty na zmienną? Użyj funkcji Ischarwaiting() : nie bardzo działa bo tylko jedna zmienna Ts wygląda jak powinna a reszta jest z jakimiś śmieciami. W Bascomi'e jest możliwość zdefiniowanie bufora pierścieniowego dla przychodzących danych, do odbioru bajtów wykorzystane jest przerwanie USART. [syntax=basic4gl]Config...
Jest taki sobie programik: $regfile = "m16def.dat" $crystal = 16000000 $baud = 9600 Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0 Config Lcd = 20 * 4 Config Serialin = Buffered , Size = 10 Enable Interrupts Declare Sub Kas_bufor Dim Uart As String * 1 Dim Buf As Word Dim Dane...
Witam serdecznie!!! Od długiego czasu walczę z Bascomem Atmega 128 i Uartem. Wysyłam komendy AT do modemu GSM i odbieram odpowiedzi. Wszystko jest ok, chodzi bez problemu tak z jakieś 2-3 (różnie to bywa) godziny a później ni z gruszki ni z pietruszki zaczynają sie śmiecie. Odpowiedzi wyświetlam na LCD. Bascom wersja 1.11.9.1 Oto część kodu odpowiedzialna...
tak wygląda sam kod do odczytu predkośći "trochę nie ogarnięty sorki" [syntax=basic4gl] $regfile = "m16def.dat" 'wew rezonator $crystal = 8000000 'jest włączony wew rezonator $baud = 9600 'szybkosc ibusa Config Lcd = 16 * 2 'używany wyświetlacz i piny do jakich jest podłączony Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7...
Masz rację Moja pomyłka Chodziło mi o liczbę 12345, której nie mogę zadeklarować jako BYTE Ten przecinek dorabiam sobie później poleceniem np takim Sds1 = Format(sds1 , " 0.0") Napisałem coś takiego NADAJNIK $crystal = 8000000 $baud = 19200 Cls Cursor Off Config Serialout = Buffered , Size = 6 Enable Interrupts Enable Utxc Dim A As single Dim B(2)...
Witam. Podłączyłem mikrokontroler ATMEGA16 pod złącze RS232 w manipulatorze INT-KLCD od centrali alarmowej SATEL INTEGRA. Na złączu tym cały czas wysyłane są dane o aktualnym stanie systemu i zdarzeniach. Podglądając równolegle na wirtualnym porcie COM-ETHERNET co na tym złączu jest wysyłane otrzymuje takie dane jak na poniższym screenie: http://obrazki.elektroda.pl/1772576300_1...
Witam , problem polega na odczytywaniu tylko 2 bajtów z bufora uart , wysyłając 5 zaków np.12345 na wyświetlaczu pojawią się tylko 12 a reszty po prostu nie ma . Czy ktoś napotkał podobny problem ...[syntax=vbnet]$regfile = "xm32a4udef.dat" $crystal = 32000000 $hwstack = 32 $swstack = 32 $framesize = 32 Debug Off Config Submode = New Config Eeprom =...
Problem polega na tym, że gdy mam ustawione 9600, data bits 8, stop bits 1, parity none jest wszystko w porządku.Ale jeśli ustawie np 4800 lub coś innego np data bits 7 już nie działa i nie wiem co jest grane. Jak używałem komendy input() wszystko pięknie działało a z inkey() nie chce. $regfile = "m162def.dat" 'Kwarc 14,7456MHz $crystal =...
Jak na razie to połączenie mam realizowane przez diodę zenera. Wiem że to nie eleganckie ale zdaje egzamin. Narazie jestem w fazie testów. Posprawdzam na Twoim kodzie i zobaczę czy nie będzie przekłamań. Jak coś będzie wiadomo to napiszę. Dzięki za szybką odpowiedź. $regfile = "m8def.dat" 'informuje kompilator o pliku 'dyrektyw mikrokontrolera...
Podejrzewałem to jednak nie umiem zrobić detekcji 0 a mam jeszcze 4k wolne Coś bym zaadaptował z tego jednak nie rozumiem w pełni tego kodu a jak czegoś nie rozumiem nie stosuje Gdyby ktoś wypowiedzieć się mógł tak dla głąba jak to działa. Kod z tego forum nie mój. http://obrazki.elektroda.pl/3285358500_1... Pomoże mi jakaś dobra osoba , mogę...
Poopuszczałeś trochę, a do tego literówki i dlatego wyrzucało błędy. Ten program kompiluje sie poprawnie. $regfile = "attiny2313.dat" $crystal = 11059200 $hwstack = 32 $swstack = 10 $framesize = 20 'DEKLARACJA ZMIENNYCH I PROCEDUR Dim Flaga As Bit , Flaga1 As Bit Dim Wylacz As Byte , Znak As Byte , Adres As Byte , Licznik As Byte Dim Znak1...
Nie miałem tego nigdy w rękach, ale sprawdź tak. Powinno działać, tylko napisane tak w 10 minut bez jakichś większych przemyśleń. [syntax=vbnet]$regfile = "m32def.dat" $crystal = 8000000 $hwstack = 64 $swstack = 32 $framesize = 128 $baud = 9600 Config Serialin0 = Buffered , Size = 30 Dim Buff(24) As Byte , Wart As Byte , Postep As Byte Dim Dlugosc_ramki...
Nie wszystko w tej chwili jest używane, bo to testy. Na przykład Dim Napis As String * 15 Const Koniec = &HFF itp. [syntax=vbnet]$regfile = "m8adef.dat" $crystal = 8000000 '---------------------------- $hwstack = 128 $swstack = 128 $framesize = 128 $baud = 9600 Dim Napis As String * 15 Const Koniec = &HFF '------------------- Declare Sub Oproznij_bufor...
Jak bym chciał żeby mi ktoś pomógł to włożyłbym minimum wysiłku by przygotować kod na który można spojrzeć bądź skompilować. Nie musi być cały, ale taki który daje możliwość powtórzenia występującego problemu. Chcesz odbierać dane z UART a masz w pętli Waitms. Myślisz że te dane na Ciebie poczekają? Przy tak znikomej ilości informacji jakie zapodałeś...
Mam problem z transmisją danych. Na PC mam uruchomiony terminal (terminal v1.9b), i jak wysyłam treść z AVR do portu RS232 to terminal poprawnie odczytuje wysłaną treść. Natomiast problem tkwi w transmisji w drugą stronę. Żeby sprawdzić czy poprawnie AVR odbierze dane wysłane z RS232, napisałem tak program żeby po odebraniu treści wysłanej z terminala...
Witam mam taki problem, przeszukalem troche archiwum po czym sklecilem sobie taki program: $crystal = 11059200 $baud = 9600 Config Serialin = Buffered , Size = 100 Config Lcd = 16 * 2 Dim Flaga As Byte Dim Napis As String * 20 Dim I As Byte , X As Byte Set Ddrd.1 '= 1 Enable Interrupts 'Echo Off Do Cls Print "AT+CSQ" I = 0 Flaga = 0 'Flaga = Ischarwaiting()...
Witam Problem następujący: Dwa procki komunikują sie radiowo na modułach telecontrolli. Jeden procek nadaje string, drugi odbiera. Ogólnie all jest ok, ale gdy dopisze opcje wyświetlania czasu na LCD to sekundy idą tylko wtedy kiedy coś nadaje nadajnik, a jesli go wylacze sekundy sie zatrzymują. Oto kod: Odbiornik $regfile = "m16def.dat" $crystal...
Już prawie opanowałem ten odczyt. Nie jest to wina zbyt długiego zapisu na kartę. Zrobiłem to tak że stringa "dane" dzielę za pomocą funkcji split a później jeśli pierwszy człon stringa dane jest "$GPGGA" to następuje zapis na kartę. I taki sposób działa ale tylko raz. Raz zapisze poprawnie ramkę i tyle nie ma więcej zapisów. Oto nowy kod: [syntax=basic4gl]...
Odbiornik RC5 działa. 1 na pilocie wyłącza diodę, 2 włącza $regfile = "attiny2313.dat" $crystal = 1000000 Config Rc5 = Pind.2 Config Pind.2 = Input Config Portb = Output Dim Address As Byte , Command As Byte Enable Interrupts Do Getrc5(address , Command) If Address = 0 Then Command = Command And &B01111111 Select Case Command Case...
Próbuję skomunikować atmege z urządzeniem typu NAS po obu stronach jest oprogramowanie które przy prawidłowym działaniu potrafi ustawic rtc po stronie mikrokontrolera i w druga stronę wysyłac date czas i info o jakims zdarzeniu. Mam tylko jeden problem otóż po wysłaniu z mikrokontrolera np. "uptime" zamiast odpowiedzi nasa dostaje z powrotem "uptime"...
Czekam na przesyłkę bo zamówiłem tego nieszczęsnego MAX232 o który takie nerwy :D. a w między czasie szperałem w necie i posklejałem w ten sposób: [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 12000000 $baud = 19200 Config Portb.2 = Output Config Portb.3 = Output Config Portb.4 = Output Config Serialin = Buffered , Size = 30 Set Portd.3 Set...
Witam, na wstępie uprzedzę, że jestem początkującym programistą bascom. Tworzę projekt, który jest połączeniem dwóch tematów tj. http://www.elektroda.pl/rtvforum/topic22... oraz ]http://www.mp3car.com/forum/mp3car-tech... . potrafię już odczytać dane z szyny i-bus w bmw i...
U mnie poszło coś takiego: $regfile "m16def.dat" Config Lcd = 16 * 2 $crystal = 1000000 $baud = 9600 Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portb.1 , Rs = Portb.0 Config Serialin = Buffered , Size = 12 Dim X As Integer , Y As Integer Config Pind.1 = Output Enable Interrupts ' Musisz włączyć...
Czy ktos widzi jakis problem w ponizszym listingu?? Gdy telefon dzwoni zapala sie diodka i gasnie znaczy ze przechodzi do "Odbierzuart:" i na tym sie konczy:( $regfile = "m8def.dat" $crystal = 8000000 Baud = 19200 Dim C As String * 200 Dim Syg1 As Byte Dim Syg2 As Byte Dim B As Byte Dim A As Byte Config Serialin = Buffered , Size = 150 Enable Interrupts...
To jest proste jak świński ogon :D ahahahaha, ale napisz kawałek kodu. Czy masz tam jakiś LCD czy nie, czy masz tam jakiś Timer ustawiony do odmierzania sekundy czy Wait`ujesz :D Czy w dokumentacji czujnika pisze, że nadaje tez na końcu niewidoczne w terminalu znaki 13 lub 10? EDIT: aaa masz tu taki prosty. Napisałem przy śniadaniu więc błąd mógł się...
Witam, chciałem spróbowac komunikacji na RS'sie - Atmega8 <-> Atmega8, ale przed tym spróbowałem zobaczyć, czy jak połącze linie transmisyjne TXD i RXD to czy transmisja będzie się odbywała dobrze. Po napisaniu poniższego programu ukazuje się napis “hello” ale oprócz tego jeszcze dwa inne znaki (niechciane) na symulacji w terminalu...
Witam, Czy ktoś może mi powiedzieć czemu jak używam komendy print , na wyświetlaczu żadne dane się nie wyświetlają [syntax=vbnet] $regfile = "m644pdef.dat" ' specify the used micro $crystal = 16000000 $baud = 9600 ' use baud rate $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 40 ' default...
ok, spróbuję z tym odpinaniem choć i to wydaje mi się dziwne - dziś sprawdziłem na m32 i to samo, na m128 zmieniłem kwarc na 7372800 aby był lepiej podzielny, to samo. Znalazłem jeden brak: Enable Interrupts - dlatego bufor nie działał, teraz działa ale ale, po pierwsze komendzie AT+CMGF=1 na LCDku jest: >kwadracik, linia 3: >.OK kwadracik, linia 4:...
Witam wszystkich. Mam dwa proste układy master i slave. Jeden nadaje drugi odbiera. Oba układy to ATmega8 + MAX485. Jedna strona MAX485 zaterminaowana 120R a druga poza 120R podciągnięta do masy i Vcc (linie A i B) opornikami 560R. Oba układy spięte z sobą skrętką długości 10cm. Wszystko jakby zgodnie z opisami. Kod nadajnika: $regfile = "m8def.dat"...
Witam Napisałem program, który ma za zadanie odczytać właściwie SMS-a wysłanego do modułu [syntax=vbnet] $regfile = "m8515.dat" $crystal = 7372800 $baud = 9600 $hwstack = 64 $swstack = 64 $framesize = 64 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.6 Config Serialin...
Witam, Wiem że były podobne posty na ten temat ale nie wiem co z moim programem jest nie tak. Gdy dzwonię na telefon podłączony do uC nic się nie dzieje. Komunikacja z telefonem działa bo wysyłałem przez uC różne komendy AT i odpowiadał. $regfile = "m8def.dat" $crystal = 8000000 $baud = 19200 Config Serialin = Buffered , Size = 100 Config...
Witam, mam do Was pytanie, co może być przyczyną wieszania(zatrzymywania) się uC? kod: $regfile = "m8adef.dat" $crystal = 16000000 $baud = 9600 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 0 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7...
Motam się znowu okrutnie z uartami. Mam dwa urządzenia i chcę aby w każdym nadawanie i odbieranie chodziło w przerwaniach. Urządzenia A odpytuje cyklicznie co kilka sekund urządzenie B. Całe odpytywanie polega na tym że: Moduł A wysyła poleceniem: Print #6 , "RED" ; chr(13) ; zapytanie o treści "RED" i na to zapytanie urządzenie B...
Witam Mam pytanie dotyczące transmisji RS232 w atmedze8 do komputera. Chodzi o wielkość bufora w USART. Realizuje komunikacje z komputerem w sposób: wysyłam w petli znak, mikroprocesor w odpowiedzi wysyła ciag znaków po 10, po odebraniu w komputerze wysyłam nastepny znak i tak 10 razy obecnie. Z moich obserwacji wychodzi na to ze bufor moj musi miec...
Doszedłem do tego jak zamienić wartość np: 123 dla danych PWM ale mam problem przy kompilacji error 260. [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 12000000 $baud = 19200 Config Serialin = Buffered , Size = 20 Config Portb.2 = Output Config Portb.3 = Output Config Portb.4 = Output Set Portd.3 Set Portd.4 Set Tccr0a.0 Set Tccr0a.7 Set Tccr1a.0...
Witam zakupiłem nadajnik i odbiornik (rr3,rt14) podłączyłem pod atmegi poprzez rs-a(uarta).Jedna atmega to termometr króry wysyła temperature a druga atmega ma odbierać i wyświetlać na LCD. Testowałem programy przy połączeniu kabelkiem i wszystko było ok gdy mam podłączony nadajnik rt14 i odbiornik do drugiego układu to wyświetlacz pokazuje za każdym...
Chyba czegoś nie rozumiem, a więc poprawiłem program według wcześniejszych zaleceń. Dzwonię na komórkę podłączoną do atmegi z telefonu o numerze 509509509. Na ekranie lcd podłączonym pod atmegę wyświetla się "509509509" a procedura select case przechodzi do pod programu "nie_dziala". Pomóżcie bo już nie mam pomysłu. Czemu wyświetla na LCD dobrze, a...
Wkradł się bład przy wpisywaniu. Fuse Bity E4 D9 a nie 99 bo to pokazuje jasno na Twoim screenie Watchdog Always On :D Wyswietlacz nawet bez nadajnika ma wyświetlac po starcie trzy poziome kreski. W programie łatwo odczytać że żeby ustawić zero na wyświetlaczu procesor podaje masę na sześć segmentów. Wspólna końcówka wyświetlacza jest sterowana poprzez...
aha, czyli rozumiem że powinno to wyglądać mniej więcej w taki sposób: NADAJNIK: Dodano po 26 zmieniłem kody w atmegach na wzór tych powyżej, dla testu i niestety atmega odbiorcza nic nie odbiera, wyświetlacz jest pusty, więc komunikacja stoi. Dodano po 33 OKej, trochę monologu i własnych rozmyślań i udało się uruchomić to poprawnie. Odbiornik odpowiednio...
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...
Im dalej w las, tym więcej grzybów. "Trenuję" nowy problem. W kodzie, po ustawieniu Jumper=0 program czeka na SMS z hasłem. Jeżeli otrzyma poprawne, to zapisuje do pamięci numer telefonu, z którego był wysłany SMS i przechodzi do pętli głównej, a zatem alarm jest uzbrojony - reaguje na czujniki zewnętrzne. W programie brak jest możliwości wyłączenia...
Niestety żadna z w/w opcji nie działa ale poradziłem sobie z tym. oto kod:[syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 12000000 $baud = 9600 Config Serialin = Buffered , Size = 20 $hwstack = 16 $swstack = 6 $framesize = 14 Config Portb.0 = Output Config Portb.1 = Output Config Portb.5 = Output Config Portb.6 = Output Config Portb.7 = Output...
Chcę zaprogramować sterowanie Komendami AT. Coś typu połączenie > rób program Połączenie > przerwij program. Próbowałem dostosować kawałek programu dla Atmega 8 z "Powiadamianie GSM" (było kiedyś w DIY) Kompilator zwraca mi błąd: Error: 7 Line: 0 IF THEN expected [96], in file: Error:123 Line: 0 END IF expected, in file:...
Kawałek docelowego programu działa sprawnie, ale jak dodam "pozostałe funkcje, już niestety nie... Nie zmienia mi zmiennej "Stan" i nie wysyła ATH tym samym nie przechodzi do następnego etapu programu... Kod działający: $regfile = "m32def.dat" $crystal = 16000000 $baud = 19200 Config Serialin = Buffered , Size = 100 Config Porta.0 = Output...
GPS wysyła dane w formacie NMEA, problem w tym że kompletnie nic nie pojawia się na wejściu (czy to inkey czy waitkey). Najdziwniejsze że moduł gps podłączony przez maxa232 do komputera działa bezproblemowo a podłączony pod końcówkę RxD procesora nie. Procesor bez problemu na prędkości 9600 komunikuje się przez rs'a z pecetem. wstępny kod do wyciągnięcia...
Witam, mała aktualizacja program wyżej wysyła sms-a, ale mam problem z odbiorem według poniższego kodu, prawdopodobnie gubi znaki ... jak to można rozwiązać [syntax=vbnet] 'informacja że nadszedł nowy sms o numerze 23 +CMTI: "SM",23 'polecenie o odebraniu sms o numerze 23 at+cmgr=23 'odebrany sms +CMGR: "REC READ","+48","","17/03/25,17:04:26+04" STATUS...
Witam! Od dwóch dni próbuje zestawić połączenie pomiędzy atmega8 i siemensem a51. Połączenie sprawdzone - na Tx z uC do Rx komórki dzielnik rezystancyjny do obniżenia napięcia. 3 pin telefonu do 2 uC oraz 4 pin telefonu do 3 uC. Telefon z uC mają wspólną masę. Transmisję próbuję nawiązać przy pomocy programu pytającego komórkę o czas: $regfile = "m8def.dat"...
OK chłopaki to ja mam tak jeden układ MASTER i reszto układów to SLAVE. Z układu Master chce wysyłaś rozkazy do pozostałych układów które ciągle nadsłuchują transmisje. Każdy z nich odbier ten sam kod i po sprawdzenie czy adres jest równy z jego adresem wykonyje dany rozkaz. Mój układ Slave ma taki kod jak go zmienić uwzględniając wasze doświadczenie....
Dosyć odważnie sobie poczynasz na mikrokontrolerze mającym 2kB Flash i 128B SRAM :D ale do odważnych świat należy. Odchudziłem Ci trochę kodzik. Obsługa przerwania timera została stuningowana moim programem NoSave Tool. Teraz mikrokontroler nie odkłada na stos większości rejestrów a tylko te potrzebne - w tym przypadku tylko jeden :D Przekłada się to...
Po co ciągle konfigurować tego ESP? Mojego skonfigurowałem raz. Teraz jak podłaczę do niego terminal to po włączeniu/resecie sam loguje sie do mojego routera. Sam pisze, że WIFI CONNECTED i WIFI GOT IP Czyli dokąd nie zmieni się sieci WiFi to nie trzeba konfigurować, ewentualnie po otrzymaniu WIFI GOT IP można zapytać jeszcze o IP - "AT+CIFSR", no...
Mam taki kłopot; korzystam w programie z transmisji z PC do mikrokontrolera vis RS232 (Atmega 2561, sprzętowy uart, 115200 b). W tym celu używam funkcji SERIALIN z opcją BYTEMATCH (znak CR). Bufor o długości 200 znaków. [syntax=vbnet]' port szeregowy do komunikacji z PC oraz modemem GSM Config Com2 = 115200 , Synchrone = 0 , Parity = None , Stopbits...
Problem nielogowania się do sieci rozwiązałem. Jak to czasami bywa przyczyną był błąd montażowy na płytce. W tej chwili po załączeniu zasilania modem ładnie loguje się do sieci. Niestety to nie koniec problemów. Jak próbuję wysłać komendę "AT" z procesora przez UART do modemu do nie otrzymuje "OK" tylko wraca mi z powrotem "AT". Wydaje mi się że problem...
Witam! Mam kłopot z odbiorem danych z PC. Podłączam uC do PC + terminal i wpisuje ciąg danych r:122.g:144.b:125 i enter no i wszystko super bo diody przygasają, ale jest problem jak Podepnę pod linuxa i chcę wysłać w ten sposób echo "r:122.g:144.b:125" > /dev/ttyUSB1 i nic sie nie dzieje, wiec moje pytanie w jaki sposób wysyłać dane lub co zmienić...
Witam, posiadam dwie atmegi8 sprzęgnięte ze sobą komunikacja za pomocą UART. Jedna atmega będzie zbierać informację z czujników i poprzez UART przesyłać bajty danych do drugiej atmegi której zadaniem jest wyświetlanie tych wartości na wyświetlaczu graficznym. Moja ramka danych składa się z dwóch bajtów, pierwszy z nich jest to bajt "adresowy" który...
Witam Starałem się wyjaśnić platforma AVR lub zadania jaki ma wykonać NIE JEST TAK WAŻNE jak zorganizowanie komunikacji na RS232 za pomocą paczek HEX! Mogę wykorzystać dowolną większą kość AT! AT90s2313 Akurat tą kość mam gotową do pracy i kompletną do komunikacji na RS232. Czy jest możliwe zorganizowanie takiej komunikacji.? Potem wykona zadania......
Witam, mam dziwny problem, SIM900 nie wysyła sms-ów. Program w Bascomie napisał mi kolega, nie należał do najkrótszych i wszystko działało, odbierał sms-y z komendami i włączał urządzenia, wysyłał sms, dzwonił, odrzucał połączenia itd. Kiedy wyodrębniłem z tego programu fragment który miał tylko wysyłać sms kilka razy zadziałał, a później przestał,...
Witam Zawsze bawiłem się z atmega32 ale od do projektu potrzeba mi 6 kanałów PWM 16bit (sterowanie 2 serwa i 4 regulatory z rewersem). Zastosowałem atmega128 T1 i T3 . Wszystko było było by OK ale na kanale OC1C jest brak sygnału , zapewne banalne rozwiązanie ale jakoś nie mogę zatrybić nadajnika: [syntax=vbnet]$regfile = "m32def.dat" $crystal = 16000000...
[syntax=basic4gl] '$sim $regfile = "M32def.dat" $crystal = 8000000 $swstack = 64 $hwstack = 64 $framesize = 64 $baud = 9600 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portb.6 , Rs = Portb.7 Config Serialin = Buffered , Size = 5 Config Timer0 = Timer , Prescale = 1024 On Ovf0 Timer_0...
Witam Zbudowałem układ oparty o uC ATmega32 i połączyłem ją z Siemensa C35. Nie będę opisywał połączenia i wrzucał schematów bo to mi działa. Udało mi się odczytać z komórki: *Stan naładowania baterii *Siłę sygnału antenowego *Date i godzinę *Numer osoby dzwoniącej i zawiesiłem się na odczycie SMS-a. Wykrywam nowego sms-a poprzez zapytanie: Nowysms...
Witam wszystkich w tym ostatnim dniu roku 2011 i przesylam serdeczne zyczenia na nadchodzacy rok. Ostatnio zainteresowalem sie sposobem sterowania powiedzmy na poczatek LEDami (on/off) za pomoca telefonu. Po przeszukaniu forum i innych stron, zdobylem wiele wiedzy (komendy AT, kodowanie PDu, itp), postanowilem stworzyc swoj sterownik. I teraz sie nasuwaja...
Z powodu dużego zainteresowania chcę pokazać jak Atmega8 kontroluje proces pakowania towarów sypkich.Kontrola wagi towaru odbywa się za pomocą popularnej wagi z złączem RS AP-1. Dla dokładności dołożyłem przy 80% i 90% wagi dokładne dosypywanie, nie jest to uwzględnione w programie. Port c4 uruchamia sygnalizację dźwiękową.To jest adres do youtube o...
Mam następujący problem. Chcę odczytać z telefonu Siemens C35 (oraz S35) datę i godzinę a następnie wyświetlić je na LCD. Najpierw próbuję odczytać "surowe" dane za pomocą kodu: $regfile = "m8def.dat" $crystal = 8000000 $baud = 19200 Config Lcd = 16 * 1a Config Lcdpin = Pin , Rs = Portc.3 , E = Portc.1 , Db4 = Portb.5 , Db5 = Portb.4 , Db6...
Ten program jest przepisany z Nowego Elektronika. Wszytko się zgadza. Nie da się skompilować. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
Teraz mam inny problem. Chcę robić pomiar temperatury i zapisywać na kartę SD. Używam do tego modułu prototypowego tego autora: Ponieważ post dotyczy innego tematu niż oryginalny wątek, temat podzieliłem. Na przyszłość proszę w przypadku napotkania problemów niezwiązanych z oryginalnym tematem postu zakładać nowy wątek. W ten sposób inni będą mogli...
$crystal = 8000000 $baud = 9600 Config Lcd = 40 * 2 Config Serialin = Buffered , Size = 20 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Enable Interrupts Dim Command As String * 1 Dim Temp1 As Integer Dim Temp2 As Integer Dim Status As Byte Dim Numer As Byte Temp1 = 12.1 Temp1 = 30.1...
Witam. Po długim oczekiwaniu dostałem w końcu w/w moduł zaprojektowałem płytkę z atmega128 podłączyłem wszystko jak w module easytcpip zmontowałem. Wgrałem program przykładowy konfigurujący moduł i odpowiedział na ping-a. Potem postanowiłem sprawdzić kolejny program przykładowy którego kod zamieszczam (jedyne zmiany jakich dokonałem dotyczą użytego...
$regfile = "m2560def.dat" $crystal = 11059200 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 ' Inicjalizacja wyświetlacza LC Cls ' Czyszczenie $baud = 9600 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Config Serialin...
Witam szanownych kolegów! Piszę mając nadzieję, że ktoś pomoże mi rozwiązać mój problem z którym borykam się już któryś dzień :( Otóż programuję w Bascomie Atmegę 644pa-pu do komunikacji po UART z modemem ZTE2639AT. Mam problem ze sprawdzaniem siły sygnału GSM. Otóż chciałbym przy pomocy przerwania od timera0 wykonywać takie sprawdzanie a jego wynik...
witam przedstawię kod zapożyczony od pixel7 i pozniej napiszę o co dokładnie mi chodzi - mam tel s55 podlaczony kom dzila jedynie co mam podpięte miedzy atmega a tel to TX->RX RX->TX i GND-GND narazie dzwonienie działa i wysyłanie sms nie wpełni ;) hehe chciałem wysłać do tel jakiegoś sms i coś sterować kod cały zapożyczony od autora (pixel7) tz bez...
Witam, na początek pytanie, czy zasilanie atmegi napięciem 3.3V wpływa jakoś negatywnie na prędkość jej pracy ?? otóż w fazie wczesnych testów zasilałem atmegę napięeciem 5V. Obsługuje ona wyświetlacz graficzny 128*64, odbiera 6 zmiennych typu word przez UART, wykonuje 6 dzieleń na tych zmiennych i wyświetla informacje na wyświetlaczu. Przesyłając różne...
Z tymi wait'ami to już probowałem przeróżnych kombinacji i gdzie bym ich nie dał to i tak nie działa jak należy... Poniżej wrzucam cały kod programu tak, jak prosiłeś. $regfile = "m16def.dat" $crystal = 16000000 $baud = 115200 Config Lcdbus = 4 Config Lcd = 16 * 4 Config Lcdpin = Pin , Rs = Pc.0 , E = Pc.1 , Db4 = Pc.2 , Db5 = Pc.3 , Db6 =...
Mam wielką prośbę a mianowicie z dokończeniem poniższego softu w bascom. Jestem początkujący w Bascom i programowaniu. A więc do rzeczy, zbudowałem sobie wyłącznik oświetlenia na module bluetooth hc05 i kontrolerze mega8. Napisałem soft i nie mam żadnego pomysłu jak go skończyć. Najpierw omówię działanie sterownika i jego logikę: po włączeniu zasilania...
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ź...
Problem ze zmianą nazwy pliku rozwiązałem - oczywiście należy pamiętać, że nazwa pliku może być ośmio znakowa. W kodzie dodałem: Plik = "temDD_MM" + ".txt" Mid(plik , 4 , 5 ) = Data_plik oraz w odczycie czasu Data_plik = Bcd(dday) + "_" + Bcd(mmonth) oraz zmieniłem wpis zapisu Open Plik For Append...
Sporo tego ( obsługa SD, PCF8563 + menu do ustawiania daty, obsługa PCF8574 w przerwaniu INT1 )- ale nie ma problemu - zmieniła się tylko zawartość podprogramu Pomiar była taka, jak w pierwszym poście oraz wyłączyłem w wyświetlanie na LCD tych wartości wskazań z DS18B20, oczywiście dostosowałem pozycje wyświetlania do LCD 4*20 - załączniku spakowany...
Witam. Nie dawno wybudowałem altanę na działce. http://obrazki.elektroda.pl/1427697700_1... http://obrazki.elektroda.pl/9627191600_1... Chciałbym w niej sterować gniazdkami, przyciskami do oświetlenia i oświetleniem. Każde gniazdko będzie miało podświetloną obwódkę wykonaną z pleksi, podświetlenie na diodach RGB sterowanych...
Ok wklejam kod: $crystal = 8000000 $lib "mcsbyte.lbx" $lib "i2c_twi.lbx" $regfile = "m8def.dat" Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.0 , Db6 = Portd.7 , Db7 = Portd.6 , E = Portb.2 , Rs = Portb.3 $baud = 9600 Config Serialin = Buffered , Size = 15 $eeprom Data 0 , 22 , 22 , 22 , 0 $data '$prog &HFC , &HE2 , &HD9...
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,...
Witam podaję kod, który działa poprawnie, oczywiście należy go dopasować do swoich potrzeb. [syntax=vbnet] 'Sterownik swiatel V2.2 '10-06-2015 'Roman Biadała $regfile = "m128def.dat" $crystal = 11059200 '$lib "fp_trig.lbx" '******** Ustawienia portów ****************************************... '******** Sterowanie 74HC541 - przekaźniki *************************************...
Witam :) Pisze z prośbą o pomoc w rozwiązaniu problemu a mianowicie mam program w bascom który po otrzymaniu literki "a" poprzez uart za pomocą btm-222 powinien zgasić diodę. W symulatorze program działa bez zarzutu lecz gdy zaprogramuje uP to nie gasi tej diody, i nie zwraca wysłanej literki ale dioda "Data" na module się świeci czyli moduł odbiera...
systick interrupts system interrupts bascom ischarwaiting
bosch sterownik silnika rozebrać konica regulacja obrotów silnika wentylatora
instrukcja obsługi toyota yaris instrukcja obsługi toyota yaris
Czyszczenie pampersa w Canon Pixma MG4250: krok po kroku Instrukcja obsługi Kinzo D 26 - gdzie znaleźć?