Вверх ↑
Ответов: 1429
Рейтинг: 50
#1: 2011-10-05 19:52:04 ЛС | профиль | цитата
CriDos, попробовал, стабильно вот так:
m673.png
(Athlon 64, 1.8 Hz, WinXP32)
Tad, в FTCG тоже очень быстро:

Add(MainForm,4378334,175,133)
{
Width=356
Height=125
Position=1
}
Add(Hub,13665607,343,217)
{
OutCount=4
link(onEvent1,4473029:doStart,[(371,223)(371,181)])
link(onEvent2,16128280:doFor,[])
link(onEvent3,4473029:doStop,[(387,237)(387,188)])
link(onEvent4,11647129:doEvent1,[(378,244)(378,349)])
}
Add(TimeCounter,4473029,448,175)
{
Precision=1
link(onStop,15095331:doAdd,[])
}
Add(Label,3087425,665,245)
{
Left=205
Top=25
}
Add(Timer,14647915,266,217)
{
Interval=10
Enable=1
AutoStop=100
Point(onStop)
link(onTimer,13665607:doEvent1,[])
link(onStop,8346194:doEvent1,[(320,230)(320,391)])
}
Add(For,16128280,448,224)
{
End=1600
link(onEvent,9473887:doValue,[])
}
Add(FTCG_Tools,9473887,511,224)
{
}
BEGIN_SDK
Add(EditMultiEx,16676779,21,21)
{
WorkCount=#7:doValue|
link(doValue,746271:doRead,[(63,27)(63,118)])
}
Add(IntArray,15910144,105,63)
{
Numbers=['0'=555]
}
Add(ArrayRead,746271,105,112)
{
Index=0
link(onRead,15768692:doValue,[])
link(Array,15910144:Array,[])
}
Add(FT_Memory,15768692,154,112)
{
Default=Integer(0)
}
END_SDK
Add(TimeCounter,9990099,455,308)
{
Precision=1
link(onStop,8308527:doAdd,[])
}
Add(Hub,11647129,399,343)
{
OutCount=3
link(onEvent1,9990099:doStart,[(427,349)(427,314)])
link(onEvent2,9902204:doValue,[])
link(onEvent3,9990099:doStop,[(436,363)(436,321)])
}
Add(Label,9593002,679,392)
{
Left=205
Top=40
}
Add(FTCG_Tools,9902204,511,350)
{
}
BEGIN_SDK
Add(EditMultiEx,2648581,21,21)
{
WorkCount=#7:doValue|
link(doValue,11579384:doFor,[(63,27)(63,104)])
}
Add(IntArray,3155621,196,49)
{
Numbers=['0'=555]
}
Add(ArrayRead,14508135,196,98)
{
Index=0
link(onRead,6860079:doValue,[])
link(Array,3155621:Array,[])
}
Add(FT_Memory,6860079,245,98)
{
Default=Integer(0)
}
Add(FT_For,11579384,126,98)
{
End=1600
link(onEvent,14508135:doRead,[])
}
END_SDK
Add(Label,1764949,168,84)
{
Left=135
Top=40
Width=66
Height=17
Caption="Без памяти:"
}
Add(Label,8493090,175,91)
{
Left=135
Top=25
Width=62
Height=17
Caption="С памятью:"
}
Add(StrList,15095331,595,182)
{
}
Add(StrList,8308527,609,315)
{
}
Add(ArrayMathStat,3110642,609,245)
{
link(onResult,3087425:doText,[])
link(Array,15095331:Array,[])
}
Add(Hub,8346194,525,385)
{
link(onEvent1,3110642:doFunction,[(553,391)(553,251)])
link(onEvent2,1663513:doFunction,[])
}
Add(ArrayMathStat,1663513,623,392)
{
link(onResult,9593002:doText,[])
link(Array,8308527:Array,[])
}
Add(Button,4066160,168,203)
{
Left=50
Top=30
Caption="Старт"
link(onClick,8762983:doEvent1,[])
}
Add(Hub,8762983,210,203)
{
OutCount=3
link(onEvent1,11761746:In,[(234,209)(234,167)])
link(onEvent2,7400076:In,[(238,216)(238,188)])
link(onEvent3,14647915:doTimer,[])
}
Add(LineBreak,11409557,560,322)
{
Caption="del"
link(Out,8308527:doClear,[])
Primary=[7400076,-308,-140]
}
Add(LineBreak,7448454,546,189)
{
Caption="del"
link(Out,15095331:doClear,[])
Primary=[11761746,-294,-28]
}


IC не для меня, я забываю язык Delphi, если месяц на нем не пишу
Я уже 3 раза его учил с нуля, и все-равно потом забыл.
карма: 0

0
файлы: 1m673.png [13.6KB] [177]