Új hozzászólás Aktív témák

• #17999 ViZion félisten

  Új Válasz 2022-10-14 20:24:01 #17999

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ViZion

  félisten

  Nah, itt a teljes, szenzor helyett még dummy-temp-el, így tudtam tesztelni is:
  on System#Boot do
TaskValueSet 1,1,30 //minimum hőmérséklet
TaskValueSet 1,2,43 //normál fűtés
TaskValueSet 1,3,90 //túlfűtés
TaskValueSet 2,1,1080 //felfűtés keringető idő long 1080 mp
TaskValueSet 2,2,330 //normál fűtés keringető idő short 300-600
TaskValueSet 2,3,600 //keringetési ciklus szünet pause 600
TaskValueSet 2,4,120 //watchdog 120
Timerset2,10
endon

on [termo#state]=0 do
event,heatoff
endon

on heaton do
if [sk#temperature1]>[deftemp#tempmin] and [sk#temperature1]<[deftemp#tempmid]
event,heatlong

elseif [sk#temperature1]>[deftemp#tempmid]
event,heatshort

else
event,heatoff
endif
endon

on heatlong do
gpio,13,1
oled,5,2,Heating L -ON-
timerset,1,[deftime#keringl]
endon

on heatshort do
gpio 13,1
oled,5,2,Heating S -ON-
timerset,1,[deftime#kerings]
endon

on heatover do
gpio 13,1
oled,5,2,OVERHEAT! -ON-
timerset,2,600
endon

on heatoff do
gpio,13,0
oled,5,2,Heating -OFF-
timerset,2,[deftime#watch]
endon

on Rules#Timer=1 do
gpio,13,0
oled,5,2,Heating -OFF-
timerset,2,[deftime#keringp]
endon

on Rules#Timer=2 do
if [sk#temperature1]>[deftemp#tempmax]
event,heatover

elseif [termo#state]=1
event,heaton

else
event,heatoff
endon

Új hozzászólás Aktív témák