Add(IndexToChanel,11631242,546,35) { 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,[(606,153)]) link(onEvent18,11633699:doWork2,[(637,160)(637,125)]) } Add(If_else,416891,595,245) { Type=3 Op2=Integer(16) link(onTrue,1694203:doWork1,[]) link(onFalse,9520171:doWork1,[(642,258)]) AddHint(-1,37,27,13,Op2) } Add(If_else,5161824,658,294) { Op2=Integer(17) link(onTrue,1694203:doWork2,[(702,300)(702,258)]) AddHint(-2,36,27,13,Op2) } Add(HubEx,9520171,638,294) { link(onEvent,5161824:doCompare,[]) } Add(If_else,9788377,546,245) { Type=4 Op2=Integer(11) link(onTrue,416891:doCompare,[]) link(onFalse,9520171:doWork2,[(586,258)(586,300)]) AddHint(-2,38,27,13,Op2) } Add(ChanelToIndex,1694203,714,245) { link(onIndex,10400535:doValue,[]) } Add(ChanelToIndex,11633699,658,112) { link(onIndex,11403340:doValue,[]) } Add(HubEx,6674507,602,112) { link(onEvent,11633699:doWork1,[]) } Add(HubEx,7934983,602,119) { Angle=3 link(onEvent,6674507:doWork3,[]) } Add(HubEx,1245562,602,126) { Angle=3 link(onEvent,7934983:doWork3,[]) } Add(HubEx,12747404,602,133) { Angle=3 link(onEvent,1245562:doWork3,[]) } Add(HubEx,9874699,602,140) { Angle=3 link(onEvent,12747404:doWork3,[]) } Add(TimeCounter,7414212,252,98) { Precision=1 link(onStart,13989793:doFor,[]) link(onStop,10448880:doText,[(292,111)(292,153)]) } Add(For,13989793,301,98) { Start=1 End=100000 link(onEvent,9853830:doFor,[]) link(onStop,7414212:doStop,[(345,111)(345,82)(238,82)(238,111)]) } Add(Button,6531240,84,98) { Left=125 Top=60 link(onClick,10379623:doEvent1,[]) } Add(Memory,11403340,714,112) { Default=Integer(0) } Add(Memory,10400535,763,245) { Default=Integer(0) } Add(Label,10448880,301,147) { Left=200 Top=65 Width=100 } Add(TimeCounter,11725473,259,245) { Precision=1 link(onStart,6755417:doFor,[]) link(onStop,14469705:doText,[(299,258)(299,300)]) } Add(For,6755417,308,245) { Start=1 End=100000 link(onEvent,9176190:doFor,[]) link(onStop,11725473:doStop,[(352,258)(352,229)(245,229)(245,258)]) } Add(Label,14469705,308,294) { Left=200 Top=85 Width=100 } Add(Hub,10379623,161,98) { OutCount=4 link(onEvent1,7414212:doStart,[]) link(onEvent2,11725473:doStart,[(202,111)(202,251)]) link(onEvent3,67066:doStart,[(194,118)(194,398)]) link(onEvent4,4082358:doStart,[(185,125)(185,524)]) } Add(For,9853830,371,98) { Start=1 End=18 link(onEvent,11631242:doEvent,[(471,104)(471,41)]) } Add(For,9176190,371,245) { Start=1 End=18 link(onEvent,9788377:doCompare,[]) } Add(TimeCounter,67066,259,392) { Precision=1 link(onStart,2569247:doCompare,[]) link(onStop,2348341:doText,[(299,405)(299,447)]) } Add(Label,2348341,308,441) { Left=200 Top=105 Width=100 } Add(InlineCode,8947214,315,518) { 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,[(358,524)(358,506)(240,506)(240,531)]) } Add(Label,5463166,315,588) { Left=200 Top=125 Width=100 } Add(TimeCounter,4082358,252,518) { Precision=1 link(onStart,8947214:doStart,[]) link(onStop,5463166:doText,[(300,531)(300,594)]) } Add(FTCG_Tools,2569247,315,392) { link(onStop,67066:doStop,[(363,398)(363,376)(247,376)(247,405)]) } 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 Op1=Integer(0) Op2=Integer(11) link(onTrue,14208137:doCompare,[]) link(onFalse,15127802:doWork2,[(268,146)(268,188)]) } Add(FT_If_else,14208137,280,133) { Type=3 Op1=Integer(0) Op2=Integer(16) link(onTrue,14070654:doData,[]) link(onFalse,15127802:doWork1,[(326,146)]) } Add(FT_If_else,8262193,343,182) { Op1=Integer(0) 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