Czy ten program jest poprawny?
Jak dodać drugi czujnik ?
Jak dodać drugi czujnik ?
$regfile = "m8def.dat" 'proc = atmega8
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0 'konfiguracja LCD
Config Lcd = 16 * 2a
Config 1wire = Portd.5
Config Pind.6 = Input
Config Pind.7 = Input
Dim Odczyt(2) As Byte , T As Integer , T1 As Single 'Dla DS18b20
Deflcdchar 7 , 14 , 10 , 14 , 32 , 32 , 32 , 32 , 32 ' znak stopnia
Deflcdchar 5 , 10 , 10 , 10 , 10 , 17 , 17 , 14 , 32 'termometr
Cursor Off
Set Portd.6
Set Portd.7
Cls
Locate 1 , 1
Lcd "Hello"
Locate 2 , 1
Lcd "Pogi13 2011"
Wait 2
For I = 1 To 11
Shiftlcd Left
Waitms 430
Next
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 / 2
T1 = T1 - 2
Loop
End