logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Attiny 2313 + HD44780 + DS18B20

kurczaczek699 20 Gru 2009 11:01 4282 4
REKLAMA
  • #1 7412564
    kurczaczek699
    Poziom 22  
    No to mam taki problem, mam attiny 2313 podłączonego do wyśw. 2x16 i do attiny podłączonego ds18b20. Na wyśw. mam napisane Temp:-0.1C. Problem tkwi w tym że temperatura jest zawsze -0.1C

    kod programu :
    
    $crystal = 4000000                                          'deklaracja częstotliwo?ci pracy kwarcu
    
    $regfile "attiny2313.dat"                                   'model procesora dla którego jest ten program       ' definicja znaki stopnia
    Config Lcdpin = Pin , Db4 = Portb.7 , Db5 = Portb.6 , Db6 = Portb.5 , Db7 = Portb.4 , E = Portd.0 , Rs = Portb.3
    
    Config 1wire = Portd.6                                      ' konfiguracja portu PD.5 jako wej?cia magistrali 1-wire
    Dim I As Integer                                            'zmienne do odczytu temp.
    Dim S As Single
    Dim T As String * 4
    
    Deflcdchar 0 , 6 , 9 , 6 , 32 , 32 , 32 , 32 , 32           ' znak stopnia
    
    Cursor Off
    Cls
    
                                                       'pomiar temp. na termometrze ds18b20
    Do
    
    
       1wreset
       1wwrite &HCC
       1wwrite &H44
       Waitms 750
    
       1wreset
       1wwrite &HCC
       1wwrite &HBE
    
       I = 1wread(2)
       S = I / 16
       T = Fusing(s , "##.#")
    
       Locate 1 , 1
       Lcd "Temp:" ; T ; Chr(0) ; "C"
    
    
    
    Loop


    Tak podłączyłem DSa
    Attiny 2313 + HD44780 + DS18B20
  • REKLAMA
  • REKLAMA
  • REKLAMA
  • Pomocny post
    #4 7414453
    misiek1994
    Poziom 17  
    Specjalnie się na tym nie znam, ale ja bym sprawdził fusebity, kwarc. Pzdr
REKLAMA