Mirley - Elektronika i Programowanie

Witam

Siedzę nad tym dobrą godzinę i nie rozumiem po co są te obliczenia dla np.: DS18B20

Polecenie

tempa=not tempa
tempa=tempa/16
tempa=tempa*(-1)

Możesz mi napisać po co to robisz?

Nie ma tu pomyłki, poniższy fragment wykonuje się gdy temperatura jest ujemna (odpowiednia wartość w starszym bajcie)

  Tempa = Not Tempa
  Tempa = Tempa +1
  Temp = Tempa / 16
  Temp = Temp * (-1)

Pierwsze dwie linijki to klasyczna zamiana z kodu U2(Uzupełnień do dwóch) na kod binarny, kolejna linijka dzieli przez 16 aby uzyskac zapis w stopniach, potem zmiana znaku na ujemna wartość bo wiemy ze jest ujemna z wcześniejszych przesłanek a odczytujemy wartość bezwzględną

Przepraszam jeśli się mylę ale np temp. +25 to przy 9 bitach naprawdę jakby +50 dlatego dzielone przez 2 czyli binarnie 00110010 a polecenie not da wynik 11001101 czyli 205/2 czyli 102,5 stopnia czyli gdzie popełniam błąd, i jeszcze pytanie jak przełączyć 18B20 na 9bit.

Niestety nie wiem jak przełaczyć DS'a w tryb 9 bitów bo nigdy nie było mi to potrzebne.... raczej napewno trzeba wpisać do rejestru odpowiednia wartość na podstawie karty katalogowej

Jeśli chodzi o te obliczenia to tak zaplątałeś że nie mogę zrozumieć o to Ci chodzi. Wartość policzyłem na podstawie karty katalogowej

Mam taki zabytek, który wciąż nieźle działa ale wymaga peceta. Jak zrobić odczyt temperatury 0-99 C i przy użyciu at89c2051 wyświetlać wynik na dwóch wyświetlaczach LED (bez części dziesiętnych)?

Ewentualnie jakiś alarm przy spadku temperatury poniżej np. 40 C (piec CO).

Pozdrawiam

Program masz wyżej a w projektach mam gotowe dwa termometry z wyświetlaczem LED

Chodziło mi o to że 00110010 oznacza 50/2 czyli 25 stopni a polecenie not zamieni każdy bit w bajcie czyli da wartość 11001101 czyli 205/2 czyli 102,5 stopnia więc gdzie popełniam błąd???

Nie zrozumiałem wcześniej co ci chodzi ale teraz już wiem..... Błąd jest tu że negujesz wartości temperatury gdy jest ona dodatnia. To przeliczenie z negacją działa jak liczba jest ujemna zapisana w kodzie U2, robiąc z liczby U2 liczbę dodatnią binarną.

If Msb = 0 Then     'jesli temperatura większa od zera to:
  Temp = Lsb / 2    
Else                'jeśli mniejsza od zera to:
  Lsb = Not Lsb      
  Lsb = Lsb +1
  Temp = Lsb/2
  Temp = Temp * (-1)
End If

Dla przykładu jeśli temperatura jest -25 stopni to ds18B20 ma wartości w dwóch bajtach 1111 1111 1100 1110, pierwszy bajt niesie informacje o znaku a drugi po negacji dodaniu 1 i podzieleniu przez 2 daje liczbę 25, a że jest to -25 to wiemy z pierwszego bajtu który zawiera same 1. Dla DS18B20 nie wszystkie bity starszego bajtu są 1 i sprawdzam tylko pierwszy bit bo inne kombinacje sa niedopuszczalne z punktu widzenia samego DS'a.

popatrz na tabelkę w karcie katalogowej

Dziękuję bardzo teraz popatrzyłem do datasheet i już to zrozumiałem, ale jeszcze pytanko po co dodawać 1?

Bo taka jest definicja http://pl.wikipedia.org/wiki/Kod_uzupe%C5%82nie%C5%84_do_dw%C3%B3ch

Else
  Lsb = Not Lsb
  Lsb = Lsb +1
  Temp = Lsb/2
  Temp = Temp * (-1)
End If

