На скорую руку
Add(MainForm,208754,84,91)
{
Width=220
Height=108
link(onCreate,11163660:doData,[])
}
Add(DatePicker,13360480,203,105)
{
Left=15
Top=15
Width=110
Height=21
Font=[Courier New,12,1,0,204]
DateMode=1
Time=0
Point(DateTime)
}
Add(Button,7675852,84,147)
{
Left=135
Top=15
link(onClick,15559422:doTimer,[])
}
Add(DoData,11163660,140,105)
{
Data=Integer(736000)
link(onEventData,12119478:doWork2,[])
}
Add(MathParse,15510330,203,147)
{
MathStr="%1- 1/86400"
link(onResult,9419659:doEvent1,[])
link(X1,13360480:DateTime,[])
}
Add(Timer,15559422,140,147)
{
Enable=1
link(onTimer,15510330:doCalc,[])
}
Add(HubEx,12119478,182,105)
{
link(onEvent,13360480:doSetDate,[])
}
Add(Math,8354719,280,154)
{
OpType=36
Op2=1
link(onResult,10357083:doCompare,[])
}
Add(Hub,9419659,252,147)
{
link(onEvent1,12119478:doWork1,[(277,153)(277,102)(186,102)])
link(onEvent2,8354719:doOperation,[])
}
Add(If_else,10357083,322,154)
{
Op2=Integer(0)
link(onTrue,13511970:doEvent1,[])
}
Add(Beep,8905066,420,161)
{
Duration=1000
}
Add(Hub,13511970,378,154)
{
link(onEvent1,15559422:doStop,[(461,160)(461,198)(128,198)(128,160)])
link(onEvent2,8905066:doBeep,[])
}