Witam Jak wyłowić teraz dane XX z paczki B2 ??? Bascom: Array, Index e marcus
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 ale mam problem z zaimplementowaniem w Delphi fumkcji...
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)
Witam ........... i uzyskałem takie numery 2865C38905000025 28CB3E8905000020 28E28A8905000050 282E93890500003D Jak te numery wpisać do tablicy i jak potem odczytać temperaturę z czujnika o danym numerze ID Kod poniżej działa, ale po wymianie czujnika temperatury zamieniają się miejscami. jak zmodyfikować ten kod żeby wstawić tam tablicę z ściśle przypisanymi...
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...
Witam serdecznie Bazuję na dostępnym w sieci kodzie Pana Piotra Rzeszuta, służącym do obsługi modułu ENC28J60 w Bascomie. Wszystko działa jak należy, jednak chciałbym zmodyfikować kod tak, aby po włączeniu diody wyświetlał się aktualny stan jej działania ("stanled1")... Czyli po kliknięciu w przeglądarce przycisku ON przy diodzie, obok wyświetli się...
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...
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 ?
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...
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( [ bytes] ) var2 = 1WREAD( bytes , port , pin) Remarks var2 Reads a...
Zwierałeś RESET do GND podczas programowania? W jaki sposób? Poprzez zworę w płytce stykowej. Wynika to z zdania w datasheet "Both the Flash and EEPROM memory arrays can be programmed using the serial SPI bus while RESET is pulled to GND." (pkt 17.6) - Tak to zrozumiałem... Ale najpierw były próby bez tej zwory i też nic. Opisz dokładnie jakie wykonujesz...
Tak, tablica jest stała (512) ale nie wszystkie są aktualnie wykorzystywane. Z tego co wiem, SORT sortuje według wielkości, oraz nijak się ma do string'a. "Sorting is implemented for BYTE, WORD, INTEGER, LONG and DWORD arrays."
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...
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, poprawianie tego i owego, próbowanie innych softów. Na bazie...
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. Możemy to mocniej...
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...
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 stronie internetowej był pokazywany stan tej diody led....
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 Submode = New Config Watchdog = 512 '512ms Start Watchdog '---------Constants---------------------...
Poprawiłem nieco kod i wygląda tak :[syntax=vbnet] $regfile = "m16adef.dat" $crystal = 80000000 $hwstack = 40 $swstack = 16 $framesize = 32 Config Porta = Input 'port A jako wejścia Config Portb = Output 'port B jako wyjścia ' Config Portd = Input 'Port D Jako Wejścia Config Portc = Output 'port C jako wejścia Config Sda = Portc.1 'konfiguracja pinu...
Witam, poniżej znajduje się listing pliku dhcp2.bas. Cały pakiet easytcpip w załączniku. '---------------------------------------... ' DHCP2.BAS ' (c) by Atilio Mosca ' '---------------------------------------... $regfile = "m161def.dat" $crystal = 4000000 $baud = 19200 $lib "tcpip.lbx"...
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 1000000 //1MHz zegar procesora #define CYCLES_PER_US...
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ę...
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ż w komplecie i wszystko jak na razie działa. Nie muszę już powiększać...
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 ' Email: Hkipnik(at)aol.com ' Copyright (c) 2013 Hkipnik....
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...
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 : 124 Line : 43 LOOP expected ostatnim errorem...
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...
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, gdzie po prostu odczytuję moduł: [syntax=c] /***************************************...
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 Byte Dim C As Byte Dim I As Byte Declare Sub Temperatura Do Call...
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 zawsze wystarczało. Program który sprawdzam to: Config...
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...
$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...
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
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 można zapisać. I cała jego obsługa: pobranie z SBUF,...
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]...
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 = Portc.1 , Db5 = Portc.0 , Db6 = Portd.7 , Db7 = Portd.6 , E = Portb.0 , Rs =...
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...
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 ******************...
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 tego użyj drugiej zmiennej typu byte. Proponowałbym...
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 '---------------------------------------... ' Version 1.0 - june 2007 by Ben Zijlstra...
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] ................. Config Portd = 124 'Pd.0 i Pd.1 jako wejścia Portd = 127 'podciągnięte ................ [/syntax] Przewidywana żywotnośc EEPROM jest ok. 10 000 wpisów. W twoim...
Dzięki wielkie, udało się! Program odczytuje poprawnie informacje, dodatkowo ograniczyłem bufor do 1 znaku, bo Atmega wysyła znaki jeden po drugim. Poniżej zamieszczam wszystkie kody działające, dla potomnych :) UPDATE: ----------------------------------------... No i chyba poległem z wysyłaniem, nie obejdzie się...
Witam Czy niżej przedstawiona metoda jest metoda prawidłową przy wykrywaniu zakłamań w transmisji przy użyciu CRC? Czy program może być stosowany do ds1820/ds18b20? Masz poniżej pewne działające: [syntax=basic4gl] '///////////////////////////////////////... Sub Temperature ' actual measuring 1wwrite &HCC : 1wwrite...
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' z incrementacją zmiennch wewnątrz pętli. e marcus
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ą...
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 Error Enc28j60_linkup Erroe 229 Line: 450 End Sub or...
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)=Tzew i wysyłamy po uart Printbin Send i właśnie tu kompilator daje błąd: Array expected[SEND] Nie rozumiem co robię nie tak przecież chcę...
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....
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...
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 zmienne: W sytuacji jak powyżej, mając string zawierający tylko cyfry...
[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]
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...
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]
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 jest. Zrobiłem to tak: Dodano po 2 Nie rozumiem. Po dwóch...
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...
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_temp = Solar_mid_mod_temp \ 2 ' srednia z dwoch czujnikow = 283 [/syntax] co prawda przekracza 255, ale wynik z dzielenia przez 10 i Modulo 10 już nie, czyli 28 i 3 [syntax=vbnet] Solar_mid_dec...
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ć,...
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 wg. kolejności jak niżej: (o wiele łatwiej analizowac)......
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ę...
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 25MHz z gotowego modułu ENC a nie własnym kwarcem....
Program tworzy rampę dla silników krokowych czyli rozpędzanie i hamowanie płynne przy zadanej ilości kroków . Efekt widać na tym filmie na 20:20 minut. 1109182 Mnie osobiście interesuje ta wersja "Stepper3_linearSpeed" . Nie znam arduino dlatego trochę się kręcę z częścią kodu pokazanej w pierwszym poście .
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.
No no nooo, z iście ułańską fantazją podchodzicie panowie do Bascoma i procków AVR, tablice już nie mówię że dwywymiarowe ale po tysiąc elementów ;) .... Nie trzeba wielce znać Bascoma, wystarczy zajrzeć do helpa żeby tam zobaczyć iż tablice mogą być tylko jedno-wymiarowe. Więc o czymś takim jak w Delphi zapomnij nie tylko z tego względu ale i ze względu...
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...
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 avr i bascom. Problem jest w tym że DMA w połączeniu...
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 overlay Demo = '= By EvertDekker.com 2009 = '= Created with...
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:poziomo - poza zakresem h:0 V:pionowo - poza zakresem v:0 V:pionowo - w górę v:9 U:6.15V...
nowsze bascomy (np. 1.11.9.8) mają wbudowaną obsługę serw: CONFIG SERVOS Configures how much servo’s will be controlled. Syntax CONFIG SERVOS = X , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = rl Remarks Servo’s need a variable pulse in order to operate. The CONFIG SERVOS directive will set up a byte array with the servo pulse width values...
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 Sub Convallt ' Convert T on ALL sensors Declare Sub Odczyt_z_ds18b21...
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 DZIAŁ, ALE CAŁY PROBLEM POLEGA NA TYM ŻE POWINIENEM CHYBA DANE WYSYŁANE Z MIKROKONTROLERA...
Trochę posiedziałem i napisałem w Bascomie coś co jest odporne na niskiej jakości encodery. Może gubić impulsy, ale za to nie myli kierunków. '************************** Program reading mechanical rotary Gray code encoder ********** '******* Reads roating directions, counts full gray code cycles ********** '******* By Marcin B. AIMEIZ 2011/02/07 **********...
Cześć! Myślałem, że z Dallasem nie będę mieć problemów. Jest pełno przykładów pod BascomaAVR aby ATmega rozmawiała z 18b20 i wszystkie praktycznie identyczne. Niestety u mnie na wyświetlaczu widnieje ciągle temperatura 24,6C mimo podgrzewania i oziębiania czujnika. Czemu akurat taka skoro się nie komunikują? Jak myślicie?? ... sub Read1820 ' reads sensor...
Juz byl taki temat ale został zamknięty. Moj problem polega na tym ze nie moge ruszyc ds1820 w C z wykorzystaniem bliotek rklib do obslugi ds. #include <avr/io.h> #include<avr/interrupt.h> #include<avr/eeprom.h> #include<string.h> #include "lcd.h" #include "ds18x20.h" #include "delay.h" uint8_t gSensorIDs[OW_ROMCODE_SIZE];...
tutaj mam kod i z tego powodu, że dopiero zaczynam programowanie w bascomie to nie orientuje się jak są sterowane rgb ****************************************... 'Software für FullColor-RGB-3x3x3-Cube (je 256 PWM-Stufen für R, G, und B) ' 'Kompatibel mit ATmega88/168/88p/168p/328p (entsprechendes Dat-File wählen) '...
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using ZedGraph; using System.Text.RegularExpressions; namespace SimpleSerial { public partial class Form1 : Form { // Add this variable string RxString="0"; //double...
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)...
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...
$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 Status As Byte Dim Numer As Byte Temp1 = 12.1 Temp1 = 30.1...
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 Sub Gettime Declare Sub Displaytime Declare Sub Displaydata...
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 If Sprawd = 1 Then Input Nrled '1-254 If Nrled <>...