procediment
sauna
p
;lectura dades de funcionament
proc lectura posa.a
"tecla caràcter.llegit
si :tecla= "e [inici :varllum :temp :tempmax :varhumit
:humitmax] [acaba]
p
fi
;-----------------------------------
;si entrem a inici hem engegat la sauna
procediment inici :varllum :temp :tempmax :varhumit :humitmax
;controlar
el nivell de llum
proc llum :varllum
;aplicar
la temperatura adequada
proc temperatura :temp :tempmax
;aplicar
el nivell d'humitat adequat
proc humitat :varhumit :humitmax
;
si es tecleja una tecla acaba la sauna
si tecleig [p acaba]
inici
:varllum :temp :tempmax :varhumit :humitmax
p
fi
;----------------------------
procediment lectura
;lectura de les dades de llum, temperatura i humitat des d'un
teclat numèric i visualitzades en un display LCD
escriu ["Entra els parametres de funcionament de la sauna]
escriu ["Entra la temperatura desitjada (valors aconsellables
entre 79º i 87º)]
posa.a "temp paraula.llegida
escriu
["Entra la temperatura màxima]
posa.a "tempmax paraula.llegida
escriu
["Entra la humitat desitjada (valor aconsellable del
90%)]
posa.a "varhumit paraula.llegida
escriu
["Entra la humitat màxima]
posa.a "humitmax paraula.llegida
escriu
["Entra el nivell de llum a partir del qual s'obra la
il·luminació interior (valor aconsellable de
100 lux)]
posa.a "varllum paraula.llegida
escriu
["Quan premis la lletra "e" la sauna es posarà
en marxa]
escriu ["Per aturar-la caldrà prèmer una
tecla]
fi
;----------------------------
procediment temperatura :temp :tempmax
; el relè b 2 actuarà sobre la placa calefactora
a fi de donar calentar l'aire interior
si
termòmetre.llegit "c < :temp [desactiva.sortida
"a 1 desactiva.relè "b 4 activa.relè
"b 2] [desactiva.relè "b 2]
si termòmetre.llegit "c > :tempmax [activa.sortida
"a 1 activa.relè "b 4]
;
sortida digital a1 va connectada al brunzidor que actua d'alarma.
El relè 4 activa o desactiva un extractor d'aire, en
el cas de temperatura excessiva
fi
;----------------------------
procediment humitat :varhumit :humitmax
;
si no hi ha suficient humitat dins la sauna s'activa un relè
que connecta un calefactor i passat 1 minut s'obra una vàlvula
que deixa caure 1/4 de litre d'agua sobre el calefactor provocant
amb la seva evaporació un augment d'humitat
; relè g1 obre o tanca la planxa calefactora de 2000
W motivat pel grau d'humitat
; relè 3 obre o tanca la vàlvula d'un petit
dipòsit d' 1/4 de litre d'agua que cau sobre la planxa
calefactora recarregat permanentment amb una boia de nivell
; sortida digital a2 va connectada al brunzidor que actua
d'alarma
; relè g2 activa o desactiva l'extractor d'aire, en
el cas d'humitat excessiva
si
higròmetre.llegit "f < :varhumit [desactiva.sortida
"a 2 desactiva.relè "g 2 activa.relè
"g 1 espera 3000 desactiva.relè "g 1 activa.relè
"b 3 espera 100 desactiva.relè "b 3]
;
si la humitat supera el valor de seguretat màxim s'activa
la sortida digital a2 d'alarma lluminosa
si
higròmetre.llegit "f > :humitmax [activa.sortida
"a 2 activa.relè "g 2]
fi
;---------------------
procediment llum :varllum
; si no hi ha suficient llum ambiental dins la sauna s'encen
la llum gràcies a un relè
si luxòmetre.llegit "d < :varllum [activa.relè
"b 1] [desactiva.relè "b 1]
fi
|