| procediment 
                  sauna p
 ;lectura dades de funcionament
 proc lectura
 posa.a 
                    "tecla caràcter.llegitsi :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 llumproc llum :varllum
 ;aplicar 
                    la temperatura adequadaproc temperatura :temp :tempmax
 ;aplicar 
                    el nivell d'humitat adequatproc humitat :varhumit :humitmax
 ; 
                    si es tecleja una tecla acaba la saunasi tecleig [p acaba]
 inici 
                    :varllum :temp :tempmax :varhumit :humitmaxp
 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 excessivafi
 ;----------------------------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
 |