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

Sterownik.Temp-Triak(AVRBascomDS1820)

livetevn 17 Lut 2010 21:49 819 2
REKLAMA
  • #1 7710787
    livetevn
    Poziom 11  
    Witam
    Dzisiaj z racji ferii przysiadłem się do bascoma tak na poważnie. Pomyślałem jak by tu tak napisać sterownik który działał by na zasadzie termostatu i w raz ze wzrostem temperatury załączał poszczególne porty. Prosił bym o korektę moich godzinnych wypocin(pierwszy raz w ogóle pisze program)
    
    $regfile = "attiny12.dat"
    $crystal = 8000000
    Config Portb.2 = Output
    Config Portb.1 = Output
    Config Portb.0 = Output
    Triak1 Alias Portb.2
    Triak2 Alias Portb.1
    Triak3 Alias Portb.0
    Config 1wire = Portb.5
    1wreset
    1wwrite &HCC
    1wwrite &H44
    Waitms 750
    1wreset
    1wwrite &HCC
    1wwrite &HBE
    Temperatura(1) = 1wread(2)
    1wreset
    Do
    Loop
    Do
    Declare Temperatura(1) < 10 , Pr1 , Sub
    Declare Temperatura(1) < 30 , Pr2 , Sub
    Declare Temperatura(1) < 50 , Pr3 , Sub
    Declare Temperatura(1) > 70 , Pr4 , Sub
    Loop
     End
    Pr1 : Toggle Triak1
    Return
    Pr2 : Toggle Triak2
          Toggle Traik1
    Return
    Pr3 : Toggle Triak3
          Toggle Triak2
    Return
    Pr4 : Toggle Triak3
    Return
    Do
    Loop
    End


    Nie potrafię tego opanować. Proszę o podpowiedzi i wskazówki
  • REKLAMA
  • #2 7710965
    mirekk36
    Poziom 42  
    Oj, oj - przy takim pisaniu kodu to może nie bierz się od razu za sterowanie triaków. Zamiast nich podłącz zwykłe diody LED i zaobserwuj jakie cyrki będą ci się działy. A jak już dojdziesz jak pisać program i zrobisz go dobrze, i diody LED będą się załączać zgodnie z twoimi oczekiwaniami jak traki to wtedy podłączaj triaki. To taka dobra porada.

    A poza tym - to co ty - piszesz sobie takie programy z pamięci ? bez Bascoma ??? przecież to powyżej nawet się nie skompiluje!

    Twój program nawet gdyby się skompilował to zakończyłby swoje działanie na amen po twoim ostatnim rozkazie 1wreset po którym masz

    pustą pętlę Do ... Loop - i Qniec

    a dalej to już czysta fantasmagoria a nie program ;) co to np jest?????

    Declare Temperatura(1) > 70 , Pr4 , Sub

    chyba że chodziło ci o Debounce ? ;) ale nawet jeśli tak to nadal jest źle składnia. Po prostu widać że wymyślałeś to z głowy i nawet nie próbowałeś skompilować a szkoda - bo szybciej sam byś doszedł do podstawowych błędów jakie tu robisz
  • #3 7712089
    livetevn
    Poziom 11  
    Skorzystam z twojej podpowiedzi i najpierw spróbuje na diodach. Pozdrawiam
REKLAMA