UNIT uSteuerung;
(*
********************************************************************
*)
(* K L A S S E : TSteuerung
*)
(*
--------------------------------------------------------------------
*)
(* Version : 1.0
*)
(* Autor : S. Spolwig
*)
(* Beschreibung: Die Klasse bildet die Steuerung für zwei Ampeln ab.
*)
(*
Keine Attribute, Methoden für die Schaltsequenzen
*)
(* Compiler : Delphi 5.0
*)
(* Aenderungen : 0.9 11-MAY-01
*)
(*
********************************************************************
*)
INTERFACE
//
=======================================================================
uses uAmpel;
type
TSteuerung = class(TObject)
public
procedure SetLink (am1, am2 : TAmpel);
procedure Start;
procedure Stop;
end;
(* -------------------- B e s c h r e i b u n g
-------------------------
Oberklasse : TObject
Bezugsklassen : TAmpel
Methoden
--------
SetLink (am1, am2 : TAmpel);
Auftrag: alle Ampelexemplare bei der Steuerung anmelden (anschließen)
vorher : -
nachher: done
Start
Auftrag: alle Ampeln an und auf Schaltsequenz programmiert
vorher : -
nachher: Schaltsequenz läuft
Stop
Auftrag: alle Ampeln aus
vorher : -
nachher: alle Lampen sind dunkel
-----------------------------------------------------------------------
*) |