procedure THIGate._work_doFlip;
begin
   Fstate := not FState;
end;

unit hiGate;

interface

uses Kol,Share,Debug;

type
  THIGate = class(TDebug)
   private
    FState:boolean;
    RunOnce:boolean;
   public
    _prop_State:byte;
    _event_onGate:THI_Event;

    constructor Create;
    procedure _work_doGate(var _Data:TData; Index:word);
    procedure _work_doFlip(var _Data:TData; Index:word);
    procedure _work_doState(var Data:TData; Index:word);
  end;

implementation

constructor THIGate.Create;
begin
   RunOnce := true;
   inherited;
end;

procedure THIGate._work_doGate;
var   dt:TData;
begin
   dt := _Data;
   if RunOnce then begin
      Fstate := not boolean(_prop_State);
      RunOnce := false;
   end;      
   if FState then _hi_CreateEvent(_Data,@_event_onGate,Dt);
end;

procedure THIGate._work_doState;
begin
   RunOnce := false;
   FState := ReadBool(Data);
end;

procedure THIGate._work_doFlip;
begin
   if RunOnce then begin
      Fstate := not boolean(_prop_State);
      RunOnce := false;
   end; 
   Fstate := not FState;
end;

end.

Add(MainForm,13341643,70,112)
{
 Left=20
 Top=105
 link(onCreate,10230156:doData,[])
}
Add(DoData,10230156,266,147)
{
 Data=Integer(1)
 link(onEventData,5029134:State,[])
}
Add(Button,11032370,119,182)
{
 Left=105
 Top=125
 Caption="Gate"
 link(onClick,5731175:doSwitch,[])
}
Add(Timer,11789998,119,126)
{
 link(onTimer,14990296:doData,[])
}
Add(Time,7563119,168,84)
{
}
Add(DoData,14990296,168,126)
{
 link(onEventData,5029134:doGate,[])
 link(Data,7563119:FormatTime,[])
}
Add(Label,5440794,371,126)
{
 Left=175
 Top=140
 Width=85
}
Add(Switch,5731175,168,182)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 link(onSwitch,5029134:doState,[(222,188)(222,139)])
}
Add(Button,10770699,119,238)
{
 Left=105
 Top=150
 Caption="Gate"
 link(onClick,5029134:doFilip,[(228,244)(228,146)])
}
Add(MultiElementEx,5029134,322,126)
{
 link(onEvent2,5440794:doText,[])
}
BEGIN_SDK
  Add(EditMultiEx,2721487,21,21)
  {
   WorkCount=#6:doGate|7:doState|7:doFilip|5:State|
   EventCount=#8:onEvent2|
   Width=174
   Height=123
   link(doGate,5296623:doEvent,[(67,27)(67,104)])
   link(doState,16077005:doWork1,[(95,34)])
   link(doFilip,9715536:doSwitch,[(35,41)(35,55)])
   link(State,16077005:doWork3,[(58,48)(58,72)(95,72)])
  }
  Add(IndexToChanel,5296623,112,98)
  {
   Point(Index)
   link(onEvent2,2721487:onEvent2,[(170,111)(170,27)])
   link(Index,10918555:Value,[])
  }
  Add(Memory,10918555,112,49)
  {
  }
  Add(Switch,9715536,49,49)
  {
   DataOn=Integer(1)
   DataOff=Integer(0)
   link(onSwitch,16077005:doWork2,[])
  }
  Add(HubEx,16077005,91,42)
  {
   link(onEvent,10918555:doValue,[])
  }
END_SDK