Weiter: Literatur Hinauf: Beispiel eines interrupt-gesteuerten Zurück: Implementation des Objektes

Implementation des Objektes Zeitgeber & Entscheider

  

Die Implementation des Objektes Zeitgeber & Entscheider gestaltet sich relativ einfach im Vergleich zum vorigen Objekt.

$$
with Calendar, Mittelwertbilder, Schalter, Temperatur_Sensor;$$
use Calendar, Temperatur_Sensor; -umOperatordirektsichtbarzumachen$$
$$
procedure Zeitgeber_Entscheider is$$
$$
untere_Schranke: constant Temperatur_Sensor.Temperatur := 50;$$
obere_Schranke: constant Temperatur_Sensor.Temperatur := 55;$$
$$
momentane_Temperatur: Temperatur_Sensor.Temperatur;$$
$$
Intervall: constant duration := 1.0;$$
$$
begin$$
loop$$
$$
delay until Calendar.Clock + Intervall;$$
$$
momentane_Temperatur := Mittelwertbilder.Gib_Mittelwert;$$
if momentane_Temperatur untere_Schranke then$$
Schalter.Heizungs_Port.heizen := true;$$
end if;$$
if momentane_Temperatur $>$ obere_Schranke then$$
Schalter.Heizungs_Port.heizen := false;$$
end if;$$
$$
end loop;$$
end Zeitgeber_Entscheider;$$