Else
  Lsb = 256 - Lsb
  Temp = Lsb/2
End If

Poza tym nawiązuję do mojego wcześniejszego postu: czy obsługa DS1820 (taki mam) i DS18S20 jest taka sama ?

Ds18S20 to chyba to samo co DS1820.... do pdf-a popatrz na tabelkę z przeliczeniem temperatury.

Co do fragmentu przeliczającego temperatury to jest wiele sposobów żeby to zrobić....Raz wieki temu napisałem te linijki i teraz zawsze wklejam do swoich programów, nawet za bardzo nie zastanawiam się nad tym. Z tego co patrze to twój kod tez poprawnie konwertuje ujemne temperatury... tylko było by lepiej gdyby dać Lsb-256, wtedy wyjdzie z minusem (jak zmienna będzie integer)

Ps. kody źródłowe należy umieszczać w odpowiednim znaczniku, czasami poprawiam wpisy a czasami kasuje więc dostosuj się do regulaminu

Witam Cię Mirley
Wiem że terminaż masz napięty, ale może mógłbyś pomóc??
mam gotowy soft do sterownika akwariowego w którym odczyt temp. jest z czujnika 1820 czy mogłbyś zerknąć jak zamienić go na 18b20 ponieważ takie czujniki mi przysłano. Czytałem trochę ale nic z tego nie rozumię coś się przelicza inaczej.
pozdrawiam

oto fragment kodu:

Sub Read1820
   Waitms 250
   Waitms 100
   1wreset
   1wwrite &HCC
   1wwrite &HBE
   Bd(1) = 1wread(9)
   1wreset
   Tmp = Bd(1) And 1
   If Tmp = 1 Then Decr Bd(1)
   T = Makeint(bd(1) , Bd(2))
   T = T * 50 : T = T - 25 : T1 = Bd(8) - Bd(7) : T1 = T1 * 100
   T1 = T1 / Bd(8) : T = T + T1 : T = T / 10
   X = T / 10
End Sub

1wreset
1wwrite &hcc
1wwrite &h44 
wait 1
1wwrite &hcc
1wwrite &hbe
Lsb = 1wread():
Msb = 1wread():
1wreset
 
temperatura=makeint(lsb,msb)
temperatura=temperatura/16

To co podałem to bez liczb po przecinku, chyba że będzie to zmienna single, inaczej jesli nie chcesz miejsc po przecinku to word.
Ten kod co podałeś jest jakiś "niedziałający", nie ma prawa działać.

Pytanie dla bardziej doświadczonych niż ja. Potrzebuję uruchomić trzy ds18b20 na różnych pinach. Jak powinna wyglądać konfiguracja tych pinów w komendzie config port. Piny mają być wejściami, wyjściami z podciąganiem czy bez, czyli reasumując jak skonfigurować te piny ? Oczywiście chodzi o bascom.

Po pierwsze nigdy nie robiłem więcej niz jednego 1-wire bo wymyślono to po to aby była jedna taka magistrala. Jeśli zależy Ci na tym aby odpalić trzy magistrale niezależne to będziesz musiał za każdym razem konfigurować 1-wire za pomocą "Config 1wire = Pinx.y", tak mi się przynajmniej wydaje. Co do ustawienia typu wyprowadzenia to i tak polecenia config 1-wire ustawia sobie pin tak jak mu potrzeba. Możesz spróbować ustawić jako wejścia na początku a potem config 1-wire na jeden z pinów. Przed każdym wywołaniem innej magistarli będzie trzeba zrobić config 1-wire na inny pin. Popróbuj coś bo jak mówiłem takich rzeczy nigdy do niczego nie potrzebowałem

Dzięki za podpowiedź sprawdzę ten sposób. Wiem że założenia magistrali 1-Wire są trochę inne lecz ostatnio miałem taką sytuację że po awarii jednego z ds sterownik pieca co dostał szału i grzał aż się przygotował (wszystkie odczyty ds między 25 a 35 stopni C ). Chcę na przyszłość uniknąć takiej rzadkiej sytuacji a znalazłem w pomocy bascom wzmiankę że można do komend obsługi 1-Wire dodać nr pinu np. 1wreset port,pin lecz nie ma wzmianki czy i jak ten pin ustawić. Google również skąpi informacji. Jeszcze raz dzięki za odzew.

