Cześć. Proszę ten poradnik będzie dla Ciebie pomocny. Czy to już tablica? Gdzie ją umieścić? Tak, to jest tablica. Kompilator sam załatwi sprawę. [syntax=vbnet]$regfile = "m48def.dat" $crystal = 4000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Dim B1 As Byte , I As Integer B1 = Lookup(2 , Dta) Print B1 I = Lookup(0 , Dta2) Print I End...
Źle przekazujesz Id do funkcji, mały przykład do uruchomienia w symulatorze: [syntax=basic4gl]$regfile = "m88pdef.dat" $crystal = 20000000 $baud = 19200 $hwstack = 64 $swstack = 64 $framesize = 64 Dim Tablica(4) As Byte , Tekst As String * 12 Declare Function Test_funkcji(byref Osa As Byte) As String * 6 Tablica(1) = 10 Tablica(2) = 20 Tablica(3) =...
print command i print chr(chsum) albo print chr(&H7E) działa ok, tylko właśnie przez to zauważyłem, że to jednak nie będzie spełniać moich oczekiwań, bo print command, czyta command, aż do znalezienia null. Ja jednak potrzebuje przesłać null ( a nawet kilka ). Jest na to jakiś sposób? Coś podobnego do inicjalizacji tablicy w C++: int tablica[]...
Witam. Mam tablicę stringów Może nieco jaśniej... Jeżeli masz zwymiarowaną tablicę tak jak w przykładzie, (Array) to ta liczba w nawiasie jest tym indexem którym wskazujesz na szukaną pozycje. Odnosi sę to zarówno do tablic z wartościami numerycznymi jak i string. Nie musisz odczytywac kolejnych po sobie zawartości. Pozycje w takiej tabeli zaczynają...
Skąd wiesz, że w zmiennych i EEPROM nic nie ma jeśli nie skompilowałeś programu? (Program się nie kompiluje bo brak deklaracji kz.) Wprowadzasz coś do bufora z zewnątrz? Z czym się komunikujesz i czy połączenie jest odpowiednio zestawione? (parzystość, stop, rodzaj danych) Po doprowadzeniu programu do ładu w symulatorze działa. Uruchom poniższy zmodyfikowany...
A faktycznie niedopatrzyłem bo to wycięty fragment. Proszę więc. Kod jest po to by pokazać jak pomysł otrzymany na Forum można zamienić na coś działającego :P Nie ma wskazywać idealnego rozwiązania, a jedynie to co miałem na myśli a mam ich więcej bo pełno różnych projektów na głowie. Zmieniłem Sub w Funkcję. Nagram chyba kiedyś o tym jakiś film żeby...
Niektóre radiolinie mają wbudowane kodowanie transmisji, ale większość z nich nie. W Bascomie można kodować dane za pomocą Xtea, ale zobacz, co się dzieje, gdy wysyłasz te same dane. Zakodowany ciąg Hexstring zawsze wygląda tak samo. Jeśli więc ktoś nagra twoją transmisję, to gdy zostanie ona odtworzona, urządzenie zareaguje tak samo. https://obrazki.elektroda.pl/7576017000_...
nie testowałem tego tylko pisze z głowy. Ale skoro X to STRING to nie można go porównywać z pojedynczym znakiem bo STRING to tablica znaków. Porównanie musiałoby wyglądać na przykład: if X Kiedy tak sobie czytam podobne dywagacje na temat Bascoma , to zaraz widzę taką sytuację: Bascom , to skomplikowana , sterowana numerycznie obrabiarka. "Statystyczny"...
Inne napisy umieściłem w eeprom, zyskałem jakieś 400 bajtów miejsca. Z nazwami procków kombinowałem już na wszystkie sposoby, no i niestety nie zrobiłem tego... każdy jeden wpis "Print "napis"" kosztuje mnie 18 bajtów (w tym 9 bajtów sam napis), gdy np chcę przepisywać napisy do zmiennej string i na końcu wyświetlać - wychodzi po 20 bajtów na każdy...
Zamiast używać wielu zmiennych w stylu zmienna_byte, zmienna_byte2, zmienna_byte3 załóż tablicę np. zmienna_byte(300) i wówczas na podstawie zinterpretowanego znaku wysyłasz zawartość odpowiedniego pola tablicy. No dobra, tryb tablicowy ma swoje plusy (jeśli chodzi o zapis chociażby i odwoływanie się do zmiennych). Jednak nie do końca o to chodzi....
Napisz tak : Print {013} ; "xon" ; {013} ; Chyba, że Twojemu urządzeniu przeszkadza zero które wystepuje na końcu stringa wtedy musisz tak: [syntax=vbnet] Dim Mystring As String * 5 Dim Mybuff(5) As Byte At Mystring Overlay Mystring = "{013}xon{013}" Printbin Mybuff(1) 'to wyśle całą tablicę pięciu znaków bez kończącego zera[/syntax]
Otóż pisząc program obsługi tablicy reklamowej (na Atmega32 )zupełnie przypadkiem stwierdziłem, że na zmienną typu string np 10 znakową można zapisać np 20 znaków instrukcją Restore i Read. Co więcej to działa w normalnym programie tak jakby ta zmienna miała faktycznie 20 znaków ! Oto przykład sprawdzony na symulatorze: Dim Tekst As String * 10 Dim...
Druga kwestia, to zapis do pamięci 24c04 liczby zmiennoprzecinkowej, hmm. nie robiłem nigdy tego, nie bardzo wiedziałem jak to ugryźć. Sprawa jest generalnie prosta. Liczba typu single zajmuje cztery bajty, wystarczy więc ją rozbić na pojedyncze bajty i zapisać każdy z osobna. Przy odczycie robisz dokładnie odwrotnie. Powiesz pewnie "no dobra, ale...
atom1477 napisał: No właśnie. A BASCOMowi są one obce I właśnie z tego powodu sam optymalizuje sobie kod programu. Wiem, gdzie, co i jak. jacynka84 , zamiast : Wciąż nie wiem jak działa bascom...;] Jeśli nadal Będziesz bazował na Bitwait itp. to w dalszym ciągu się nie dowiesz jak działa. I ja się bałem zapisywać bezpośrednio do rejestrów (adresów)...
Dzięki za podpowiedz. Już to sprawdzam. Edit: Jak podałeś w stringu były dane LF na początku odczytanego stringa i dlatego był problem z tłumaczeniem zmiennej. Dzięki za naprowadzenie! Jeszcze wątku nie zamykam, gdyż mogę jeszcze trafić na problem i w razie czego szkoda zakładać nowy wątek. Pozdrawiam Edit2: Niestety powracam z problemem :( Program...
Witam Jestem w trakcie zgrywania ze sobą kilku uc po rs-485, wszystko szło pięknie, dane szły po lini do celu bez problemów, ale... kiedy przyszło mi wysłać pustą ramkę zaczęły sie problemy. Może najpierw program: [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 16000000 $baud = 250000 $hwstack = 32 $swstack = 32 $framesize = 32 Config Print0 = Portd.2...
zacznij od tego kodu $regfile = "m8def.dat" $crystal = 8000000 Open "comd.3:4800,8,n,1" For Input As #2 Open "comd.2:4800,8,n,1" For Output As #1 Dim Poz As String * 32 Dim Poz1 As String * 20 Dim Poz2 As String * 20 Dim Poz3 As String * 32 Dim Pozv1 As String * 2 Dim Pozv2 As String * 7 Dim Pozv3 As String * 7...
eee tam. mi w bascomie 8051 nie chce działać przerwanie więc tobie pewnie też nie zechce. Co do wysyłania to ja bym to zrobił tak: print ">"; printhex zmienna_a; print "," printhex zmienna_b; print "<" lub: printhex ">";zmienna_a;","... spowoduje to wysłanie do portu czegoś...
Wykombinowałem coś takiego :), przykład można uruchomić w symulatorze (dane wejściowe np. porta.1): EDIT: poprawiłem mały błąd w przykładzie, bity można nawet kopiować jeżeli port źródłowy i docelowy jest ten sam [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 16000000 $hwstack = 64 $swstack = 64 $framesize = 64 $baud = 57600 Dim Src_port_str As...
Witam! Proszę o pomoc bo już po całym dniu zbaraniałem. Chciałem zrobić sobie zegarek na dość nietypowej kości i opanowanie jej się powiodło. Chiałem dorobić sterowanie zegarkiem z pilota i do tego jeszcze termometr ale to później. Płytka z zegarkiem generuje co sekundę impuls na wyjściu i Atmega odczytując ten impuls na INT1 ma w przerwaniu odczytać...
Tzn. mam tablicę 24 bajty ( na razie do testów). I teraz podaje adres początkowy z tablicy, od którego zaczyna się ID układu DS18B20. Podprogram ma załadować ID, odczytać, sprawdzić CRC i w odpowiedzi podać mi LSB, MSB, status czujnika, histereze ( poprzednią muszę mu jakoś podać ) i wynik w postaci zmiennej typu string. Wzorowałem się na czymś takim:...
Witam! Mam problem z kodem w bascom do obsługi DS1820 oraz wysłaniem wyniku przez uart. Problem wygląda następująco - gdy działa obsługa DS1820 uart nie nadaje sygnału. Gdy wyłączę obsługę 1-wire uart działa. $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.3 , Db6 = Portd.2 ,...
Przedstawiam tylko istotne części programu związane z transmisją danych Na początek Atmega 16 obsługuje klawiaturę, Wyświetlacz LCD i komunikację GSM i inne drobiazgi oraz RS232 z Atmegą 8 Dodano po 10 A tak przy okazji takie pytanie czym różni się transmisja po RS232 dla: A=1 Print A oraz Print "1" Wg ASCII < 1 > ma kod 49 i chyba w jednym i...
$regfile = "m8def.dat" $crystal = 16000000 $baud = 57600 $framesize = 32 $hwstack = 32 $swstack = 32 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Debounce = 30 'Długość naciśnięcia przycisków Config Timer0 = Timer , Prescale = 256 On Timer0 Odmierz_1s...
To, od czego według Was powinienem rozpocząć żeby zacząć raczkować. Wspomniany kod $regfile = "m32def.dat" $crystal = 16000000 $baud = 9600 Config Lcdpin = Pin , Rs = Portc.7 , E = Portc.6 , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 Config Lcd = 16 * 2 Config 1wire = Portd.7 Dim Dsid1(8) As Byte Dim Dsid2(8)...
Dzisiaj troszkę posiedziałem nad tymi stosami, zapoznałem się nieco z tym opracowaniem. Próbowałem również rozgryźć tabelkę "SRAM" w symulatorze bascom. Z opracowania i zachowania symulatora wydedukowałem że obszar w sram na $hwstack jest na najwyższych dostępnych adresach pamięci sram i zwiększa się on do dołu(niższych adresów), więc na początku metodą...
http://obrazki.elektroda.pl/3089511800_1... Witam, dziś prezentuje swój bezprzewodowy termometr pracujący na częstotliwości 433 MHz. Urządzenie składa się z nadajnika i odbiornika. Nadajnik odczytuje temperaturę pieca C.O. i wysyła ją do odbiornika. W odbiorniku mamy możliwość ustalenia górnego i dolnego progu załączenia alarmu, który...
Oj kolego, poważny błąd - zasilaj prawidłowo mikrokontroler: http://mikrokontrolery.blogspot.com/2011... Dzięki za upomnienie, faktycznie gdzieś to przeoczyłem, na schemacie ideowym nawet masa wisi :) Poniżej zamieszczam poprawiony schemat ideowy i płytkę w EAGLE. Widząc duże zainteresowanie kodem wrzucam wsad w BASCOM....
Teraz przykład prosty, też uniwersalny niema znaczenia ilość zmiennych i ich długość, ale do ESP musisz wysłać same zmienne przedzielone spacją, według wzoru" Bascom: Kod: vbnet Próbuję zrobić tym sposobem i klapa... Jeżeli poślę z AVR siedem zmiennych to jest OK, ale jeżeli będzie ich więcej to już nic z tego ;( ESP w konsoli się drze: [syntax=bash]...
Witam, Piszę na Atmedze odczyt danych z BMP085 i dodatkowo zapis danych na kartę SD. Wszystko wydaje się działać poprawnie, a jednak coś jest nie tak. Do obsługi BMP085 wykorzystałem kod z tego tematu: http://www.elektroda.pl/rtvforum/topic18... Oto wykres z odebranych danych, czas pomiaru to około 10min http://obrazki.elektroda.pl/4498963800_1...
Witam Mam program, który, po dokonaniu pomiarów, wysyła dane przez RFM12 i zapisuje na karcie SD. Chcę dołożyć wysyłanie danych do Domoticz po każdym pomiarze. Problem w tym, że po dopisaniu obsługi ESP8266 i Domoticz ( zmienne miałem już wcześniej zadeklarowane ) to pojawiają się błędy w zapisie na karcie SD. No i wysyłanie do Domoticz przestaje działać,...
Witam! Mam taki malutki problem. Chciałem stworzyć sobie taki serwer www (kod programu ściągnięty z archiwów AVT) który pokazywał by mi przez internet temperaturę w jakimś oddalonym pomieszczeniu w innym budynku np. Do budowy tego wykorzystałem AVT-956 tj. internetowy sterownik I/O. Akurat go posiadam ponieważ robiłem nim ćwiczenia na pracowni informatycznej....
bascom tablica string tablica string bascom print tablica
naprawa sterownika silnika siemens drukarka brother brudzić kartka tigra drzwi
zgrzewarka analogowa wymiana sterownika citroen
Shelly 1 Plus – podłączenie do elektrozamka furtki, konfiguracja, schematy, bezpieczeństwo Schemat monitora IBM 5151 Hercules, Amdek 310A, Princeton PT-12 – poszukiwanie dokumentacji CRT TTL
