Tłumaczenie pierwszego kodu. W drugim to wiadomo, że brak biblioteki ;) Mogłem się gdzieś machnąć bo pisałem w przerwie pomiędzy innymi zadaniami. Dodałem tam sobie funkcję b w funkcjach mogę deklarować Local`s które nie są później potrzebne w Global`s. [syntax=vbnet]$regfile = "m2560def.dat" '8K SRAM | 4K EEPROM $crystal = 16000000 $hwstack = 256 $swstack...
Możesz podać gdzie przeczytałeś że ta liczba po przecinku oznacza liczbę wysłanych bajtów? Help nic nie mówi na ten temat. Sprawdzałem w symulatorze że ta liczba nic nie zmienia. Jest taka informacja w helpie "When you use Printbin ar(1) , the whole array will be printed." A kto powiedział że ja wpisuje dane? Ja je wysyłam. Ale twoja tablica jest pusta....
Witam ogarnąłem już dużo na temat programowania w bascom, tylko mam kolejny problem, mianowicie chciałbym zaprogramować obsługę serwa pilotem nadającym w RC5 lecz gdy połączę obsługę rc5 i serwa mam takie błędy i nic nie działa: ........ Pojedynczo programy działają ok. ................. Rc5+ servo (nie działa) Pozdrawiam. Zauważ że zarówno 'Config...
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)...
https://obrazki.elektroda.pl/9317464400_... Witam Przedstawiam stację meteo nad którą pracuję już kawałek czasu. Początek prac to też mój początek zabawy z Arduino. Zaczęło się od gotowego projektu malutkiej stacji z wyświetlaczem OLED. https://obrazki.elektroda.pl/5611267500_... Wtedy już samo wgranie programu do...
Powinno być: [syntax=basic4gl]Printbin Send(1) ; 3 ' wyślij 3 elementy tablicy Send(), zaczynając od pierwszego elementu tablicy.[/syntax]
Prosze o pomoc, gdzie znajdę listę takich znaków specjalnych, które moga być na tym monitorze wyświetlane i jak znaleźć ich "kod"? Ja znalazłem tylko: Są i inne? Proszę o pomoc Less Tak, jest nieograniczona ich ilość. Narysuj sobie w jakimś edytorze prostokąt wypełniony kratką : 8 rzędów i 5 kolumn' Narysuj w tym polu swój dowolny wymyślony kształt...
W Bascomie tylko tablice jednowymiarowe, ale możesz przeszukiwać je z przesunięciem. Pamiętaj o dostępnej pamięci, bo tablica 10000 pozycji pewnie nie wejdzie w up... Pocztaj jeszcze o strukturze DATA.
Witam. No właśnie w tym miałem problem. Stara wersja pakietu IDE kompilowała tę funkcję bez problemu i wszystko działało, natomiast ta nowsza zwraca błąd, że tablica nie jest zadeklarowana w parametrze funkcji. Zastanawiałem się nad tym zaglądając do helpa w starszej wersji IDE, ale nie zajrzałem do helpa od nowszej wersji ;) W nowszym helpie jest to...
Tak trudno sprawdzić w manualu wciskając w Bascom F1? Sprawdziłbyś hasło "Printbin" i dowiedział się że domyślnie wysyłana jest cała tablica a kiedy nie chcesz to po średniku wpisujesz ile bajtów wysłać [syntax=vbnet]Printbin ar(1) ; 3 ' will send 3 bytes from array ar() starting at index element 1[/syntax]
W Bascom'ie masz gotową funkcję do obliczania sumy kontrolnej: Suma=CRC32(source , L) Dim Ar(8) As Byte , X As Long 'init array Ar(1) = &H2 Ar(2) = &H1C Ar(3) = &HB8 Ar(4) = 1 Ar(5) = 0 Ar(6) = 0 Ar(7) = 0 'get crc32 of array. Scan 7 bytes X = Crc32(ar(1) , 7)
Dla zmiennej slowo2 (string *10) przechowującej string składający się z trzech znaków potrzebuję mieć dostęp do pojedynczych znaków. Chcę do nich docierać poprzez: Znak1 = Chr(slowo2_array(1)) Znak2 = Chr(slowo2_array(2)) ... etc. Konwertuję więc zmienną slowo2 do tablicy: Dim Slowo2_array(10) As Byte At Slowo2 Overlay Mam już stworzoną tablicę (a przynajmniej...
Takie złe to ESP8266 NodeMcu V3? Zależy do czego? Odebrać SMSa, podzielić go na dane, wyświetlić na LCD, i idealnie by było wysłać dwie dane przez ENC28J60 do ThingSpeak. Od biedy przez wbudowane WiFi. Jeśli przez Wi-Fi to ESP. W tym wypadku wystarczy 8266. Jeśli przez drut, to nie ENC28J60 a raczej ARM z obsługą Ehernetu. Jeśli już ktoś upiera się...
Coś nie chce mi działać, wgrałem z kompilowany hex do procka i restartuje mi Z80 co chwile. Pod pinD cały i pod pierwsze 4 bity pinB mam podpiętego Z80 i po wgraniu softu z twoją poprawką resetuje się Z80. Cos mu zakłóca transmisje z resztą gratów ;) ale dzięki za chęci ;) Pokreciłeś to całkowicie... Jeżeli cały portD przeznaczyłeś na input Data, które...
hmm.. no nie do końca to działa. Zrobiłem tak jak w manualu i niestety kicha: ... Ostatnia pętla powinna mi pokazać 12345678 (natomiast nic nie zwraca).. Źle używam Str2digits? Widocznie nie zrobiłeś zgonie z instrukcją. Funkcja "Str2digits" jest trochę 'tricky' - przestudiuj ją jeszcze raz i porównaj z tym przykładem: [syntax=basic4gl] $regfile =...
Nie znam Bascoma, więc zakładam, że tablic dwuwymiarowych tam się nie da zrobić. Aby takowe zasymulować, stwórz jedną, rozmiaru 1024*1024, a potem by znaleźć pozycję jakiejś danej na podst. współrzędnych: x*1024 + y.
Array to tablica. Nie wiedząc czemu nie mogłem namierzyć drugiego elementu tablicy "Dziel(2)" w symulatorze, przez co nie działało. Zamiast tego użyj drugiej zmiennej Byte i sprawdź Twój program, bo w symulatorze działa prawidłowo. Oczywiście wywal Format i całą konwersję do tekstu, bo jest nie potrzebna. Do symulowania impulsów możesz sobie zbudować...
Witam. Mam w zmiennej bitowej jakąś liczbę z zakresu 0-60, np. 34. Czy można tą liczbę rozbić na 2 cyfry - przypisując do pierwszej zmiennej bajtowej cyfrę 3, a do drugiej 4? Czy są jakieś instrukcje w Bascomie, czy muszę to robić za pomocą SELECT CASE: Proponowana metoda dzielenia zmiennej przez 10 (lub 100 , 1000 przy wiecej ilości cyfr), i stosowanie...
Zainstalowałem Eagle i chciałem narysować schemat ale nie znalazłem Attiny2313 jest tylko AT90S2313, brak też LCD 03336. Dla Eagle jest bez różnicy czy wybierzesz AT90S2313 czy Attiny2313 - oba processory mają ten sam pinout. Wybierz AT90S2313, na środku obrazka masz znak "+"; kliknij prawym przyciskiem myszki na ten krzyżyk i z pokazanego menu wybierz...
może się przyda ja mam coś takiego i napewno działa $large Config Lcdpin = Pin , Db4 = P0.0 , Db5 = P0.1 , Db6 = P0.2 , Db7 = P0.3 , E = P0.4 , Rs = P0.5 Config Lcd = 16 * 2 Dim Bd(9) As Byte Dim X As Byte , Tmp As Byte Dim T As Integer , T1 As Integer Declare Sub Ds1 Declare Sub Ds2 Declare Sub Ds Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32...
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...
ten sub temperatura czyta temperaturę z dallasa podłączonego do portu P3.2 i tylko jedną drugą czyta sub temperatura2 jest to rozwiązanie najprostsze lecz szkoda na to bajtów w procku można wyciąć z niej procedurę wyliczania i zrobić jedną dla wszystkich co zajmie mniej miejsca jest to "sub wylicz" do której odwołujesz sie "call" można także podłączyć...
Witam w Nowym Roku Chciałem zapytać, czy ma znaczenie, do którego pinu kontrolera jest podpięte wejście sterujące wyborem karty SD ? Korzystam z kodu podanego w helpie - zamieniłem tylko PortB.4 na PortD.6 i cały czas mam aktywną kartę SD, co oczywiście skutkuje zablokowanie kontrolera. Jako, że nie działa mi to razem z innymi funkcjami, więc próbuję...
Witam Mam Atmega32A + PCF8563 + PCF8574 + RFM12 + DS18B20 +DHT11. Port danych LCD to Port.A, ControlPort to Port.C. I2C standardowo na Portc.0 Portc.1. Niestety jest problem z obsługą I2C, tzn. zegar PCF8563 nie działa w ogóle ( na LCD puste pole ) , a klawiatura na PCF8574 - tylko jeden klawisz i to nie ten, który jest przypisany w kodzie ( działa...
Jak w temacie - czytalem gdzies, ze trzeba zminic stan portu podczas pomiaru, ale ja jestem w tym temacie zielony, dlatego prosze o pomoc. PS. Potrzebuje jeszcze dodac funkcje z przecinkiem i znakiem - wydaje mi sie, ze wynik wyswietlany jest bez nich. $regfile = "m8def.dat" $crystal = 4000000 Declare Sub Init Declare Sub Convallt ' Convert...
Ok poradziłem sobie tylko teraz wyskoczył mi inny problem , a mianowicie nie wiem dlaczego nie mogę korzystać z funkcji LINI i Boxfill wyświetlacz szaleje :-) a chciałbym wykorzystać te dwie funkcje w programie poniżej kod programu [syntax=basic4gl] '***************************************... '* Code to test DS18x20 '* The 1-wire bus pin is Port...
$regfile = "m8def.DAT" $crystal = 1000000 '$lib "mcsbyte.lib" Declare Sub Init Declare Sub Convallt ' Convert T on ALL sensors Declare Function Decigrades(byval Sc(9) As Byte) As Integer Config Lcdbus = 4 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.6 , Rs = Portd.4...
W końcu na atmega 168 prawodłowo zadziałał mi ten kod. W komentarzu dołożyłem podłączenia. Musiałem zrezygnować w pierwszym podejściu z kwarcu, bo portu PB6 i PB7 są tu wykorzystane do sterowania wyświetlaczem. Kupowałem wyświetlacze jakoś bardzo tanio, więc pewnie chińskie. '**************** Driving graph. display NOKIA LPH7779 ver.1.1 ******************...
Można to tak zrobić: [syntax=basic4gl]Dim Zdanie As String * 30 Dim Zdanie_array(30) As Byte At Zdanie Overlay Zdanie = "Dzien dobry/Elektrod/" Print Chr(zdanie_array(12))[/syntax]
Witam Jak wyłowić teraz dane XX z paczki B2 ??? Bascom: Array, Index e marcus
W delphi można jeszcze tak: var Liczba:LongInt; Bajty : array[0..3] of Byte absolute Liczba;
[syntax=vbnet]Lst = Array(&B11111110,&B11111101,&B11111011,&... do for each V in Lst ; tu wpisujesz do portu wartość V Waitms 100 next V loop[/syntax]
Help > Config serialin The following internal variables will be generated for UART0: _RS_HEAD_PTR0 , a byte counter that stores the head of the buffer _RS_TAIL_PTR0 , a byte counter that stores the tail of the buffer. _RS232INBUF0 , an array of bytes that serves as a ring buffer for the received characters. _RS_BUFCOUNTR0, a byte that holds the number...
Mam pewien pomysł na optymalizację dużej ilości np danych tekstowych kosztem SRAMu Zamiast trzymać testy we flashu można by było je tworzyć z danych, a we flashu jedynie trzymać dane wszystkich liter i cyfr. Kiedy byłby potrzebny jakiś tekst byłby tworzony przy pomocy danych zapisanych w array. Jak myślicie dało by to jakiś efekt ? Jeśli chcesz je...
Witam ! Dziękuję. Zainstalowałem starszą wersję 1.5.8. Edytowałem plik „preferences.txt”, zmieniłem linię dotyczącą znaków pisarskich na: editor.font=arial console,plain,22 Jest lepiej. W zasadzie takiego fontu o nazwie "arial console" nie ma w systemie Windows, więc nie jest pewne który z krojów czcionki z rodziny "Arial" został wybrany. W podanym...
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...
Odpada robienie własnej płytki PCB, odpada kombinowanie z wersjami Bascoma itp. . To raczej nie wersja bascoma a coś z tym plikiem jest nie tak. Mam już 4 wersję i w każdej jest ten sam błąd. Tam są poprawki wprowadzone i te poprawki " six1 fix array 2012-11-28 " powodują błąd. Niestety ja już płytkę zrobiłem więc staram się coś z tym zrobić ale małe...
Witam, Do wejść Portu mam podłączone 5 odbiorników zbliżeniowych. Odczytują zagłębienia w tarczy kodowej. Niestety nie są one uporządkowane tzn bit0 na tarczy jest przypisany do PORTx.4 a bit1 do PORTx.2 itd Próbowałem wcisnąć do zmiennej typu string *6 odczyt z poszczególnych czujników Inaczej mówiąc, potrzebujesz przemapowac pojedyncze bity po ich...
Kolego emarcus namieszałeś mi troszkę z tom funkcją ‘Str2digits’ ale nie umiem tego wyświetlić! Nie zrozumiaeś ’ni w ząb’ z tego co ci opisałem: Funkcja ta (Str2digits)_ zastępuje całkowicie twój rachunek umieszczony w subrytynie ‘Wpisz’, a zatem nie sa już potrzebne zmienne A, B, C i D reprezentujace poszczególne...
Taka składnia zwraca błąd. Ćwiczyłem to już na wszystkie sposoby. Efekt jest taki, że kompilator wywala błąd "array expected" i kilka innych, co mnie w sumie nie dziwi, bo sie reszta programu rozjeżdża.
http://www.elektroda.pl/rtvforum/viewtop... Dodano po 23 [syntax=basic4gl] Dim Dane As String * 15 Dim Dane_array(15) As Byte At Dane Overlay Dim Kod(15) As String * 1 Dim A As Byte Dane = "1234z2132j2131j" For A = 1 To 15 Kod(a) = Chr(dane_array(a)) Next[/syntax]
Witam! 13 cyfr??. To jest poza zakresem "normalnych" całkowitoliczbowych typów liczb, ograniczonych zazwyczaj do 8 bajtów. Zatem tylko jako ciąg znaków. Nie napisałeś w jakim jężyku programujesz. W Pascalu wyglądałoby to tak: type MojRekord : record Liczba : String[13]; NapisX : String[42]; end; var MojeDane: Array[1..10000]...
Poprawiłem programik, zwiększyłem wielkości stosu, stosu programowego i ramki, tablice Src_array i Dest_array wypełniłem danymi. Błąd dalej występuje. http://obrazki.elektroda.pl/6483380100_1... Jak widać zmienna B została uszkodzona, a zmienna "C" w której powinna być zwrócona wartość prze Memcopy jest równa 0. [syntax=basic4gl]' BASCOM-AVR...
Zmiana nic nie pomogła. A teraz, zastanów się dobrze, co tu nie gra :?: [syntax=basic4gl]Dim Bd(8) As Byte Dim Tmp As Byte '... Bd(1) = 1wread(9) ' read bytes in array '... Crc = 0 ' needs a 256 elements table For I = 1 To 9 Tmp = Crc Xor Bd(i) Crc = Lookup(tmp , Crc8) Next '... [/syntax] PS A czy Bascom, nie ma przypadkiem funkcji do obliczania CRC...
Witam Mam kawałek kodu arduino i interesuje mnie przetłumaczenie na "polski" . Linijka po linijce co w danym momencie się wydarza . Widzę że jest pętla,zmienne , warunek ale po przekonwertowaniu po mojemu na bascom to nie do końca chodzi . Coś źle muszę konwertować. [syntax=c]for (int i = 0; i < STEPS; i++) { float d = c0; if ( i > 0 ) d = lastDelay...
Ale ja andal nie rozumiem czym rozni sie PortB od PinB ! PortB.0 -> koncowka 0 portu b PinB.0 -> koncowka 0 pinu b ? xD To bez sensu. edit: Najletwiej byloby mi zrozumiec to na przykladzie tablicy. W php jest np. tak: $x = array('0' => 'costam', '1' => 'xyzabc'); //Robie tablice echo $x['1']; //Pokaze xyzabc
Czyli == zamiast = Ups. Umknęło mi to. Pewnie dlatego, że wcześniej patrzyłem na kod w Bascom. ;) Powiadacie, ze użycie funkcji in_array jest lepszym rozwiązaniem? Nie ma tylu || $do == . Można wykorzystać, jeśli dozwolonych adresatów pobierzesz z bazy danych. (at)LED5W Co masz na myśli pisząc "Nie psuj html'a"? Wywołując die nie zamykasz tagów HTML,...
Niestety znow mam problem z kompilatorem. Pluje sie o prosta skladnie: If Dcf_array(1).index = 1 Then Display_values(1) = &B00000110 Else Display_values(1) = &B00111111 Składnia jest rzeczywiście prosta , tyle że nie Basic-owa :| If Dcf_array(1).index = 1 Then Display_values(1) = &B00000110 Else Display_values(1)...
No fakt, to jest BASCOM 8051 a nie AVR. :oops: Ale idea jest taka sama. Trzeba zrobić sobie bufor w pamięci (np. tablica bajtów - Array) i dwa wskażniczki: Zapis, Odczyt; które będa sobie biegać w kółko po tablicy - tworząc tym samym bufor kołowy (http://en.wikipedia.org/wiki/Circular_b... Zapis będzie wskazywał element, który aktualnie można zapisać....
Na tym spi chodzi ale troszke ostatnio pogrzebalem i duzo lepiej chodzi na i2C z tym ze czy wpychane przez spi czy i2c to przy ladowaniu nieparzystej ilosci bajtow (1 driver jest 2 bajtowy (16bitowy) ) wszystko sie rozkracza kawalek mojego kodu Sub Send_bytes() For I = 1 To 64 ' send byte array to shift regs Tempbyte1 = Bytes(i) Shiftout...
array sprzedam array electronic image array
zdjąć obudowę pieca junkers licznik energia bierny pojemnościowy zacinać papier
makita migają diody bateria parkside
Radio samochodowe Pioneer, Sony – masa: karoseria czy minus akumulatora? Praktyczne wskazówki Skoda Octavia 2 1.6 MPI 2004 – niezależne podłączenie radia, emulator LPG, CAN, zasilanie
