4x DS18b20 +LCD = Termometr

Go to page Previous 1, 2, 3 ... , 13, 14, 15 Next

Main Page -> Forum Index -> DIY Structures -> 4x DS18b20 +LCD = Termometr

Author

Message

sebazaz
Poziom 10

Joined: 19 Sep 2005
Posts: 59
Location: Białystok

#391 04 Dec 2011 20:59

Re: 4x DS18b20 +LCD = Termometr

TomTech wrote:

Zmieniłem na 3,3k i nadal tak samo, po dołączeniu czujnika na przewodzie nie jest wykrywany żaden czujnik. Do jakiej najmniejszej wartości mogę zmniejszyć ten rezystor.

Ja mam u siebie 7 czujników na kablu około 100m i działa bez problemu już 3 lata.
Rezystor 1K, kabel to zwykły UTP. Połączenie czujników trój przewodowe (rozdzielony sygnał i zasilanie). Miałem tylko drobne problemy ze stabilnością odczytów ale pomogło dodanie niewielkich elektrolitów na zasilaniu przy każdym DS-ie.

Klucha93
Poziom 9

Joined: 01 Oct 2009
Posts: 36
Location: Buk

#392 04 Dec 2011 21:33

Re: 4x DS18b20 +LCD = Termometr

Polecenia z 1wire są takie same jak z tej stronki. wyszukiwanie, adresowanie, czytanie wyniku itp. Podam tylko polecenie wyświetlenia:
I właśnie tutaj próbowałem ze zmienną Integer. Wcześniej
I1 = 1wread(2) : termostat = 1wread(2)
Potem dalej w pętli:

Termostat= termostat*10
temostat= termostat/16
if termostat >= 22 then
portc.0 = 0 'zapal np. diode
I1 = I1 * 10
I1 = I1 / 16
If I1 > 0 Then 'korekta przesuniecia znaku st C przy przejściu z temp ujemnej na dodatnią
Ss = Str(i1)
Ss = Format(ss , " 0.0")
Locate 1 , 1 'Pozycja wyświetlania nazwy i temperatury ujemnej
Lcd "Grzejnik " ; Ss ; Chr(0) ;
Else
Ss = Str(i1)
Ss = Format(ss , " 0.0")
Locate 1 , 1 'Pozycja wyświetlania nazwy i temperatury w wierszu 1
Lcd "Grzejnik " ; Ss ; Chr(0) ;
End If

Starałem się wynik odczytu formatować podobnie jakby miałbyć wyświetlany na wyświetlaczu. I tu właśnie miałem problemy z typami zmienymi. Jeśli chce zapisać aktualny wynik w zmiennej i potem jeśli będzie większy od np. 22 stopni to coś załączy. Próbowałem na wiele sposobów.

kristof
Poziom 12

Joined: 11 Feb 2003
Posts: 105
Location: Warszawa

#393 11 Dec 2011 16:33

Re: 4x DS18b20 +LCD = Termometr

Witam.
A ja mam pytanie może trochę głupie :)
Jak jest z kolejnością DS-ów? Skąd wiem który zostanie odczytany jako "first" a który jako "next"? Chcę zrobić termometr na dwóch DS18b20 (temp. wewn. i zewn.) i tak się zastanawiam czy za każdym włączeniem termometru kolejność DSów będzie taka sama? czy jednak trzeba za pierwszym razem zapisać ich ID i odpowiednio zmodyfikować kod?

EDIT: przekopałem elektrodę i wydaje mi się że pierwszy się zgłasza ten o najniższym ID...tak?

Google

Google Adsense

# 11 Dec 2011 16:33

Dariusz Goliński
Poziom 18

Joined: 21 May 2003
Posts: 553
Location: Brzeziny

#394 11 Dec 2011 21:14

Re: 4x DS18b20 +LCD = Termometr

W tytułowym termometrze kolejność jest od numeru najniższego do najwyższego, więc w zasadzie będziesz miał tak samo, oczywiście można by dorobić rejestrowanie numerów i ich zapis.

TomTech
Poziom 11

Joined: 15 Oct 2003
Posts: 62

#395 12 Dec 2011 14:58

Re: 4x DS18b20 +LCD = Termometr

Dziękuje wszystkim za pomoc, układ już wykrywa czujniki a przyczyna to kabel. Nie każdy się nadaje najpierw użyłem kabla od zasilacza wtyczkowego mimo, że sprawny to czujnik nie były wykrywany, kiedy zmieniłem na kabel UTP i zmniejszyłem wartość rezystora do 3k wszystko działa poprawnie.

szczukot
Poziom 6

