;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
temperatura
posa.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
nivell
si 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
general
escriu [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
peixera
si tecleig [p general]
rellotge
temperatura
nivell
oxigen
llum
menjar
ph
peixera
fi |