------------------------ [ Dodano po: 35 minutach ]
Ok juz dziala, ale jest kolejny blad. Blad polega na tym ze temperatura wyswietlana jest w ten sposob "28.2.234 " nie mam pojecia dlaczego. Ponizej podaje kod.
[syntax=basic4gl]
$regfile = "m8def.dat" 'deklaracja procesora, w tym wypadku Atmega8
$crystal = 1000000 'deklaracja cześtotlwiości pracy (wew oscylator 1MHz w zupełności wystarcza)
'Deklaracja portów od wyświetlacza LCD
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 20 * 2 'ustawiamy typ wyświetlacza (soft jest dostosowany do pracy z wyświetlaczem 2x20, przy pracy z innym wyświetlaczem trzeba będzie skorygować wyświetlanie znaków)
'*************************************WAŻNE**********************************************
Config Portd = &B1111100
Portd = &B1100111 'portd 3 i 4 w stanie 0
Config 1wire = Portc.5
Dim Odczyt(2) As Byte
Dim A As Byte
Dim T As Integer
Dim T1 As Single
Dim B As Byte 'zmienna odczytu kodów ID
Dim W As Byte 'zmienna odczytu ilośc czujników
Dim Dsid1(1) As Byte
Dim F As String * 11 'zmienna do formatu wyświetlanej temp.
Deflcdchar 0 , 8 , 20 , 11 , 4 , 4 , 4 , 3 , 32 'znak stopnia celsjusza
'***ekran startowy***
Cursor Off 'Wyłącza kursor
Cls
Lcd " Inteligentny " 'ekran startowy (pojawia się tylko podczas włączania urządzenia)
Lowerline
Lcd " Termometr (J.R.) "
Wait 3
Cls
W = 1wirecount()
Lcd "Ilosc czujnikow:" 'Informuje ile czujników jest podpiętych do układu (pojawia się tylko podczas włączania urządzenia)
Waitms 500
Lcd W
Wait 3
Cls
Dsid1(1) = 1wsearchfirst() 'sprawdza czujnik podpięty do portu
'*******************Odczyt numerów ID czujników temperatury*********************
Locate 1 , 1
Lcd "CRC OK - Czujnik 1"
Lowerline
Lcd Hex(dsid1(1)) 'tu trzeba coś jeszcze poprawić
Wait 2
Cls
'*******************koniec odczytu ID czujników temperatury*********************
'************* operacje konwersji temperatury *******************************
Do
1wreset
1wwrite &H55
1wverify Dsid1(1) 'wysyłamy adres pierwszego czujnika
1wwrite &HBE
Odczyt(1) = 1wread(2)
T = Odczyt(2) 'przepisuje starszy bajt do zmiennej Integer
Shift T , Left , 8 'przesuwa ten bajt w lewo na wyższe pozycje
T = T + Odczyt(1)
'---------------------------------
'--------konwersja temp dla wszystkich dsow
1wreset
1wwrite &HCC
1wwrite &H44
'przepisz i dodaj młodszy bajt
Wait 1
'************otrzymaliśmy ułamkową wartość temperatury i trzeba ją podzielić********************
T1 = T * 10
T1 = T / 16 'wyraź w st. celsjusza i wpisz do zmiennej single
't1=t/2 'dla DS1820 i DS18s20 dzielimy jeszcze przez 2
F = Str(t1) 'wpisz odczyt do string
F = Format(f , " 0.0") 'ustaw format wyświetlania
If T1 > 28 Then
Cls
Locate 1 , 1 'Pozycja wyświetlania nazwy i temperatury (1.1 -> 1 linia 1 kolumna, 2.10 -> 2 linia 10 kolumna itd)
Lcd "temp " ; F ; Chr(0)
Lowerline
Lcd "grzanie OFF"
Portd.4 = 1
Portd.3 = 0
Else
Cls
Locate 1 , 1
Lcd "temp " ; F ; Chr(0)
Lowerline
Lcd "grzanie ON"
Portd.4 = 0
Portd.3 = 1
End If
Loop
End
[/syntax]
Kod wklejamy przy pomocy [syntax=basic4gl]- Zielony J.Statystyki: Napisane przez raczek387 — 21 lut 2013, o 14:33
]]>