Witam Jak wyłowić teraz dane XX z paczki B2 ??? Bascom: Array, Index e marcus
Witam, Z tej stronki [url=]Link dowiedziałem się jak obsługiwać moduły komunikacji radiowej RFM12B. Przykład nadanika: [syntax=vbnet]$regfile = "m8def.dat" $crystal = 8000000 '8MHz $hwstack = 70 $swstack = 70 $framesize = 160 '$noramclear Config...
Ja to ogarnąłem czymś wygrzebanym z neta. '***********************************... Demo for SSD1306 128x32 Pixel ' ' Hardware: http://www.adafruit.com/category/63_... use 512 Byte Frame Buffer ' Spi Mode ' ' ' ' Date:22.05.2014 '...
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,...
No więc tak, cały program jest podzielony na 3 pliki: -main.c <-główny plik, zawiera funkcję main() -functions.h <-plik nagłówkowy -functions.c <-plik zawierający definicje wszystkich funkcji, których prototypy znalazły się w poprzednim pliku Zaczniemy od pliku functions.h: #define F_CPU...
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...
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,...
Dziękuję za odpowiedzi. Rozwiązało się jednak samo przypadkiem . Przerwanie generowane od On Timer1 Wyswietl powoduje skok od podprogramu Wyswietl, nawet jeżeli jest realizowana jakaś procedurka SUB . W SUBach dodałem Stop Timer1 i na końcu Start Timer1 . Instrukcje wykonują się już...
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...
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...
nie, nie, nie, nikomu nie chciało się zajrzeć do dokumentacji BASCOMA? wszystkie polecenia obsługi 1wire można przeprowadzać na DOWOLNEJ LINII: 1WREAD Top Previous Next Action This statement reads data from the 1wire bus into a variable. Syntax var2 = 1WREAD( [...
witam, Od razu do rzeczy. Jak w temacie! Program odczytuje po 1wire temperatury z 2 czujników. Wszystko działa poprawnie (płytka, czujniki dodam ds18b20). Kod programu poniżej. Error : 261 Line : 39 Array expected [ID1] Error : 261 Line : 43 Array expected [ID2] Error...
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...
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...
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...
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 (). Zapis będzie wskazywał element, który aktualnie...
Mam problem z kontrolą transmisji złożonej na układach radiowych i połączeniu z PC. Transmisja nadajnik->odbiornik wysyła paczki danych zakończonych crc8 (Bascom'owe CRC8). Dane przekazywane są potem do PC z taką samą paczką zakończoną crc8 (również Bascomowe CRC8). Po stronie PC odbieram dane...
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...
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] '**********...
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]
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...
Po całym dniu walki słabo opisałem mój problem bo już po prostu nie miałem siły :D Wyjaśniam... Zrobiłem sobie mikro serwerek LANowy na Atmedze32 i układzie ENC28J60. Z doświadczenia z tym układem i Atmegą wiem że znacznie stabilniej wszystko pracuje gdy mikroporocesor (Atmega) jest taktowana zegarem...
przykładzik z numerami seryjnymi, dla bascoma usuń zbędne funkcje "print" oraz to czego nie potrzebujesz. gdybyś miał kłopoty to pisz euromatic(at)tlen.pl Config 1wire = P1.1 Dim Bd(9) As Byte Dim Z As Integer, Tmp As Integer Dim T As Integer, T1 As Integer Dim Aa As String * 2 Dim Bb As...
Witam, Nabyłem moduł MMega01 firmy Problem polega na braku komunikacji z urządzeniami 1wire... Probowałem podłączyć termometr DS18b20(nie jeden - myślałem że ten co mam jest uszkodzony) i nic... taktowanie procka to ok 16MHz. Jako rezystor podciągający na magistrali 1wire daje 2,2k np w ATmega32...
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...
$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...
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...
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]; ...
W delphi można jeszcze tak: var Liczba:LongInt; Bajty : array[0..3] of Byte absolute Liczba;
Oto istotny fragment mojego kodu. Faktycznie nie wiem nic o tym, czym charakteryzuje się tryb CTC Timera i chyba jednak go nie używam. Bardzo proszę rzućcie na to okiem. $regfile = "m32def.dat" $crystal = 8000000 Config 1wire = Portc.5 Config Lcdpin = Pin , Db4 =...
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...
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. '****************...
Podaj schemat bo może coś nie tak z podłączeniem. Jeszcze kilka spraw. Podciągnij programowo INT0 Robisz dziesięć pomiarów, a wyświetlasz tylko jeden. Możesz z tym coś zrobić np. zwiększyć czas "łapania" lub cześciej wyświetlać. Zrezygnuj z array, bo mi w symulatorze coś nie chciało to działać. Zamiast...
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...
Proszę oto kod. Chodziło mi o to ze moze podpowiecie mi w którym miejscu i jakie modyfikacje musze dać a w linku który podałem jest opis i cały kod. [syntax=basic4gl]'----------------... Atmega168 and ENC28J60 '-----------------------------...
Witam Mam moduł sieciowy na układzie ENC28J60 podłączony do mikroprocesora ATMEGA644 20PU taktowany kwarcem 16Mhz.Program piszę w Bascomie bo innego języka nie zmam. Przykładowy program znalazłem w internecie z sterowaniem diody led przez stronę internetową. Dopisałem kawałek programu żeby na tej...
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.
Zrobiłem se coś takiego, ale nie działa tak jak powinno Jeżeli Pind.0 i Pind.1 są wejściami to konfiguracja portu 'D' winna wyglądac mniej więcej tak: [code][syntax=basic4gl] .......... Portd = 124 'Pd.0 i Pd.1 jako wejścia Portd = 127...
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...
Właśnie mam jedną zmienną , która jest indeksem i ostatni index zapisany jest w eepromie też za pomocą jednego przycisku czyli tak Freg = Freq_EEPROM Tu masz przykład konfiguracji eeprom dla array; wpisu i odczytu wartości z indexem. Dla ułatwienia posłużyłem sie automatycznymi pętlami 'for..next'...
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...
Witam Korzystając kodu Tuxgraphics zmodyfikowanego przez Kolegę Mundi1970 , chciałem również postawić prosty serwer pokazujący temperatury z kilku czujników oraz wilgotność i ciśnienie. Po zmianach regfile i pinu CS nie mogę go jednak skompilować. Występują trzy błędy: Error 46 Line: 363 Assignment...
Witam. Doczytałem w helpie bascoma że polecenie "printbin" może wysłać po uarcie całą zmienną tablicową. I tak mamy zmienną Dim Send(3) As Integer do której wpisujemy trzy różne wartości Send(1)=Ts Send(2)=Tb Send(3... wysyłamy po uart Printbin Send i właśnie tu kompilator daje błąd: Array...
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...
niestety, ale dodanie nawiasu nie rozwiązuje problemu, cały czas ten sam komunikat. (at)emarcus - więc jak powinienem to zrobić? Nie jest wiadomo co chcesz docelowo osiągnąć. Napisz jaki jest cel tej procedury. Wracając do poprzedniego twojego postu i fragmentu: Mam tak zdefiniowane...
[syntax=vbnet]Lst = Array(&B11111110,&B11111101,&B11111011,&... for each V in Lst ; tu wpisujesz do portu wartość V Waitms 100 next V loop[/syntax]
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...
Jeszcze się zastanawiam, czy nie lepiej będzie zamiast Lsb i Msb odczytanej temperatury pobierać obliczoną wartość przed przecinkiem i po przecinku ? Tzn. wynik pomiaru temperatury będzie przesyłany przez RFM12 - chyba prościej będzie mieć gotowe, czyli wysyłam: Dodano po 4 Jednak coś nie tak...
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...
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. Wtedy już samo wgranie programu do ESP8266 było wyczynem dla mnie. Później zaczęło się kombinowanie,...
Tzn. wiem, że zmienna typu bajt nie może być większa niż 255, ale zapomniałem, że nie robi się operacji na różnych typach zmiennych razem [syntax=vbnet] Solar_mid_mod_tem... = Solar_mid_mod_temp \ 2 ' srednia z dwoch czujnikow = 283 [/syntax] co prawda przekracza 255, ale wynik z dzielenia przez 10...
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...
Na szybko, poniżej biblioteka z Arduino działająca z LCD na fotografii Część nie na temat usunąłem.
W końcu jest tak jak kolega emarcus chciał? Czy ma jeszcze jakieś sugestie spostrzeżenia które z chęcią przeczytam Nie zupełnie tak chciał....(!) Poza tym nie jest łatwo analizowac twój program bo masz niekonvencjonalnie sporządzoną tabelę cyfr(!) przekonvertuj tabelę i podłączenie segmentów...
Hej, Potrzebuję przetłumaczyć kod Arduino do Bascom, a konkretnie chodzi mi o to, że posiadam moduł: [url=]DFRobot Gravity - analogowy czujnik TDS, czystości wody dla Arduino znalazłem [url=]kod dla Arduino, a dla Bascom niestety nic nie ma :( Jak dobrze rozumiem to pierwszy kod jest kodem podstawowym,...
Witam, Korzystam też z Delphi i tam można zrobić taką tablicę danych var Dane : array[100, 100] of byte; a w BASCOM wygląda tak: DIM Dane(100) as Byte; Jest jakieś inne rozwiązanie mojego problemu?
Macie jakieś pomysłu na ominięcie tego problemu w Bascom?? Ponieważ w jednych z nowszych wersji umożliwiono obliczanie indeksów z przesunięciem to możesz z tego skorzystać. I tak oto z dwuwymiarowej tablicy robisz jednowymiarową. Jak umiesz pisać programy to sobie to napiszesz w 5 minut prostą funkcję...
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)...
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...
Witam, proszę o schemat podłączenia ATmegi8 do MAX7456. Załączam obrazek: Ew, prosze też o przerobienie tego programu aby pasował do atmegi8, chodzi tu o zmiane tylko crystal i regfile? Czy to nie wpłynie na komunikacje SPI? '=====================================... MAX7456 Video...
Witam wszystkich. Mam urządzenie (AVR+bascom) które wysyła po rs'ie dane o ogólnie rzecz mówiąc stanie czujników, podzespołów. Dane odbierane w terminalu wyglądają jak poniżej: W:sterownik v5.14 - 05.12.11 U:6.12V I:42.0 H:... - poza zakresem h:0 V:pionowo - poza...
No więc kiedyś kolega drzasiek dumał nad powieszeniem ADC 8 bit na szynie EBI w xmega. Nie wiem czy to zrobił czy nie ale ja tak zrobiłem. I niestety jestem nieco zawiedziony. Przykładowo na wewn ADC da się wyciągnąć ok 6-8MSPS w 8bitowej rozdzielczości przy 48Mhz, nie jest to wcale zły wynik na adc...
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...
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+...
witam, robię termometr z dwoma ds18b20 i mam problem, ponieważ nie mogę wykalibrować tych pomiarów aby uzyskać dokładność do 0,1. Oraz wyświetlić wartość np. 21,5 st C. Termometr pokazuje mi 215, szukałem na forum, ale nic konkretnego nie znalazłem. Przedstawiam mój kod: 'Declare Sub Init Declare...
napisalem taki kod w delphi procedure TForm1.Button1Click(Sender: TObject); var hCOM:THandle; nrWrit:DWORD; nrRead:DWORD; Errors:DWORD; Dcb:TDCB; ComStat:TComStat; buf:array Dodano po 42 DOŁOŻYŁEM PETLE POMIEDZY WYSYŁANIE ZNAKÓW DO BUFORA A ODBIERANIE I WTEDY TO...
$crystal = 8000000 $baud = 9600 Config Lcd = 40 * 2 Config Serialin = Buffered , Size = 20 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Enable Interrupts Dim Command As String * 1 Dim Temp1 As Integer Dim Temp2 As Integer Dim...
Witam Temat był już wałkowany x-razy Co mam dopisać do tego programu żeby mi mierzył temp. ujemne ? Jest to program do zegara z termometrem kit AVT868. Proszę o pomoc pozdrawiam Sjzwojtek $large Declare Sub Settime(s As Byte , M As Byte , H As Byte , D As Byte , Month As Byte) Declare...
Błędu nie wywala, ale program mikro kontrolerze nie odczytuje tak jak potrzeba. Gdy wysyłam mu same '0' to nic nie powinno się dziać, jak wyślę mu np. '1', to kolejne 3 dane jakie mu wyśle powinien wpisać do zmiennych. BASCOM: Sprawd = Ischarwaiting() ' czekaj na dane, jak są to Sprawd=1 ...
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...