Joined: 21 Jun 2005
Posts: 19
Location: Szczecin

#396 28 Dec 2011 23:37

Re: 4x DS18b20 +LCD = Termometr

Ja ogolnie mam siec czujnikow 1wire podpietych pod port USB routera. Aktualnie pracuje 8 sztuk, ale za kilka dni bedzie kolo 20-25. Odleglosci rozne - nawet z 70m. Nie mam zadnego rezystora podciagajacego !! A wiekszosc czujnikow chodzi na 2 zylach - czesc na 3 zylach z osobnym zasilaniem.
Teraz przymierzam sie, aby wynik miec nie tylko przez www, ale tez na takim wlasnie wyswietlaczu. Jakos na tygodniach sie pobawie, choc elektronike ostatni raz przerabialem z 10 lat temu :) I dlatego musze poszukac jakiejs gotowej zlozonej plytki takiego A8 z wyswietlaczem, aby moc pobawic sie tylko w prgramowanie.

Fantom

sebagnych
Poziom 15

Joined: 08 Apr 2010
Posts: 268
Location: Ruda Śląska

#397 30 Dec 2011 19:26

Re: 4x DS18b20 +LCD = Termometr

Mógłbyś udostępnić wsad?

elkow
Poziom 5

Joined: 07 Jan 2012
Posts: 11

#398 11 Jan 2012 20:01

Re: 4x DS18b20 +LCD = Termometr

Witam.
Chyba również coś takiego spróbuję zrobić.
Tylko że chciałbym to wzbogacić o funkcję zapisywania wyników pomiarów
i przesyłania do komputera. Do zapisywania wyników użyłbym EEPROM szeregowy 24C512
natomiast komunikacja z komputerem była by przez RS-232.
Co o tym sądzicie?

seba_x
Poziom 22

Joined: 07 Jul 2003
Posts: 1598
Location: czarna dziura

#399 13 Jan 2012 12:10

Re: 4x DS18b20 +LCD = Termometr

elkow wrote:

Co o tym sądzicie?

Można tak zrobić ale łatwiej będzie bezpośrednio PC podłączyć pod czujniki , ściągnij sobie program LogTemp i po sprawie.

elkow
Poziom 5

Joined: 07 Jan 2012
Posts: 11

#400 14 Jan 2012 01:32

Re: 4x DS18b20 +LCD = Termometr

seba_x wrote:

Można tak zrobić ale łatwiej będzie bezpośrednio PC podłączyć pod czujniki , ściągnij sobie program LogTemp i po sprawie.

O tych czujnikach 18B20 dowiedziałem się właśnie z pewnego artykułu opisującego jak zrobić
rejestrator temperatury z PC-ta. Tam było to oparte na Linuxie i programie digitemp.
Rozwiązanie bardzo fajne, proste w realizacji jednak do działania potrzebuje komputera włączonego non stop.

Tutaj na podstawie kilku innych schematów znalezionych w sieci narysowałem swój.
Jest to pierwszy mój kontakt z eagle więc proszę mnie nie linczować za jakość.
Za wszelkie uwagi z góry dziękuję.

Wyświetlacz LCD ma takie wyprowadzenia:

1 - LED K
2 - LED A
3 - Vss (-)
4 - Vdd (+)
5 - Vo KONTRAST
6 - RS, 7 - R/W, 8 - E,
9 - 16 DB0 DO DB7 LINIE DANYCH

Google

Google Adsense

# 14 Jan 2012 01:32

j.szymanowski
Poziom 9

Joined: 28 Nov 2002
Posts: 44
Location: Lutol Mokry

#401 14 Jan 2012 12:18

Re: 4x DS18b20 +LCD = Termometr

A nie "pokręciłeś" coś z kolejnością wyprowadzeń LCD-ka? Standardowy wyświetlacz ma tak:
1. masa
2. VCC
3. kontrast
.
.
a końcu podświetlenie 15 i 16 (opcjonalnie).

Możesz oczywiście pokrzyżować przewody, ale jak będziesz chciał wetknąć bezpośrednio w płytkę - to co?

elkow
Poziom 5

Joined: 07 Jan 2012
Posts: 11

#402 14 Jan 2012 15:29

Re: 4x DS18b20 +LCD = Termometr

j.szymanowski wrote:

Wyświetlacz kupiłem na aukcji.
Coś takiego: "WYSWIETLACZ LCD 2x16 Y/G BIG CHAR PODSWIETLANY LED"
I tam był podany taki właśnie rozkład wyprowadzeń jak podałem wyżej.

Google

Google Adsense

# 14 Jan 2012 15:29

kristof
Poziom 12

Joined: 11 Feb 2003
Posts: 105
Location: Warszawa

