Вверх ↑
Ответов: 113
Рейтинг: 1
#1: 2020-03-15 21:08:30 ЛС | профиль | цитата
новый вариант )
схема

Add(MainForm,2953706,21,105)
{
Width=1186
Height=339
Position=1
}
Add(Button,15939380,21,161)
{
Left=5
Top=5
Caption="test"
link(onClick,3882273:doEvent1,[])
}
Add(BlockFind,3554812,189,168)
{
StartBlock="<borders>"
EndBlock="</borders>"
link(onSearch,10539276:doSearch,[])
link(Text,11084010:Text,[])
AddHint(-26,63,62,13,StartBlock)
}
Add(BlockFind,10539276,238,168)
{
IncludeBlock=1
StartBlock="<location "
EndBlock="/>"
link(onSearch,13798465:doSearch,[])
AddHint(-2,46,61,13,StartBlock)
}
Add(BlockFind,13798465,294,168)
{
IncludeBlock=1
StartBlock="Latitude=""
EndBlock="""
link(onSearch,16521011:doValue,[(344,174)(344,132)])
link(onEndSearch,14048567:doSearch,[])
AddHint(-38,-41,64,13,StartBlock)
}
Add(BlockFind,14048567,350,175)
{
IncludeBlock=1
StartBlock="Longitude=""
EndBlock="""
link(onSearch,16005903:doString,[])
link(onEndSearch,9823941:doData,[(398,188)(398,370)])
AddHint(-22,47,73,13,StartBlock)
}
Add(StrList,11084010,189,91)
{
Strings=#0:|72: <area Address="" Home="" Plot="" Index="10" Code="1.01.5" IDZone="">|17: <borders>|81: <location Latitude="55,8421668385123" Longitude="49,1394916479323" />|80: <location Latitude="55,842788962671" Longitude="49,1395269320174" />|81: <location Latitude="55,8427847232707" Longitude="49,1388035843436" />|81: <location Latitude="55,8421859936193" Longitude="49,1387512391333" />|18: </borders>|11: </area>|
}
Add(Hub,3882273,91,161)
{
OutCount=3
link(onEvent1,4488683:In,[(112,167)(112,153)])
link(onEvent2,3554812:doSearch,[])
link(onEvent3,5993742:In,[(112,181)(112,195)])
}
Add(Replace,1024438,455,175)
{
SubStr=","
DestStr="."
link(onReplace,11381813:doSplit,[])
}
Add(StringTable,13067962,1001,371)
{
Left=5
Top=30
Width=450
Height=195
Columns=#1:x|1:y|2:xy|
Grid=0
Point(Strings)
}
Add(Img_Polygon,2196734,1127,504)
{
PointsArray=[]
Color=255
BgColor=65535
Style=1
Size=3
link(Bitmap,16073381:Bitmap,[])
link(PointsArray,1022317:Array,[(1140,439)(1070,439)])
}
Add(MoveWindow,16472599,1204,343)
{
link(Handle,16073381:Handle,[(1210,331)(1185,331)(1185,380)(1140,380)])
}
Add(PaintBox,16073381,1127,336)
{
Left=470
Top=30
Width=2290
Height=2890
Color=-16777214
Cursor=8
Ctl3D=0
WinStyle=2
Name="pbox"
Point(onMouseDown)
Point(Handle)
link(onMouseDown,16472599:doMove,[])
}
Add(RedrawManager,4163979,1029,504)
{
ControlManager="pbox"
}
Add(Hub,4564059,980,497)
{
OutCount=3
link(onEvent2,4163979:doRedraw,[])
link(onEvent3,2196734:doDraw,[(1060,517)(1060,510)])
}
Add(FormatStr,16005903,406,175)
{
Mask="%2;%1"
link(onFString,1024438:doReplace,[])
link(Str2,16521011:Value,[])
}
Add(Memory,16521011,413,126)
{
}
Add(MathParse,15256568,630,175)
{
MathStr="tg(%1) * 100"
link(onResult,16013145:doSplit,[])
}
Add(MultiStrData,11381813,511,175)
{
link(onPart1,12038000:doValue,[])
link(onPart2,6008794:doValue,[(555,188)(555,251)])
}
Add(StrPart,16013145,679,175)
{
Char="."
link(onSplit,4933894:doCalc,[])
}
Add(MathParse,4933894,728,175)
{
MathStr="%1 / 10000000000"
link(onResult,15404590:doSplit,[])
}
Add(StrPart,15404590,777,175)
{
Char="."
Point(Left)
}
Add(MathParse,5682344,637,245)
{
MathStr="tg(%1) * 100"
link(onResult,1950860:doSplit,[])
}
Add(StrPart,1950860,686,245)
{
Char="."
link(onSplit,8466840:doCalc,[])
}
Add(MathParse,8466840,735,245)
{
MathStr="%1 / 10000000000"
link(onResult,13842104:doSplit,[])
}
Add(StrPart,13842104,784,245)
{
Char="."
Point(Left)
}
Add(PointXY,4094361,777,308)
{
link(X,15404590:Left,[])
link(Y,13842104:Left,[])
}
Add(StrList,1022317,1050,329)
{
}
Add(DoData,9823941,777,364)
{
link(onEventData,14562860:doEvent1,[])
link(Data,4094361:Point,[])
}
Add(Hub,14562860,819,364)
{
link(onEvent1,1022317:doAdd,[(842,370)(842,335)])
link(onEvent2,4316396:doString,[])
}
Add(FormatStr,4316396,861,371)
{
DataCount=3
Mask="%3;%2;%1"
link(onFString,13067962:doAdd,[])
link(Str2,12038000:Value,[(874,293)(580,293)])
link(Str3,6008794:Value,[(881,286)(587,286)])
}
Add(Memory,12038000,574,175)
{
link(onData,15256568:doCalc,[])
}
Add(Memory,6008794,581,245)
{
link(onData,5682344:doCalc,[])
}
Add(LineBreak,1289927,931,497)
{
link(Out,4564059:doEvent1,[])
Primary=[5993742,-812,-308]
}
Add(LineBreak,4915760,924,336)
{
link(Out,9716336:doEvent1,[])
Primary=[4488683,-805,-189]
}
Add(Hub,9716336,966,336)
{
link(onEvent1,1022317:doClear,[])
link(onEvent2,13067962:doClear,[(990,349)(990,384)])
}



