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

Prośba o sprawdzenie programu

pogi13 21 Maj 2011 18:24 1106 2
REKLAMA
  • #1 9530370
    pogi13
    Poziom 14  
    Czy ten program jest poprawny?
    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
  • REKLAMA
  • #2 9530374
    gts1991v2
    Poziom 11  
    Czujnki mają być przypisane na stałe czy nie pod konkretną "zmienią" ? :)
  • #3 9530393
    pogi13
    Poziom 14  
    w programowaniu jestem kompletnie zielony :)

    chcę żeby 2 czujniki ds18b20 były na 1Wire na zasilaniu osobnym (nie pasożytniczym z układu)

    jeśli to pomoże to mogę schemat wstawić
REKLAMA