Вверх ↑
Ответов: 495
Рейтинг: 163
#1: 2012-03-23 14:32:55 ЛС | профиль | цитата
Tad писал(а):
И в 52 раза.

nesco писал(а):
А у меня только в 1,5 раза
Странно у меня не быстрей ...
в чем подвох..

Add(IndexToChanel,11631242,581,21)
{
Count=18
link(onEvent12,6674507:doWork2,[])
link(onEvent13,7934983:doWork2,[])
link(onEvent14,1245562:doWork2,[])
link(onEvent15,12747404:doWork2,[])
link(onEvent16,9874699:doWork2,[])
link(onEvent17,9874699:doWork3,[(641,139)])
link(onEvent18,11633699:doWork2,[(672,146)(672,111)])
}
Add(If_else,416891,630,231)
{
Type=3
Op2=Integer(16)
link(onTrue,1694203:doWork1,[])
link(onFalse,9520171:doWork1,[(677,244)])
AddHint(-1,37,27,13,Op2)
}
Add(If_else,5161824,693,280)
{
Op2=Integer(17)
link(onTrue,1694203:doWork2,[(737,286)(737,244)])
AddHint(-2,36,27,13,Op2)
}
Add(HubEx,9520171,673,280)
{
link(onEvent,5161824:doCompare,[])
}
Add(If_else,9788377,581,231)
{
Type=4
Op2=Integer(11)
link(onTrue,416891:doCompare,[])
link(onFalse,9520171:doWork2,[(621,244)(621,286)])
AddHint(-2,38,27,13,Op2)
}
Add(ChanelToIndex,1694203,749,231)
{
link(onIndex,10400535:doValue,[])
}
Add(ChanelToIndex,11633699,693,98)
{
link(onIndex,11403340:doValue,[])
}
Add(HubEx,6674507,637,98)
{
link(onEvent,11633699:doWork1,[])
}
Add(HubEx,7934983,637,105)
{
Angle=3
link(onEvent,6674507:doWork3,[])
}
Add(HubEx,1245562,637,112)
{
Angle=3
link(onEvent,7934983:doWork3,[])
}
Add(HubEx,12747404,637,119)
{
Angle=3
link(onEvent,1245562:doWork3,[])
}
Add(HubEx,9874699,637,126)
{
Angle=3
link(onEvent,12747404:doWork3,[])
}
Add(TimeCounter,7414212,287,84)
{
Precision=1
link(onStart,13989793:doFor,[])
link(onStop,10448880:doText,[(327,97)(327,139)])
}
Add(For,13989793,336,84)
{
Start=1
End=100000
link(onEvent,9853830:doFor,[])
link(onStop,7414212:doStop,[(380,97)(380,68)(273,68)(273,97)])
}
Add(Button,6531240,119,84)
{
Left=125
Top=60
link(onClick,10379623:doEvent1,[])
}
Add(Memory,11403340,749,98)
{
Default=Integer(0)
}
Add(Memory,10400535,798,231)
{
Default=Integer(0)
}
Add(Label,10448880,336,133)
{
Left=200
Top=65
Width=100
}
Add(TimeCounter,11725473,294,231)
{
Precision=1
link(onStart,6755417:doFor,[])
link(onStop,14469705:doText,[(334,244)(334,286)])
}
Add(For,6755417,343,231)
{
Start=1
End=100000
link(onEvent,9176190:doFor,[])
link(onStop,11725473:doStop,[(387,244)(387,215)(280,215)(280,244)])
}
Add(Label,14469705,343,280)
{
Left=200
Top=85
Width=100
}
Add(Hub,10379623,196,84)
{
OutCount=4
link(onEvent1,7414212:doStart,[])
link(onEvent2,11725473:doStart,[(237,97)(237,237)])
link(onEvent3,67066:doStart,[(229,104)(229,384)])
link(onEvent4,4082358:doStart,[(220,111)(220,510)])
}
Add(For,9853830,406,84)
{
Start=1
End=18
link(onEvent,11631242:doEvent,[(506,90)(506,27)])
}
Add(For,9176190,406,231)
{
Start=1
End=18
link(onEvent,9788377:doCompare,[])
}
Add(TimeCounter,67066,294,378)
{
Precision=1
link(onStart,2569247:doCompare,[])
link(onStop,2348341:doText,[(334,391)(334,433)])
}
Add(Label,2348341,343,427)
{
Left=200
Top=105
Width=100
}
Add(InlineCode,8947214,350,504)
{
WorkPoints=#7:doStart|
EventPoints=#6:onStop|5:onRes|
Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|10: k:byte;|9: public|27: onRes, onStop:THI_Event;|50: procedure doStart(var _Data:TData; Index:Word);|47: procedure vRes(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|31: procedure THiAsmClass.doStart;|18: var i, n:integer;|6: Begin|23: for i:=1 to 100000 do|21: for n:=1 to 18 do|10: begin|24: If n=17 then k:=1;|35: If(n>=11)and(n<=16) then k:=0|9: end;|25: _hi_onEvent(onStop); |5: End;|0:|27:procedure THiAsmClass.vRes;|5:begin|22: dtInteger(_Data,k)|5:end; |4:end.|
link(onStop,4082358:doStop,[(393,510)(393,492)(275,492)(275,517)])
}
Add(Label,5463166,350,553)
{
Left=200
Top=125
Width=100
}
Add(TimeCounter,4082358,287,504)
{
Precision=1
link(onStart,8947214:doStart,[])
link(onStop,5463166:doText,[(335,517)(335,559)])
}
Add(FTCG_Tools,2569247,350,378)
{
link(onStop,67066:doStop,[(398,384)(398,362)(282,362)(282,391)])
}
BEGIN_SDK
Add(EditMultiEx,9963575,21,21)
{
WorkCount=#9:doCompare|
EventCount=#6:onStop|
Width=545
Height=347
link(doCompare,6564903:doFor,[(42,27)(42,97)])
}
Add(FT_If_else,12601791,224,133)
{
Type=4
Op2=Integer(11)
link(onTrue,14208137:doCompare,[])
link(onFalse,15127802:doWork2,[(268,146)(268,188)])
}
Add(FT_If_else,14208137,280,133)
{
Type=3
Op2=Integer(16)
link(onTrue,14070654:doData,[])
link(onFalse,15127802:doWork1,[(326,146)])
}
Add(FT_If_else,8262193,343,182)
{
Op2=Integer(17)
link(onTrue,2535156:doData,[])
}
Add(HubEx,15127802,322,182)
{
link(onEvent,8262193:doCompare,[])
}
Add(FT_DoData,14070654,413,133)
{
Data=Integer(0)
link(onEventData,15232975:doWork1,[(461,139)])
}
Add(FT_DoData,2535156,413,182)
{
Data=Integer(1)
link(onEventData,15232975:doWork3,[(461,188)])
}
Add(FT_For,6564903,63,91)
{
End=100000
Start=1
link(onEvent,2541856:doFor,[(117,97)(117,139)])
link(onStop,9963575:onStop,[(331,104)(331,27)])
}
Add(FT_For,2541856,168,133)
{
End=18
Start=1
link(onEvent,12601791:doCompare,[])
}
Add(FT_Memory,11718991,476,161)
{
Default=Integer(0)
}
Add(HubEx,15232975,457,161)
{
link(onEvent,11718991:doValue,[])
}
END_SDK


карма: 4

1
файлы: 1code_27325.txt [5.4KB] [294]
Голосовали:MAV