ło matko ;) po opisie kolegi atom1477 i po tej informacji, że "Bascom coś kombinuje" można by uznać, że napisanie sotu do obsługi 1wire to rzecz prawie niemożliwa dla zwykłego śmiertelnika. Tymczasem to co robi Bascom to absoultnie nie żadna kombinacja tylko normalne zachowanie - ponieważ to podtrzymanie stanu wysokiego na pinie portu jest niejako przygotowaniem...
Problem może być ... sprzętowy. Otóż Tiny2313 fabrycznie ma ustawiony zegar na 8MHz i preskaler zegara na podział przez 8 czyli pracuje na 1MHz. Jeśli nie manipulowałeś z Tinką to nie będzie zgodna rzeczywista częstotliwość taktowania uC z zadeklarowaną w programie. Magistrala 1Wire jest bardzo wrażliwa na czas poszczególnych impulsów i nie zniesie...
A to niby dlaczego nie wolno stosować waitms ??? U mnie jakoś działa przy wielu czujnikach na jednej linii i co to ma wspólnego z wysyłaniem przez uarta ? W tym przypadku waitms nie zakłóca obsługi przerwań, wiec nie widzę problemu. Kolega namieszał trochę w procedurze "odczyt". Na początku wyszukujesz czujniki na linii 1wire, a później, w procedurze...
Można wyświetlać temperaturę w podmenu "wybór_Ds" ale trzeba zmienić cały program. Chyba nie jest tak trudno zapisać sobie cztery ID czujników i wiedzieć później który gdzie przypisać. Najlepiej osobno podłączać każdy czujnik i na naklejce na kablu przy czujniki zapisać jego ID. Wiedząc gdzie jakie jest ID czujnika można już mu w podmenu przypisać odpowiednią...
Poniżej przykład. Zwróć uwagę, że w tym przykładzie komenda konwersji temperatury występuje na końcu, a nie na początku. Odczytana temperatura będzie zatem tą która została konwertowana po poprzednim odczycie. To oczywiście nie ma znaczenia dla tego jak adresować czujniki. Powodzenia ! PL Config 1wire = Portd.6 Dim Adresy(16) As Byte Dim T1 As Byte...
informującego o zmianie temperatury co 1 stopień w górę lub dół To są założenia więc co każdy stopień ma być krótki sygnał. Warunek If T >= 200 then spowoduje że przekroczenie 20 stopni spowoduje sygnał. Muszę chwilę pomyśleć. Trzeba badać także różnicę pomiędzy odczytem poprzednim a następnym. Sprawdź to: (zmień procesor, konfigurację LCD, portów,...
Ja to zrobiłem na Attiny13, temperatura jest określona na stałe, taka byłą specyfika mojego projektu laminatora (do folii UV). Kod był zaczerpnięty z sieci, lekko go zmodyfikowałem. Pamiętam, że teoria nie pokrywała się z praktyką i musiałem wpisać temperaturę z przesunięciem o kilka stopni. [syntax=vbnet]' Uk³ad z sam¹ diod¹ dzia³ao...
Oto mój program wykorzystujący LCD w trybie 4-bitowym, śmiga jak ... Jest tam obsługa LCD i 1wire, procedurki LCD łatwo wyłowić :) // ****************************************... // Project: Obsluga układu DS18B20 // Author: Zbigniew Chrobot // Module description: pomiar temperatury z DS18B20 kwarc 4MHz // wyswietlanie na...
Napisane na szybko nie sprawdzałem ale chyba powinno działać. [syntax=basic4gl] $regfile = "m8def.DAT" 'deklaracja procesora, w tym wypadku Atmega8 $crystal = 1000000 'deklaracja cześtotlwiości pracy (wew oscylator 1MHz w zupełności wystarcza) '*************************************WA... 'Pamiętać o podłączeniu...
Niech kolega sprawdzi, bo nie testowałem, ale powinno działać co 0,1°C. [syntax=basic4gl]'Regulowany termostat cyfrowy 'Projekt wykonał Krzysztof Gońka $regfile = "m8def.dat" $crystal = 1000000 Config Portb = &B11000001 Portb = &B11111111 Config Portd = &B11111111 Portd = &B11111111 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3...
Tak, jak już pisałem, nie tędy droga. Trzeba zrozumieć, ze Menu czyli interfejs programu z człowiekiem powinno być tylko jego nakładką graficzną. Nie może być tak, że kiedy jesteś w Menu to program zaniedbuje cały system, na przykład nie pilnuje zadanych temperatur. Pomyśl co by było gdyby termostat sterował grzałką w akwarium a Ty sobie radośnie wszedłeś...
Podejrzewam że problem jest z odbiorem danych z pilota. BASCOM i GETRC5 nie za bardzo sobie z tym radzi. No i czy masz na pewno pilota RC5? Dodano po 1 Zobacz to: [syntax=basic4gl] $regfile "m8def.dat" 'konfiguracja mikroprocesora $crystal = 4000000 'konfiguracja kwarcu Config Portb = &B11111111 Portb = &B11111111 Config Portc = &B1111101...
A spróbuj tak: [syntax=basic4gl] ' Fuse bity ustawione fabrycznie $regfile = "m8def.dat" $crystal = 1000000 Config Portb = Output 'sterowanie segmentów LED Config Portd = Output 'sterowanie segmentów LED Config 1wire = Portc.5 Anoda1 Alias Portc.1 ' Lewy wyświetlacz Anoda2 Alias Portc.2 Anoda3 Alias Portc.3 Dim Nr_wysw As Byte Dim Liczba As Long Dim...
Witam. Sprawdź w ten sposób: $crystal = 1000000 'deklaracja częstotliwosci pracy kwarcu $regfile "attiny2313.dat" 'model procesora dla którego jest ten program Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32 ' definicja znaku stopnia Config 1wire = Portd.5 ' konfiguracja portu PD.5 jako wejscia magistrali 1-wire Dim Odczyt(2)...
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...
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 =...
[syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs = Portd.3 Config Lcd = 16 * 2 Config Debounce = 10ms 'konfiguracja magistrali I2C Config Scl = Portd.0 Config Sda = Portd.1 'przypisanie nazw przyciskom P_1 Alias Portb.0 Ok Alias Portb.1 Esc...
$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 '-- Wejscia przycisków Config Portd.2 = Input Config Portd.3 = Input ' -- podciągnięcie Set Portd.2 Set Portd.3 ' -- porty sterowania segmentami LED Config Portd = Output Config Portc.5 = Output Config Portc.4 = Output Config Portc.3 = Output Config Portc.2 = Output ' -- tranzystory Config...
nadajnik: [syntax=basic4gl]$regfile = "M8def.dat" $crystal = 16000000 $baud = 19200 $hwstack = 40 $swstack = 20 $framesize = 40 '=== Declare sub routines Declare Sub R_register(byval Command As Byte , Byval C_bytes As Byte) Declare Sub W_register(byval C_bytes As Byte) '=== Constante === 'Define nRF24L01 interrupt flag's Const Idle_int = &H00 'Idle,...
http://obrazki.elektroda.pl/9045655500_1... Chciałbym zaprezentować swój najnowszy projekt, jakim jest minikomputer do samochodu. Urządzenie powstało z potrzeby. A było to tak... Miesiąc temu kupiłem Forda Focusa Mk1, który niestety nie był wyposażony w termometr. Zabrałem się więc do pracy! Początkowo miał być to sam termometr dwupunktowy...
http://obrazki.elektroda.net/23_12758251... Witam, chciałbym zaprezentować konstrukcję termostatu którą wykonałem na zaliczenie przedmiotu na studiach. Do budowy termostatu wykorzystałem: atmega8, cyfrowe czujniki temperatury DS18B20 oraz wyświetlacz 2x16 znaków. Program: Program do atmegi napisany jest w asemblerze. W programie zaimplementowana...
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...
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 wszystkich!!! W związku z tym, że potrzebowałem zrobić prosty termometr cyfrowy(dla wujka), postanowiłem wykorzystać do tego celu wyświetlacz LED z dekodera cyfrowego polsatu (echostar dsb-717 ). Dekoder był uszkodzony i leżał u mnie jako dawca części. Wymagań co do termometru nie było jakiś wielkich, musiał tylko wskazywać temperaturę, być dobrze...
http://obrazki.elektroda.pl/4776361100_1... Witam wszystkich, jest to mój pierwszy projekt opisywany na tym forum. Przedstawiam projekt mojego autorstwa, zegar z termometrem wyświetlający aktualną datę, godzinę oraz temperaturę z 3 czujników. Założeniem projektu było zbudowanie zegara wyświetlającego godzinę oraz temperaturę wewnątrz...
http://obrazki.elektroda.net/99_12535321... Witam, 4x DS18x20 + LCD = Termometr - ale tutaj nieco inaczej plus Extrasy Chciałbym przedstawić proste technicznie ale mam nadzieję dosyć mocno zaawansowane jeśli chodzi o możliwości urządzenie jakim jest prezentowany w tytule "4 kanałowy sterownik / kontroler temperatury oraz 7 kanałowy sterownik...
http://obrazki.elektroda.pl/5851782000_1... Jako, że sezon na kąpiele w ogródku się rozpoczyna to być może ktoś skorzysta z mojego opisu podgrzewania wody w basenie ogrodowym. Ogrzewanie skończyłem w zasadzie w maju i pod jego koniec i jakieś trzy dni po zalaniu 13-o stopniową wodą miałem temperaturę 26 stopni, ale od początku... Na...
http://obrazki.elektroda.pl/2126980700_1... System monitorowania środowiska, oparty o interfejs LoRa IoT składa się z stacji bazowej zbudowanej z wykorzystaniem modułu Arduino Mega z bramką LoRa oraz zdalnych stacji opartych na Arduino Feather, które łączą się z stacją bazową poprzez radiowy interfejs LoRa. System pozwala na monitorowanie...
http://obrazki.elektroda.pl/5636705900_1... https://filmy.elektroda.pl/37_1378532310... Termometr mikromocowy LCD ATMEGA16 Tym razem głównym celem projektu było sprawdzenie możliwości wykonania mikromocowego systemu pomiaru temperatury w oparciu o możliwie standardowe elementy, mówiąc w skrócie byłem ciekawy czy zwykły avr może być...
Pokładałem sobie urzadzonko które ma czytac z czterech ds-ów temperature, wszystkie cztery sa na jednej magistrali z zasilaniem osobnym, (trzy kable) wyswietlacze na których ma byc pokazana temperatura to zwykłe 7-mio segmentowe led-y, multipleksowane w przerwaniu od timera (przerwanie działa tylko w momentach kiedy ds czeka naprzykład na impuls strobujacy...
Witam wszystkich. Chciałbym się pochwalić zaprojektowaniem i wykonaniem termostatu bazującego na wymienionych w tytule podzespołach. W założeniu chciałem stworzyć termostat do swojej trawiarki tak, aby utrzymywać stałą temperaturę trawienia 40°C. Wcześniej po prostu zanurzałem w cieczy trawiącej podłączony do napięcia sieciowego przewód grzewczy. Sądzę,...
No hej! Więc miło że ktoś poruszył temat tego „badziewia” od Dallasa… Wszystko robię mniej więcej tak jak napisałeś… tzn. póki co nie bawię się numerami seryjnymi. Co do różnych przykładów dostępnych na stronach Dallasa, to też z nimi walczyłem… ale do sedna. Udało mi się odczytać pierwszy bajt numeru seryjnego mojego czujnika,...
z kopiowałem Do.....Loop i temperatura działa ale mruganie nie ustało . Kolega LChucki ma racje ale wcześniej nie zagłębiałem się szczegółowo w 1wire i nie spodziewałem się ze będą kłopoty. Wcześniej robiłem sterowniki temperatur na zasadzie zał/wył grzałkę i to działa do dziś. Próbowałem wcześniej procedurę odczytu 1wire władować do przerwania (przejścia...
Witam, Zrobiłem sobie pomiar temperatury w konfiguracji jak w tytule. Zgodnie z opisem ds18b20 moja procedura powinna odczytać zawartośc pamięci czujnika, z czego pierwsze 2 bajty powinny zawierać temperaturę. $regfile = "m8def.dat" Config Lcdpin = Pin , Rs = Portd.1 , E = Portd.0 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7...
http://obrazki.elektroda.net/50_12508962... Przedstawiane urządzenie to elektroniczna podstawka pod kufel/szklankę. Za pośrednictwem analogowego układu czujnika temperatury LM35 mikroprocesor odczytuje temperaturę postawionego nań naczynia. Przelicza odpowiednio temperaturę i podświetla nasze naczynie płynnie zmieniającymi się kolorami. Jeśli...
Znalazłem chwile czasu i przerobiłem kod... Wykorzystałem twój kod do aktualizacji mojego termometru :D Poprzestawiałem tylko miejsca wyświetlania strzałek względem temperatury. PS. Warto by pomyśleć o sposobie wyświetlania strzałek jeśli temperatura się utrzymuje niezmiennie przez dłuższą chwilę. http://obrazki.elektroda.net/4_120902224...
Temperaturę mogę odczytać w ten sposób? Dim Temperatura As Byte Config 1wire = Portb.0 1wreset 1wwrite &H33 Temperatura = 1wread() I jak ją porównać np. do 30'C? A co do wyjaśnienia, to ja jeszcze nie wiedziałem jak odczytać temperaturę, co nadmieniłem w pierwszym poście i wiedziałem, że tamte piny są złe, chodziło mi po prostu o użycie If Then na sucho.
U mnie dziala tak: 1wire_1 Alias P3.0 Dim T As Word Sub 1wire1 1wreset 1wire_1 ' reset magistrali 1wire 1wwrite &HCC 1wire_1 ' zaadresowanie DS'a - skip rom 1wwrite &H44 1wire_1 ' polecenie dokonania konwersji Wait 1 ' dajemy czas na konwersję (wystarczy 750ms) 1wreset 1wire_1 ' reset 1wwrite &HCC 1wire_1 ' adres 1wwrite &HBE 1wire_1...
Witam. Chciałbym odczytać temperaturę z czujnika DS18B20 przez długie i krótkie migania diodą. Np gdy mamy temperaturę 25 stopni to dioda sygnalizowała by dziesiątki za pomocą dwóch długich piknięć a jedności poprzez 5 krótkich. Dopiero zaczynam zabawę z Bascomem i kompletnie nie wiem jak się za to zabrać. Poniżej wklejam fragment kodu z odczytem temperatury....
więc potrzebujesz skonfigurować Timer2 dla RC5. Na timer2 działa OK. O to mi chodziło. Wielkie dzięki (...) ale po co 1wire ? Co masz na myśli?
Tak jak już tu napisano - pewne systemy powinny móc działać autonomicznie i być zintegrowane z automatyką domową, np: - Alarm - z powodów o których napisano (ubezpieczenie) i jego znaczenie - jest to przy okazji świetne źródło danych dla automatyki. - CO/CWU - systemy takie mają swoją logikę (nawet proste termostaty) i powinny działać autonomicznie...
Proszę. Pisałeś kiedyś, że przy okazji chciałbyś się czegoś nauczyć, więc masz tu przykład który napisałem przy kawie. Trzy różne czujniki- DS18B20, LM35 i Termistor NTC 10k - podłączone jednocześnie do jednego mikrokontrolera. Dla czujników NTC wyznacza się ich "Betę" czego nie robiłem dlatego wskazywana przez niego temperatura różni się nieco od tych...
Obecnie wszystko oddane ale pamietam że wejście było skierowane do procka urządzenia po garści elementów zabezpieczeń wejścia Nie jest to żadna termopara ani termistor bo komunikacja cyfrowa (potwierdzona oscyloskopem) samo to że czujnik temperatury "gada " z procesorem Mega8 podobnie jak 1Wire tyle że tego nie rozszyfrowałem (zwraca dane tylko po 1wsearchfirst()),...
Config 1wire = Pinc.4 Dim Bd(9) As Byte Dim Z As Integer , Tmp As Integer Dim T As Integer , T1 As Integer Dim Temperatura As Single Declare Sub Temperatura1 Cls Call Temperatura1 Do Call Temperatura1 Cls Lcd "TEMP " ; Temperatura Loop Sub Temperatura1 1wreset 1wwrite &HCC 1wwrite &H44 Wait 1 1wreset 1wwrite &HCC 1wwrite &HBE Bd(1) = 1wread(9) 1wreset...
Kolega sprawdza przecież CRC. Być może nie wyrabiasz się czasowo. Kiedy masz otwarte IDE Bascom naciśnij na klawiaturze klawisz F1 i w otwartym pliku pomocy wpisz "Using the 1WIRE protocol". Wyczytasz tam między innymi (ale zachęcam do przeczytania całości) : The BASCOM scanning of the bus is finds about 50 devices / second , and reading a specific...
Witam wszystkich forumowiczow. Mam problem z termometrem dwu punktowym na DS1820. Problem polega na tym ze jesli temp jest dodatnia to wszystko jest ok ale problem mam z ujemnymi. Rozdzielczosc jest do 0.1 stopnia. Jezeli temperatura spadnie ponizej zera to jej wartosc wynosi 0.1 czyli -1 stopien. Wydzielilem z 0.1 jedynke i jest Ok ale jezeli temp...
Jest rok 2015 teraz robi się to tak: DS18B20 moze być zasilany z linii transmisji bądź trzecim pinem. Jeśli masz podłaczone 5V na stałe podczas pracy programu czyli do DS`a idą trzy przewody to DS może dla Ciebie przygotować temperature i poczekać spokojnie aż ją odczytasz. Czyli każesz mu przygotować temperaturę i wracasz po nią za sekundę. Kiedy wracasz...
Jak widzisz, w kodzie który przedstawiłeś, brak czujnika lub błąd lub nienaturalna temperatura (ujemna w tym przypadku) skutkują wynikiem "99". A ja jednak podtrzymuje stwierdzenie, że umiejętne zwarcie linii sygnałowej do masy w Twoim kodzie będzie skutkowało wesołym odczytem 0 stopni celsjusza. Zero nie jest ujemne i nie wyłapiesz tego warunkami...
Program działa, ale mam pytanie... Czy ktoś się spotkał że w czujnikach DS1820 temperatura jest wyższa o kilka stopni ? Ja dla sprawdzenia włożyłem czujnik w folii do lodowatej wody (woda z lodem), temperatura powinna wskazywać coś koło zera, jednak pokazywało minimalnie 5 st. C; dlatego też w czujniku drugim odejmuję jeszcze 5 stopni. Drugie pytanie...
Witam Zlecę projekt urządzenia, które będzie posiadało następujące elementy: - procesor atmega (dowolny) - złącze RS232 - wyświetlacz 4x16 znaków - wejście na 4 czujniki temperatury dallasa z interfejsem 1wire - 4 przyciski (resetujący średnie dla każdego kanału osobno) Urządzenie ma wyświetlać w każdej linii informacje na temat jednego czujnika: bieżąca...
Witam Posiadam troche elementów sieci 1-wire. Poszukuje oprogramowania najlepiej na linux do palmtopa. Podstawowe założenia: pomiar temperatury w 6 pomieszczeniach( ds 1820) oraz sterowanie elektrozaworami(switch ds2413) gdy temperatura osiagnie zadana wartosc ostatni switch wylancza nie ostatni elektrozawor lecz wyłancza piec ( wylanczanie w dowolnej...
1wire pomiar temperatura pomiar temperatura 1wire czujnik temperatura 1wire
wtyczka przyczep numery naklejce format activex
Napięcia transformatora ATS1278 BANDO - szczegóły i pomiary Seagate Personal Cloud SRN21C - formaty plików i kompatybilność
