Jak zwykle czasu nie ma, ale nie mogłem się powstrzymać. Nakręciłem pierwszy klip - ahahahaha :D No musiałem się pobawić edytorem. Efekt to półtora minuty magii :D Ahahaha miałem kupę zabawy z tym :D Przy okazji możesz zobaczyć jak się używa wbudowanego symulatora by zadawać wartości ADC ;) Twój pomniejszony kodzik też poniżej, tylko używając poza symulatorem...
Wprawdzie ... to nie humanitarnie z mojej strony dawać niemalże gotowca ... :D [syntax=basic4gl]$regfile = "m2560def.dat" $crystal = 16000000 $hwstack = 64 $swstack = 64 $framesize = 64 $include "Config_PCF8583.bas" Declare Sub Displaytime() Declare Sub Settime() Declare Sub Cancel() Declare Sub Plus() Declare Sub Minus() Declare Sub Saveandexit() Declare...
Witam Mam ciąg danych ( zmienna typu string*60 ) [syntax=vbnet] Command = "Wew: " + T1 + " Zew: " + T2 + " Wilg: " + Str(Hum) [/syntax] T1 i T2 to temperatury ( zmienne typu string*6 ) Chciałem polecenie Len() obliczyć długość ciągu, wiadomo, że temperatury mogą się zmieniać. Jak zadziała polecenie Len() ? obliczy długość dołączonych zmiennych T1 i...
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...
Witajcie, dziś postanowiłem się podzielić dorobkiem w postaci oprogramowania i wiedzy na temat pewnego modułu GPS. Zegar softowy synchronizowany GPS z dodatkowym wyświetlaniem współrzędnych i prędkości no i dorzuciłem w ostatniej chwili temperaturę z DS18B20 - taki szkoleniowy programik w BASCOM (świetny przykład - gotowiec dla tych którzy chcą zrobić...
Finalnie wygląda to tak: [syntax=vbnet] $regfile = "m328pdef.dat" $crystal = 8000000 $hwstack = 100 ' rozmiar stosu sprzętowego $swstack = 100 ' rozmiar stosu programowego $framesize = 128 $baud = 19200 '************ Uart 0 Config Serialin0 = Buffered , Size = 150 , Bytematch = 10 'for COM1 Config Input1 = Crlf , Echo = Cr Echo Off 'Config Serialout0...
zumek jesli masz na mysli mnie to uzywam atmega32 i mam jeszcze 12kb wolnego miejsca wiec jest ok ale jak braknie to przejde na atmega 128 . dziekuje wszystkim za pomoc
Zmienna Var musi być zdefiniowana jako łańcuch. [syntax=basic4gl]Dim Str_ver As String * 100 Str_ver = Version(3) Print Str_ver [/syntax]
heh... a wystarczyło żebyś napisał: "co sie męczysz chłopi, zamień funkcją time() zmienne typu byte na string z godziną i porównaj" .... tablicę prawdy rozrysowałem juz wcześniej :P
Witam, mikroprocesor Atmega 8A odczytuje błędne dane z czujnika temperatury MLX90614 wersja 5V Sprawdzone rzeczy: -ciągłość połączeń -napięcie pomiędzy nóżkami zasilania -nowy mikrokontroler -definiowanie innych wejść sda i scl w atmedze - różne adresy zapisu i odczytu zapisu:&B00000000, &H5A odczytu:&B00000001 &H5B -różne napięcia podciągające schematy...
Witam wszystkich, Panowie mam takie pytanie dotyczące kawałka kodu odpowiedzialnego za transmisję danych programowym uartem. [syntax=basic4gl] dim sms as string*70 dim ss1 as string*20 dim ss2 as string*20 dim ss3 as string*20 dim i1 as integer dim i2 as integer dim i3 as integer Ss2 = Str(i2) Ss2 = Format(ss2 , " 0.0") Ss1 = Str(i1) Ss1 = Format(ss1...
Witam serdecznie Jako kolejny krok nauki uczę się oprogramować bluetooth hc-05 oraz atmega 8 sprzęgnięte z aplikacją w telefonie. Połączenie bluetooth jest nawiązane po naciśnięciu przycisków w telefonie wysyłana jest dana typu string. Jeden przycisk wysyła daną o wartości "zapal", drugi przycisk o wartości "zgaś". Do portu atmegi8 podłączona jest dioda...
Sprawdź jak masz ustawiony terminal (bity stopu, parzystość) bo jeśli nie określasz tego w kodzie programu to ustawienia brane są z tych jakie masz ustawione w IDE. Jeśli prędkość procesora na pewno odpowiada tej zadeklarowanej to możesz spróbować tak. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $baud = 19200 Echo Off Dim Str_1 As String...
klawiatury nigdzie nie podłączam, dlatego właśnie robię to po uarcie przez FT232, gdzie podłączona atmega pod pc wymaga tylko programu. Wcześniej jak robiłem program, przypisanie zadania jednemu klawiszowi klawiatury nie sprawiało mi większych problemów Uart = Inkey() If Uart > 0 Then End If If Chr(uart) = "1" Then Gosub...
Pomyśl..Cztery znaki chcesz upchać w trzyznakowym stringu.. Nie wiesz jak to działa. Kiedy deklarujesz String * 10 rezerwujesz 11 bajtów bo każdy string ma znak swojego końca. Nie musisz wykorzystać wszystkich bajtów. String może być krótszy i zaraz po znakach postawiony będzie znak końca..ale zarezerwowałeś 11 bajtów i tam program nigdy nic nie będzie...
Problem rozwiązałem w 50%. To znaczy dzięki podpowiedzią kolegów co mi brakowało żeby działał termometr, który pracuje bardzo dobrze ,dopisałem do programu woltomierz , który pracuje dobrze. Do zamknięcia tematu pozostał jeszcze amperomierz , który mierzy spadek napięcia na boczniku sygnał wzmocniłem wzmacniaczem LM358.Nie wiem jak przeliczyć spadek...
Witam! Buduję urządzenie komunikujące się z PC poprzez port RS232. Zależy mi na jak najszybszej transmisji. Aplikacja PC wysyła rozkaz TX do urządzenia, urządzenie odsyła zmierzone wartości w postaci ciągu: dana1:dana2:dana3:dana4:dana5:dana6:dana... za pomocą Bascomowej instrukcji Print. Maksymalna szybkość jaką udaje mi się osiągnąć przy Atega16...
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...
Jestem na etapie nauki i do kart sd mi trochę brakuje a projekt muszę niedługo skończyć :( No kurcze nie rozumiem, jak zaświecę tylko rogi w jednej warstwie to jest ok a jak chcę zaświecić całą warstwę to sie wszystko wali.... wygląda na to że dla bascoma nie jest obojętne czy string wygląda tak: "255,000,000,000,000,000,000,255" czy tak: "255,255,255,255,255,255,255,255"...
Witam wszystkich mam taki problem.Potrzebuję z aplikacji android wysłać cztery zmienne typu Word do procesora Atmega 32 i zapisać je w Epromie.Dane wysyłane w Srtingu. Na razie wysyłam dane z terminala z Pc-ta.Aplikację na Android pisze mi ktoś inny.Potrafię wysłać jedną zmienną nadaną jako String przekształcić na Word i zapisać ją w Eprom na procku...
Witam Mam płytkę Loggera GPS + SD + PCF8563. Jeśli chodzi o GPS i zapis na SD wszytko jest OK. Problemem jest ( i to pierwszy raz się z czymś takim stykam ) odczyt danych z z układu PCF8563. Otóż dla pewnych wartości sekund, odczytana wartość czasu - godziny jest większa o 40 ( czterdzieści ). Czyli jeśli czas jest 22:40:02 to jest wyświetlany poprawnie,...
Możliwe sugerowałem się tym, że niezależnie czy po wpisaniu Reset Pinb.1 lub Reset Portb.1 i wrzucenia do uC działanie było takie same. Nawiązując do mojego problemu, próbowałem zmieniać w poprzednich kodach port na pin tak jak radził "piotrva" jednak nie przynosi to efektu. Nadal mam problem z uruchomieniem tego obrotomierza. EDIT: Jest jakaś poprawa,...
będę wstawiał komendę AT+CMGL="ALL" a potem AT+CMGD=1, AT+CMGD=2, AT+CMGD=3, AT+CMGD=4 ale mam inny problem na terminalu ale na atmega8a wszystko działa prawidłowo natomiast po zmontowaniu z modułem SIM800 już nie bardzo czasem wysyła te same SMSy jak by nie łapał komendy AT+CMGD=1 i nie kasował SMSa komendy do czyszczenia bufora "_rs_head_ptr0 = 0...
Myślałem, że jest wszystko w porządku lecz jak dodaje jeszcze jedno napięcie do wyświetlania na takiej samej zasadzie to dzieją mi się różne cuda min.: Testy przeprowadzam w symulatorze programowym. http://obrazki.elektroda.net/96_12626430... $regfile = "m8def.dat" $sim $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 =...
Bardzo dziękuję! teraz jest ok Może Ty będziesz wiedział bo nadal mam problem z odebraniem czegokolwiek z kompa na mojej Atmedze i LCD Atmega8 16 MHz LCD 2*16 MAX485 (ST485CN) podłączony do konwertera 232/485 a konwerter do kompa przez USB (zainstalowany usb-to-serial bridge) To co Atmega wysyla odbieram bez problemu natomist nie wiem jak odebrac to...
A czy można dać po jednym układzie na jeden pin Atmega ? Czyli coś takeigo: Dodano po 3 Znalazłem jeszcze taki kod: [syntax=basic4gl] $regfile = "m16def.dat" $crystal = 8000000 $baud = 9600 Declare Sub Get_dht11(t_dht As Byte , Rh_dht As Byte) Dht_put Alias Porta.0 Dht_get Alias Pina.0 Dht_io_set Alias Ddra.0 Dim T_dht11 As Byte Dim Rh_dht11 As Byte...
biblioteka lcd4e2 jest konfigurowana z poziomu biblioteki pisanej w assemblerze. Z tego co wiem nieskompilowana wersja tych bibliotek (z możliwością zmian) jest dostępna tylko w wersji płatnej basoma Oto przykład zastosowania, połączenia powinny być tak: $lib "LCD4E2.LBX" '=========================== RS PortB.0 R/W PortB.1 w tej wersji nie...
A w nowym helpie w Bascomie 2.0.1 . Tu Masz przykład z sampli Bascoma: '---------------------------------------... 'name : .bas 'copyright : (c) 1995-2005, MCS Electronics 'purpose : demonstrates 'micro : Mega48 'suited for demo : yes 'commercial addon needed : no '---------------------------------------...
Witam Piszę program w Bascomie na Atmega32 do sterowania ogrzewaniem w warsztacie i mam problem. Jest zegar RTC, zewnętrzny Ram, Timer, Menu i to wszystko działa bez zarzutu - dokładnie tak jak bym chciał. Chciałem dołożyć czujnik temperatury i wykorzystać do tego celu wejście ADC. Problem pojawia się w momencie jak w podmenu "Start_webasto" dodaję...
Witam W swoim programie wykorzystuję klasyczny kod dla DS18B20. Pomiar, obliczenia i odczyt podzieliłem na dwie części, każda wyzwalana flagą od od Timer0. Najpierw w podprogramie wywołuję DS'y pierwszym wystąpienie flagi od Timer0, a w następnej wywołuję podprogram konwersji i obliczeń. [syntax=basic4gl] $regfile = "m644def.dat" $crystal = 14745600...
Hmm, moim zdaniem gdzieś jest zmienna 8 bitowa (Byte) musisz zmienić ją na większy typ. np. Word, Long. zmienna word Dodano po 1 A czy trzeba konfigurować port Config Pinb.0 = Input Set Portb.0 pod counter0 atmega 32 Dodano po 11 [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 8000000 $hwstack = 32 $swstack = 8 $framesize = 24 Config Lcd = 16...
próbuje zrobic temomert z czujnikiem wilgotności. Odczyt temperatury jest dodkonywany z DS 18B20 $crystal = 16000000 $lib "mcsbyte.lbx" $regfile = "m16def.dat" $baud = 19200 Config 1wire = Porta.0 Deflcdchar 0 , 238 , 234 , 238 , 224 , 224 , 224 , 224 , 224 'definicja symbolu "stopień" Config Portd = Output Config Scl =...
Witam! Jako, że bascom nie posiada bibliotek do obsługi RC6, postanowiłem zrobić to programowo. Napisałem więc taki program: 1100110001100011 1100110001100111 1100110001100000 1100110001100010 1100110001100010 1100110001100001 1100110001100011 1100110001100111 1100110001100000 Mój mikrokontroler to atmega 644p, odbiornik IR TSOP4836 . Ciekawą sprawą...
Witam Chciałem zbudować termometr z 64 czujnikami DS18B20, na układzie Atmega 2560. Konfiguruje sobie każde wyprowadzenie portu po kolei jako 1-wire. Do 44 czujnika temperatury są odczytywane, jeśli wprowadzę 45 czujnik w programie to po przejściu pętli do czujnika T1 otrzymuję wartość 0 stopni na każdym z czujników, jeśli mam 44 czujniki to wszystko...
Witam, dla Bascoma (przynajmniej w tej wersji jaką podałeś) niewykonalne jest zamienienie tych połówek bajta miejscami za pomocą SWAP (SWAP potrzebuje 2 zmiennych, a dostaje jedną). Sprawdzę w najbliższym czasie, czy nowszy Bascom sobie poradzi. Choć faktycznie, ten stary Bascom Basic AVR kompiluje kod, nie zgłasza błędów, lecz SWAP nic tu nie robi....
Witam. Zaprojektowałem schemat, wykonałem płytki, polutowałem, napisałem program na bazie innych i nie działa. Poniżej przedstawiam schemat: Zdjęcia należy wklejać tak: http://www.elektroda.pl/rtvforum/topic12... Proszę poprawić. /prezeswal/. O to schematy http://obrazki.elektroda.net/70_12568387... http://obrazki.elektroda.net/74_12568387...
Witajcie. Mam kilka w chyba podstawowych pytań związanych z niektórymi rzeczami w BASCOMie. 1. Pętla DO LOOP. Czy musi być użyta zawsze w programie i co powinno być objęte ta pętla ? 2. WachDog wbudowany w ATMEGA 8. Jak jest ustawiony fabrycznie i w jaki sposób objawia się jego działanie kiedy jest uruchomiony tzn kiedy się włącza i co robi ? 3. Które...
Witam, Chciałem skomunikować ze sobą 2 atmegi32 i mam z tym problem. Jedna atmega wykonuje pomiar z wejścia adc i próbuję wartość ADC wyświetlić na wyświetlaczu podłączonym do drugiej atmegi, ale zamiast wartości np 467 na wyświetlaczu uzyskuję jakieś przypadkowe cyfry np. 13 10 19 51 54 ... Podłączone jest dobrze RxD do Txd i podciągnięte rezystorami...
pisałem w CodeVisonAVR i bascomie i w zasadzie nie widzę różnicy jeżeli chodzi o zajetość programu i szybkość. Wszystko zależy od programisty jak pokieruje swój program i podejdzie do sprawy. Oba języki działają na podobnej zasadzie, czesto różniąc się tylko samym sposobem zapisu instrukcji, bo w zasadzie kod się pisze na podobnym poziomie abstrakcji....
Już niby mam wszystko, tylko że nie wiem dlaczego wyświetlacz nie działa po wgraniu programu.. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 '***************************************... Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.1...
Sprawa jest banalnie prosta (pomijam tu już połączenie sygnałów na krzyż bo to zrobiłeś chyba prawidłowo) , tylko po 1. Włącz sobie w Bascomie w obu prockach sprzętowy bufor RS232, który działa na przerwaniach - służy do tego polecenie Config Serialin - poczytaj sobie o tym i jak ustawić sprzętowy bufor wejściowy 2. to co chyba ci rozwala całą koncepcję...
Witam serdecznie. Szukałem już chyba wszędzie, próbowałem kilkunastu innych programów i problem ciągle zostaje nie rozwiązany. Otóż piszę program do sterownika pieca. Posiada on 3 czujniki DS18B20, 3 przekaźniki i 1 triak do sterowania pompki kolektorów. Wszystko działa bez zarzutu. Problem pojawia się dopiero po włączeniu przerwania od INT0 (regulacja...
Witam, proszę o pomoc: buduje sterownik na zasadzie włącz/wyłącz, to akurat nie jest w tym momencie ważne :), ale przejdźmy do szczegółów - ma pobierać dane z 4 czujników DS18B20, sam odczyt działa poprawnie, problem zaczyna się w menu, do kroku "2.2" czasem "2.3" wszystko działa poprawnie, lecz z "2.2" i naciśnięciu 'dalej' (lub "2.3") przeskakuje...
Bascom - wersja 1.11.95 Kod, no jest tego sporo: - zegar PCF8563 - Zapis na SD - dwa czujniki DHT11 - odczyt z PCF8574AP ( klawiatura ) - RC5 - ma być DS18B20 - ma być DCF77, ale nie doszedłem do tego momentu ( tzn testowałem na innym procesorze i działało ) Działa - zegar PCF8563 - dwa czujniki DHT11 - odczyt z PCF8574AP w przerwaniu ( klawiatura )...
Witam, w oparciu o przeczytane na forum posty (w szczególności http://www.elektroda.pl/rtvforum/topic14... stworzyłem poniższy kod, który w 99% działa. Poprawnie wysyła SMSy i poprawnie dzwoni w zależności od tego jaki guzik się naciśnie. Problem mam z odbiorem potwierdzeń z modułu SIM300CZ. Wiadome mi jest (po podłączeniu komputera), że na...
Witam Moja Atmega 16 wiesza się w pętlach Uszczenianie i Paletyzacja poniższego programu: 'Listing programu obsługującego symulator procesów. Program został napisany ' i skompilowan w programie BASCOM-AVR 1.11.9.8. $regfile = "m16def.dat" 'określenie typu procesora $crystal = 8000000 'określene szybkości zegara 'Watchdog Wdtcr = &B00011111...
Wszystko się udało zrobić. :) [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Rs = Portd.6 , E = Portd.7 , Db4 = Portb.0 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 Deflcdchar 0 , 8 , 20 , 11 , 4 , 4 , 4 , 3 , 32 'znak stopnia Celsjusza Dim B As Byte Dim W As Byte Dim Dsid1(8) As Byte Dim Dsid2(8)...
Witam, Chciałbym napisać jakiś najprostszy program w VB do obierania wartości zmiennej wysyłanej przez Atmegę, wysyłana jest zmienna Lngfreq Program wgrany na atmęgę poniżej [syntax=basic4gl] 'Filename Encoder_100.bas 'Version 1.00 'Date 2012-03-19 'Purpose Test of ALPS STEC11B13 encoder (reichelt.de) 'Author Georg Latzel, DL6GL 'Copyright (c) Georg...
Witam, postanowiłem dodać do programu pomiar temperatury mam czujnik DS18B20 , tylko że kod programu odpowiedzialny za sterowanie czujnikiem opóźnia działanie encodera ,gdzie jest tutaj błąd może czegoś nie uwzględniłem w tym kodzie ? poniżej cały kod [syntax=basic4gl] 'Filename Encoder_100.bas 'Version 1.00 'Date 2012-03-19 'Purpose Test of ALPS STEC11B13...
I działa to tylko dlatego że bufor został przesunięty???? Tak. Jeżeli zastosujesz taki kod: $regfile = "M32Def.dat" $crystal = 16000000 $hwstack = 128 $swstack = 64 $framesize = 64 '---------------------------------------... Dim Timer1_licznik As Byte Dim Buffer(256) As Byte At 1024 Dim Write_position...
bascom string string atmega string bascom
linia długa python corral multi monitor
unitra zjednoczenie unitra zjednoczenie
Czas ładowania kamery Panasonic HD-SD60 Instrukcja obsługi centrali alarmowej Pulsar 501
