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ć.