Użytkownik "Gejzero" <g...@p...onet.pl> napisał w wiadomości
news:hdv5ka$3ab$1@mx1.internetia.pl...
>
> Użytkownik "BartekK" <s...@N...org> napisał w wiadomości
> news:hdu4gf$nlk$1@atlantis.news.neostrada.pl...
>> Gejzero pisze:
>
>> Poza tym jak koledzy radzili - promieniowanie. Choćby promieniowanie
>> cieplne od twojej elektroniki (głupi 7805 zimny w palcach, a coś
>> promieniuje), i przenoszone to ciepło przez ścieżki, laminat - do nóżek
>> ds18b20 (a tędy wprost do struktury, strasznie zakłamując pomiar). Prawdę
>> dopiero byś poznał oglądając okolicę dsów kamerą termowizyjną.
>
> No i problem rozwiązany ;)
> Czujnik nagrzewał sie od płytki układu - koło złacza 1 wire są
> stabilizatory.
> Teraz oddaliłem "cieplejszy" czujnik od płytki i zawinałem go razem z tym
> umieszczonym w rurce husteczką higieniczną.
> Wskazania różnią się teraz o dziesiętne części stopnia.
>
> Dziękuję wszytkim za naprowadzenie na rozwiązanie problemu :)
>
> Mam jeszcze jedno pytanko, nie krzyczcie, od razu przyznam się że jeszcze
> tego nie szukałem.
> Czy można zmusić jedną komendą kilka takich czujników do wykonania pomiaru
> w tym samym czasie a dopiero póżniej odczytywać to co zapamiętały czujniki
> ?

No i teraz dopiero wyszło że chyba miałem jeszcze błąd w przeliczaniu
wyniku, bo teraz wyszło że temp. na wyświetlaczu jest niższa o kilka stopni
w stosunku do rzeczywistej :/

1wwrite &HBE 'komenda odczytu układu DS1820 'zmierzonej temperatury
B1 = 1wread()
B2 = 1wread()
If B2 >= 248 Then 'w przypadku
temperatur ujemnych
B1 = 255 - B1 'Od 255
Odejmujemy B1
B2 = 255 - B2 'od 255
odejmujemy B2
Znak = "-"
Else
Znak = "+"
End If
T1 = B1 / 16 'Przesuniecie w
pawo o 4 bity
T2 = B2 * 16 'przesuniecie w
lewo o 4 bity
T1 = T1 + T2
.
.
.

W ostatniej lini zamiast mnożenia przez 16 było przez 10 choć w komentarzu
było przesunięcie o 4 bity.

Nie sprawdzałem tego jeszcze w układzie bo dopiero dzisiaj w pracy się
doszukałem.

Dobrze myślę że to może być przyczyną zaniżania wyniku o dobrych kilka
stopni ?

Gejzero.