Вверх ↑
Ответов: 99
Рейтинг: 1
#1: 2008-03-17 15:55:28 ЛС | профиль | цитата
Вот..криво и на скорую руку.. но то что нужно..может пригодиться ..

#pas
Add(MainForm,14376286,168,280)
{
Left=20
Top=105
BorderStyle=1
Point(Close)
link(Close,70288:GetData,[])
}
Add(Hub,15813946,616,217)
{
link(onEvent1,9711411:doEvent2,[(660,223)(660,181)(93,181)(93,139)])
link(onEvent2,5799794:doEvent2,[(660,230)(660,279)(107,279)(107,328)])
}
Add(EventFromData,70288,168,217)
{
link(onEvent,5304167:doEvent,[(205,223)(205,230)])
link(Data,5158148:Var2,[])
}
Add(Hub,13537568,231,217)
{
link(onEvent1,70288:doData,[(275,223)(275,211)(156,211)(156,223)])
link(onEvent2,10375780:doData,[])
}
Add(Message,8555700,455,224)
{
Message="exit?"
Type=2
link(onMessage,768879:doCompare,[])
}
Add(GetDataEx,5158148,161,196)
{
link(Data,14363585:Value,[])
}
Add(Memory,14363585,168,126)
{
Default=String(0)
}
Add(Debug,5304167,210,224)
{
link(onEvent,13537568:doEvent1,[(226,230)(226,223)])
}
Add(Case,15016216,357,224)
{
Value=String(0)
link(onNextCase,8555700:doMessage,[])
link(onTrue,5799794:doEvent1,[(401,237)(401,272)(107,272)(107,321)])
}
Add(DoData,10375780,294,224)
{
link(onEventData,15016216:doCase,[])
link(Data,5158148:Var3,[(300,205)])
}
Add(If_else,768879,511,224)
{
Op2=Integer(6)
link(onTrue,16731862:doClear,[])
}
Add(Memory,16731862,560,217)
{
Default=String(0)
link(onData,15813946:doEvent1,[])
}
Add(Hub,5799794,119,315)
{
InCount=2
OutCount=1
link(onEvent1,14376286:doClose,[(159,321)(159,307)])
}
Add(Button,8480558,140,28)
{
Left=300
Top=20
Caption="1"
link(onClick,12382691:doClear,[(184,34)(184,41)])
}
Add(Memory,12382691,196,28)
{
Default=String(1)
link(onData,9399095:In,[(261,34)(261,41)])
}
Add(LineBreak,2738563,49,126)
{
Caption="ask"
link(Out,9711411:doEvent1,[])
Primary=[9399095,245,-91]
}
Add(Hub,9711411,105,126)
{
InCount=2
OutCount=1
link(onEvent1,14363585:doValue,[])
}

карма: 0

0