Гость, может быть так:
[code:1]Add(MainForm,9638861,210,294) {
Left=260
Top=235
Width=269
Height=126
Caption="COM"
}
Add(COM,7652415,525,294)
{
link(onWrite,12850807:doOperation,[])
}
Add(FormatStr,5096427,245,238)
{
DataCount=6
Mask="%1 %2 %3 %4 %5 %6"
link(onFString,12710960:doValue,[])
link(Str1,1638551:Text,[(251,210)(132,210)])
link(Str2,463839:Value,[(258,202)(188,202)])
link(Str3,5059991:Value,[(265,194)(230,194)])
link(Str4,9445263:Value,[(272,202)(272,202)])
link(Str5,2852955:Value,[(279,202)(314,202)])
link(Str6,2791198:Value,[(286,209)(356,209)])
}
Add(Button,5068175,154,224)
{
Left=10
Top=10
Caption="COM_1"
link(onClick,14444274:doEvent1,[])
}
Add(Memory,9854030,630,294)
{
link(onData,13852533:doStrCat,[])
}
Add(Memory,463839,182,140)
{
Default=String(04)
}
Add(Memory,5059991,224,140)
{
Default=String(05)
}
Add(Memory,9445263,266,140)
{
Default=String(06)
}
Add(Memory,2852955,308,140)
{
Default=String(08)
}
Add(Memory,2791198,350,140)
{
Default=String(09)
}
Add(StrCat,13852533,679,294)
{
Str2=" байт передано в порт"
link(onStrCat,2090460:doText,[])
}
Add(Copy,16378383,413,294)
{
Count=1
link(onCopy,15197657:doEvent1,[])
link(Str,12710960:Value,[(419,284)(314,284)])
link(Position,9014349:Position,[(426,279)(398,279)(398,336)(356,336)])
}
Add(For,9014349,350,294)
{
Start=1
link(onEvent,16378383:doCopy,[])
link(End,16234503:Result,[])
}
Add(Length,16234503,357,238)
{
link(onLength,9014349:doFor,[(395,244)(395,279)(340,279)(340,300)])
}
Add(Label,2090460,728,294)
{
Left=85
Top=10
Width=150
Height=20
Caption=""
AutoSize=1
}
Add(Memory,12710960,308,238)
{
link(onData,16234503:doLength,[])
}
Add(Hub,15197657,462,294)
{
OutCount=4
link(onEvent1,7652415:doOpen,[])
link(onEvent2,7652415:doWrite,[(513,321)(513,321)])
link(onEvent3,7652415:doRXClear,[])
link(onEvent4,7652415:doClose,[(501,321)(501,321)])
}
Add(Math,12850807,574,294)
{
link(onResult,9854030:doValue,[])
link(Op2,9854030:Value,[(587,284)(614,284)(614,336)(636,336)])
}
Add(Hub,14444274,196,224)
{
link(onEvent1,9854030:doClear,[(621,230)(621,307)])
link(onEvent2,5096427:doString,[(236,237)(236,244)])
}
Add(Edit,1638551,126,140)
{
Left=10
Top=50
Width=155
Text="01"
}
Add(Button,64500,154,315)
{
Left=195
Top=65
Caption="Выход"
link(onClick,9638861:doClose,[])
}
[/code:1]