Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2017-07-08 20:01:49 ЛС | профиль | цитата
Упражнения в экстрасенсорике продолжаются
Add(MainForm,9260475,42,77)
{
Width=882
Height=676
link(onCreate,5379523:doEvent1,[])
}
Add(StringTable,9011650,455,28)
{
Left=45
Top=30
Width=150
Height=580
Columns=#4:1=40|4:2=40|4:3=40|
Grid=0
Point(Matrix)
}
Add(Edit,4327769,203,98)
{
Left=40
Top=5
Width=815
link(onChange,4108965:doEnum,[])
}
Add(Button,15137281,42,126)
{
Left=5
Top=5
Width=35
Caption="New"
link(onClick,9380219:doWork3,[(130,132)])
}
Add(Hub,5379523,98,91)
{
OutCount=3
link(onEvent1,10538850:doFor,[(123,97)(123,34)])
link(onEvent2,14659490:doWork1,[])
link(onEvent3,9380219:doWork2,[])
}
Add(Str_Enum,4108965,259,98)
{
Delimiter=""
Step=2
link(onEnum,14306950:doCalc,[])
}
Add(MultiElement,14659490,147,98)
{
link(onEvent1,4327769:doText,[])
}
BEGIN_SDK
Add(EditMulti,14803080,21,21)
{
EventCount=1
WorkCount=2
link(doWork1,13528313:doRandomize,[(130,27)(130,62)])
link(doWork2,3256237:doEvent1,[(39,34)(39,48)])
}
Add(For,3532680,84,49)
{
End=125
link(onEvent,13528313:doRandom,[])
link(onStop,7861476:doData,[(123,62)(123,111)])
}
Add(Random,13528313,147,49)
{
Max=255
link(onRandom,11140596:doConvert,[])
}
Add(Convertor,11140596,196,49)
{
Mode=6
link(onResult,9095277:doStrCat,[])
}
Add(Hub,3256237,49,42)
{
link(onEvent1,9095277:doClear,[(74,48)(74,41)(221,41)(221,62)])
link(onEvent2,3532680:doFor,[])
}
Add(StrCat,9095277,252,49)
{
Point(doClear)
link(Str1,12916410:Var1,[(258,40)(244,40)(244,89)])
}
Add(DoData,7861476,252,105)
{
link(onEventData,14803080:onEvent1,[(291,111)(291,27)])
link(Data,12916410:Var2,[])
}
Add(GetDataEx,12916410,252,84)
{
link(Data,9095277:Result,[])
}
END_SDK
Add(HubEx,9380219,126,105)
{
link(onEvent,14659490:doWork2,[])
}
Add(MatrixRW,1892135,469,91)
{
link(Matrix,9011650:Matrix,[])
link(X,14306950:Result,[(489,82)(461,82)(461,145)(321,145)])
link(Y,16277220:Result,[(496,75)(454,75)(454,138)(370,138)])
}
Add(MathParse,14306950,315,98)
{
DataCount=1
MathStr="(%1-1) mod 3"
ResultType=0
link(onResult,16277220:doCalc,[])
link(X1,1389133:Var2,[])
}
Add(MathParse,16277220,364,98)
{
DataCount=1
MathStr="(%1-1) div 3"
ResultType=0
link(onResult,5957034:doStrCat,[])
link(X1,1389133:Var3,[(370,82)])
}
Add(GetDataEx,1389133,315,77)
{
Angle=3
link(Data,4108965:NumSubStr,[(307,82)(307,145)(265,145)])
}
Add(For,10538850,315,28)
{
End=41
link(onEvent,9091424:doData,[])
}
Add(DoData,9091424,364,28)
{
link(onEventData,9011650:doAdd,[])
}
Add(StrCat,5957034,413,98)
{
Str1="0x"
link(onStrCat,1892135:doWrite,[])
link(Str2,4108965:Part,[(426,75)(300,75)(300,138)(272,138)])
}

--- Добавлено в 2017-07-08 20:06:41

Учитывая опыт Tad-а, сделаем подтверждение:
HiAsmFun_2.png

--- Добавлено в 2017-07-08 20:31:19

Хотя -- перемудрил я.
В стиле Tad-а, проще будет:
Add(MainForm,15128724,28,28)
{
Width=882
Height=700
link(onCreate,5379523:doEvent1,[])
}
Add(StringTable,9011650,455,35)
{
Left=45
Top=30
Width=210
Height=620
Columns=#10:№ Метки=60|10:Время_1=60|10:Время_2=60|
Grid=0
}
Add(Edit,4327769,168,42)
{
Left=40
Top=5
Width=815
link(onChange,11026011:doEvent1,[])
}
Add(Button,15137281,28,91)
{
Left=5
Top=5
Width=35
Caption="New"
link(onClick,9380219:doWork3,[(102,97)])
}
Add(Hub,5379523,77,42)
{
link(onEvent1,14659490:doWork1,[])
link(onEvent2,9380219:doWork2,[])
}
Add(Str_Enum,4108965,252,49)
{
Delimiter=""
Step=6
link(onEnum,10243326:doInsert,[])
}
Add(MultiElement,14659490,119,42)
{
link(onEvent1,4327769:doText,[])
}
BEGIN_SDK
Add(EditMulti,14803080,21,21)
{
EventCount=1
WorkCount=2
link(doWork1,13528313:doRandomize,[(130,27)(130,62)])
link(doWork2,3256237:doEvent1,[(39,34)(39,48)])
}
Add(For,3532680,84,49)
{
End=251
link(onEvent,13528313:doRandom,[])
link(onStop,7861476:doData,[(123,62)(123,111)])
}
Add(Random,13528313,147,49)
{
Max=15
link(onRandom,11140596:doConvert,[])
}
Add(Convertor,11140596,196,49)
{
Mode=6
Digits=1
link(onResult,9095277:doStrCat,[])
}
Add(Hub,3256237,49,42)
{
link(onEvent1,9095277:doClear,[(74,48)(74,41)(235,41)(235,62)])
link(onEvent2,3532680:doFor,[])
}
Add(StrCat,9095277,252,49)
{
Point(doClear)
link(Str1,12916410:Var1,[(258,40)(244,40)(244,89)])
}
Add(DoData,7861476,252,105)
{
link(onEventData,14803080:onEvent1,[(291,111)(291,27)])
link(Data,12916410:Var2,[])
}
Add(GetDataEx,12916410,252,84)
{
link(Data,9095277:Result,[])
}
END_SDK
Add(HubEx,9380219,98,49)
{
link(onEvent,14659490:doWork2,[])
}
Add(Insert,10243326,301,49)
{
SubStr=";0x"
Position=5
link(onInsert,623083:doInsert,[])
}
Add(Insert,623083,350,49)
{
SubStr=";0x"
Position=3
link(onInsert,1232750:doInsert,[])
}
Add(Hub,11026011,217,42)
{
link(onEvent1,9011650:doClear,[])
link(onEvent2,4108965:doEnum,[])
}
Add(Insert,1232750,399,49)
{
SubStr="0x"
Position=1
link(onInsert,9011650:doAdd,[(438,55)(438,41)])
}
карма: 9

0
Редактировалось 8 раз(а), последний 2017-07-09 10:17:10