Всегда удивлялся схемам с огромным количеством компонентов.
Вот и сейчас почти 400 компонент. Ради интереса, посмотрел - индусская схема (по аналогии с "индусским кодом")
Дети играют в кубики.
code_17983.txt
Самое "обидное", что алгоритм вроде неплохой и в основном верный, но реализация, при полном незнании принципа работы компонент, убивает наповал.
извини, упустил из вида, что на выходе нужно иметь 0 или 1. Поэтому мультик должен выглядеть так:
Add(MultiElementEx,3785406,276,14)
{
}
BEGIN_SDK
Add(EditMultiEx,5783115,336,133)
{
WorkCount=#8:doSearch|
EventCount=#10:onTrue=нет|10:onTrue1=да|
DataCount=#4:Text|
Width=482
Height=354
link(doSearch,16639136:doSearch,[(420,139)(420,251)])
}
Add(FileTools,8416686,504,357)
{
DelToRecycle=1
link(onEnd,8672851:doEvent1,[])
link(FileName,8668196:Value,[(510,287)(601,287)])
}
Add(StrMask,12257492,595,301)
{
Mask="0"
link(onTrue,5783115:onTrue,[(723,314)(723,139)])
}
Add(StrMask,9028672,595,343)
{
Mask="1"
link(onTrue,5783115:onTrue1,[(723,356)(723,146)])
}
Add(Hub,8672851,553,357)
{
link(onEvent1,12257492:doCompare,[(585,363)(585,307)])
link(onEvent2,9028672:doCompare,[(589,370)(589,349)])
}
Add(BlockFind,16639136,504,245)
{
IncludeBlock=1
StartBlock="""
EndBlock="" -nointro"
link(onSearch,8668196:doValue,[])
link(Text,5783115:Text,[(510,189)(342,189)])
}
Add(Memory,8668196,595,245)
{
link(onData,8416686:doFileExists,[(632,251)(632,283)(497,283)(497,384)])
}
Add(LinkTip,13801390,490,168)
{
Link="твоя проверка наличия файла"
Font=[MS Sans Serif,8,0,16711680,1]
}
END_SDK
Add(MultiElementEx,1108433,423,14)
{
}
BEGIN_SDK
Add(EditMultiEx,5783115,336,133)
{
WorkCount=#8:doSearch|
EventCount=#17:No_file=Файла нет|18:Yes_File=Файл есть|
Width=279
Height=95
VOffset=15
link(doSearch,16639136:doSearch,[(346,154)(346,154)])
}
Add(FileTools,8416686,420,148)
{
DelToRecycle=1
link(onEnd,13235054:doValue,[])
}
Add(BlockFind,16639136,357,148)
{
IncludeBlock=1
StartBlock="""
EndBlock="" -nointro"
link(onSearch,8416686:doFileExists,[(405,154)(405,175)])
}
Add(LinkTip,13801390,392,196)
{
Link="моя проверка наличия файла"
Font=[MS Sans Serif,8,0,16711680,1]
}
Add(IndexToChanel,6371821,546,148)
{
Point(Data)
link(onEvent1,5783115:No_file,[(596,154)(596,154)])
link(onEvent2,5783115:Yes_File,[(596,161)(596,161)])
link(Data,13235054:Value,[(552,140)(529,140)(529,188)(489,188)])
}
Add(Memory,13235054,483,148)
{
link(onData,6371821:doEvent,[])
}
END_SDK
Add(LinkTip,13801390,308,21)
{
Link="--> заменить на -->"
Font=[MS Sans Serif,8,0,16711680,1]
}