| ;el 
                  sensor de temperatua es troba a la entrada d ;controlarem que la temperatura estigui entre 20 i 25 ºC
 ;quan baixi accionarem una resistència i si puja ;buidarem 
                  i afegirem aigua a temperatura inferior
 ;fins tornar a l'interval corresponent
 ;sortida a 1 relè de resistència
 ;sortida a 2 relè de electrovàlvula de sortida
 procediment 
                    temperaturaposa.a "tempe termòmetre.llegit "d
 si :tempe < 20 [activa.sortida "a 1]
 si :tempe > 25 [activa.sortida "a 2]
 si :tempe = 23 [sortides "a [1 0 2 0]
 fi;entrada digital 1 nivell baix
 ;entrada digital 2 nivell alt
 ;sortida a3 electrovàlvula entrada aigua
 procediment 
                    nivellsi bit.llegit "c 0 = 1 [activa.sortida "a 3]
 si bit.llegit "c 1 = 1 [desactiva.sortida "a 3]
 fi;sortida a4 bomba d'aireació
 procediment oxigen
 posa.a "oxi oxímetre.llegit "b
 si :oxi < 80 [activa.sortida "a 4]
 si :oxi >100 [desactiva.sortida "a 4]
 fi
 procediment rellotge
 posa.a "s resta temps :t
 si :s > 360000 [posa.a "comptador :comptador+1 posa.a 
                    "t temps]
 fi
 ;sortida a5 relè de la llum
 procediment llum
 si 
                    resta :comptador :tllum =12 [activa.sortida "a 5]si resta :comptador :tllum =24 [desactiva.sortida "a 
                    5 posa.a "tllum :comptador]
  
                    fi; sortida a6 relè del servomotor
 ; Amb un pols el servomotor ja funciona
 procediment menjar
 
 si resta :comptador :tmen = 6 [activa.sortida "a 6 desactiva.sortida 
                    "a 6 posa.a "tmen :comptador]
 fi; el pHmetre estarà a l'entrada e
 ; sortida a7 recipient d'àcid
 ; sortida a8 recipient de base
 procediment ph
 posa.a "ph phmetre.llegit "e
 si :ph < 6.8 [activa.sortida "a 8]
 si :ph >7.3 [activa.sortida "a 7]
 si :ph =7 [sortides "a [7 0 8 0]]
 fi
 procediment 
                    generalescriu [Prem m per iniciar el control]
 escriu [Prem qualsevol tecla per aturar-lo]
 posa.a "t temps
 posa.a "comptador 0
 posa.a "tecla1 caràcter.llegit
 posa.a "tllum 0
 posa.a "tmen 0
 si :tecla1 = "m [peixera]
 escriu [general]
 general
 fi
 procediment 
                    peixerasi tecleig [p general]
 rellotgetemperatura
 nivell
 oxigen
 llum
 menjar
 ph
 peixera
 fi
 |