Редактировалось 3 раз(а), последний 2025-01-09 15:09:04

Гость, может быть так:
[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]

Леонид, мне показалось, правда, что постановка другая, несколько...
[code:1]Add(MainForm,9638861,84,154) {
Left=260
Top=235
Width=269
Height=126
Caption="COM"
}
Add(Memory,6372168,525,133)
{
Default=String()
}
Add(FormatStr,5096427,147,133)
{
DataCount=6
Mask="%1 %2 %3 %4 %5 %6"
link(onFString,12710960:doValue,[])
link(Str1,1638551:Text,[(153,91)(34,91)])
link(Str2,463839:Value,[(160,83)(90,83)])
link(Str3,5059991:Value,[(167,75)(132,75)])
link(Str4,9445263:Value,[(174,83)(174,83)])
link(Str5,2852955:Value,[(181,83)(216,83)])
link(Str6,2791198:Value,[(188,90)(258,90)])
}
Add(Button,5068175,28,98)
{
Left=10
Top=10
Caption="COM_1"
link(onClick,14444274:doEvent1,[])
}
Add(Button,64500,28,175)
{
Left=195
Top=65
Caption="Выход"
link(onClick,9638861:doClose,[])
}
Add(Memory,463839,84,21)
{
Default=String(04)
}
Add(Memory,5059991,126,21)
{
Default=String(05)
}
Add(Memory,9445263,168,21)
{
Default=String(06)
}
Add(Memory,2852955,210,21)
{
Default=String(08)
}
Add(Memory,2791198,252,21)
{
Default=String(09)
}
Add(StrCat,6555432,476,133)
{
link(onStrCat,6372168:doValue,[])
link(Str1,1936900:Var1,[(482,123)(500,123)(500,177)])
}
Add(Copy,16378383,350,133)
{
Count=2
link(onCopy,16505471:doConvert,[])
link(Str,12710960:Value,[(356,123)(293,123)(293,176)(209,176)])
}
Add(For,9014349,301,133)
{
Start=1
Step=3
InData=0
link(onEvent,16378383:doCopy,[])
link(onStop,1812060:doData,[(341,146)(341,202)])
}
Add(Length,16234503,252,133)
{
link(onLength,9014349:doFor,[])
}
Add(Convertor,16505471,392,133)
{
Mode=5
link(onResult,15692359:doConvert,[])
}
Add(Memory,12710960,203,133)
{
link(onData,16234503:doLength,[])
}
Add(Edit,1638551,28,21)
{
Left=10
Top=50
Width=155
Text="01"
}
Add(Hub,14444274,84,98)
{
OutCount=4
link(onEvent1,7652415:doOpen,[(564,104)(564,181)])
link(onEvent2,6372168:doClear,[(513,111)(513,146)])
link(onEvent3,5096427:doString,[(138,118)(138,139)])
link(onEvent4,7652415:doClose,[(132,125)(132,188)])
}
Add(COM,7652415,574,175)
{
link(onWrite,13852533:doStrCat,[])
}
Add(StrCat,13852533,623,175)
{
Str2=" байт передано в порт"
link(onStrCat,2090460:doText,[])
}
Add(Label,2090460,672,175)
{
Left=85
Top=10
Width=150
Height=20
Caption=""
AutoSize=1
}
Add(DoData,1812060,525,196)
{
link(onEventData,7652415:doWrite,[])
link(Data,1936900:Var2,[])
}
Add(GetDataEx,1936900,518,168)
{
link(Data,6372168:Value,[])
}
Add(Convertor,15692359,434,133)
{
Mode=4
link(onResult,6555432:doStrCat,[])
}[/code:1]

Galkov, может и так, Гость, полагаю, увидит канву для дальнейших действий