Witam Mam problem z przesyłaniem kilku zmiennych po RS485, tzn. wartość zmiennych przesyłana jest prawidłowo, ale w odbiorniku zmienne zamienione są miejscami. A mianowicie nadajnik wysyła np. zmienne a=504 b=129 c=292, a odbiornik odbiera je tak a=292 b=504 c=129. I nie mogę dojść dlaczego tak...
Witam, od jakiegoś czasu opracowuję urządzenia komunikujące się po RS485 w protokole PELCO-D. Urządzenia komunikują się albo jedno albo dwukierunkowo-tutaj to nie istotne... Wszystko działa wyśmienicie i komunikuje się bez najmniejszego błędu gdy nadaje jedno z urządzeń. Urządzenie to nadajnik i...
Po wczorajszym, (zamknięcie tematu, i itp) Postanowiłem że postaram się coś samodzielnie wyklecić w bascomie (w końcu to mój projekt) narazie to tylko przykładowy kod, w którym chodzi tylko o wyjaśnienie zagadnienia, i ewentualne poprawki. MASTER : $regfile = "attiny2313.dat" $crystal...
Program wygląda tak: 'Sposób podłączenia wyświetlacza LCD: ' końcówka podłączona do '1 GND GND '2 GND GND '3 +5V +5V '4 -9V -9V potencjometr '5 /WR PORTD.5 '6 /RD PORTD.4 '7...
Mój "stwór" wygląda tak: [syntax=basic4gl] $regfile = "ATtiny2313.dat" $crystal = 11059200 $baud = 19200 Config Portb.0 = Output Config Portb.1 = Output Config Portb.2 = Output Config Portb.3 = Output Config Portb.4 = Output Config Portb.5 = Output Config Pinb.6 = Input Config Pinb.7 =...
Witam Mam program do odczytu danych z modułu GPS. Mój problem polega na tym iże nie wiem jak zrobić zabezpieczenie przed pewną sytuacją a mianowicie w przypadku gdy np. odłączę Moduł. Chcę aby w tej sytuacji wyświetlał napis informujący o tym, bo teraz program się zatrzymuje i zawiesza. Do If...
dokladnie chodzi o to ze... z PCta wysylam dane po RSie do uC... na uC odczytuje przeslana informacje funkcja INKEY(). I teraz nie dokonca wiem jak dziala funkcja inkey, czy zwraca ona pierwszy znak ASCII przeslanej informacji czy moze odczytuje pierwsze 8 bitow danych. Chodzi mi o to aby nie kombinowac...
Witam, Czy ktoś ma doświadczenia w postawieniu serwera na EPS 8266 w Bascomie , napisałem krótki program ale coś nie działa, moduł sprawdziłem za pomocą programu z strony [syntax=html] [/syntax] i działa [syntax=vbnet] $regfile = "m644pdef.dat" $crystal = 16000000 $baud = 19200 $hwstack = 32...
Czekam 100ms po instrukcji print dla 115K nic to nie pomoglo zmniejszylem predkosc do 9600 nadal nic ;/ kod nadajnika $regfile = "m32def.dat" $crystal = 14745600 $baud = 9600 Config Serialin = Buffered , Size = 10 , Bytematch = 13 '##### Definicja wyswietlacza ##################### Config...
Witam, potrzebuję zrobić komunikację miedzy 2 procesorami ATmega16. Jeden wysyła zmienną typu Byte (Status) z informacją o stanie wejść, a 2 to odbiera. Natomiast 2 będzie wysyłał do 1 także zmienną Byte (Settings) z informacjami konfiguracyjnymi. Dodatkowo chciałbym wysyłać sumę CRC w obu kierunkach....
Pozbierałem różne fragmenty z forum i zlepiłem coś takiego Nie robi tego co powinno czyli set porta.0 kiedy tel dzwoni. Komunikuje się z telefonem poprawnie - sprawdzalem, wiec blad w programie. Co mam nie tak? $regfile = "m32def.dat" $crystal = 16000000 $baud = 19200 Config Serialin...
Taki dziwny problem: Mega8 na płycie ewaluacyjnej połączona przez rs232 do pc. Terminal wyświetla to co wysyłam przez print, natomiast avr nie reaguje na nic wysłanego przez pc. Testowy kod (wzięty prawie na żywca z sampla inkey.bas): $regfile = "m8def.dat" $crystal = 8000000 $baud...
Znalazłem coś takiego : 'name : 'purpose : test for M2560 support 'micro : Mega2560 'suited for demo : yes 'commercial addon needed : no '---------------------------------...
Witam, Mam mały problem z komunikacją między uC. Ale od początku. Schemat układu pochodzi z EP Samą komunikację udało mi się zestawić i działa bardzo dobrze (załączony kod poniżej). Master non stop odpytuje slave i jest git. I teraz mój problem, chcę dodać w masterze odpytywanie powiedzmy...
Witam Mam program, który wyświetla na LCD współrzędne oraz prędkość ( prędkości jeszcze nie sprawdzałem w terenie ) oraz zapisuje na karcie SD. Na razie zapis na SD jest ręczny, przez przycisk. Chciałbym żeby zapis dokonywał się ze zmienną częstotliwością zależną od szybkości, (szybkość mam jako String...
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...
Witam podaję kod, który działa poprawnie, oczywiście należy go dopasować do swoich potrzeb. [syntax=vbnet] 'Stero... swiatel V2.2 '10-06-2015 'Roman Biadała $regfile = "m128def.dat" $crystal = 11059200 '$lib "fp_trig.lbx" '******** Ustawienia portów ****************************************...
Skorzystaj z instrukcji INKEY( ), WAITKEY , ISCHARWAITING. Do 'jakaś pętelka A = Inkey() 'odczytujemy znak If A > 0 Then 'czy był jakiś (> 0)? Print A 'jeśli tak to piszemy End If Loop 'to będzie pętelka nieskończona 'Powyższy...
Proponuję zrobić taki eksperyment: Kod: Print "a" Print Chr(97) Print Chr(&H61) Print Chr(&B1100001) to zawsze zostanie wysłany kod ASCI - 97... Acha, czyli jak w procesorze, którym odbieram dane zrobię tak: zmienna_byte = inkey() to w zmiennej będę miał kod ASCII odpowiadający...
Witam, Mam pytanie, czy jak w procesorze, którym odbieram dane wysyłane przez inny procesor przez układ UART, zrobię tak: zmienna_byte = inkey() to w zmiennej będę miał kod ASCII odpowiadający danemu znakowi? Np. wyślę przez RS232 znak a to będzie w zmiennej liczba 97 zmienna_typu_string...
Manual BASCOM-a, w opisie instrukcji SERIALIN mówi że bufor danych wejściowych przechowywany jest w wewnętrznej tablicy bajtów _RS232INBUF0 . Oprócz tego są dwa wskaźniki, na początek tych danych oraz na ich rozmiar. 'Using the CONFIG SERIAL=BUFFERED, SIZE = 10 for example will 'use some SRAM memory 'The...
Ilosc kB nie ma znaczenia bo jest to zmienne i moze miec nawet xMB czas jest proporcjonalny do ilosci danych, lecz mam problem pomiedzy poprawna komunikacja miedzy DELPHI a BASCOM w wymianie tych danych teraz robie tak: #27 0..255 0 - nie będzie kolejnego bajta #13 ...
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...
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...
Należy "podpisać" przesyłane zmienne tak by mikrokontroler jednoznacznie wiedział z którą ze swoich zmiennych skojarzyć ma przesłaną wartość i w niej ją zapisać. Wiele urządzeń ma swoje własne sekwencje bajtów po których własnie mikrokontroler jest w stanie określić co nadeszło. Takie sekwencje nazywają...
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...
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...
oki taki mam kod może coś tu mi nie gra :) nadajnik ' rs485 dla atmega8 - testowy nadajnik $regfile = "m8def.dat" $crystal = 1000000 $baud = 9600 Config Portd.2 = Output Config Serialin = Buffered , Size = 15 Declare Sub Odbior Dim Lok As Bit Dim Test As Bit Dim...
czy nie potrzebna jest tutaj instrukcja INKEY() ? swojego czasu zrobiłem taki układ , że dwa procki atmega8535 przesyłały między sobą zmienną. program zajął dosłownie 3,4 linijki w odbiorczym użyłem instrukcji inkey() tzn , jeżeli było coś w buforze(różne od 0 ) to wyświetlało daną. oczywiście czasy...
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...
Witam Robie włącznik/dialer gsm na C35 ale mam problem czasami z błędnym odczytywanie komend AT oto część kodu. $regfile = "m8def.dat" $crystal = 11059200 $baud = 19200 Wait 1 Print "ATX0" ; Chr(13) Waitms 100 Print "ATZ" ; Chr(13) ...
Witam Mam pytanko. W jaki sposób odebrać liczbe dwucyfrową np 11. Jeżeli używa w bascomie funkcji inkey() i chce z komputera przesłać liczbę 11 to uC odbiera tą liczbę jako dwie jedynki a nie jako liczbę 11, co uniemożliwia mi wykonanie instrukcji która znajduje sie pod CASE 11: . Jest na to jakiś sposób?...
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...
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 =...
Po prostu nie możesz korzystać z instrukcji Input tylko z instrukcji np. Inkey i odbierać 128 bajtów o dowolnej zawartości (nawet bajtów zerowych) Po odebraniu 128 bajtów sprawdzić sumę kontrolną, tak jak pisał kolega mirekk36. Jeśli odebrałeś wysłasz ack spowrotem np. z sumą crc ramki Instrukcja Input...
Witam Mam taki programik opiszę tylko najważniesze elementy # konfiguracja timerów Config Timer0 = Timer , Prescale = 1024 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm Disconnect , Prescale = 8 Config Serialin = Buffered , Size = 6 Enable Interrupts Enable Timer0 Timer0...
Witam Nie za bardzo wychodzi mi wykorzystanie z dwóch portów UART. UART sprzętowy odbiera ramki z modułu GPS ( Tx modułu do Rx AtMega32 ) i to działa. Działa do momentu gdy włączę UART sprzętowy ( tylko Rx na jednym z portów Atmega do Tx portu Com w komputerze - korzystam z przejściówki, ale to chyba...
Witam serdecznie. Pisać w Bascomie zacząłem w lipcu br. To mój pierwszy program. Oto mój problem. Sieć Master-Slave na platformie RS485. Master - PC z dedykowaną aplikacją Slave - ATmega64 [syntax=basic4gl]'----------... Tmpstr As String * 50 'dane odebrane Dim...
Ten program jest przepisany z Nowego Elektronika. Wszytko się zgadza. Nie da się skompilować. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
Witam mam problem z wysłaniem SMS za pomocą komend AT i telefonu SE T610. Komunikacja po uart jest prawidłowa inne komendy jak np dzwonienie działają poprawnie, jednak przy próbie wysłania SMS zwraca ERROR. Kod programu: [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $baud = 19200...
Witam. Od pewnego czasu zajmuje się wykonaniem sterowania na mikro-kontrolerach AVR. Nadajnik pracuje na atmega 8 a odbiorniki na atmega 16. Mój system to zestaw 15 odbiorników i 1 nadajnika. Połączone jest to wszystko za pomocą magistrali RS485 za pośrednictwem Sn75176 z przełączaniem odbiór nadawanie....
Ten zestaw nie służ do transmisji RS232. Aby działał poprawnie musisz kodować słowa podobnie jak w RC5 lub układach PT2272/2262. Te moduły "łapią śmieci", a to fałszuje transmisję. Na upartego można na niewielką odległość przesyłać wolno np 300 bodów transmisje, warunkiem jest stała "nośna", czyli na...
Witam Testując kod Kolegi pusiek1974 do odbioru czasu i daty NTP, chciałem go rozbudować i dostosować do swoich potrzeb. Na początek jako, że kod używa Wait'ów, których chciałem się pozbyć, chciałem dodać wywołanie przez flagę od Timer'a. [syntax=vbnet]$regfile = "m16def.dat" $crystal = 8000000 $hwstack...
Długo by tłumaczyć. Przede wszystkim przerwanie przychodzi po pierwszym znaku, a Inkey odbiera cały ciąg znaków Z tego powodu Inkey nie nadaje się do użycia w przerwaniu. Ty użyłeś go w przerwaniu i tym samym blokujesz przerwania. Bo przerwanie przychodzi po pierwszym odebranym znaku, ale zostaje...
Witam wszystkich mam taki problem.Potrzebuję z aplikacji android wysłać cztery zmienne typu Word do procesora Atmega 32 i zapisać je w Epromie.Dane wysyłane w Srtingu. Na razie wysyłam dane z terminala z Pc-ta.Aplikację na Android pisze mi ktoś inny.Potrafię wysłać jedną zmienną nadaną jako String przekształcić...
kamyczek Czy możesz mi pomóc? Testuję teraz programik (sorki za bałagan, ale próbuję to zrozumieć)
Ja robiłem podobnie do twojego tyle że zamiast "waitkey" używałem "inkey" w przerwaniu . Odbior: B = Ischarwaiting() If B = 1 Then C = Inkey() If C = "Q" Then Inputbin Aa(1) , Aa(2) , Aa(3) , Aa(4) , Aa(5) , Aa(6) End If End If Return Czyli Q robi u mnie za bajt startu a resztę danych przypisuję...
Witam. W Bascom AVR załadowałem przykładowy bootloader ( C:\Program Files (x86)\MCS Electronics\BASCOM-AVR\SAMPLES\BOOT\Boot... ) po ustawieniu mikrokontrolera ATmega644 i baudrate na 4800, skompilowałem i zaprogramowałem procesor. Dla pewności wklejam: Od tego momentu, po zresetowaniu...
Jaka jest idea tego bootloadera, chcę wykorzystać ten bootloader w moim układzie i wysyłać nowy FLASH z kliku skompilowany przez Bascom'a (HEX) przez własną aplikację, potrzebuje pomocy ze zrozumieniem jak mam obsłużuć tą transmisje. Typu wysyłam coś - odbieram coś itp. '-------------------------------------...
Moja propozycja działa poprawnie z VB.6 do Bascoma 'bascom do If Ischarwaiting() <> 0 Then A = Inkey() If A > 0 Then Select Case F_rs1 Case 0 If A = 2 Then F_rs1 = 1 _rsstr1 = "" ' Input _rsstr1 End...
Witam ponownie Poprawiłem to zapisywanie do expanderów, troszkę lektury HELP-a i doszedłem do: deklaracja: Declare Sub Pcf_zap(byval Kosc As Byte , Byval Ex As Byte) a tu podprogram: 'podprogram obslugi ukladow PCF8574 Sub Pcf_zap(byval Kosc As Byte , Byval Ex As Byte) ...
Witam Mój problem wiąże się z zaprogramowaniem "Echa" które obijało by sygnał w standardzie RS. Układ buduję w celu sprawdzania poprawności działania konwertera USB-RS485. Aby nie programować układu dla każdej szybkości transmisji chcę użyć pinów PB0-PB3 gdzie za pomocą zworki możliwy byłby wybór...
Witam, mogli byście spojrzeć na poniży kod czy dobrze kombinuje bo nie mam złącza LPT( laptop) i muszę na boku z starych części składać komputer żeby zaprogramować. Więc jak się poświecę to chciałbym mieć pewność że zatrybi. Założenia są takie: z terminala wysyłam jakąś komendę mikrokontroler atina2313...
Witam, jestem w trakcie nauki programowania. Korzystam z książki "Mikrokontrolery dla początkujących" Piotra Góreckiego oraz z dołączonej do niej płytki testowej avt3500, Bascom-avr ide 1.11.9.2, konwertera usb-232 typ: usb2.0-rs232 cabletech kpo3431, oraz konwerera na max232. wersja laptopa to windows7...
Witam. Kupiłem dziś konwenter USB 2.0 - RS232 Podłączyłem go do komputera (zainstalowałem sterowniki) Konwenter zainstalował się na COM4 Następnie w BASCOM skompilowałem program... Nadszedł czas na wgranie programu do płytki w której "siedzi" Teraz opiszę jak wygląda...
Witam wszystkich! mam taki problem, zbudowałem prosty układ z atmega8 który ma za zadanie odbierać sms z układu sim800l, napisałem prosty program w bascom wzorowany na innych podobnych z tego forum. Program po naciśnięciu przycisku P1 ma wysłać komendę odbioru sms "Print "at+cmgr=1" ; Chr(13)" a potem...
Witam jak mogę zmienić wyjścia pinów na stan niski . Program napisany w BASCOM. [syntax=vbnet]$regfile = "m16adef.dat" ' specify the used micro ' generated. Take care that the chip supports all fuse bytes. $crystal = 8000000 $baud =...
Witam. Mam programik napisany w bascomie który potrzebuje do działania danych z RS232 (komenda inkey). Da się to zasymulować w BASCOM 8051? Jest tu jakiś terminal, ale coś nie za bardzo działa.
Właśnie właśnie. Ten pomysł z kimś innym do sprawdzania mi się podoba :) Ja już wymieniłem w sumie wszystkie części (procek, max, kwarc, kabelek -dłuższy, krótszy, kompa, prędkości, program, INPUT, INKEY) i zawsze to samo. albo działa "inaczej" albo wcale. W moim układzie też zauważyłem że 2 kondensatorki...
Ja zrobiłbym tak: 'Tutaj ustaw $Baud, $crystal, itp Config Serialin = Buffered , Size = 20 dim znak as byte Enable Interupts On URXC przerwanie Enable URXC ... przerwanie: disable URXC do Znak = Inkey() If znak = #48 Then ... End If Loop...
Heh :-) Siedziałem 2 dni nad tym (aż żona dostała białej gorączki) i doszedłem o co w tym wszystkich chodzi. Po pierwsze to musiałem zamienić UARTy, tzn. sprzętowego użyć do komunikacji z modemem GSM, zaś Softowego do komunikacji z PC. Po drugie intrukcja Bascoma Print domyślnie na końcu wysyła...
Tych znaków jest trochę więc proponuję bufor wejściowy. Wyświetlacz przyjąłem 16*2: $crystal = 4000000 $baud =4800 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Portc.6 , E = Portc.2 , Rs = Portd.6 Config Serialin = Buffered , Size = 32 Dim Znak...
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 ...
Dzięki za podpowiedzi, wykorzystałem polecenie inkey() i to wystarczyło w zupełności. Kodu nie podaję, gdyż wystarczy wpisać w helpie inkey i wszystko jasne jak na dłoni :)
Eh ten rs-232 + przerwania to juz mnie o bóle głowy przyprawia. Mam programik: $crystal = 11059200 ' czestotliwosc kwarcu $baud = 1200 ' predkosc transmisji Dim X As Byte , Znak As Byte Enable Interrupts...
Czy młodszy brat/siostra , skasował Ci baskomowego Help-a Jestem jedynakiem :D Tylko polecenie Input czeka tak długo aż czegoś się mu nie wyśle, dlatego zastosowałem Inkey(). Czyżby :?: A dyrektywa $TIMEOUT :?: I caly czas myślę, jak zrobić, aby Pojedyńcze znaki złożyć w cały "ciąg znaków"...
... Powiedz , dlaczego musisz Waitkey() , a nie np. Inkey ?? Dla tego, że Inkey nie działa tak jak bym chciał. Program rysuje mi na konsoli w trybie znakowym okienka i poruszam się po nich za pomocą strzałek kursora. kod strzałek kursora w terminalu jest następujący: strzałka w górę to...
Może i w teorii to powinno działać, ale w praktyce na ekranie terminala po wcisnięciu strzałki i _długim_ jej przytrzymaniu w końcu dostaję znak " Dim Znak as byte Do Znak = Inkey() If Znak = 65 Then Print "1A" ; If Znak = 66 Then Print "1B" ; If Znak = 67 Then Print...
wymienilem konwerter przy pccie i to samo przy atmelu mam 75176 gdzie r oraz d idzie na tx1 i rx1 na atmege re i de sa zwarte i leca na pd7 zrobilem tak $regfile = "m128def.dat" $crystal = 16000000 '$baud = 9600 $baud1 = 38400 Config Portd.7 = Output Config Spi...
Masz tu prosty, sprawdzony, działający program do sterowania portami. $regfile = "m16def.dat" $crystal = 1000000 ' przelicz u siebie te zera :) Dim B As Byte Config Portb = Output Portb = &HFF Waitms 100 Open "comd.1:9600,8,n,1" For Output As #1 Open "comd.0:9600,8,n,1"...
Witam Odbieram pakiet danych (dokładnie 11 bajtów) przez sprzętowy RS232 z prędkością 38400 (uP ATMEGA 128L kwarc-8MHz) w Bascomie: Config Serialin = Buffered , Size = 7 . . . Odb = Ischarwaiting() If Odb <> 0 Then For L = 1 To 6 Y(L) = Inkey() Waitms 7 Next L Y(1) = Asc(y(1)) Y(2)...
To powinno odczytać cały bufor: Odczytaj_sprzetowy_uart: Uart_txt = "" Do 'Odbierz znak po znaku Kod = Inkey() Uart_txt = Uart_txt + Chr(kod) 'Zapisz w Uart_txt Bufor = Ischarwaiting() 'Sprawdź czy jest znak Loop...
jest problem tego typu ze wysylam z visuala wyraz zakonczony chr(13). odbierane sa tylko 2 pierwsze znaki i koniec.. 'Ustawienie parametrów transmisji w bascomie i visualu '19200 szybkość, Bez parzystości, 8 bitów danych, 1 bit stopu nie wiem gdzie jest blad.. Do While Ischarwaiting()...
...Tylko czemu w manualu bascoma, w książce o bascomie jest napisane o możliwości obsłużenia ischarwaiting przez uart programowy... Nie wiem co piszą w książce , ale w manualu Bascoma pisze wyraźnie , że Ischarwaiting() działa WYŁĄCZNIE na sprzętowych UART-ach. Jest mi to jednak wciąż bardzo potrzebne......
Niestety Jak dam instrukcję ustawienia bufora to już nic nie odbiera (nadawać nadaje). A włączyłeś przerwania :?: Bez bufora(przerwanie RX) , ciężko dogadać się z fonem :( Właśnie zauważyłem że jak zepnę RX z TX uP (wywale printa z głównej pętli i dam wait na 5sek. ) to odbiór też jest na 3 znaki...
miałem podobny problem. Przerwanie od UART powodowało że program wpadał w przerwanie i nie chciał wyjść. Zrezygnowałem z przerwania i w pętli głównej wstawiłem Zmienna = inkey ; if zmienna = ??? then ???. to rozwiązanie nie powoduje przerwania ale trzeba czekać aż program w pętli dojdzie do tego...
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...
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...
Zacznij rejestrować konkretną ilość znaków po pojawieniu się litery "R". Występuje ona tylko raz i leży blisko interesujących cię danych. Gpstxt = "" Przerwanie = 0 Do Gps = Inkey(#1) Incr Przerwanie Loop Until Gps = 82 Or Przerwanie = 1024 If Gps = 82 Then ...
Witam! Mam plytke ZL11AVR z mikrokontrolerem Attiny2313. Podpiąłem płytkę pod rs232 i uruchomiłem program: 'C025a Łącze RS-232 Napisy z peceta Dim B As Byte Cls 'czyść ekran LCD Lcd "Napisy z peceta" ...
No tak nie zauważyłem w gąszczu innych rzeczy tego PK1=UDR:) (Szkoda, że elka nie koloruje składni:/) 1)Jeśli nic nie wysyłam to od czasu wyskakuje kod 84(T) i potem wraca do 10 A jak odepniesz COM od PCta to też się losuje coś?:> Przyjrzyj się kolego może funkcji CHR ( w połączeniu z...
Zatem co robi ta czesc kodu-bo nie wiem co tu sie dzieje. Prosze o pomoc... gosub getbyte --- Wd: ' Wait_count = 0 Do Apple = Inkey() Reset Wd_pulse Waitms 1 If Id_code = 0 Then ' Only Master Mode Wait Time Count Up Incr Wait_count ...
Witam. Uart-em poprzez nadajnik FM lub AM bedzie prościej. Puszczasz np : PRINT 48 Po drugiej stronie dajesz INKEY():D i lcd chr(zmienna). I masz "0" na lcd. Pozdrawiam.
przecież w tej nocie aplikacyjnej, którą sam przedstawiłeś masz jak byk opisaną prostą transmisję za pomocą najzwykleszego UART'a. Wystarczy ci więc wykorzystanie go w typowy sposób zamiast robienia jakichś karkołomnych w tym przypadku twoich procedur w Bascomie do transmisji bit po bicie jedyne...
: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 '------------------... = 9600 ...
Witam Piszę na atmedze8 w bascomie program do odczytywania danych z odbiornika GPS. GPS jest podłączony RSem do Atmegi, obsługuje go sprzętowy UART. Transmisja jest realizowana z prędkością 4800, megę taktuje zewnętrzny kwarc 7,3728 Mhz (ale na wewnętrzym 4 Mhz też próbowałem). Oto kod obcięty...
Skorzystaj z Inkey() i IsCharWaiting().
Tresc programu: Dim B As Byte Cls Lcd "Napisy z peceta" lowerline do b=inkey() if B>0 then print chr(b) lcd chr(b) end if loop until b=27 cls lcd "Koniec zabawy" end Ćwiczenie z ksiązki "Mikrokontrolery dla początkujących",...
Ten czytnik wysyła poza znakiem końca linii o kodzie 13 kod następnego wiersza o numerze 10 Dane dalej pobieram za pomocą funkcji input, ale po niej w buforze zostaje znak 10, następnego wiersza, który pobieram za pomocą inkey :D Teraz jest już wszystko OK
witam i dziękuję za pomoc. Jednak temat już załatwiłem zastępując instrukcję print zamieniając na inkey działa poprawnie na wszystkich portach poprawnie. Dziękuję.
Witaj, Używam programowej obsługi wejściowego bufora FIFO USARTa zaimplementowanego w Bascomie oraz następującej konstrukcji do jego obsługi umieszczonej w głównej pętli programu: 'Konfigurujemy programowy bufor sprzętowy Config Serialin = Buffered , Size = 128 Enable Interrupts ......... 'W...
RETURN służy do zakończenia podprogramu a nie procedury. Nie pamiętam czy jest jakieś polecenie do wyjścia z procedury, ponieważ nigdy na pewno nie używałem nawet jeśli istnieje. Zawsze tak tworzę procedury aby program dochodził do końca i sama się kończyła. Ja całą procedurę przerobiłbym tak: Dim...
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...
Witam, Mam taki problem. Chcę wysyłać do PC informację w formie takiego temp1;temp2;f1;temp3 i coś jeszcze. Jak wysyłam informację to chcę żeby ona była raz wyświetlana powiedzmy co ok 1-2s a nie tak jak na screenach pod kodem. (to jest losowe). Co może być nie tak. Timera2 używam jako odmierzacz...
Witam Mam problem z komunikacją pomiędzy dwoma mikrokontrolerami Atmega8. Chciałbym między nimi przesyłać dane a dokładnie jedną zmienną pochodzącą z mojego dalmierza ultradzwiękowego do mikroprocesora obsługującego sterowanie robotem. Byłbym wdzięczny jesli otrzymałbym propozycję działającego programu...
Witam W zasadzie już zbliżam się ku koncowi stacji meteorologicznej z wykorzystaniem atmegi8 i PC. Z uwagi na funkcje jakie musze wykorzystać a wiec timer i USART wystapił problem. Wykorzystując timer1 generuje przerwanie co sekunde i licze czas aktualny. Podczas połączenia z komputera wysyłam na zasadzie:...
Dziękuję za pomoc i poświęcony czas na analize moich wypocin:) Dokonałem paru zmian oraz poprawiłem to co podpowiedziałeś i generalnie działa dobrze, nawet bardzo, ale..... Wysyłam znaki klikając na klawiaturze maksymalnie szybko i jest OK, ale jak wpisze ciąg znaków np "1234567890"i dopiero je wyslę...
Zrób sobie 6 element tablicy który będzie np znakiem ENTER (żeby rozpoznawać koniec tablicy) natomiast w Bascomie możesz wtedy użyć nawet polecenia INPUT, które po otrzymaniu znaku ENTER wpisze ci twoich 5 elementów tablicy do stringa (też jakby tablicy) - a ze stringa możesz to przełożyć do normalnej...
Witam Chcę napiszać taki programik: Const BajtStart = 10 Const BajtKoniec = 13 Dim A1 as Byte Dim A2 as Byte Dim A3 as Byte Dim Buffor(16) as Byte Do ... Inne instrukcje co się wykonują Zajmują np. 3min Po czym chcę jak się zakończą to połączyć się z PC i pozmienniać ...
soft z posta nie będzie działać prawidłowo trzeba napisać nowy niemalże od podstaw odczyt danych jest sformułowany pod ramkę z danymi wychodzących z procka program powinien wyglądać mniej więcej tak: $regfile = "m8def.dat" $crystal = 8000000 ...