podaj mi maila to podeśle ci kod od sterownika wykorzystującego 2 termometry DS18B20
obsługuje on 2 termometry niezaleznie podłączone do 2 odobnych wejść może ci się przyda.

Byłoby super. Mail do mnie: . Z góry dzięki.

Wstawcie kod tutaj na strone.... klikając na wstawianie obrazka można pod przyciskiem "browse" wrzucać różne pliki, nie tylko foto

Kompletny kod jest dość długi. Postaram się wybrać te części które odpowiadają za obsługę magistral i wystawię na forum. Oczywiście jeżeli kolega beleco nie wystosuje sprzeciwu ;). Pzdr.

witam
jestem bardzo ciekawy jak wygląda obsługa ds na 2 portach
możesz to pokazać

nie moge sobie poradzic z wklejeniem tego kodu na strone, chetnych prosze o adres to przesle emialem

Klikasz przycisk "BAS" w edytorze, i między znaczniki gb wklejasz kod jako zwykły tekst (bascom otwarty w edytorze tekstowym, np notatnik). Mail: elektronika_małpa_firlej.org

Witam.

Mam pewien problem. Otóż chciałem zrobić termometr, który temperaturę wysyłałby co 500ms przez uart do komputera. Kwarc 16mHz, 1-wire na PorcieC.5 AVRek to Amega8. Jednak zawsze w terminalu ukazuje się "4095.94" Czy mógłbym prosić o kod?Muj to przerobiona wersja tego od termometru uniwersalnego. Zmieniłem attiny2313 na m8def, 12000000 na 16000000 i dodałem wysyłanie wartości zmiennej w pętli głównej na RSa.

Dziękuję

Da na początek czytanie z Ds'a co najmniej co 1s-2s i zobacz efekty

Jak wyglądała by procedura wyświetlenia numeru seryjnego jednego DS'a?
W jakiej postaci się to wyświetli bez jakiejkolwiek konwersji?

Czy wystarczyło by napisać:

lcd ds1(1);ds1(2);ds1(3);ds1(4);ds1(5);ds1(6);ds1(7);ds1(8)

Potrzebował bym wartość numeru takiego termometru jako jedna liczba z dowolnego zakresu.

Numer ds'a jest w postaci 8 bajtów.... nigdy nie zastanawiałem się czy ma to jakąś głębszą interpretację w postaci jednej wartości(napewno jest tam crc, kod układu i kod rodziny).... można by zamienić to na jednego long'a (4 bajty) albo jeśli potrzebujesz taki numer zapisać a potem za jego pomocą sterować odpowiednim DS to można zrobić tak jak napisałeś wyżej, albo zapisać w postaci w postaci tablicy

Numer ds'a potrzebny mi jest do czegoś innego mianowicie:
Powiedzmy że kilka osób ma jeden układ (konkretnie chodzi o sterownik do modelu o którym gdzieś pisałem). Do każdego sterownika dorzucę ds'a. Jeśli będę znał jego numer to napiszę na początku programu tak:

odczyt ds'a
   'wczesniej sczytam sobie ds'y
   'i na sztywno przypisze numery do danego sterownika
