inter1 писал(а):
И куда пристроить паузу?Тебе правда надо или это просто бред от нехрен делать ?
Add(MainForm,208754,140,112)
{
Width=302
Height=120
link(onCreate,11163660:doData,[])
}
Add(DatePicker,13360480,259,126)
{
Left=45
Top=40
Width=110
Height=21
Font=[Courier New,12,1,0,204]
DateMode=1
Time=0
Point(DateTime)
Point(CurrentDateTime)
}
Add(Button,7675852,140,224)
{
Left=165
Top=40
link(onClick,15559422:doTimer,[])
}
Add(DoData,11163660,196,126)
{
Data=Integer(736000)
link(onEventData,12119478:doWork2,[])
}
Add(MathParse,15510330,259,224)
{
MathStr="%1- 1/86400"
link(onResult,9419659:doEvent1,[])
link(X1,13360480:DateTime,[])
}
Add(Timer,15559422,196,224)
{
Enable=1
link(onTimer,15510330:doCalc,[])
}
Add(HubEx,12119478,238,126)
{
link(onEvent,13360480:doSetDate,[])
}
Add(Math,8354719,336,231)
{
OpType=36
Op2=1
link(onResult,10357083:doCompare,[])
}
Add(Hub,9419659,308,224)
{
link(onEvent1,12119478:doWork1,[(333,230)(333,123)(242,123)])
link(onEvent2,8354719:doOperation,[])
}
Add(If_else,10357083,378,231)
{
Op2=Integer(0)
link(onTrue,13511970:doEvent1,[])
}
Add(Beep,8905066,476,238)
{
Duration=1000
}
Add(Hub,13511970,434,231)
{
link(onEvent1,15559422:doStop,[(517,237)(517,275)(184,275)(184,237)])
link(onEvent2,8905066:doBeep,[])
}
Add(Label,3040698,378,175)
{
Left=15
Top=5
Width=260
Font=[MS Sans Serif,8,1,255,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(DateConvertor,10963874,336,175)
{
Mode=9
Format="Текущее время : dd-MM-yyyy HH:mm:ss"
link(onResult,3040698:doText,[])
}
Add(Timer,443053,196,175)
{
link(onTimer,9730680:doData,[])
}
Add(DoData,9730680,266,175)
{
link(onEventData,10963874:doConvert,[])
link(Data,13360480:CurrentDateTime,[])
}