#403 14 Jan 2012 15:49

Re: 4x DS18b20 +LCD = Termometr

Faktycznie w opisie aukcji ten wyświetlacz ma na pinach 1 i 2 podświetlenie..z tego wynika że nie pokręciłeś :)
1 - LED K

2 - LED A

3 - Vss (-)

4 - Vdd (+)

5 - Vo KONTRAST

6 - RS, 7 - R/W, 8 - E,

9 - 16 DB0 DO DB7 LINIE DANYCH

j.szymanowski
Poziom 9

Joined: 28 Nov 2002
Posts: 44
Location: Lutol Mokry

#404 14 Jan 2012 21:14

Re: 4x DS18b20 +LCD = Termometr

Noo.. Zgadza się! Tym niemniej to jakiś wynalazek. Ja bym takiego niekompatybilnego ze standardowym złączem nie kupował. Tym bardziej, że ten sam sprzedawca oferuje podobny "WYSWIETLACZ LCD 2x16 BIG LED NIEBIESKI NEGATYW !!!" z typowymi wyprowadzeniami.

elkow
Poziom 5

Joined: 07 Jan 2012
Posts: 11

#405 15 Jan 2012 01:03

Re: 4x DS18b20 +LCD = Termometr

j.szymanowski wrote:

Pewnie to rzecz gustu, ale mi akurat kolorki nie odpowiadały w tym niebieskim.
A przestawienie dwóch wyprowadzeń na płytce drukowanej nie stanowi przecież problemu.

A tak odchodząc już od tematu wyświetlacza, to znaleźliście może jeszcze jakieś błędy w moim schemacie ?

kyluz89
Poziom 6

Joined: 06 Apr 2011
Posts: 17
Location: oc

#406 23 Jan 2012 11:28

Re: 4x DS18b20 +LCD = Termometr

Witam. Panowie da rade wrzucić na inny port ten czujnik? Pozdrawiam

Macias86
Poziom 21

Joined: 06 Dec 2003
Posts: 1370
Location: Gdynia

#407 23 Jan 2012 12:12

Re: 4x DS18b20 +LCD = Termometr

kyluz89 wrote:

Witam. Panowie da rade wrzucić na inny port ten czujnik? Pozdrawiam

Tak.

maximus22_kr
Poziom 14

Joined: 26 May 2009
Posts: 171
Location: Kraków

#408 03 Feb 2012 10:36

Re: 4x DS18b20 +LCD = Termometr

Ja w sprawie wyświetlania strzałek zmiany temperatury

Dostosowałem kod Kolegi _Duch do swoich potrzeb i mam:

Code:

'***************************** Pomiar temperatury
Sub Pomiar
Disable Interrupts
'********************* odczyt pierwszego DS18B20
1wreset
1wwrite &H55
1wverify Dsid1(1)
1wwrite &HBE
I1 = 1wread(2)
'********************* odczyt drugiego DS18B20
1wreset
1wwrite &H55
1wverify Dsid2(1)
1wwrite &HBE
I2 = 1wread(2)
'********************* odczyt trzeciego DS18B20
1wreset
1wwrite &H55
1wverify Dsid3(1)
1wwrite &HBE
I3 = 1wread(2)

'********************* odczyt czwartego DS18B20 - zasilacz
1wreset
1wwrite &H55
1wverify Dsid4(1)
1wwrite &HBE
I4 = 1wread(2)

'********************* konwersja dla wszystkich DS18B20
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750

Enable Interrupts
Licznik_ds = 0
Pcf_out = &B01111111 ' stan niski wyjścia P5 ( dec = 223 )
Call Pcf_zapis
'***************************** Obliczanie temperatury

'********************* Obliczenia dla pierwszego
'********************* Obliczenia dla pierwszego
I1 = I1 * 10
I1 = I1 / 16

If I1 >= I11 Then
I11 = I1
If I1 > 0 Then
Ss1 = Str(i1)
Ss1 = Format(ss1 , " 0.0")
Locate 3 , 1
Lcd "Wew" ; Chr(1) ; Ss1 ; Chr(0) ; " "
Else
Ss1 = Str(i1)
Ss1 = Format(ss1 , "0.0")
Locate 3 , 1
Lcd "Wew" ; Chr(1) ; Ss1 ; Chr(0) ; " "
End If
Else
I11 = I1
If I1 > 0 Then
Ss1 = Str(i1)
Ss1 = Format(ss1 , " 0.0")
Locate 3 , 1
Lcd "Wew" ; Chr(2) ; Ss1 ; Chr(0) ; " "
Else
Ss1 = Str(i1)
Ss1 = Format(ss1 , "0.0")
Locate 3 , 1
Lcd "Wew" ; Chr(2) ; Ss1 ; Chr(0) ; " "
End If
End If

