xifyh - artykuły

Nawigator

newsy

download

rekomenduj

kontakt

zanim napiszesz

Rezystry - kod paskowy

Arty

Kod paskowy rezystorów

Lampka RGB

Projektor diy

analizator widma + wzmacniacz

em84 stereo

GDWK 10/80/7 REGENERACJA

Termometr ATMEGA8, LED, DS18b20

Przedwzmacniacz gramofonowy

tft2pc

Promuję

Elektroda.pl

Artykuły > DIY > Termometr ATMEGA8, LED, DS18b20

Pewnego dnia naszła mnie chęć zbudowania termometru. A dla początkujacego z dziedziny programowania mikroprocesorów jest to spore wyzwanie. Nie chodzi tutaj o skonstruowanie termometru który podaje wynik na wyświetlaczu alfanumerycznym z gotowym sterownikiem, bo jest to dziecinnie proste. Ja chciałem zrobić ten termometr na wyświetlaczach segmentowych led. Jest to chyba moje pierwsze poważniejsze urządzenie jakie zbudowałem na mikrokontrolerze, które używam już od pół roku i świetnie się sprawuje. Nie posiada obudowy, ale może się kiedyś doczeka :)

Zakres pracy termometru: od -55 do 125 stopni C. Wynik jest przedstawiany z dokładnością do jednej dziesiatej.

Elementy któe zastosowałem prawie wszytskie pochodzą z elektronicznego złomu. Wyświetlacze ze starych TV, tranzystory sterujace wyświetlaczami oraz stabilizator napiecia na 5v z jakiegoś tunera satelitarnego. Reszta prosto z allegro (mikroprocesor oraz czujnik DS18B20). Z czujnikami miałem przygodę, bo zamówiłem jedną sztukę, a przysłano mi 5 sztuk. Taki gratis "mały" :) I w ten sposób ktos mi zrobił prezent za 20 zł (jeden czujnik kosztuje 5 zł). Układ jest zasilany jakąś ładowarką od telefonu, która daje około 6,5 v. Schemat mam w głowie, a nie umiem obsługi Eagle niestety, dlatego schematu nie będzie :(. Ale z kodu programu można się wszytskiego dowiedzieć. Największym problemem w tym projekcie było multipleksowanie. Czujnik wymaga czasu 750 milisekund na konwersję wyniku i do tego celu zastosowałem pętlę która "na oko" odmierza czas na konwersję, ponieważ nie można było zastosować tutaj polecenia WAITMS. Oto kod programu (w BASCOM'ie oczywiście):

$regfile "m8def.dat"
$crystal = 8000000
Config Portb = &B11111111
         Portb = &B11111111
Config Portd = &B11111111
         Portd = &B11111111
Config Portc = &B11111111
         Portc = &B11111111

Config 1wire = Portb.0

Dim Ktorywysw As Byte
Dim Dziesiatych As Word
Dim Jednosci As Word
Dim Dziesiatki As Word
Dim Setki As Byte

Dim Temp(2) As Byte
Dim T As Integer
Dim T1 As Single
Dim Petla As Word
Dim Pomocnicza As Word
Dim Pomocnicza2 As Single

Petla = 1

Do
If Petla = 1 Then
   1wreset
   1wwrite &HCC
   1wwrite &H44
End If

If Petla = 500 Then
   1wreset
   1wwrite &HCC
   1wwrite &HBE
   Temp(1) = 1wread(2)
   T = Temp(2)
   Shift T , Left , 8
   T = T + Temp(1)
   T1 = T * 0.0625

If T1 < 0 Then
      Pomocnicza2 = T1 * -10
   Else
      Pomocnicza2 = T1 * 10
   End If
   Pomocnicza = Int(pomocnicza2)
   Dziesiatych = Pomocnicza Mod 10
   Jednosci = Pomocnicza - Dziesiatych
   Jednosci = Jednosci / 10
   Jednosci = Jednosci Mod 10
   Dziesiatki = Pomocnicza - Dziesiatych
   Dziesiatki = Dziesiatki / 10
   Dziesiatki = Dziesiatki - Jednosci
   Dziesiatki = Dziesiatki / 10

If T1 < 100 Then
      Setki = 11
   End If

If T1 < 10 And T1 > 0 Then
      Dziesiatki = 11
   End If

If T1 < 0 And T1 > -10 Then
      Setki = 11
      Dziesiatki = 10
   End If
   If T1 < -10 Then
      Setki = 10
   End If
   If T1 = 0 Then
      Setki = 11
      Dziesiatki = 11
      Jednosci = 0
      Dziesiatych = 0
   End If
   Petla = 0
End If

Incr Petla

Gosub Wyswietlanie
Loop
End

Wyswietlanie:
Incr Ktorywysw
If Ktorywysw = 6 Then
   Ktorywysw = 0
End If
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
Portb.4 = 1
Portc.0 = 1
Portc.1 = 1

Select Case Ktorywysw
Case 0:
Portd = Lookup(dziesiatych , Tabela)
Portb.1 = 0
Case 1:
Portd = Lookup(jednosci , Kropa)
Portb.2 = 0
Case 2:
Portd = Lookup(dziesiatki , Tabela)
Portb.3 = 0
Case 3:
Portd = Lookup(setki , Tabela)
Portb.4 = 0
Case 4:
Portd = Lookup(13 , Tabela)
Portc.0 = 0
Case 5:
Portd = Lookup(12 , Tabela)
Portc.1 = 0
End Select
Return

Tabela:
Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144 , 191 , 255 , 156 , 198       ' liczby od 0 do 9 i znak - oraz pusty wyswietlacz, znak stopnia, C

Kropa:
Data 64 , 121 , 36 , 48 , 25 , 18 , 2 , 120 , 0 , 16 , 63 , 127       ' liczby z kropka od 0 do 9 i znak - oraz pusty wyswietlacz

A tutaj zdjęcia mojego termometra:

2006-2009 xifyh. Admin