Przetestuj ten. Tak go poopisywałem, że aż mi się nie podoba :D [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $hwstack = 40 $swstack = 16 $framesize = 32 '# wyświetlacz Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Cls '# timer ' 8000000Hz(8MHz)/256(Prescaler)=...
Może nie umie wstawiać? $regfile = "m88def.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4 Config Portd = &B00001111 'portd 0 1 2 3 jako wyjscia portd 4 jako 1wire 5 6 7 jako wejscia Portd.5 = 1 Portd.6 = 1 Portd.7 = 1 Portd.3 =...
http://obrazki.elektroda.pl/3089511800_1... Witam, dziś prezentuje swój bezprzewodowy termometr pracujący na częstotliwości 433 MHz. Urządzenie składa się z nadajnika i odbiornika. Nadajnik odczytuje temperaturę pieca C.O. i wysyła ją do odbiornika. W odbiorniku mamy możliwość ustalenia górnego i dolnego progu załączenia alarmu, który...
witam, mam problem z obsluga czujnika temp. ds1820, polaczony jest przez 1Wire na plytce testowej AVT2500. Przykladowy program do obslugi pobralem ze srtrony http://as.rumia.edu.pl/artur/a/bascom/Te... Kompilacja programu przebiega bez zadnych problemow. W momecie uruchomienia uProca uzyskuje staly odczyt "- 0.5 C". z gory dzieki za pomoc. <--TERMO.BAS-->...
może sie przyda - program właśnie na czujnik 18s20 ' BASCOM College ' (EdW 2001.01 str. 20) ' Temat : "Termometr z Dallas DS1820" ' wersja 1.1 (20.03.2001) ' Compiler : BASCOM 8051 LIBRARY V 2.06 ' Used ROM : &H7A3 1955 (dec) > Ok ' Poprawki do ver. 1.0: ' - poprawiony błšd odczytu temp > 41,5...
Czy można słów kilka o konstrukcji karmnika widocznego na zdjęciach? Jak Obsługujesz ds18b20? Sprawdzasz CRC? Jak reaguje sterownik po odpięciu poszczególnych pinów czujnika? Kolego karmnik to tak naprawdę to urządzenie http://obrazki.elektroda.pl/3445746800_1... modyfikacje z mojej strony to: zmniejszenie obudowy i wyrzucenie przycisków....
Witam. Mam problem z odświeżaniem LCD, chciałbym aby mi się odświeżało dopiero po zmianie temperatury. Wzorowałem się na tym temacie: http://www.elektroda.pl/rtvforum/topic15... lecz u mnie nie chce to działać Poniżaej zamieszczam kod: [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3...
Pozdrawiam wszystkich .Chciałbym napisać ..mam 18 lat wpadłam pomóżcie...A wpadłem w programowanie przy pomocy Bascoma. Przepraszam że podpinam się pod temat ale może mój problem jest błahy szkoda zaśmiecać . Pisze sobie programik do obsługi kolektora między innymi korzystając z czujników DS a że nie jestem w tym biegły co jakiś czas kompiluje i sprawdzam...
mam coś dla ciebie. działający prosty programik do testowania DS'ów Const Skip_rom = &HCC Const Convert = &H44 Const Read_sp = &HBE Const Write_sp = &H4E Const Copy_sp = &H48 Const Recall_ee = &HB8 Const Search_rom = &HF0 Const Read_rom = &H33 Const Match_rom = &H55 Const Alarm = &HEC Config Lcd = 16 * 2 Dim Scrachpad(8) As Byte Dim Tmp As Integer...
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)...
jak zwykle to samo. Uklad zegara jest na pcf chce wstawic synchro 2 razy na dobe wiec nie chce przerabiac programu tylko wstawic w niego (w swoj) dane do synchronizacji . Moze nie wszyscy maja tyle wiedzy co koledzy sa tez poczatkujacy prawda?? $regfile = "m8def.dat" $crystal = 1000000 Config Lcdbus = 4 Config Lcd = 20 * 4 Config Lcdpin =...
http://obrazki.elektroda.net/26_12188856... Termometr domowy wersja 2.0 by skomy Termometr wykonany jest z wykorzystaniem procesora Atmega8 (oprogramowanie w BASCOM): - posiada interfejs 1wire - do podłączania czujników DS18B20 (programowo ograniczone do 4) - wejście odizolowane galwanicznie transoptorem - do wyciszania aktywnych alarmów -...
$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...
http://obrazki.elektroda.pl/6856023800_1... Od kilku tygodni zmagam się z problemem dokończenia wsadu Bascom na sterownik do rolet i oświetlenia. Otóż pierwszy problem to wyświetlanie "krzaków" na LCD 2*16 takich jak na zdjęciu. Otóż sterownik na przemian z czasem po 20sek wyświetla temperaturę. Sterownik po włączeniu zasilania pracuje...
Witam Piszę program do sterownika pieca Wszystko po włączeniu działa przez około 15min a później na wyświetlaczu pojawiają się dziwne znaki także znak z Deflcdchar który nie jest używany tylko zdeklarowany. Przyczyna jest chyba tylko wyświetlacza ponieważ po przystawieniu zapałki do czujnika DS18B20 program działa prawidłowo i włącza alarm jednak wyświetlacz...
Chciałem spróbować programowania mikrokontrolerów w Bascomie zacząłem od sterownika kolektora słonecznego, bo taką mam potrzebę . Chciałem przedstawić pod ogólną krytykę znawców tematu mikrokontrolerów swoje wypociny. Przedstawiam część kodu do obsługi czterech klawiszy. Są to „Enter”; „Esc”; ”Góra”; ”Dół”....
' Zegar, termometr, budzik (przynajmniej takie mam założenie) $regfile = "m8def.dat" $crystal = 8000000 Dim Sekjed As Byte : Dim Sekdzies As Byte : Dim Minjed As Byte Dim Mindzies As Byte : Dim Godzjed As Byte : Dim Godzdzies As Byte Dim Multi As Byte : Dim Miganie As Bit : Dim Wlaczeniebudzika As Bit Dim Ustawianie...
Do kolegi "KUNIARZ" Właśnie wgrałem sobie Twój programik i u mnie DS18B20 śmiga (mam 6 szt. - 5 nowych i jeden z przed 2-3 lat) (chociaż nie wiem dlaczego w Twoim programiku na wyświetlaczu cały czas mi text się przesuwa) Ale nie do tego zmierzam. A mianowicie wgrałem poniższy programik (taki mały termostacik) No i mam problem z czujnikami !!! ponieważ...
Tu jest cały kod. Jeśli możesz to pokaż w którym miejscu jest błąd i jak poprawić . W każdym razie kod działa. $regfile = "m16def.dat" $crystal = 9000000 Config Porta = Input Porta = &B11111100 Config Portc = Output Portc = &B00000000 Config Portd = Input Portd = &B11111111 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portb.3...
Witam. Znalazłem ten kod na elektrodzie i zmodyfikowałem go trochę do własnych potrzeb. Zegarek mierzy poprawnie czas z PCF 8583, ale jest problem z odczytem daty tj dzień, miesiąc, rok, dzień tygodnia. Nie wiem jak prawidłowo ustawić bity w programie. Drugą sprawą jest sposób nastawiania zegarka, otóż chciałbym w przyszłości dopisać program do budzika,...
Witam Chcąc zbudować termometr wraz z alarmem, natknąłem się na forum Elektroda o temat "Termometr wraz z alarmem do CO - http://www.elektroda.pl/rtvforum/topic18... Termometr opiera się na projekcie użytkownika DUCH__. W kodzie widnieje błąd program ten ma wadę, że czujniki dobiera sobie losowo (czyli piec nie zawsze będzie piecem). Czy jest...
Witam! Do zasilacza 2x electronic lab chciałem dodać nieco rozszerzony woltomierz/amperomierz. Dodałem włączanie wentylatora po przekroczeniu temperatury 45*C i sygnalizację alarmu zwarcia (podpięcie się pod diodę LED w zasilaczu). Czy to tak będzie działać? Jakie jeszcze ewentualne sugestie Koledzy mają? Program wygląda tak... $regfile = "M8def.dat"...
Docelowy uklad bedzie sporo robil > 2 czujniki temp, odczyt godziny z pcf8583 i alarmu, wszystko sterowane pilotem(jak bedzie trzeba to na przerwaniu), jak sie uda to komunikacja z pc przez uart, sterowanie 7 przekaznikami, regulacja rgb przez pwm, obsluga przyciskow bez debounce i waitow, obsluga menu ... Jak pisalem wczesniej powyzszy program to tylko...
W skrócie do zadań programu należało by: 1. Wyświetlanie komunikatów na wyświetlaczu LCD 2x8 (około 7 zakładek z informacjami, przełączanych jednym przyciskiem) w tym sterowanie podświetleniem przez BC557B. *1 powitanie *2 pierwszy pomiar temperatury (DS18B20 po 1wire) + alarm przy pewnej temp. niezależnie która zakładka jest włączona. *3 drugi pomiar...
Witam, Napisałem prosty program do odczytu temperatury z DS18B20 jak poniżej, jednak odczytuje on wartości temperatury jedynie do około 57st.C. Powyżej tej temperatury same jedynki. Przekopałem dokumentację i jedyne co mi przychodzi do głowy, to alarmy, ale odczyt SCRATCHPAD nie wskazuje na to aby były włączone. Czy ktoś ma jakieś sugestie? [syntax=basic4gl]...
mała podpowiedź było troche błędów w Twoim programie i przeczytaj co dopisałem wyżej odnośnie pull up [syntax=basic4gl]'----------------------... '--------------------KONFIGURACJA-------... $regfile = "m8def.dat" 'informuje kompilator o procesorze $crystal = 8000000...
http://obrazki.elektroda.pl/8836607800_1... Witam Chcę przedstawić konstrukcję termostatu 4 Kanałowego z wyborem trybu pracy. Układ wykonany na Atmega 32 a program napisany w poczciwym Bascomie. Wyświetlacz ma 4 wiersze po 20 znaków Zastosowane czujniki temperatury firmy Dallas DS18B20 Sterowanie jest za pomocą 4 przycisków (menu, up,...
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...
Proszę o pomoc, nie wiem czy dobrze kombinuję z tym Capture Mode. Próbuję cały czas to jakoś odpalić w moim programie, ale nie wiem czy czy dobrze robię. [syntax=vb]'--------------------KONFIGUR... $regfile = "m16def.dat" 'informuje kompilator o pliku $crystal = 8000000 'informuje kompilator o częstotliwości...
Masz rację na forum jest to tylko cześć okrojonego programu. Wklejam składowo pełny program, wyciąłem tylko poszczególne obliczenia. Może teraz będzie coś więcej wiadomo co może być przyczyną. [syntax=vb]'--------------------KONFIGUR... $regfile = "m16def.dat" 'informuje kompilator o pliku $crystal = 8000000...
Dobra, skończyłem jak na razie "pracę" nad programem. Więcej było gapienia się w niezrozumiałe funkcje i polecenia ale już prawie program czaje w całości :) Oznaczyłem go jako V.2.2 ^^ Zmiany: *Możliwość ustawienia skrajnych temperatur uruchamiających alarm *kasowanie alarmu poprzez wejście do menu i zapisanie zmiennych *zmiana stopnia regulacji zmiennych...
Witam! Jak wspomniałem, mam drobny problem z odbiorem sygnału lasera. Mianowicie mam w sumie wgrany taki oto kod: '---------------------------------------... REJESTRY I CZESTOTLIWOSC ZEGARA $regfile = "m8def.dat" $crystal = 8000000 '---------------------------------------... KONFIGURACJA LCD Config Lcd = 16 * 2 Config Lcdpin = Pin...
Witam, mam taki problem. program wg mnie powinien po przekroczeniu ustalonej temperatury wyswietlac na LCD napis, wlaczac Buzzer oraz zapalic diode. A po nacisnieciu przycisku wyłaczyc to wszystko. I problem jest taki ze wylacza wszystko oprocz diody. Tzn po wlaczeniu sie alarmu dioda wogole juz nie gasnie ani po obnizeniu temperatury ani po nacisnieciu...
Zaczynam się gubić w wersjach kodu. Oczywiście nie do pieca- nie mam, mieszkam w bloku. Ale gdyby- to nie jestem takim szaleńcem żeby od swojego programu uzależniać temperaturę pieca. Od innych programów- też. To jest tylko w celach poznawczych. Teraz próbuję przetestować taką wersję: Przygotowanie_odczytu: If Flaga_przygotowanie_odczytu = 1 Then...
Witam. Buduje sterownik do pompy C.O. i jestem na etapie sprawdzania czy wszystkie jego bloki reagują prawidłowo. I właśnie przyciski podpięte pod portd.2 i portd.3 za nic nie chcą działać jak należy. Jest jeszcze przycisk podpięty pod portd.4 który działa jak należy. Otóż dwa pierwsze przyciski zachowują się tak jakby były cały czas wciśnięte. Jak...
w negatywie nie (też to kiedyś przerabiałem ;-) ) zostaje tylko lcd designer , zapisywanie temperatury do epromu , nie wiem ile to pamięci zabiera sprawdz czy np przy pomocy debounce i dwuch przycisków ( + , - ) mógłbyś ustawić sobie (niestety za każdym razem jak wyłączysz zasilanie) temperaturę alarmu , może zaoszczędzisz trochę pamięci trochę poprawiłem...
Witam Odczyt i konwersja jest w pętli głównej.;) Na samym początku("Change Resolution") jest zmiana rozdzielczości czujnika. Do komputera raczej nie jest potrzebna dokładność do trzech czy czterech miejsc po przecinku. Zmianę tą starczy wykonać na samym początku programu, nie ma potrzeby wciskania tego do pętli. Źródło stąd: http://www.elektroda.pl/rtvforum/topic10...
Program napisany jest w Bascom. Delay nie ma w ogóle. Program napisany chaotycznie, ale działał ok dopóki nie dopisałem obsługi DCF77. Gdy przyjdzie odpowiednia godzina, dioda IR ma wysłać kod do odbiornika. Wtedy właśnie procesor zwalnia. Sekundy wtedy "idą" co 3 no i dźwięk ma zwolnione tempo. [syntax=vbnet] $regfile = "m32def.dat" $crystal = 8000000...
Mam prośbę do tych znających lepiej BASCOMA, o przeanalizowanie tego kodu. Program po pewnym czasie wysypuje się. Temperatura co jakiś czas waruje. Podprogramy działają, ale całość nie chce współpracować. Z góry przepraszam za jakość kodu. [syntax=vb]'--------------------KONFIGUR... $regfile = "m16def.dat"...
No tak, bo ja nie mam w zamiarze mieć alarmu dźwiękowego. [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 , Rs = Portd.0 Config 1wire = Portb.0...
Witam Przerobiłem program znaleziony gdzieś w internecie aby pracował z lampami NIXI i mam problem ponieważ nie chce mi się kompilować. Wywala bład 212 "Low level, Rising or Falling expected Config Int0 = Timer , Prescale = 128 Prosił bym o wmiare łopatologiczne tłumaczenie ponieważ dopiero się uczę :D Reszta programu ' Zegar, termometr, budzik NIXIE...
Witam Analizując http://www.elektroda.pl/rtvforum/viewtop... program w niektórych przypadkach mam problem ze zrozumieniem Dodano po 1 Napisałem coś sam ale coś nie działa dobrze. Dlaczego nie zmienia mi się zmienna ,,Liczba''. Gdy wciskam S1 lub S2 ( zmienia się ale jakoś dziwnie ) Poprawiono składnię fragmentu dotyczącego menu,...
Masz tu przykład prostego programu. Z realizowaniemkilku zadań "jednocześnie" ' i2c SCL-PortD.4, SDA PortD6, 1Wire1 - portA.0, 1Wire2 - PD4, LCD: Enable - PortB.0, RS - PortB.4, D7 - PortB3 , D6 - PortB2 , D5 - PortC2 , D4 - PortB1 ' PA0 + dla LED1, PA1 + dla LED2 , PC3 - przycisk 1 , PC5 - przycisk 2 , PC6 - przycisk 3 , PC4 - przycisk 4 $regfile =...
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...
Hy, hy, hy... :D Okazało się, iż winny był rezystor podciągający szynę 1wire, który od samego początku był sprawny. Jego wartość wynosiła 2,2kΩ - na pałę wstawiłem 1kΩ. Zadziałało jak marzenie :D Pozwoliłem sobie przehajcować piec aż do 107°C. Układ cały czas dzielnie pracował i wykonywał swoje obowiązki. Opóźnienia skróciłem do niepatologicznych...
Czyli to zatrzymywanie się animacji na około 0.5 sekundy może być spowodowane pętlą programu głównego? .Podam cały program ,może da się jakoś to ominąć.Dodam że dopiero się uczę. [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 16000000 Config Portc.0 = Output Config Portc.1 = Output Config Portc.2 = Output Config Portc.3 = Input Config Portc.4...
Witam, poniżej zamieszczam kod z Bascoma mojego sterownika BMS, w tej chwili kontroluje temperaturę, czas, Rs232, LCD 2x16. Obsługa z klawiatury lub pilota RC5, w obecnej chwili rozwiajm go o dostęp przez internet. zajmuje ok 8kb pamięci więc w A162 będziesz miał jeszcze drugie tyle pamięci. Ja kożystam z A32 Pozdrawiam. PS. daj znać jak zakończysz...
Witam. Jako, że jestem początkujący w tej dziedzinie, chciałem się poradzić doświadczonych kolegów jak przerobić dalej program. Do projektu kolegi DUCH - 4xds18b20 LCD dodałem sterowanie włączeniem led, buzera (opcjonalnie przekaźnika) po przekroczeniu założonej temperatury, zarówno za niskiej jak i za wysokiej (chodzi o piec CO) informuje mnie o tym...
Tak na szybko, nie testowane - nie mam bascoma to co dopisane zmienione oznaczone komentarzem ' ********* dopisane alarm [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 16000000 $hwstack = 64 $swstack = 64 $framesize = 64 $include "Config_PCF8583.bas" Config Lcdpin = Pin , Rs = Portd.2 , E = Portd.3 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6...
Witam serdecznie. Mam taki oto problem. Zbudowałem sterownik do centralnego ogrzewania sterujący elektrozaworem i pompą w zależności od temperatury w bojlerze i na piecu. Problem jest taki - po chwili pracy (nieregularnie) resetuje się. Ktoś ma jakiś pomysł? Napięcie zasilające jest dobre. Program w bascomie: '---------------------------------------...
1wire bascom bascom 1wire atmega8 1wire bascom
schemat agregatu trójfazowego unitra diora giewont karta pamięci uszkodzona
manetka hulajnoga milwaukee dioda
Czy prądnica Simsona Sport działa bez akumulatora? Schemat instalacji elektrycznej Renault 110-54