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

• #18412 ViZion félisten Wolfram #18406

  Új Válasz 2022-12-11 19:01:07 #18412

  Ú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

  LOGOUT blog

  válasz Wolfram #18406 üzenetére

  hahahhahhaaaa...
  

  Parancsolj... hátha ebből tudsz a projectedhez kölcsönözni.
  on System#Boot do
TaskValueSet 1,1,29 //minimum vízhőfok
TaskValueSet 1,2,95 //túlfűtés
TaskValueSet 2,1,350 //keringető idő 240-600
TaskValueSet 2,2,540 //keringetés szünet
TaskValueSet 2,3,80 //termosztát figyelés
TimerSet,2,8 //Start loop
GPIO,2,1 //board led ki
Let,2,2 //alap a watch loop
endon

on Rules#Timer=1 do //pause
oled,7,1,Status: Pause
gpio,15,0
TaskValueSet 4,1,0
Let,1,[deftime#keringp]
Let,2,2
TimerSet,3,1
endon

on Rules#Timer=2 do //watch loop
if [owt#temperature1]>[deftemp#tempmax]
event,heatover
elseif [termo#state]=1
event,heaton
else
event,heatoff
endif
endon

On Rules#Timer=3 do //timer loop
if [VAR#1]<2
Let,1,0
TimerSet,3,0
TimerSet,[VAR#2],1
else
Let,1,[VAR#1]-2
TaskValueSet 4,2,[VAR#1]
TimerSet,3,2
endif
endon

on termo#state=0 do
if [owt#temperature1]<[deftemp#tempmax]
TimerSet,1,3
else
TimerSet,2,1
endif
endon

on heaton do
if [owt#temperature1]>[deftemp#tempmin]
oled,7,1,Status: Heating!
gpio,15,1
TaskValueSet 4,1,1
Let,1,[deftime#kering]
Let,2,1
TimerSet,3,1
else
event,heatoff
endif
endon

on heatover do
oled,7,1,Status: OVERHEAT!
gpio,15,1
TaskValueSet 4,1,1
Let,1,600
Let,2,2
TimerSet,3,1
endon

on heatoff do
oled,7,1,Status: Watch
gpio,15,0
TaskValueSet 4,1,0
Let,1,[deftime#watch]
Let,2,2
TimerSet,3,1
endon

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