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
rejestrator odczyt programowanie pilotów alarmu skoda układy samodzielnego montazu
elektryk gdańsk czarny nalot miedź
Kolory kabli we wtyczce pedału przyspieszenia Opel Combo 2005 Funkcja głosowa nie działa w robocie Philips
