Стилистика схемы очень похожа на RADIOSOFT
Зачем у Вас перечисление портов при активации формы
tESTakb.jpg
Как вариант в начале пакета слать "старт" в конце пакета "стоп"
использовать конструкцию наподобие такой
Add(StrMask,13266337,490,112)
{
CaseSensitive=0
Mask="*START*"
link(onTrue,5972285:doClear,[(558,125)(558,223)])
AddHint(76,18,59,13,Mask)
}
Add(Hub,3009133,434,154)
{
OutCount=3
link(onEvent1,15952440:doCompare,[])
link(onEvent2,5972285:doStrCat,[(460,167)(460,216)])
link(onEvent3,13266337:doCompare,[(469,174)(469,118)])
}
Add(StrMask,15952440,490,154)
{
CaseSensitive=0
Mask="*STOP*"
link(onTrue,5144881:doData,[(544,167)(544,293)])
AddHint(80,15,52,13,Mask)
}
Add(StrCat,5972285,595,210)
{
Point(doClear)
link(Str1,841062:Var3,[(601,198)(573,198)])
}
Add(DoData,5144881,567,287)
{
link(onEventData,9606020:In,[])
link(Data,841062:Var2,[])
}
Add(GetDataEx,841062,567,245)
{
Angle=1
link(Data,5972285:Result,[(601,250)])
}
Add(LineBreak,6719879,385,154)
{
Caption="in"
link(Out,3009133:doEvent1,[])
Primary=[13317968,-35,0]
}
Add(LineBreak,13604023,651,287)
{
Caption="out"
Primary=[9606020,-42,0]
}