Halloween-Gruselkabinett: Konstruktion und Aufbau (Seite 3)

IF NOT xInit THEN
  RPI_GPIO_OUT24 := TRUE;
  xInit := TRUE;
END_IF
// --- Kürbis
KuerFB1(PT:=T#400MS,IN:=NOT KuerFB1.Q);
KuerAu := KuerFB1.ET < KuerFB1.PT/2;
// --- Nebelgenerator
Nebel := RF_1;
// --- kleine Spinne
KlSpiFB1(SET:=RF_2 ,RESET1:=KlSpiFB2.Q);
KlSpiFB2(IN:=KlSpiFB1.Q1,PT:=T#3S);
KlSpiAuf:=KlSpiFB1.Q1;
KlSpiAb:=NOT(KlSpiFB1.Q1);
// --- kleines Gespenst
KlGespFB1(SET:=RF_3 ,RESET1:=KlGespFB3.Q);
KlGespFB2(IN:=KlGespFB1.Q1,PT:=T#3S);
KlGespFB3(IN:=KlGespFB2.Q,PT:=T#5S);
KlGespSo:=KlGespFB1.Q1;
KlGesp:=KlGespFB2.Q;
// --- große Spinne
GrSpiFB1(SET:=RF_4 ,RESET1:=GrSpiFB2.Q);
GrSpiFB2(IN:=GrSpiFB1.Q1,PT:=T#3S);
GrSpi:=GrSpiFB1.Q1;
GrSpiAu:=GrSpiFB1.Q1;
// --- kleines Gespenst
GrGespFB1(SET:=RF_5 ,RESET1:=GrGespFB3.Q);
GrGespFB2(IN:=GrGespFB1.Q1,PT:=T#3S);
GrGespFB3(IN:=GrGespFB2.Q,PT:=T#5S);
GrGespSo:=GrGespFB1.Q1;
GrGesp:=GrGespFB2.Q;
GrGespAu:=GrGespFB2.Q;