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
         Event,statopompe
       Endif
Endon

On SpegniAlba1 Do
      GPIO,4,0
      TaskValueSet valvola,uno,0
      Event,statopompe
Endon

On AccendiTramonto1 Do
  If [durata#tramonto1]>0
     GPIO,4,1
     TaskValueSet valvola,uno,1
     TimerSet,2,[durata#tramonto1]
     TaskValueSet,consenso,tramonto1,1
     Event,statopompe
     Endif
 Endon

On SpegniTramonto1 Do
      GPIO,4,0
      TaskValueSet valvola,uno,0
       Event,statopompe
Endon

On AccendiAlba2 Do
If [durata#alba2]>0
     GPIO,5,1
     TaskValueSet valvola,due,1
     TimerSet,3,[durata#alba2]
     Event,statopompe
     Endif
Endon

On SpegniAlba2 Do
      GPIO,5,0
      TaskValueSet valvola,due,0
      Event,statopompe
Endon

On AccendiTramonto2 Do
If [durata#tramonto2]>0
     GPIO,5,1
     TaskValueSet valvola,due,1
     TimerSet,4,[durata#tramonto2]
     Event,statopompe
     endif
Endon

On SpegniTramonto2 Do
      GPIO,5,0
      TaskValueSet valvola,due,0
     Event,statopompe
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

On statopompe Do
       If [valvola#uno]=0 And [valvola#due]=0
       LCD,4,1,"Pompe 1:SP  2:SP"
       Endif
       
       If [valvola#uno]=1 And [valvola#due]=0
       LCD,4,1,"Pompe 1:AC  2:SP"
       Endif

      If [valvola#uno]=0 And [valvola#due]=1
       LCD,4,1,"Pompe 1:SP  2:AC"
       Endif

      If [valvola#uno]=1 And [valvola#due]=1
       LCD,4,1,"Pompe 1:AC  2:AC"
       Endif
       
Endon