Na początku masz: Declare Function Sharp_odczyt() As Word a dalej: Function Sharp_odczyt(byval Kanal As Byte) As Word czyli co innego deklarujesz, a czego innego używasz...
Zobacz w pomocy polecenie GOSUB i CALL, bo pomieszałeś te polecenia. Dodano po 11 Do podprogramu możesz skoczyć poleceniem GOSUB i nie deklarujesz go. 'podprogram: Etykieta: 'etykiety kończymy dwukropkiem 'coś zrób Return Procedurę lub funkcję musisz zadeklarować i podać jakie parametry będą przekazywane. Jej treść musisz umieścić używając SUB...
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...
Do Autora wątku: Proszę. Nie taki diabeł straszny. Nie napisałeś jaki to procesor więc napisałem przykład dla Mega8. Funkcja odczytuje ADC(0-5) z włączony ADLAR czyli tylko osiem bitów. Wynik od 0 do 255. Zapewne działa nawet w symulatorze. To taki podstawowy. Można nie czekać a ustawić przerwanie, ale to pewnie jeszcze nie dla Ciebie :D Wpisz w Google...
...może jakaś sugestia please ;) Zapomniałeś o $hwstack = 32 $swstack = 32 $framesize = 16 Wartości w/w parametrów mogą być inne(czytaj:większe) , jeśli "obrabiasz " długie stringi. Poza tym , komplikujesz niepotrzebnie proste rzeczy(czytaj:nie "wgryzłeś się" w help-a) ;) Function Scanstrsp() Local I As Byte I = Instr(text , Sep) 'zwróć...
Włącz Bascom i wciśnij na klawiaturze F1 Wpisz Config Canbusmode Przeczytasz tam odpowiedź na nurtujące Cię pytanie: The CANRECEIVE function reads the data from the frame into a variable. In the example the variable is a PORT which will change value depending on the receive data byte. After this the CONFIG CANMOB is used with a value of -1 to indicate...
No, zrobiłem "przekop" i nigdzie nie znalazłem. Ani w helpie by ZG, ani w helpie do wersji ... JEST. W samplach. '---------------------------------------... 'name : bin2bcd16.bas 'copyright : (c) 1995-2005, MCS Electronics 'purpose : Test program for BIN to BCD Calculations 'suited for demo :...
A mi się udało znaleźć. I to na stronie producenta bascoma. Wpisałem w google "bascom getkbd" :) https://avrhelp.mcselec.com/index.html?g... [syntax=vbnet]'-------------------------... 'name : getkbd.bas 'copyright : (c) 1995-2005, MCS Electronics 'purpose : demo : GETKBD 'micro : Mega48...
Może cos takiego ? Config Scl = Portc.0 ' I2C Clock. Config Sda = Portc.1 ' I2C Data. Config I2cdelay = 100 Declare Sub I2c_ram_write(byval Addres_desired As Word , Byval Byte_to_write As Byte) ' Writes data to the I2C EEPROM. Declare Function I2c_ram_read(byval Addres_desired As Word ) As Byte ' Reads data to the I2C EEPROM. Declare...
Mając trochę wolnego czasu napisałem parę funkcji do obsługi układu PCF8583. Funkcja która ustawia godzinę i datę zapisuje też dane potrzebne do obliczenia pełnego roku, dzień tygodnia jest obliczany automatycznie na podstawie daty. Funkcje Pcf8583_write i Pcf8583_read można wykorzystać do zapisywania/odczytywania danych z wolnej pamięci ram. Dostępne...
Proszę. Jest to przykład zapisu i odczytu zarówno zwykłych bajtów jak też łańcuchów tekstowych inaczej mówiąc napisów w Eeprom. Program i funkcje działają z małymi pamięciami których adresacja mieści się w jednym bajcie. Do tego przykładu użyłem 24C04 Jeśli ktoś chce to może po prostu wpisać sobie jakieś dane do buff(1), Buff(2) itd i tak zapisać. Potem...
https://obrazki.elektroda.pl/2807245700_... Witam, Temat odgrzany, i nie mojego autorstwa, ale warty przypomnienia. Potrzebowałem aby pewne urządzenie wystawiało mi do PCta kilka klawiszy klawiatury. Słyszałem już kiedyś o projekcie SWUSB pisanym w jedynym języku który choć trochę znam - Bascom. Zaprojektowałem jednostronną niewielką...
Siemka ugh123 :D Co prawda nie mam tego wyświetlacza (Nokia), lecz o wiele większy. Ale do do tematu. Pliki ".bgc" są zapisywane w 8-bitowym kolorze, Ja pracuję z 16-sto bitowymi kolorami, więc konieczna jest konwersja z 8 na 16 bitów. Informacje na temat wymieniony przez Ciebie znajdziesz w sieci (poszukaj). Nie dam Ci gotowca,i sądzę, iż nikt Ci nie...
No dobra, udalo ci sie polechtac moja proznosc wiec moze zrobimy tak. Opisze tutaj przykladowego mekafile-a z nastawieniem na WinAVR, Atmega8 i STK200 tak aby inni tez cos z tego mieli. W zasadzie wszystko jest opisane w angielszczyznie no ale jakby kto nie umial to daje po polsku. # Hey Emacs, this is a -*- makefile -*- #---------------------------------------...
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...
Ciekawe czy AI dało sobie radę; [syntax=vbnet]' === SSD1322 BASCOM mini-driver: Pixel, Line (ATmega, 4-wire SPI) === ' Pins (edit to your wiring) Config Portb.2 = Output ' CS# Config Portb.1 = Output ' D/C# Config Portb.0 = Output ' RES# Ssd1322_cs Alias Portb.2 Ssd1322_dc Alias Portb.1 Ssd1322_res Alias Portb.0 ' SPI (hardware SPI on ATmega328/128/1284...
Nigdy nie miałem tego sensora u siebie i dlatego nie czytałem dokumentacji i koła od nowa tez nie chciałem wymyślać. Jest gotowy kod na to na innym forum. On moze obsługiwać więcej czujników. Najważniejsze że pokazane jest jak do tego Twojego dodać obsługę temperatur ujemnych. [syntax=vbnet] ' ' Sensor DHT22 ' Insanity ' $regfile = "m328pdef.dat" $hwstack...
Pod tym linkiem [url=https://bart-projects-forum.cba.pl/... znajdziesz dwa, na pewno działające, kody do QM5883L i HM5883L. Te moduły nie są zamienne wprost i dlatego kody są dwa. Mogę tak napisać bo to moje kody które sam napisałem i sprawdziłem :D Mam gdzieś z tego film. Jak znajdę to wrzucę. Wszystko było uruchamiane...
Dalsza zabawa polegała na odebraniu ramki . Istnieje możliwość wysyłania i odbierania ramki przez ten sam węzeł. W rejestrze CANCTRL bit7-5 REQOP ustawiamy 010 = tryb sprzężenia zwrotnego. Tryb sprzężenia zwrotnego jest bardzo cenny ponieważ umożliwia to zabawę z MCP mając tylko jeden węzeł . Do programu musiałem dopisać. deklarujemy:[syntax=basic4gl]...
Sub or function must be declared first sub or function expected first takie 2 błędy mi wyskoczyly
Witam. Dzieki atom1477 za kolejne informacje. Ja tez sie troche pogubilem w tym wszystkim tym bardziej ze jak testowalem na sofcie na ARDUINO UNO to RFM sie dalo usytawic a ogladane przebiegi analizatorem byly zgodne ze zboczem opadajacym zegarowym. Teraz aby to zrobic jeszcze raz to musze odczekac troche czasu bo ARDUINO zabral studnet na pare dni....
Skoro coś się powtarza to zapisz to jako procedurę a potem ją tylko wywołuj. Poczytaj DECLARE SUB i DECLARE FUNCTION Funkcja przy okazji jeszcze zwraca wynik.
Cytuję: "Ustawia się to w zależności od skomplikowania programu. (...)" O co tutaj chodzi i o jakie wartości tutaj chodzi? Dokładnie chodzi o ilość bajtów jaką początkowo zajmie każdy ze stosów. Stos jest elementem rozrastającym i kurczącym się dynamicznie. Może dojść do sytuacji gdzie jeden zajdzie na drugi - stack overleap - i kłopot gotowy. Dlatego...
Nie wiem, co robię le, ale cały czas wyskakuje mi ten błšd. banalny programik: ... dim A as byte declare function Busy as byte ... ... function Busy as byte Busy=1 end function ... ... c=busy no i błšd...
Podczas sprawdzanie błędów w Bascom , we wszystkich wersjach jakie są w tym poscie pokazuje mi ten błąd . Error : 25 Line : 731 Variable already dimensioned [X] , in File : Error : 25 Line : 799 Variable already dimensioned [X] , in File : Error : 229 Line : 0 End Sub or End Function expected [> 11] , in File : Używam wersji Bascom 1.11.9.5
Kolego katakrowa kod poprawiłeś, ale czy go kompilowałeś? W wersji Bascom 2.0.7.8 wyrzuca błędy : Error : 31 Line : 100 Invalid data type [[0010]] , in File : C:\Trawiarka\Traw_popr.bas Error : 31 Line : 101 Invalid data type [[0010]] , in File : C:\Trawiarka\Traw_popr.bas Error : 229...
Cytat z instrukcji najnowszej wersji Bascoma: "When you like to program in ASM you can use BASCOM with the $TINY directive. Some BASCOM statements will also already work but the biggest part will not work. BASCOM will support a subset of the BASCOM statements and function to be used with the chips without SRAM. There will be a special tiny.lib that...
Przy okzaji chialbym dopytać Mundi1970 czy skoro w deklaracji funkcji użyłeś ........ We wszystkich przykładach z katalogu SAMPLES i w helpie, na początku funkcji jest podawany typ danych. Teraz działa nawet i tak :): Zalecił dopisać you need to add : $swstack=16 $framesize=30 I kod zaczął działać...:) Należy też pamiętać że te wartości mogą być większe....
Tak na szybko to łap z jakiegoś mojego programu :P [syntax=vbnet]Function Value_to_proc(byval Value As Byte)as Byte Local Helpw As Word Helpw = Value Helpw = Helpw * 100 Helpw = Helpw / 255 Value_to_proc = Helpw End Function Function Proc_to_val(byval Value As Byte)as Byte Local Helpw As Word Helpw = Value Shift Helpw , Left , 8 'x256 Helpw = Helpw...
Mam NodeMCU z podłączonym konwerterem USB<>SERIAL i troche mi niewygodnie podłączyć to do mikrokontrolera. Zobacz jednak jakie dane i jak wysyła sie w przykładzie do oprogramowania LUA i Thingspeak. Moze coś podpatrzysz. Nie było czasu się tym bawić :D [syntax=bash]--- Get temp and send data to thingspeak.com function sendData() getTemp() -- conection...
Witam Na wstępie napiszę że jestem zielony w programowaniu procesorów AVR dla tego proszę o pomoc W posiadaniu mam programator USBASP, płytkę stykową, kabelki itd no i program BASCOM AVR Potrzebuję program do koguta led na 8 diod Takowy program testowałem na Arduino UNO i działał, kod poniżej: [syntax=Bascom] /* kogut 8 led */ void setup() { // set...
No coz tak to jest jak sie nie dokladnie przejrzy helpa... Przeznaczenie: Rozpoczyna treść funkcji użytkownika. Składnia: FUNCTION nazwa [ ( parametr AS typ [, parametr AS typ] ) ] AS typ_rezultatu instrukcje funkcji END FUNCTION gdzie: nazwanazwa funkcji, parametrnazwa parametru funkcji, typtyp przekazywanego parametru, typ_rezultatutyp danych zwracanych...
[syntax=basic4gl]Declare Function ReadPort (aPort As Byte) As Byte Declare Sub WritePort (aPort As Byte, bData As Byte) Function ReadPort (aPort As Byte) As Byte ' ciało funkcji End Function Sub WritePort (aPort As Byte, bData As Byte) ' ciało procedury End Sub[/syntax] Reszta tutaj: http://avrhelp.mcselec.com/index.html?de... Możesz...
Witam wszystkich serdecznie. Ponieważ wygoglować rozwiązania problemu nie mogę, zwracam się z uprzejmą prośbą do bardziej doświadczonych kolegów z pytaniem: dlaczego próba kompilacji poniższego kodu kończy się błędem "Storebit error [200]" ze wskazaniem na linię: Wysw = Xyz(byval X , Byval Y)? Za ew. pomoc w rozwiązaniu problemu z góry dziękuję. [syntax=basic4gl]...
Witam! Nie wiem co jest nie tak, ale bascom nie potrafi skompilować kodu. Wyrzuca błąd nr31, który wg. helpa do bascoma oznacza "błędny typ danych". $regfile = "m8515.dat" $crystal = 1000000 $xramstart = &H300 $xramsize = &H10000 $include "Config_MMC.bas" $include "Config_AVR-DOS.bas" Declare Function Getattr0()...
Otworzyłem datasheeta, widzę w nim wielką tabelkę FUNCTION TABLE dokładnie opisującą że jeśli na wejściu dasz ... to na wyjściu dostajesz .... Jest nawet schemat jak podłączyć silnik bipolarny. Ponieważ problem cię przerasta to podszkól się w elektronice i dopiero wróć do tych silników krokowych. Ewentualnie wydłub sobie silniki unipolarne ze stacji...
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...
Witam! Nie jestem biegły w BASCOM-ie i mam problem z funkcją, w której chcę uzyskać resztę z dzielenia. Oczywiście operuję na liczba które mają wartość po przecinku tak więc użycie funkcji mod nie wchodzi w grę. Moja funkcja wygląda tak : [syntax=jezyk_programowania] ' wczesniej w zmiennych globalnych jest zdeklarowane dim L as single, l1 as single,...
Programuję w BASCOM BASIC, i wysyłanie kodu się powiodło (piszczek) teraz tylko muszę uruchomić wszystko w ESC/P zobaczymy co z tego będzie Dodano po 1 ok, drukarka odpowiada na moje komendy, ale mam jeden problem: jakiej komendy użyć aby drukarka wydrukowała to co ma w buforze?? Dodano po 58 Problem rozwiązany, obsługa okiełznana i napisana. Dzięki...
Czy w Bascomie AVR można stosować procedury napisane w basicu, które umieszcza się w osobnym pliku? Wiem że takie biblioteki pisane w ASMie można stosować. A czy można je pisać w Basicu? Jeśli można to w jaki sposób się to robi? Można , choć w inny sposób niż robi się to z bibliotekami napisanymi w asemblerze. Przykładzik: '**********plik "główny"...
super , dziękii za pomoc , a jeszcze jedno pytanie: to samo , tylko , że z przypisana zmienną np potega "x" i wykonuje "x" * "x" Deklaracja (przed pierwszym użyciem w kodzie): Declare Function Potega( Byval X As Integer) As Integer Definicja (na końcu programu) Function Potega( Byval X As Integer) As Integer Potega = X...
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....
Troszku późno, ale może komuś się przyda. BASCOM - program, który prawie działa jest gorszy od nieistniejącego. W rozpaczy może się zdarzyć, że konstruktor będzie próbował naprawić błędy bibliotek BASCOMa grzebiąc lutownicą w swoim komputerze. Skorzystałem z powyższego rozwiązania zaproponowanego przez K_O_N_R_A_D'a zmodyfikowanego do wersji wymieniających...
PRINT will automatic convert numeric variables into the string representation. This means that when you have a byte variable named B with the value of 123, the numeric variable is converted into a string "123" and then printed. In this case, print will print 3 characters or bytes. When you want to print the byte you can use the chr() function : print...
Dzieki za odp. Zaraz bede walczyl z timerami. Wlasnie koncze czytac 8.4 rodzial ksiazki Pana Kardasia i zrodzil sie pomysl sprawdzenia czy bascom ma cos takiego jak wskazniki, tworzenie zmiennych na stosie w funkcjach, przekazywanie ich... Na szybko stworzylem cos takiego $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config...
Za polskim helpem Bascoma Przeznaczenie: Powoduje przerwanie wykonywania instrukcji: FOR..NEXT, DO..LOOP, WHILE..WEND, SUB..END SUB lub FUNCTION..END FUNCTION. Składnia: EXIT FOR EXIT DO EXIT WHILE EXIT SUB EXIT FUNCTION Opis: Za pomocą instrukcji EXIT można w każdej chwili wyjść z dowolnej instrukcji strukturalnej. Przykład: '---------------------------------------...
Prosze o sprawdzenie tego podprogramu. czy wogule w bascomie są funkcje?? Ja chcę tu zrobić coś takiego prze przy wywolywaniu tej funkcji w zmiennej przycisk bede miał jaki klawisz jest naciśniety, Czy moze da się to przerobic na podprogram a nie nafunkcje?? Declare Function Klawiatura(byval Klawisz As Byte ) As Byte Dim Guzik As Byte Dim przycisk...
Witam. Jestem początkującym w ARM i C. DO tej pory AVR i Bascom i jakoś to szło. Pisząc dzisiaj prosty program do zabawy diodami (nieustraszony) napotkałem problem taki jak w temacie. Korzystam z uVision 5. Powyższy błąd wyskakuje w 2 linijkach z if i else. Co może być przyczyną? Kod programu: [syntax=c]#include <stdio.h> #include "LPC17xx.H"...
A co kolega ma z tym bascomem? Język tu nie ma żadnego znaczenia. Definiujesz sobie 2 piny jako wyjścia, jeden jako zegar drugie jako dane. I teraz tylko patrzysz na wykresy w datasheet. Jak zegar=0 ustawiasz lub zerujesz bit danych, czekasz, i ustawiasz zegar, w tym momencie następuje zapis. Powtarzasz to tyle razy aż zapiszesz wszystkie potrzebne...
Nie umiem sobie przypomnieć teraz czy jest jakaś gotowa instrukcja, ale mogę Ci pokazać jak można sobie radzić pisząc własne funkcje. To nieskomplikowane. Budując funkcję w nawiasach określasz co będzie danymi wejściowymi a poza nawiasem co funkcja ma zwrócić. Czyli napisałem, że funkcja dostaje wartość bajtu a zwrócić powinna też bajt. Change() kiedy...
function bascom green function inline function
wymiana grzałki trzaski kanale wirnik alternatora naprawić
diagbox lexia problemy diagbox
Uprawnienia do przeniesienia licznika energii Układ miękkiego startu dla żarówek LED: rozwiązania i porady