'********************* Obliczenia dla drugiego
I2 = I2 * 10
I2 = I2 / 16

If I2 >= I22 Then
I22 = I2
If I2 > 0 Then
Ss2 = Str(i2)
Ss2 = Format(ss2 , " 0.0")
Locate 3 , 11
Lcd "Zew"; Chr(1) ; Ss2 ; Chr(0) ; " "
Else
Ss2 = Str(i2)
Ss2 = Format(ss2 , "0.0")
Locate 3 , 11
Lcd "Zew" ; Chr(1) ;; Ss2 ; Chr(0) ; " "
End If
Else
I22 = I2
If I2 > 0 Then
Ss2 = Str(i2)
Ss2 = Format(ss2 , " 0.0")
Locate 3 , 11
Lcd "Zew"; Chr(2) ; Ss2 ; Chr(0) ; " "
Else
Ss2 = Str(i2)
Ss2 = Format(ss2 , "0.0")
Locate 3 , 11
Lcd "Zew"; Chr(2) ; Ss2 ; Chr(0) ; " "
End If
End If

'********************* Obliczenia dla trzeciego
I3 = I3 * 10
I3 = I3 / 16

If I3 >= I33 Then
I33 = I3
If I3 > 0 Then
Ss3 = Str(i3)
Ss3 = Format(ss3 , " 0.0")
Locate 4 , 1
Lcd "C.O"; Chr(1) ; Ss3 ; Chr(0) ; " "
Else
Ss3 = Str(i3)
Ss3 = Format(ss3 , "0.0")
Locate 4 , 1
Lcd "C.O"; Chr(1) ; Ss3 ; Chr(0) ; " "
End If
Else
I33 = I3
If I3 > 0 Then
Ss3 = Str(i3)
Ss3 = Format(ss3 , " 0.0")
Locate 4 , 1
Lcd "C.O"; Chr(2) ; Ss3 ; Chr(0) ; " "
Else
Ss3 = Str(i3)
Ss3 = Format(ss3 , "0.0")
Locate 4 , 1
Lcd "C.O" ; Chr(2) ; Ss3 ; Chr(0) ; " "
End If
End If

End Sub

Pomiar jest wyzwalany przez Timer2 co 10 sekund
Niestety po 1-3 pomiarach znika wszystko z wyświetlacza, zostaje tylko podświetlanie, czasem świecą linie 1 i 3.
Program ma jeszcze zapisywać na karcie SD wskazania temperatury i kilka innych parametrów. Zapis jest sygnalizowany przez mocniejsze podświetlenie LCD. I co ciekawe samo podświetlenie się włącza i zapis następuje, jednak LCD nic nie wyświetla.
Wyświetlacz LCD 4*20
Flash zajęty w 50%

Próbowałem też wyrzucić obliczenia z podprogramu do pętli głównej, ale wtedy nie aktualizuje/zmienia kierunków strzałek - raz wyświetli i tak już zostaje.

Na moim zwykłym kodzie działa bez problemu już dwa tygodnie. Kod poniżej

Code:

kibec
Poziom 10

Joined: 25 Feb 2006
Posts: 56
Location: Bydgoszcz

#409 16 Feb 2012 21:16

Re: 4x DS18b20 +LCD = Termometr

ja mam ds18b20 i tam się podłącza go inaczej
1 nogę z DS18B20 do minusa
3 nogę do plusa
(u ciebie nogi te są ze sobą zwarte i podłączone do plusa)
http://radzio.dxp.pl/ds18b20/ds18b20_podstawy.htm

kod w bascomie można by uprościć;
a nie powielać ten sam kod;

mimo to skorzystałem z twojego kodu;
jak poprawię to może wrzucę;
dzięki, pozdrawiam

wojtekm97
Poziom 7

Joined: 07 Feb 2011
Posts: 22
Location: Brzesko

#410 17 Feb 2012 14:50

Re: 4x DS18b20 +LCD = Termometr

Witam! Ja mam pytanie czy ten termometr co jest opisany w tym temacie na początku, wyświetla ujemne temperatury? Nie za bardzo jest tam miejsce na znak "minus". Dodatkowo co będzie wyświetlane, gdy nie podepnę paru czujników? - "Error" , "0,0*C" ?
Pozdrawiam Wojciech :)

meniumeniu
Poziom 1

Joined: 31 Jan 2012
Posts: 1
Location: Gryfice

#411 27 Feb 2012 12:35

