Der IC Code
define Sensor.A 322782515
define FL.Lager 1632165346
define FL.Konsole -815193061
define GrowLight -1758710260
define Sensor.G -1252983604
define Ventil -1280984102
define Pump -321403609
define WarteZeit 5
define TagZeit 480
define NachtZeit 300
alias Timer r15
alias Gerate.An r14
alias Timer.Pflanzen r13
alias Kuhlung.An r12
Loop:
#Gas Fuellung
lbn r0 Sensor.G HASH(“Raum”) Pressure 0
lbn r1 Sensor.G HASH(“Raum”) RatioNitrogen 0
slt r0 r0 95
slt r1 r1 0.50
or r0 r0 r1
sbn Pump HASH(“R.N2”) Setting 10
sbn Pump HASH(“R.N2”) On r0
lbn r0 Sensor.G HASH(“Raum”) RatioOxygen 0
slt r0 r0 0.30
sbn Pump HASH(“R.O2”) Setting 10
sbn Pump HASH(“R.O2”) On r0
lbn r0 Sensor.G HASH(“Raum”) RatioCarbonDioxide 0
slt r0 r0 0.10
sbn Pump HASH(“R.CO2”) Setting 10
sbn Pump HASH(“R.CO2”) On r0
#Kuehlung
lbn r0 Sensor.G HASH(“Raum”) Temperature 0
sub r0 r0 273.15
sgt r1 r0 26
select Kuhlung.An r1 1 Kuhlung.An
slt r1 r0 22
select Kuhlung.An r1 0 Kuhlung.An
sbn Ventil HASH(“Cool”) On Kuhlung.An
#Pflanzen
slt r0 Timer.Pflanzen TagZeit
sbn GrowLight HASH(“Hydro1”) On r0
add r0 TagZeit NachtZeit
sgt r0 Timer.Pflanzen r0
select Timer.Pflanzen r0 0 Timer.Pflanzen
s db Setting Timer.Pflanzen
#Pflanzen Option An/Aus – Konsolen
slt Gerate.An Timer WarteZeit
lbns r0 FL.Lager HASH(“FL.O2”) 0 Occupied 0
seq r0 r0 1
and r0 r0 Gerate.An
sbn FL.Konsole HASH(“FL.O2”) On r0
lbns r0 FL.Lager HASH(“FL.N2”) 0 Occupied 0
seq r0 r0 1
and r0 r0 Gerate.An
sbn FL.Konsole HASH(“FL.N2”) On r0
sbn FL.Konsole HASH(“FL.O2”) Color 6
sbn FL.Konsole HASH(“FL.N2”) Color 2
lbn r0 FL.Lager HASH(“FL.O2”) Pressure 0
ceil r0 r0
sbn FL.Konsole HASH(“FL.O2”) Setting r0
lbn r0 FL.Lager HASH(“FL.N2”) Pressure 0
ceil r0 r0
sbn FL.Konsole HASH(“FL.N2”) Setting r0
lbn r0 Sensor.A HASH(“Raum.1”) Activate 0
sgt r0 r0 0
select Timer r0 0 Timer
add Timer.Pflanzen Timer.Pflanzen 0.5
add Timer Timer 0.5
add r1 WarteZeit 1
sgt r0 Timer r1
select Timer r0 r1 Timer
yield
j Loop
source