If numer_ds = (tu liczba danego ds'a) then
   do
   loop
   end
else
   'cos tam
end if

A czy do reprezentacji temperatury potrzebna jest tu funkcja Fusing? Przecież DS daje liczbę binarną, nie można użyć makedec. Potrzebuję uzyskać liczbę mieszczącą się w zmiennej byte i odpowiadającą dokładnie temperaturze czyli jeśli jest temperatura powiedzmy 25st.C to chciałbym mieć taką liczbę. Da się tak?

fusing nie jest potrzebny to tylko jedna z propozycji.

Ds18B20 daje liczbę binarną pomnożoną przez 16 (w dwóch bajtach) możesz podzielić przez 16 i wpisac wynik do byte

Nie bardzo rozumiem zasadę odczytywania temperatury z kilku czujników. Mam podpięte 4 czujniki pod magistralę, ale jak mam odczytać z nich temperaturę?
Mam niby napisać tak?:

1wreset
1wwrite &H33
czujnik(1) = 1wread(8):
czujnik(2) = 1wread(8):
czujnik(3) = 1wread(8):
czujnik(4) = 1wread(8):

Potrzebuję do jednej zmiennej zapisać te 2x8 bitów, podzielić to przez 16 by uzyskać liczbę dla zmiennej byte.

Wyżej w opisie masz wszystko napisane.... jak odczytywać numery seryjne i jak odczytywać poszczególny czujnik..... napewno nie tak jak napisałeś.

Musisz wysłać na magistrale numer seryjny ds'a a potem robisz tak jakby był tylko jeden czujnik, poprostu odczytując dane. Po każdym resecie musisz zaadresować czujnik, chyba że chcesz wysłać rozkaz do wszystkich.

Popatrz na przykładowy program na końcu artykułu. Tam są numery wpisane na sztywno, ale możesz zrobić na początku if'a który np po zwarciu zworki odczyta numer seryjny jednego ds'a i zapisze go do eeprom, potem odczytasz numer drugiego ds'a i zapiszesz w innym miejscu w eeprom a na samm końcu podłączysz dwa czujniki naraz i będziesz adresował tymy zapisanymi numerami

Mireczku, czy możesz swój program główny w tym temacie uzupełnić o komentarze? Chętnie przeanalizował bym cały kod z dobrymi komentarzami. Nie mam czujnika DS pod ręką więc zrobił bym analizę że tak powiem, na sucho.

Który dokładnie fragment kodu? Nie dam rady wszystkiego opisać

Opisz to i będę happy:

Do
  1wreset 'reset magistrali
 
  1wwrite &HCC 'pomiń sprawdzanie numeru seryjnego ROM
  1wwrite &H44 'rozpocznij konwersję temperatury
  Waitms 250
  Waitms 250
 
  1wreset
 
  1wwrite &H55     'zaadresuj czujnik - rozkaz
  1wwrite Ds2(1) , 8 'wpisz jego numer
  1wwrite &HBE      'wyślij do zaadresowanego rozkaz odczytu 
 
  Lsb = 1wread():  'odbierz pierwszy bajt
  Msb = 1wread():   'odbierz drugi
 
  Tempa = Msb * 256   'Przelicz dwa bajty na jedną liczbę, zgodnie z kartą
  Tempa = Tempa + Lsb
  Tempa = Tempa / 16
  Tekst1 = Fusing(tempa , "#.##") 'zrób stringa, dwa miejsca po przecinku
 
 
  1wreset  'reset
 
  1wwrite &H55     'to samo co wyżej drugi czujnik
  1wwrite Ds1(1) , 8
  1wwrite &HBE
 
  Lsb = 1wread():
  Msb = 1wread():

Witam wszystkich.
Ja z kolei mam taki problem. Termometry są już tak "przewałkowane" na wszystkie strony, że nie ma większego problemu. Ale apetyt rośnie w miarę jedzenia! Ostatnio wpadł mi w ręce czujnik ciśnienia DMP015A. Chciałbym go oczywiście wykorzystać. Czy ktoś mógłby mi podrzucić jakiś kod do jego obsługi? Może być coś podobnego, z modyfikacją jakoś bym sobie poradził (?).
Pozdrawiam.

Witam, proszę o pomoc, sugestie porady w następującej kwestii : symulator DS18B20 najlepiej napisany w Bascom. O co chodzi: program ma symulować DS i wysyłać dane po 1-wire. załużmy, że mamy urządzenie, które potrafi komunikować się tylko z DS18B20 i nic więcej (softu urządzenia nie możemy zmienić). Chcemy do tego urządzenia przesyłać dane. Widzę to tak. Na zapytanie urządzenia symulator odpowiada kodem urządzenia DS18B20, na zapytanie o temp. wysyła dane przez nas wybrane. Wygląda to tak jakbyśmy to my ustalali temperaturę. Mam nadzieję, że jasno opisałem problem. Wszelkie pomysły i realizacje mile widziane. Pozdrawiam

Witam.
Mirku przecztałem ten bardzo przydatny mi artykuł i mam pewno pytanie dotyczące obsługi tych DS-ów.
Czy aby na pewno trzeba po każdej konwersji temperatury trzeba czekać te 750ms?
Mnie się wydaje że jest to niezbędne tylko wtedy gdy czujnik jest podpięty w trybie zasilania go przez linię DQ (dwa przewody). A jeśli podłączamy czujnik standardowo (trzy przewody) ten czas oczekiwania jest niepotrzebny.
Niekiedy ten czas konwersji strasznie przeszkadza np przy obsłudze multipleksowanego wyświetlacza led.

Zasilanie nie ma tu nic do rzeczy po wydaniu rozkazu konwersji trzeba odczekać czas aż czujnik zmierzy temperaturę... to chyba normalne. Temperatura nie jest mierzona w locie.

Nie rozumiem w jaki sposób czekanie 750ms przeszkadza w multipleksowaniu wyświetlacza? natomiast sama transmisja danych 1-Wire trochę przeszkadza i trzeba umiejętnie program napisać aby przerwania nigdy nie występowały w środku przesyłania bajtu po 1-wire bo wtedy będzie się źle wysyłać

No to nie wiem jakim cudem kilka moich urządzeń działa właśnie bez tego czasu konwersji.

Może nieświadomie odliczasz w przewrwaniu albo co którys odczyt z dsa jest dobry jak się akurat konwersja skończy albo obsługujesz wiele rzeczy w programie i siłą rzeczy robi się zwłoka. Trudno powiedzieć bez kodu programu

Przejrzalem programy dwóch swoich urządzeń które działają już jakiś czas prawidłowo. No i tak jak pisałem nie ma w nich tych czasów oczekiwania na konwersję. Jest rozkaz dokonania konwersji i zaraz odczyt. Nieprawidłowości w odczycie też nie ma. W programach tych nie korzystam z przerwań.
Może to bascom bez wiedzy użytkownika załatwia to "za kulisami"?
Pamiętam jak kiedyś męczyłem obsługę 16-sto pozycyjnego wyświetlacza alfanumerycznego led i ds18b20 i właśnie wtedy odkryłem że ds działa bez tych opóźnień. Oczywiście tylko w trybie trzy-przewodowym.
Mirku jeśli możesz to sprawdź to u Siebie.

Witam wszystkich. Stare zagadnienie ale chciałbym dodać coś od siebie. Czas konwersji jest niezbędny na zasilaniu pasożytniczym ( dwa przewody). Na zasilaniu aktywnym (trzy przewody) nie jest konieczny ( z praktyki), aczkolwiek wg dokumentacji powinien wynosić przynajmniej 200ms. Gdzieś w jakiejś publikacji wyczytane, sprawdzone w praktyce. Atmega16, bascom, instrukcja odczytu zaraz po instrukcji konwersji nie powoduje przekłamań w pomiarach. Może na dobry egzemplarz DS trafiłem, może firma Dallas "zabezpiecza" się tymi 200ms, lub długość magistrali ma wpływ na czas konwersji DS. W każdym razie w owej publikacji wyjaśniono to w ten sposób:
1. Ładowanie wewnętrznego kondensatora w DS
2. Instrukcja conwert (DS zasilany z wewnętrznego kondensatora)
3. Ponowne naładowanie wewnętrznego kondensatora
4. Odczyt z DS(DS zasilany z wewnętrznego kondensatora)
Przy zasilaniu pasożytniczym, bez zwłoki nie nastąpi ponowne naładowanie kondensatora w DS i braknie energii na wysłanie wartości temperatury, sama konwersja również przebiega wolniej ze względu na niewielką wydajność tego kondensatora.
Z praktyki, to by się zgadzało ;).
Pozdrawiam.

Dla wartości ujemnej np. -0,5 zostanie pobrane FFF8h czyli w DEC 255 i 248?

Tak dokładnie tak powinno być to odebrane.... Ja czesto odczytuje też

Hi = 1wread(2)

gdzie Hi jest zmienna integer.... po wypisaniu na LCD dostajemy liczbę ze znakiem i nie trzeba kombinować