Zamiast INPUT użyj do odczytu danych polecenie WAITKEY().
Konwersje byte->string otrzymuje się przy użyciu funkcji Str. W drugą stronę działa funkcja Val.
Dim B as byte ..... [program] B =waitkey() .......[program] If B = 121 then ..... W sumie wystarczy samo B = waitkey() lub B = inkey() a to if to już chyba wiesz do czego nie?? SZUKAJ!! wszystko jest w helpie bascomu!!
Witam, potrzebuje pomocy z obsługą strzałek kursora w Bascom'ie '51. Kod strzałek składa się z 3 znaków ASCII, przykładowo strzałka w górę to kod klawisza "ESC", "[" i "A". Próbowałem skorzystać z komendy Inkey(), ale ona odbiera tylko pierwszy znak z bufora, czyli w moim przypadku kod klawisza "ESC". Doraźnym rozwiązaniem okazała się komenda Waitkey()...
... 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 znak klawisza "ESC"+"[" + "A" strzałka w dół to znak klawisza "ESC"+"["...
Może chociaż podpowiedź czy szukać w ustawieniach labela, czy w konfiguracji połączenia RS232, a może wina jest po stronie nadawania i programy w uP? Czy jest w VB instrukcja podobna do waitkey z bascom. Można by wysyłać dane po kawałku i umieszczać je w oddzielnych labelach, a może jakieś inne rozwiązanie?
Komenda Input czeka na znak entera. Jeśli chcesz odbierać pojedyńcze znaki zastosuj Inkey lub Waitkey. Po resztę informacji odsyłam do Helpa Bascoma
Może chociaż podpowiedź czy szukać w ustawieniach labela, czy w konfiguracji połączenia RS232, a może wina jest po stronie nadawania i programy w uP? Czy jest w VB instrukcja podobna do waitkey z bascom. Można by wysyłać dane po kawałku i umieszczać je w oddzielnych labelach, a może jakieś inne rozwiązanie?
witam. A może by tak więcej danych na temat: w czym piszesz, a przy okazji może tak warto zajżeć do pliku pomocy........... i jeśli to bascom to sprawdź o czym mowa w poleceniach input, inkey(), waitkey().......... pozdro.
To nie są problemy Bascoma, w bascomie można wiele rzeczy szybko zrobić, tylko jak ktoś go nie zna to najłatwiej i naszybciej jest na niego psioczyć i wylewać swe żale. ale ok, skoro ty (o ile dobrze zrozumiałem) w jakimś tam przerwaniu wysyłasz coś poleceniem PRINT przez łącze RS232 a następnie w tym samym przerwaniu czekasz na odbiór przez RS232 (waitkey)...
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ę zmiennym . W programie głównym obrabiam te zmienne. ps:...
Mam jeszcze jedno małe pytanie. W BASCOM chcę odbierać ciąg znaków z portu RS232 i przypisać je do jakiś zmiennych. Jak mam to zrobić ppoprawnie bo robie tak i nie za bardzo mi to działa Wysyłam ciąg znaków w Delphi 7 jako PChar: #145#123#150#78 A w BASCOM odczytuje tak: A,B,C,D = są jako Byte do A = Input() if A=145 then B=WaitKey() C=Waitkey() D=Waitkey()...
Ponawiam pytanie z postu wyżej :P Jakie pytanie :?: :) [syntax=vbnet]Do If 1 = Ischarwaiting() Then If 0 = Waitkey() Then Set Porta.2 Exit Do End If Loop [/syntax]
do "wyciągania" znaków z bufora służy inkey() lub waitkey() natomiast input stosuje się do wprowadzania ciągu znaków, aż do zakończenia znakiem <CR> wystarczy przeczytać HELP-a
Z koleji Inkey() i Waitkey() jako brak odebranego znaku zwracają #0 i chyba nie będą działać jak w przesyłanej informacji będzie #0
Na początek musisz spiąć atmegę8 z max232, następnie kabelkiem łączysz do komputera. Za pomocą terminala możesz wysyłać różne dane do atmegi.To co chcesz zrobić możesz bez problemu wykonać w bascomie, ale musisz posiadać minimalną wiedzę o tym języku. Dane wysyłane z komputera możesz odczytywać za pomocą funkcji INKEY, WAITKEY, INPUT, INPUTBIN, INPUTHEX,...
Tablica Bufor() jest typu Byte więc to nie Stringi i konwersja Hexval do niczego się nie przyda. Bajty są zamieniane niejawnie we Frame tylko na potrzeby wyświetlania na LCD. Coś w ten deseń powinno działać. Ogólnie to można to mocno poskracać, ale nie chciałem zaciemniać. [syntax=vbnet]Dim Arr(4) As Byte Dim Test As Single At Arr(1) Overlay Dim Bufor(9)...
Wydaje mi się że masz bład w transmisji ze względu na to że masz kwarc 4Mhz i baud 1200. Tak przy okazji zegar masz przestawiony na wewnetrzne 4MHz czy zewnetrzny kwarc? Jesli na zewnetrzny to ustawiles prawidlowo fuse bity?? Podam Ci prosty program który u mnie dziala bez zarzutu przy kwarcu 8MHz i predkosci transmisji 9600: $regfile = "m32def.dat"...
Mień Inkey na Waitkey, zmień definicje zmiennych i wklej kod po modyfikacjach. Program nie może "wrócić na chwilę" do procedury... Upewnij się jeszcze na sto procent, czy wysyłasz jeden znak po UART.
Z przerwaniem masz racje, że najlepiej, aby przerwanie trwało jak najkrócej. Mam jeszcze pytanie bop na koniec transmisji wysyłam ciąg danych z PC jak narazie 3 znaki. Funkcja Waitkey z tego co czytałem zwraca przychodzący znak czy może ona zwrócić ciąg znaków jeżeli przypiszę ją do Bufora typu string*5? Probowałem odbierać osobnymi waitkey te 3 bajty...
Do A = Waitkey(#2) B = Waitkey(#2) C = Waitkey(#2) D = Waitkey(#2) E = Waitkey(#2) F = Waitkey(#2) G = Waitkey(#2) H = Waitkey(#2) I = Waitkey(#2) J = Waitkey(#2) N = Chr(a) + Chr(b) + Chr(c) + Chr(d) + Chr(e) + Chr(f) + Chr(g)...
Dziękuje za odpowiedzi :) Wracam do tematu. Próbuje zrozumieć ten program: 1. Po co jest ten fragment, co on wykonuje, że K3 przyjmuje taką wartość: MC,214026.000,A,4807.3555,N,02850.2720,E... Wycinek programu zamieszczonego wyżej: Pocz: Do '***************************************... Do...
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 nadawania i odbioru. Moje próby niepowiodły się...
Próbowałem jeszcze waitkey - efekt ten sam tyle że waitkey jak gsm już nie nadaje wiesza program... INPUT nigdy nie używałem. Wstawiłem teraz na szybko INPUT znak (w miejsce znak =inkey() ) Efekt jest taki że nie czyta nic. Cisza. Zmykam do pracy, może po południu coś jeszcze pogrzebie przed weekendem... Pozdro :)
witam . meczę sie już jakiś czas z odebraniem danych z modułu czytnika RFID. wysyła on ramkę ttl po zbliżeniu karty do czytnika w takiej postaci: RS232 TTL (ramka danych 0xff,x,x,x,x,x,crc8 ), x-dane karty oczywiście w Bascomie. próbowałem już z poleceniami Waitkey() inkey() czy sprawdzaniem bufora Uart Ischarwaiting(). $baud = 9600 oczywiście całość...
Procedura podana przez Konrada działa bardzo ładnie ale ma jedną wadę odbiera dana jako znak ASCII a ja chce odczytać zwykłą daną byte w ten sam sposób. Zamiast Inkey() możesz dać Waitkey() (waitkey wstrzymuje działanie programu do czasu, aż pojawi sie jakiś znak, ale w tym przykładzie to nie ma znaczenia). Zmienna Znak jest zadeklarowana jako bajt...
Mam taki oto problem. Stworzyłem programowy UART, ale nie wiem jak sprawdzić czy dostałem jakiś znak. Przerwania i rejestry odpadają jak wiadomo, IsCharWaiting mimo, że w pomocy ma w nawiasie możliwość podania kanału to gdy użyję np. IsCharWaiting(#2) to dostaję błąd nr 328, czyli że funkcja nie jest dostępna dla software'owego uartu. Jakie jest zatem...
Dim Rs As String * 2 Dim Rs1 As String * 1 Do Rs = Waitkey() Rs1 = Waitkey() Rs = Rs + Rs1 Select Case A Case "01": Set Portb.1 Set Portb.3 Case "11": Reset Portb.1 Reset Portb.3 End Select Loop End Dodano po 48 tak na szybko
Wszytko jest w Help Bascom'a, chyba nie ma sensu tego wklejać, skoro są tam gotowe przykłady. Zaglądnij do Index i tam znajdziesz polecenia WAITKEY, ISCHARWAITING, OPEN W kwestii modułów jakie posiadasz, nie korzystasz z RS232 tylko jak słusznie zauważyłeś z Pulse. Czyli na dowolny pin podajesz H lub L w określonym czasie i długości. Po drugiej stornie...
(at)grala1Ten Twój kod jest trochę za prosty i z czasem zgubi synchro niemniej jak wrzucisz ten poprawiony na symulator, albo nawet uruchomisz na żywca z tym co Tobie tam nadaje to na chwile powinien podziałać ;) Lepiej byś odbierał znaki w przerwaniu do bufora. Procesor na nic by nie czekał i miał czas na inne sprawy. Do tego synchro, jakis timeout...
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...
A czy sprawdzasz sygnały CR i LF? Bo moim zdaniem wysyłasz Poleceniem Print 203 takie dane: 50, 48, 51, 13, 10 - stąd to 10 na wyświetlaczu! ('2', '0', '3', CR, LF) Zresztą już ktoś to pisał... Spróbuj: $regfile = "m8def.dat" $crystal = 11059200 $baud - 9600 Config Lcd = 16 * 2 Config Lcdpin = ... ' konfiguracja podłączenia lcd Dim I as byte,...
Zrób na Printbin. Print dodaje znak końca linii nie mówiąc już o tym że nadaje textowo. Waitkey chyba też odbiera textowo, ale nie jestem do końca pewny. Nawet to co pisze w Helpie mnie nie przekonuje. Zrób tak: Dim A As Byte Do A = InputBin Printbin A Loop
[syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 Dim Znak As String * 1 Do Znak = Waitkey() Loop Until Znak = "s" Print "ID = 123456789" Print "start testu" [/syntax] Kawałek programu który działa. Urządzenie podłączone pod RSa (w tym przypadku nawet przez tanią przejściówkę na USB) - czeka, aż program komputerowy wyśle znak "s"...
Ja robiłem to z wykorzystaniem sms, kod jest oszczędny ale działał podczas zabawy z modułem GSM. O całym kodzie zapomnij. $crystal = 11059200 $baud = 115200 '... Poczatek: Do Loop Until Inkey() = "+" 'sprawdza nagłówek wiadomości Do Loop Until Inkey() = "C" 'sprawdza nagłówek wiadomości Do Loop Until Inkey()...
Innym sposobem emulowania klawiatury w bascom jest biblioteka "at_emulator.lbx" (zdaje się płatna). MCU z tą biblioteką emuluje na dowolnych pinach standard PS2. Wystarczy wtedy konwerter PS2 -> USB. (kosztuje grosze). '---------------------------------------... ' PS2_KBDEMUL.BAS ' (c) 2002-2003 MCS Electronics...
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 przykład dotyczy SPRZĘTOWEGO układu UART! 'Program zapisany jako OPEN.BAS zawiera przykład użycia INKEY()...
Nigdy nie próbowałem symulacji sprzętowej, bo nie bardzo widzę sens. Ja składam na płytce to, co buduję, pakuję program i patrzę, co wyszło. Biorąc pod uwagę to, że aż tak ci zależy postanowiłem sprawdzić jak to wygląda u mnie. No i wygląda bardzo dobrze, czyli wszystko działa. Nie wiem, co ci podpowiedzieć, skoro prawie wszystkiego próbowałeś. Ale...
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 = 19200 $hwstack = 32 ' default use 32 for the hardware stack...
Zrób prosty test - wgraj taki program i powiedz co się dzieje [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 16000000 $baud = 9600 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 Config Serialin = Buffered , Size = 20 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits...
Witam wszystkich. Mam następujące pytanie: Połączyłem dwa uP 89C2051 i 89C4051 następująco TxD jednego z RxD drugiego. Właczam Bascoma 8051 2.0.11.0 jednego programuje żeby wysyłał drugiego odbierał. Używałem różnych poleceń print , printbin, printhex; a do odbioru inkey, waitkey,inputbin. Żadnych efektów. Owszem kiedy wysyłam np.100 na LCD wyświelją...
$regfile = "m128def.dat" $crystal = 16000000 $baud1 = 38400 Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Dim Znak As String * 5 Open "com2:" For Binary As #2 Print #2 , "start" Wait 1 Pg: Input #2 , Znak Waitms 500 Print #2 , "Odebrano znak : " ;...
xury -> to fakt, że ostatnio już w Bascomie praktycznie nie programuję ;) ale proszę oto fragment helpa Bascomicznego z dokładnym opisem tego polecenia oraz jak i kiedy można z niego korzystać. Więc nie wiem albo może czegoś nie zrozumiałem z tego co napisałeś - że ponoć tego nie możesz znaleźć czy że nie ma $TIMEOUT Top Previous Next Action Enable...
MAma taki temat dotyczący Modbusa w Bascom. Dzięki koledze BART-projects uruchomiłem sczytywanie danych z miernika parametrów sieci. Do czytania wielu parametrów użyłem Timera, który co ok 0,5 sekundy sczytuje dane i wyświetla je na wyświetlaczu i ok. Jednak jak chce się czytać dane dla 3 faz - 12 parametrów jednocześnie to zabiera trochę czasu. Sam...
Witam. Jestem początkujący jeżeli chodzi o mikrokontrolery. Chciałbym prosić kogoś bardziej doświadczonego o sprawdzenie poprawności mojego programu. Działanie: Sterowanie 3 silnikami BLDC i 1 serwo za pomocą PWM. uC otrzymuje przez UART literę oznaczającą funkcję, następnie ma ją zrealizować. Silniki podłączone będą przez regulatory modelarskie, a...
Spróbuj z tym programem: $regfile = "m32def.dat" $crystal = 8000000 $baud = 9600 Dim I As Byte Dim Znak As String * 1 Do Input "podaj wartosc I:" , I Print "wartosc I wynosi:" ; I If I = 1 Then Do Znak = Waitkey() Print "odebrano znak:" ; Znak Loop Until Znak = "k" End If If I = 2...
probowalem tak i tak ,i nic nie daje ;) na szybko sklecilem pod atmege program w bascomie... $crystal = 8000000 $baud = 9600 Config Serialin = Buffered , Size = 100 Config Lcd = 16 * 2 'LCD Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portd.7 , Db7 = Porta.7 , E = Portc.3 , Rs = Portc.2 Dim Znak As String * 1 Waitms 100 Print "AT"...
Ja sie podepnę, bo też się zacząłem bawić w bascomie AVR i "wyskrobałem" takie coś: $regfile = "attiny2313.dat" $crystal = 8000000 $baud = 19200 Const Maxlen = 40 'Deklaracje stalych Dim Akey As Byte 'Deklaracje zminnych Dim I As Byte Dim Buffer As String * Maxlen Dim E As Eram String * Maxlen I = 0 Declare Sub Store 'Deklaracje funkcji Declare...
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()...
Witam przesył jednej zmiennej jest prosty : Nadajnik [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 Dim B As Byte B = 248 Do Printbin B Wait 2 Loop End[/syntax] Odniornik [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 Dim B As Byte Cls Do B = Waitkey() Lcd B 'wyświetl wartość B Waitms 500 Cls 'wyczyść...
BlueDraco - owszem, łatwiej jeden uC. Ale jako że siedzę w avrach i bascomie, to raczej nie mam zamiaru wyrzucać kolejnych pieniędzy, płytek które wytrawiłem i zlutowałem po to żeby babrać się w inną rodzinę procesorów. Poza tym zanim nauczyłbym się nowego języka i nowych uC minęło by sporo czasu, który raczej muszę przełożyć na inne cele (matura +...
Mam taki jeden dziewiczy nigdy nie używany, kiedyś kupiony na zapas. Podłączyłem go do przejściówki USB. Przed włączeniem zasilania modułu podłączyłem wejście "KEY" do 5V Musisz uważać - mój moduł ma już w sobie układy dopasowujące i działa z TX RX 5V - nie wiem jak Twój. Kiedy podczas podłaczania zasilania masz KEY w stanie wysokim to prędkość komunikacji...
Nie bardzo te zmiany pomogły... Może coś źle napisałem w tym drugim procesorze atmedze 16 ? Do niego wgrałem program napisany w bascomie: $regfile = "m16def.dat" $crystal = 16000000 $baud = 9600 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , Rs = Porta.2 , E = Porta.3 Dim Num As Byte...
a mi sie udalo oszukać :) ale działa to tylko atmega - atmega z GPS tego numeru sie nie wykręci a szkoda ;) Open "comc.5:4800,8,n,1" For Input As #1 Open "comc.4:4800,8,n,1" For Output As #2 Do K6 = Waitkey(#1) ' odczyt bajtu Print #2 , "" ' reset If K6 = 13 Then Exit Do K3 = K3 + Chr(k6) Lcd K6...
Trochę namotałem i nadal nie działa tak jak powinno, D2 miga podczas otrzymywania obojętnie jakiej komendy, a powinna migać tylko podczas komendy 1. Nadawanie: Print Komenda ; "," ; Moc Odbiór: Bufor = Waitkey() Znak = Instr(bufor , Szukana) Znak = Znak + 1 Skomenda = Left(bufor , 1) Ssmoc = Mid(bufor , Znak , 1)...
Witam napisałem programik w bascomie który wysyła po uarcie do drugiej atmegi8 temperature moje pytanie brzmi : 1 atmega wysyła mi temperature np.260 a druga odbiera mi to w pojedynczych bajtach czyli 2 6 0 jak to połączyć razem? abym mógł podzielić 260 przez 10 Nadajnik: $regfile = "m8def.dat" 'Amega8 $crystal = 7200000 'kwarc $baud = 1200 'predkosc...
Procek wysyła do modemu dokładnie to co mu nakazałeś, a echo zwraca Ci to co wysłałeś do modemu.Procek może wysłać każdy znak(liczbę 0-255) przez łącze szeregowe tylko trzeba odpowiednio sformatować polecenie "Print" lub użyć innej funkcji np."Output".Przyjmować znaki można, za pomocą "Inkey(#channel)" lub "WAITKEY(#channel)" najważniejsze to wiedzieć...
Witam, chcialem przeprowadzić transmisje szeregową miedzy dwoma mikrokontrolerami. Na poczatek jeeden mial wysylac do drugiego liczbe a tamten mial ją wyświetlac na wyświetlaczu alfanumerycznym. Gdy odłacze linie wchodzaca do mikrokontrolera który ma sterować wyświetlaniem, wyświetlacz nic nie wyświetla ( i to jest OK) ale gdy podłacze go do linie TXd...
Panowie podłączę się ponieważ ja też mam problem:( Łączę się z Atmegą za pomocą FTDI, który działa poprawnie. Po połączeniu TX i RX dokładnie to co wysyła to odbiera. Ale ten krótki kod nie chce działać:( krzaczy i krzaczy. Kod: $regfile = "m16def.dat" $crystal = 7372800 $baud = 9600 Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits...
Dzięki, śmiga programik - kluczowanie PWM z częstotliwością ~31kHz a wyjście jest na pinie 14, jakby ktoś chciał wiedzieć: $regfile = "attiny2313.dat" $crystal = 8000000 $baud = 19200 Const Maxlen = 40 'Deklaracje stalych Dim Akey As Byte 'Deklaracje zmiennych Dim I As Byte Dim Cmd As String * 4 Dim Buffer As String * Maxlen Dim E As Eram...
Witam serdecznie Od kilku dni zastanawiam i szukam informacji czy mikro kontroler w języku bascom jest wstanie odebrać z magistrali ramkę/dane z informacją np: o wciśniętym przycisku Vol+... i wyświetleniu je na własnym LCD ? Taki mały analizator I-bus. Wiem jak wygląda ramka np: http://obrazki.elektroda.pl/7557137100_1... http://obrazki.elektroda.pl/1540265900_1...
Witam, borykam się z następującym problemem : Chcę podłączyć do mikrokontrolera atmega16 układ/konwerter transmisji szeregowej na 1-wire : DS2480B. Zapoznałem się z notą katalogową i wykonałem połączenie UART DIRECT, bez pamięci EPROM (tylko 5v). schemat : http://obrazki.elektroda.pl/8405109000_1... Linie TxD oraz RxD z mikrokontrolera...
No tak przy bascomie i jego softwarowym UART-cie tak można. Skoro masz kody wysyłania danych to nie wiem w czym problem możesz na przykład odczytać stan portuB attiny i wysłać go dalej gdzie wykonasz logicznego EX-OR-a na porcie wraz z otrzymanymi danymi ale to daje Ci tylko 8 przekaźników wypadało by więc dodać kolejny bajt z danymi tutaj wszystko...
Wykożystam okazję i dołączę się do wątku gdyż mam podobny problem. Ja wykożystuje AT89C2051, MAX232 (schemat aplikacyjny, podstawowy z dokumentacji) i kabelkiem do COMa. Od tygodnia z tym walcze i nic. Transmisje dla odmiany mam ale jaką. Jak klikam '=' na terminalu PC to na wyświetlaczu LCD dowiaduje się że procek otrzymał 'a', dla wysłanego 'a' dostaje...
Tu masz przykład odbierania tekstu po RS-232 w Bascomie: [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 8000000 $baud = 19200 Const Maxlen = 40 'Deklaracje stalych Dim Akey As Byte 'Deklaracje zmiennych Dim I As Byte Dim Pwm As Integer Dim Cmd As String * 4 Dim Buffer As String * Maxlen Dim E As Eram String * Maxlen I = 0 Config Pinb.2 = Output...
Witam wszytkich, Od kilku dni próbuję się nauczyć obsługi modbus rtu w bascomie i na podstawowym programie z helpa się wyłożyłem. Poradźcie dlaczego wpisując mój procesor w poniższy kod wywala mi błędy? Czy ta biblioteka jest tylko pod dany procesor? Proszę podpowiedzcie. https://obrazki.elektroda.pl/7527367800_... [syntax=vbnet]'-------------------------...
Witam. Zamiast input spróbuj użyć inkey lub waitkey, i zajrzyj do helpa. pozdrawiam.
Witam Program kod1. Wysypuje się po przesłaniu kilkuset ekranów domyślam się że chodzi o przepełnienie stosu ilość przesłanych ekranów uzależnione jest od zadeklarowanej ilości pamięci. Jeżeli zamiast wywoływania podprogramu Czytaj_port wpiszę go z ręki kod2 wszystko działa perfekcyjnie mam zatem pytanie co robię nie tak czy BASCOM nie może samodzielnie...
Dzięki za zainteresowanie tematem, zrobiłem tak jak pisał kolega Witgol: ad1. lepiej skonfigurowałem wyjscia na procesorze http://obrazki.elektroda.pl/3764001300_1... Pozdrawiam
Witam Na wstępie się przywitam - na imię mam Piotr, jestem sobą początkującą w kwestii programowanie mikrokontrolerów AVR - przez ostatni rok "bawiłem" się w różne układy na m32 - pisząc soft w bascomie. Przesiadłem się kilka dni temu na procesor m1280 - i tu mam kilka problemów, których źródła nie potrafię zdiagnozować. Przede wszystkim - po wgraniu...
Witam, a możecie pisać trochę jaśniej? Ja dopiero zaczynam nie nie wszystko rozumiem. Dlaczego jak w HyperTerminalu wybiorę opcję Wyślij plik tekstowy , to nie wysyła całości (czyli test zapisu pamieci eeprom prze rs232) tylko pierwsze 3 znaki, a 4 jakiś dziwny? http://obrazki.elektroda.net/78_12519209... $regfile = "m32def.dat" $crystal...
Sprawdziłem problem kolizji i też nie działa jak ma działać. Otóż sytuacja ma się dokładnie tak: Jeśli nadaje jakikolwiek znak do slave-ów to reagują na znak tak jak chce. Podam kod którym realizuje to co pisze: (dodam, że pisze w Bascomie) Kod centralki: ... Do print "q"; wait 1 loop ... kod slave-ów : ... Dim A as Byte Do A = Waitkey()...
Witam, jest program który ma za zadanie komunikować uC z PC. Wszystko poprawnie działa o ile procesor jest podłączony do programatora, a dokładnie podłączony jest kabel SCK. Dlaczego nie chce program działać po odłączeniu programatora? Programator zgodny z stk 500v2. Program: $regfile = "m32def.dat" $crystal = 11059200 $baud = 9600 $hwstack...
Próbuję zrozumieć kod samplowy: [syntax=basic4gl]$crystal = 8000000 $baud = 4800 $regfile = "m644def.dat" Const Loaderchip = 644 #if Loaderchip = 644 ' Mega644P $loader = $7c00 ' 1024 words Const Maxwordbit = 7 'Z7 is maximum bit ' Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 #endif Const Maxword =(2...
Witam, Mam mały problem z uzyskaniem danych z ramek odebranych po RS , chcę zrobić to za pomocą string ... ale zachowaniem struktury ramek, które wyglądają tak ramka 1: [syntax=vbnet] +CMTI: "SM",23 [/syntax] ramka 2 [syntax=vbnet] +CMGR: "REC READ", "+48123456789 ", " ", "17/03/25,17:04:26+04" STATUS [/syntax] napisałem mały program do wysyłania to...
Pracuje nad mikroprocesorową aplikacją odczytująca karty systemu RFID Unique. Poniżej kod i filmik przedstawiający efekty mojej pracy. Do budowy wykorzystałem moduł czytnika RFID za 35zł z allegro, procesor atmega8 pracujący z kwarcem 8MHz. Mój problem polega na tym, że jak dodamy po Reset Portc.5 a przed Loop polecenie Wait 1 czy np. Waitms 1000 program...
hm, no mam nadzieję, że jednak ktoś mnie jeszcze wesprze i nie będę polemizował sam ze sobą .... ;) kontynuując (w bascom AVR z Atmegą8515) Mam 4 linie pochodzące z myszy: 1-GND 2-Vcc 3-Clock 4-Data Ok. Po podłączeniu zasilania widzę, że mysz świeci. Robię śmieszny zabieg i podłączam CLOCK myszy i Data myszy zarówno do uP i do PC, tak żeby być pewnym...
http://obrazki.elektroda.pl/7847946300_1... Witam szanownych kolegów,jest to mój pierwszy diy więc proszę wyrozumiałość:) Na wstępie chciałbym przeprosić za jakość filmu(kamera w telefonie). Ogólnie mówiąc jest aplikacja flash która steruje oświetleniem choinki,a raczej eksperyment i chęć sprawdzenia czy sie uda :) Jak to działa? Część...
Witam, połączyłem procesor atmega8 z atmega16 za pomocą sprzetowe go interfacu UART, bezposrednio nogi PD1 i PD0 odpowiednio zamieniajac koncowki RX do TX i TX do RX Dlugosc kabla 20 cm. Procesory zasilane sa z odzielnych stabilizatorow(5V +- 5%) ale mają wspólną masę. Oba pracują z zewnetrznym kwarcem 16Mhz, maja poprawnie ustawione Fusy. problem polega...
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 following internal variables will be generated...
Witam Planuje wykonać urządzenie - "sterownik" urządzeń. Składał się będzie z dwóch elementów: - programu na PC napisanego w Delphi 7 - sterownika, którego "mózgiem" będzie atmega8. Uwzględniając to, że nie będę mógł programować układu "setki razy" poprawiając błedy popełnione w programach, chcę zbudować układ, zaprogramować i uruchomić. Ze schematem...
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 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 jednej z 4 przygotowanych szybkości transmisji: 921600,...
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. '---------------------------------------... ' (c)...
Witam Na początku zaznaczę ze jestem początkujący i jest to mój pierwszy projekt i nie proszę o podanie mi odpowiedzi na tacy tylko ukierunkowanie na odpowiednie rozwiązanie...to tyle na wstępie:) Projekt: Status unit - służy do przesyłania informacji o stanie wejść mikrokontrolera-nadajnika do odbiornika i wyświetlaniu informacji na lcd wszystko opiera...
Witajcie, dziś postanowiłem się podzielić dorobkiem w postaci oprogramowania i wiedzy na temat pewnego modułu GPS. Zegar softowy synchronizowany GPS z dodatkowym wyświetlaniem współrzędnych i prędkości no i dorzuciłem w ostatniej chwili temperaturę z DS18B20 - taki szkoleniowy programik w BASCOM (świetny przykład - gotowiec dla tych którzy chcą zrobić...
Witam! Dziś walczę z komunikacją rs232. Posiadam dwie Atmegi jedna 32, druga 16 - odbiornik. W nadajniku nadaję string 001100.110011.001100.110011.001100.11001... przez Do Print "001100" Waitms 500 Print "110011" Waitms 500 loop Odbieram to: a) przez komputer - transmisja idealna 001100.110011.001100.110011.001100.11001...
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...
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,...
Siema. Otóż mam taki problem, podczas gdy kod ładowania i zerowania data DACx działa, np DACB1 = 0 waitus 500 DACB1 = 4095 (full zakresu) waitus 500 daje jakieś 2Khz pisku w słuchawkach co jest oznaką działania , to gdy ładuję próbki muzyki wav z karty na zasadzie DACxx = pwm nic się nie dzieje. Tu całt kod xmega: [syntax=basic4gl] '=======================================...
zgodnie z pomoca do bascoma w atmegach8 nie trzeba konfigurowac uart bo jest automatyczne konfigurowany po uzyciu print/input/inkey/waitkey itp
Witam. Pisze (staram sie) napisac programik na zaliczenie w asemblerze, ma to byc gra "Omijanie kamieni" z wykorzystaniem wyswietlacza LCD DSM-51. Czy istnieje jakas procedura typu WAIT_KEY, ktora czeka na klawiasz okreslony czas (jezeli klawisz nie zostanie wcisniety przechodzi do nastepnej lini kodu)?
Możesz INPUT a możesz też na kilka innych sposobów. Zależy jakie dane chcesz przesyłać i co później z nimi robić. Jeżeli będziesz używał INPUT to musisz zakończyć to Enterem. Proponuję poczytać pomoc do Bascoma (Inkey(), Config Serialin, Waitkey()).
Witam, czy możliwe jest rozstrojenie odbiornika i nadajnika (a raczej uszkodzenie odbiornika) przez podanie napięcia o 0.1 V wyższego od MAX w dokumentacji? Nabyłem moduły radiowe HM-R868S oraz HM-T868S na 868 MHz, podłączyłem oba do dwóch procków Mega8 i przez UART nadaje i odbieram ciągle literkę "a" natomiast 2gą atmegą8 jedną nóżką UARTa podłączoną...
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...
michcior - wiem, a w dodatku ta zmienna jest używana tylko i wyłacznie w głównej pętli w main michalko12 - oto kod: problem jest ze zmienną nrflag [syntax=c]#ifndef F_CPU #define F_CPU 11059200 #endif #define F_STD 400 //standardowa czest #define C_OSC_STD_LEV 40 //std poziom gen x0.1dBu #define UART_BAUD 4800 #define __UBRR F_CPU/16/UART_BAUD-1 #define...
Witam. Proszę o podpowiedź jak najprościej odebrać i okiełznać ramkę danych po uarcie. Ramka ma stałą długość 32 bajtów, niestety nie występuje w niej znak końca linii, nie ma CR i nie ma LF. Doczytuję sobie tą ramkę tak: [syntax=vbnet] Do Loop Until Waitkey() = Chr(66) Do Loop Until Waitkey() = Chr(77) Inputbin A1 , A2 , A3 , A4 , A5 , A6 , A7 , A8...
Witam. Mam problem z protokołem MODBUS RTU na ATMega644, który błędnie interpretuje mi ramki. Kod w BASCOM wygląda następująco: a właściwie nie komunikuje się) się z urządzeniem zewnętrznym przy pomocy MODBUS'a. Chciałbym to zrobić wykorzystując MODBUS RTU (teoretycznie zostaje mi jeszcze ASCII),a do zestawu mam podpięty jeszcze skaner nasłuchujący...
Witam! mam problem z programem bascom, nigdy wcześniej nie programowałem muszę zrobić program który po naciśnięciu SPACJI zacznie odliczać czas 10 sekund, w ciągu tych dziesięciu sekund muszę naciskać jakiś klawisz na klawiaturze UART a program po zakończeniu odliczania, ma wyświetlić ilość wciśniętych klawiszy Zrobiłem coś takiego ale to chyba idzie...
witam zmontowałem układ irda składający się z mcp2150, tfdu4100 i atmega128. układ ten nawiązuje połączenie z irdą podpiętą do usb w kompie i jest wykrywany jako modem widoczny pod com17. włączam putty na com17 i widzę, że dane wysyłane przez atmegę się wyświetlają ale za to nie mogę wysłać danych w drugą stronę. irda podpięta jest pod com2 up, pod...
bascom projekt bascom bascom bascom enkodera bascom bascom enkoder
tk102 bateria światła dzienny przetwornica maszynka golenia
przyłącze napowietrzne ewm2100 blokada
Mastercook – demontaż klapy kuchenki, zawiasy, modele KG, soft-close, instrukcja krok po kroku Saab 9-5 2011 – aktualizacja nawigacji Navi 900/600, mapy Opel 2021, firmware E800