On AccendiAlba1 Do
     If [durata#alba1]>0
          GPIO,4,1
          TaskValueSet valvola,uno,1
          TimerSet,1,[durata#alba1]
         TaskValueSet,consenso,alba1,1
         TaskValueSet,valvola,uno,1
       LCD,4,1,"Pompe 1:ACC  2:SPT"
       Else
        Event,accendialba2
       Endif
Endon

On SpegniAlba1 Do
      GPIO,4,0
      TaskValueSet valvola,uno,0
    Event,statopompe
    LCD,4,1,"Pompe 1:SPT  2:SPT"
    delay,[tandem#millisecondi]
    Event,accendialba2
Endon

On AccendiTramonto1 Do
  If [durata#tramonto1]>0
     GPIO,4,1
     TaskValueSet valvola,uno,1
     TimerSet,2,[durata#tramonto1]
     TaskValueSet,consenso,tramonto1,1
          LCD,4,1,"Pompe 1:ACC  2:SPT"
          Else
          Event,AccendiTramonto2
          Endif
 Endon

On SpegniTramonto1 Do
      GPIO,4,0
      TaskValueSet valvola,uno,0
       LCD,4,1,"Pompe 1:SPT  2:SPT"
       delay,[tandem#millisecondi]
       Event,accenditramonto2
Endon

On AccendiAlba2 Do
If [durata#alba2]>0
     GPIO,5,1
     TaskValueSet valvola,due,1
     TimerSet,3,[durata#alba2]
       LCD,4,1,"Pompe 1:SPT  2:ACC"
       Endif
Endon

On SpegniAlba2 Do
      GPIO,5,0
      TaskValueSet valvola,due,0
      LCD,4,1,"Pompe 1:SPT  2:SPT"
Endon

On AccendiTramonto2 Do
If [durata#tramonto2]>0
     GPIO,5,1
     TaskValueSet valvola,due,1
     TimerSet,4,[durata#tramonto2]
     LCD,4,1,"Pompe 1:SPT  2:ACC"
     endif
     
Endon

On SpegniTramonto2 Do
      GPIO,5,0
      TaskValueSet valvola,due,0
     LCD,4,1,"Pompe 1:SPT  2:SPT"
Endon


On Rules#Timer=1 Do
      Event,SpegniAlba1
Endon

On Rules#Timer=2 Do
      Event,SpegniTramonto1
Endon

On Rules#Timer=3 Do
      Event,SpegniAlba2
Endon

On Rules#Timer=4 Do
      Event,SpegniTramonto2
Endon