Re: 4x DS18b20 +LCD = Termometr

wojtekm97 wrote:

Witam.
Ten termometr z pierwszej strony nie wyświetla ujemnych temperatur (jak byś podejrzał kod to byś sam zobaczył). Pewnie dlatego, że za mało miejsca na wyświetlaczu jak zauważyłeś.
U mnie jeśli nie podepnę żadnego czujnika wyświetlają się wszystkie 0,0 a jeśli podepnę chociaż jeden to na wszystkich pozycjach wyświetla tą jedną temperaturę.
pozdrawiam

ziomo3000
Poziom 9

Joined: 22 Nov 2006
Posts: 41

#412 27 Feb 2012 20:38

Re: 4x DS18b20 +LCD = Termometr

Witam Panowie mam problem z wyświetlaniem.. wszystkiego, z początku po zaprogramowaniu bascomem wywalało jakieś błędy, teraz jest ok, ale wyświetla mi takie coś:

Wyświetlacz 4x16, wsad pochodzi z postu 122.

kristof
Poziom 12

Joined: 11 Feb 2003
Posts: 105
Location: Warszawa

#413 27 Feb 2012 20:45

Re: 4x DS18b20 +LCD = Termometr

ziomo3000 wrote:

Witam Panowie mam problem z wyświetlaniem.. wszystkiego, z początku po zaprogramowaniu bascomem wywalało jakieś błędy, teraz jest ok, ale wyświetla mi takie coś:

Wyświetlacz 4x16, wsad pochodzi z postu 122.

Ja miałem podobne krzaczki jak źle (w odwrotnej kolejności) podpiąłem linie sygnałowe.

ziomo3000
Poziom 9

Joined: 22 Nov 2006
Posts: 41

#414 27 Feb 2012 20:54

Re: 4x DS18b20 +LCD = Termometr

Powiedz mi jeszcze, które to są te linie sygnałowe.

j.szymanowski
Poziom 9

Joined: 28 Nov 2002
Posts: 44
Location: Lutol Mokry

#415 27 Feb 2012 21:57

Re: 4x DS18b20 +LCD = Termometr

Linie oznaczone D4, D5, D6, D7.

ziomo3000
Poziom 9

Joined: 22 Nov 2006
Posts: 41

#416 27 Feb 2012 22:26

Re: 4x DS18b20 +LCD = Termometr

Dzięki za odpowiedź, ale już sobie poradziłem, przyczyną było niezauważone zwarcie na płytce.

Google

Google Adsense

# 27 Feb 2012 22:26

neo62
Poziom 13

Joined: 18 Jul 2007
Posts: 126
Location: grodzisk maz.

#417 14 Mar 2012 23:09

Re: 4x DS18b20 +LCD = Termometr

Mam mały problem z tym termometrem. Złożyłem go sobie na płytce testowej, program się wgrywa pięknie ale na wyświetlaczu po włączeniu zasilania zapełnia tylko pierwszą linie kwadratami i nic więcej. O co może chodzić?? Zmieniałem procka, sprawdzałem połączenia i nic to nie daje.

Duch__
Poziom 22

Joined: 12 Dec 2004
Posts: 1948
Location: Opole

#418

15 Mar 2012 07:42

Re: 4x DS18b20 +LCD = Termometr

Wyświetlacz się nie inicjalizuje. Sprawdź poprawność połączeń, zwracając szczególną uwagę na linie RS, RW oraz DATA. Gdzieś masz zamienione linie, ew. twój wyświetlacz nie jest zgodny ze standardem HD44780.

neo62
Poziom 13

Joined: 18 Jul 2007
Posts: 126
Location: grodzisk maz.

#419 15 Mar 2012 23:17

Re: 4x DS18b20 +LCD = Termometr

Wyświetlacz na pewno jest w tym standardzie. Połączenia też raczej dobre.
A może problem tkwi w tym że do megi podpięty jest kwarc 16mHz?? Fusy są nie zmieniane.

j.szymanowski
Poziom 9

Joined: 28 Nov 2002
Posts: 44
Location: Lutol Mokry

#420 16 Mar 2012 00:19

Re: 4x DS18b20 +LCD = Termometr

Kwarc może być 16 MHz - jeśli procesor to "zniesie". Ale musisz jeszcze podać to do wiadomości kompilatorowi i odpowiednio ustawić fuse bity.

Main Page -> Forum Index -> DIY Structures -> 4x DS18b20 +LCD = Termometr

Page 14 of 15

Go to page Previous 1, 2, 3 ... , 13, 14, 15 Next

Page generation time: 2.156 seconds

FAQ || Administrator || Moderators || Widgets and banners || Contact