--- Добавлено в 2020-03-15 21:56:43

вот что то получилось , но масштабы не правильные
[scroll=схема]
Add(MainForm,2953706,21,105)
{
Width=1186
Height=703
Position=1
}
Add(Button,15939380,21,161)
{
Left=5
Top=5
Caption="test"
link(onClick,3882273:doEvent1,[])
}
Add(BlockFind,3554812,161,168)
{
StartBlock="<borders>"
EndBlock="</borders>"
link(onSearch,4693294:doEvent1,[])
link(Text,15689533:Text,[])
AddHint(-26,63,62,13,StartBlock)
}
Add(BlockFind,10539276,259,168)
{
IncludeBlock=1
StartBlock="<location "
EndBlock="/>"
link(onSearch,13798465:doSearch,[])
AddHint(-2,46,61,13,StartBlock)
}
Add(BlockFind,13798465,301,168)
{
IncludeBlock=1
StartBlock="Latitude=""
EndBlock="""
link(onSearch,16521011:doValue,[(344,174)(344,132)])
link(onEndSearch,14048567:doSearch,[])
AddHint(-38,-41,64,13,StartBlock)
}
Add(BlockFind,14048567,350,175)
{
IncludeBlock=1
StartBlock="Longitude=""
EndBlock="""
link(onSearch,16005903:doString,[])
link(onEndSearch,9823941:doData,[(398,188)(398,370)])
AddHint(-22,47,73,13,StartBlock)
}
Add(Hub,3882273,91,161)
{
OutCount=3
link(onEvent1,4488683:In,[(112,167)(112,153)])
link(onEvent2,3554812:doSearch,[])
link(onEvent3,5993742:In,[(112,181)(112,195)])
}
Add(Replace,1024438,455,175)
{
SubStr=","
DestStr="."
link(onReplace,11381813:doSplit,[])
}
Add(StringTable,13067962,805,371)
{
Left=5
Top=30
Width=450
Height=195
Columns=#1:x|1:y|2:xy|1:#|
Grid=0
Point(Strings)
}
Add(Img_Polygon,2196734,931,511)
{
PointsArray=[]
Color=255
BgColor=65535
Style=1
Size=3
link(Bitmap,16073381:Bitmap,[])
link(PointsArray,1022317:Array,[(944,439)(909,439)])
}
Add(MoveWindow,16472599,1008,343)
{
link(Handle,16073381:Handle,[(1014,331)(989,331)(989,380)(944,380)])
}
Add(PaintBox,16073381,931,336)
{
Left=470
Top=30
Width=2290
Height=2890
Color=-16777214
Cursor=8
Ctl3D=0
WinStyle=2
Name="pbox"
Point(onMouseDown)
Point(Handle)
link(onMouseDown,16472599:doMove,[])
}
Add(RedrawManager,4163979,833,504)
{
ControlManager="pbox"
}
Add(Hub,4564059,784,504)
{
link(onEvent1,4163979:doRedraw,[])
link(onEvent2,4698435:doWork2,[])
}
Add(FormatStr,16005903,406,175)
{
Mask="%2;%1"
link(onFString,1024438:doReplace,[])
link(Str2,16521011:Value,[])
}
Add(Memory,16521011,413,126)
{
}
Add(MathParse,15256568,581,175)
{
MathStr="trunc(frac(sqr(%1),1) * 1000,1) "
}
Add(MultiStrData,11381813,511,175)
{
link(onPart1,15256568:doCalc,[])
link(onPart2,3904085:doCalc,[(565,188)(565,237)])
}
Add(PointXY,4094361,581,308)
{
link(X,4737587:Var2,[])
link(Y,16466353:Var2,[])
}
Add(StrList,1022317,889,329)
{
}
Add(DoData,9823941,581,364)
{
link(onEventData,14562860:doEvent1,[])
link(Data,4094361:Point,[])
}
Add(Hub,14562860,623,364)
{
link(onEvent1,1022317:doAdd,[(646,370)(646,335)])
link(onEvent2,4316396:doString,[])
}
Add(FormatStr,4316396,665,371)
{
DataCount=4
Mask="%3;%2;%1;%4"
link(onFString,13067962:doAdd,[])
link(Str2,4737587:Var3,[(678,278)])
link(Str3,16466353:Var3,[(685,287)])
link(Str4,6648774:Count,[])
}
Add(LineBreak,1289927,714,504)
{
link(Out,4564059:doEvent1,[])
Primary=[5993742,-595,-315]
}
Add(LineBreak,4915760,735,385)
{
link(Out,13067962:doClear,[(785,391)(785,384)])
Primary=[4488683,-616,-238]
}
Add(MathParse,3904085,588,231)
{
MathStr="trunc(frac(sqr(%1),1) * 1000,1) "
}
Add(Hub,1378522,756,434)
{
OutCount=4
link(onEvent1,4698435:doWork1,[(886,440)])
link(onEvent2,1022317:doClear,[(878,447)(878,342)])
link(onEvent3,6648774:doNext,[(868,454)(868,224)(672,224)(672,244)])
}
Add(HubEx,4698435,882,511)
{
link(onEvent,2196734:doDraw,[])
}
Add(StrList,15689533,161,84)
{
Strings=#0:|72: <area Address="" Home="" Plot="" Index="10" Code="1.01.5" IDZone="">|17: <borders>|81: <location Latitude="55,8421668385123" Longitude="49,1394916479323" />|80: <location Latitude="55,842788962671" Longitude="49,1395269320174" />|81: <location Latitude="55,8427847232707" Longitude="49,1388035843436" />|81: <location Latitude="55,8421859936193" Longitude="49,1387512391333" />|18: </borders>|11: </area>|72: <area Address="" Home="" Plot="" Index="10" Code="1.01.5" IDZone="">|17: <borders>|81: <location Latitude="55,8343152400566" Longitude="49,1514834455983" />|81: <location Latitude="55,8343632721057" Longitude="49,1514780151826" />|81: <location Latitude="55,8343693714095" Longitude="49,1509281855776" />|81: <location Latitude="55,8343083783296" Longitude="49,1509336159933" />|18: </borders>|11: </area>|72: <area Address="" Home="" Plot="" Index="10" Code="1.01.5" IDZone="">|17: <borders>|81: <location Latitude="55,8361338238948" Longitude="49,1254430798832" />|81: <location Latitude="55,8361767513049" Longitude="49,1254484443011" />|81: <location Latitude="55,8361594297252" Longitude="49,1249803988212" />|81: <location Latitude="55,8361172554067" Longitude="49,1250085620167" />|18: </borders>|11: </area>|
}
Add(Hub,4693294,217,168)
{
link(onEvent1,10539276:doSearch,[])
link(onEvent2,1378522:doEvent1,[(242,181)(242,440)])
}
Add(CounterEx,6648774,686,238)
{
}
Add(GetDataEx,16466353,588,282)
{
link(Data,3904085:Result,[])
}
Add(GetDataEx,4737587,581,273)
{
link(Data,15256568:Result,[])
}

[/scroll]
ну и преобразование возможно неправильно
карма: 0
well done turner
0
Редактировалось 2 раз(а), последний 2020-03-15 21:57:49