[atmega8][bascom] DS18B20

Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32        ' definicja znaki stopnia





Config 1wire = Portd.5                                      ' konfiguracja portu PD.5 jako wejœcia magistrali 1-wire



Dim Odczyt(2) As Byte , A As Byte , Licznik As Byte , T As Integer , T1 As Single , Napis As String * 5

'Deklaracja wszystkich zmiennych potrzebnych do pracy programu



Do

  1wreset                                                   'reset

  1wwrite &HCC                                              'jedna kostka, więc wykorzystujemy rozkaz SKIP ROM

  1wwrite &H44                                              'dokonaj konwersji

  Waitms 750                                                'przeczekaj czas konwersji

  1wreset                                                   'reset

  1wwrite &HCC                                              'rozkaz adresowy SKIP ROM

  1wwrite &HBE                                              'rozkaz funkcyjny - polecenie odczytu DS18x20

  Odczyt(1) = 1wread(2)                                     'odczytaj dwa pierwsze bajty

  T = Odczyt(2)                                             'przepisz starszy bajt do zmiennej typu Integer

  Shift T , Left , 8                                        'przesuń ten bajt w lewo na wyższe pozycje

  T = T + Odczyt(1)                                         'przepisz - dodaj młodszy bajt



  T1 = T * 0.0625                                               'wyraŸ w stopniach Celsjusza, wynik wpisz do zmiennej Single



Napis = Fusing(t1 , "#.#")

  Cls : Cursor Off : Lcd "* Temperatura *"

  Lowerline

  Lcd "Wynik: " ; Napis ; " " ; Chr(1) ; "C"                'wyœwietl wynik ze zmiennej Single

Loop : End



'Powodzenia