-----------------------------------------------
-- Author: Sune Wolff - 20022462
-- Created: 21/4 - 2008
-- Updated:
-- Description: Humiditor sensor class for HomeAutomation project
-----------------------------------------------
--
-- class definition
--
class HumidSensor is subclass of Sensor
--
-- instance variables
--
instance variables
finished : bool := false;
--
-- Operations definition section
--
operations
public HumidSensor: nat * NetworkTypes`nodeType * nat ==> HumidSensor
HumidSensor (id, type, val) ==
(ID := id;
Type := type;
Value := val;
);
public Step: () ==> ()
Step () ==
--cycles(1E3)
Value := World`env.ReadHumid();
public IsFinished: () ==> ()
IsFinished() ==
skip;
sync
--mutex(PeriodicOp); -- ADDED
per IsFinished => finished;
--
-- Thread definition section
--
thread
-- period of thread (period, jitter, delay, offset)
periodic(1000E6,0,0,0) (Step)
end HumidSensor
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|