Редактировалось 1 раз(а), последний 2017-03-03 09:59:03

[b]Artem[/b], [code:1]Add(Counter,2961619,266,147) {
Max=9999999
link(onNext,15553558:doEvent1,[])
}
Add(Timer,4661297,217,147)
{
Interval=100
link(onTimer,2961619:doNext,[])
}
Add(Length,12548328,407,168)
{
link(onLength,11453104:doOperation,[])
}
Add(Hub,15553558,323,147)
{
OutCount=3
link(onEvent1,13148538:doClear,[(664,153)(664,181)])
link(onEvent2,12548328:doLength,[(381,160)(381,174)])
link(onEvent3,12784102:doStrCat,[(372,167)(372,237)])
}
Add(Math,11453104,463,168)
{
OpType=1
Op1=15
ResultType=0
link(onResult,8112678:doFor,[])
link(Op1,11392459:Text,[(469,139)(468,139)])
}
Add(For,8112678,512,168)
{
Start=1
link(onEvent,9635090:doData,[])
link(End,11453104:Result,[(525,158)(504,158)(504,210)(469,210)])
}
Add(StrCat,15024391,617,168)
{
Str1="0"
link(onStrCat,13148538:doValue,[])
link(Str2,12806278:Data1,[(630,158)(659,158)(659,219)(728,219)])
}
Add(DoData,9635090,561,168)
{
link(onEventData,15024391:doStrCat,[])
}
Add(Memory,13148538,673,168)
{
Default=String()
}
Add(GetData,12806278,722,168)
{
link(Data,13148538:Value,[(728,158)(714,158)(714,210)(679,210)])
}
Add(StrCat,12784102,729,231)
{
link(onStrCat,13475235:doText,[])
link(Str1,12806278:Data2,[])
}
Add(InfoTip,7863736,316,126)
{
Info=#28:Добавление не значащих нулей|
Width=456
Height=144
}
Add(Edit,11392459,462,77)
{
Left=110
Top=35
Text="3"
DataType=2
}
Add(Edit,13475235,798,231)
{
Left=60
Top=80
Width=135
}
[/code:1]

Леонид, а если так:
[code:1]Add(Counter,2961619,294,161) {
Max=99
link(onNext,12548328:doLength,[])
}
Add(Timer,4661297,238,161)
{
Interval=100
link(onTimer,2961619:doNext,[])
}
Add(Length,12548328,343,161)
{
link(onLength,15806471:doCopy,[])
}
Add(Edit,13475235,490,161)
{
Left=60
Top=80
Width=135
DataType=1
}
Add(Copy,15806471,392,161)
{
Count=100
link(onCopy,15024391:doStrCat,[])
link(Str,11392459:Text,[])
}
Add(Edit,11392459,392,98)
{
Left=110
Top=35
Text="0000"
}
Add(StrCat,15024391,441,161)
{
link(onStrCat,13475235:doText,[])
link(Str2,2961619:Count,[(454,151)(358,151)(358,209)(300,209)])
}[/code:1]

Спасибо большое!
Второй вариант получился более компактный.

Редактировалось 1 раз(а), последний 2017-03-03 09:59:04

Galkov, будем учиться у Гость-я,

Леонид, я польщен Чет с регистрацией. Но почему вылетает ошибка при преждевременном закрытии программы (только в 98)