К 1 апреля "Запутыватель"

Форумы "Игра в слова"К 1 апреля "Запутыватель" ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 522

Рейтинг: 167

#1: 2025-03-31 21:04:22 ЛС | профиль | цитата

История появления идеи создания этой схемы .
Один знакомый обратился с просьбой создать маленькую утилитку для тестирования геодезического прибора . Идея показалась интересной, пару-тройку вечеров — и программка готова . Отправляю на почту. Жду слова восхищения и благодарности ). Но не тут-то было . На меня посыпался шквал негатива и оскорблений: как я МОГ прислать ему ВИИИРУУУС .!!!! Все мои оправдания шли лесом . Единственный способ оправдания — прислать ему ИСХОДНИК, который он как-то там проверит на вирусы и скомпилирует САМ. В этот момент и появилась идея создать эту схему . Воспользовался ей один раз. Для подопытной утилитки отработала отлично ). Для больших и сложных схем, скорей всего, будут проблемы.

Add(MainForm,2953706,56,35)
{
 Width=455
 Height=188
 Caption="К 1 Апреля."
 Position=1
}
Add(Button,9808902,350,49)
{
 Left=55
 Top=70
 Width=330
 Height=45
 Caption="Открыть и преобразовать проект "
 link(onClick,16513505:doEvent1,[])
}
Add(StrMask,10487624,238,161)
{
 Mask="*Add(*,*,*,*)"
 link(onFalse,4822882:doCompare,[])
 link(onTrue,5578615:doEvent1,[(282,174)(282,279)])
}
Add(ODialog,8997161,56,133)
{
 Filter="SHA|*.sha|All|*.*"
 link(onExecute,7383081:doEvent1,[])
}
Add(ArrayEnum,6722160,182,161)
{
 link(onItem,10487624:doCompare,[])
 link(onEndEnum,5385740:doEvent1,[(226,174)(226,454)])
 link(Array,4789930:Array,[])
}
Add(Hub,7383081,105,133)
{
 OutCount=3
 link(onEvent1,4789930:doLoad,[])
 link(onEvent2,6971676:doPart,[(146,146)(146,524)])
 link(onEvent3,6722160:doEnum,[(137,153)(137,167)])
}
Add(MultiStrPart,4260947,399,329)
{
 Char=","
 link(onSplit,9541161:doString,[(443,335)(443,367)(387,367)(387,398)])
}
Add(BlockFind,1546081,343,329)
{
 IncludeBlock=1
 StartBlock="("
 EndBlock=")"
 link(onSearch,4260947:doSplit,[])
}
Add(FormatStr,9541161,399,392)
{
 DataCount=4
 Mask="Add(%1,%2,%3,%4) "
 link(onFString,2534665:doEvent4,[(598,398)(598,188)])
 link(Str1,4260947:Part1,[])
 link(Str2,4260947:Part2,[])
 link(Str3,7979807:Value,[(419,374)(461,374)])
 link(Str4,4511365:Value,[(426,381)(566,381)])
}
Add(StrList,4789930,168,105)
{
 Point(doLoad)
}
Add(StrList,3790942,658,161)
{
 Point(doSave)
}
Add(Hub,16513505,406,49)
{
 OutCount=4
 link(onEvent1,3790942:doClear,[(639,55)(639,174)])
 link(onEvent2,4511365:doClear,[(548,62)(548,293)])
 link(onEvent3,7979807:doClear,[(442,69)(442,293)])
 link(onEvent4,8997161:doExecute,[(429,76)(429,93)(44,93)(44,139)])
}
Add(SDialog,10093889,357,518)
{
 Filter="SHA|*.sha|All|*.*"
 Point(doFileName)
 link(onExecute,3790942:doSave,[(639,524)(639,195)])
}
Add(StrMask,4822882,343,161)
{
 Mask="*link(*,*:*,*[*])"
 link(onFalse,1907254:doCompare,[])
 link(onTrue,1071505:doSplit,[(387,174)(387,216)])
}
Add(MultiStrData,1071505,455,210)
{
 Char="["
 link(onPart1,4373421:doStrCat,[])
}
Add(StrCat,4373421,504,210)
{
 Str2="[])"
 link(onStrCat,2534665:doEvent3,[(586,216)(586,181)])
}
Add(Hub,2534665,616,161)
{
 InCount=5
 OutCount=1
 link(onEvent1,3790942:doAdd,[])
}
Add(StrMask,1907254,399,161)
{
 Mask="*Primary=[*,*,*]"
 link(onFalse,2534665:doEvent1,[])
 link(onTrue,3179644:doSplit,[])
}
Add(MultiStrData,3179644,455,168)
{
 Char=","
 link(onPart1,8700767:doStrCat,[])
}
Add(StrCat,8700767,504,168)
{
 Str2=",0,0]"
 link(onStrCat,2534665:doEvent2,[])
}
Add(FilePart,6971676,217,518)
{
 link(onName,12720294:doStrCat,[])
}
Add(StrCat,12720294,280,525)
{
 Str2="_old.sha"
 link(onStrCat,10093889:doFileName,[])
}
Add(CheckBox,1073387,343,224)
{
 Left=60
 Top=25
 Caption="RND"
}
Add(IndexToChanel,2034839,343,273)
{
 Point(Index)
 link(onEvent2,4663403:doRandom,[])
 link(Index,1073387:Checked,[])
}
Add(Hub,5578615,294,273)
{
 link(onEvent1,2034839:doEvent,[])
 link(onEvent2,1546081:doSearch,[(326,286)(326,335)])
}
Add(Random,4663403,399,280)
{
 Min=10
 Max=500
 Quality=1
 link(onRandom,7979807:doValue,[])
}
Add(Random,522771,504,280)
{
 Min=10
 Max=500
 link(onRandom,4511365:doValue,[])
}
Add(Memory,7979807,455,280)
{
 Default=Integer(200)
 link(onData,522771:doRandom,[])
}
Add(Memory,4511365,560,280)
{
 Default=Integer(200)
}
Add(FormatStr,2197683,399,455)
{
 Mask="Add(Hub,2269307,530,10)\r\n{\r\n @Freez=True\r\n @Color=16777215\r\n OutCount=70\r\n link(onEvent1,5279407:doEvent1,[])\r\n link(onEvent2,5279407:doEvent2,[])\r\n link(onEvent3,5279407:doEvent3,[])\r\n link(onEvent4,5279407:doEvent4,[])\r\n link(onEvent5,5279407:doEvent5,[])\r\n link(onEvent6,5279407:doEvent6,[])\r\n link(onEvent7,5279407:doEvent7,[])\r\n link(onEvent8,5279407:doEvent8,[])\r\n link(onEvent9,5279407:doEvent9,[])\r\n link(onEvent10,5279407:doEvent10,[])\r\n link(onEvent11,5279407:doEvent11,[])\r\n link(onEvent12,5279407:doEvent12,[])\r\n link(onEvent13,5279407:doEvent13,[])\r\n link(onEvent14,5279407:doEvent14,[])\r\n link(onEvent15,5279407:doEvent15,[])\r\n link(onEvent16,5279407:doEvent16,[])\r\n link(onEvent17,5279407:doEvent17,[])\r\n link(onEvent18,5279407:doEvent18,[])\r\n link(onEvent19,5279407:doEvent19,[])\r\n link(onEvent20,5279407:doEvent20,[])\r\n link(onEvent21,5279407:doEvent21,[])\r\n link(onEvent22,5279407:doEvent22,[])\r\n link(onEvent23,5279407:doEvent23,[])\r\n link(onEvent24,5279407:doEvent24,[])\r\n link(onEvent25,5279407:doEvent25,[])\r\n link(onEvent26,5279407:doEvent26,[])\r\n link(onEvent27,5279407:doEvent27,[])\r\n link(onEvent28,5279407:doEvent28,[])\r\n link(onEvent29,5279407:doEvent29,[])\r\n link(onEvent30,5279407:doEvent30,[])\r\n link(onEvent31,5279407:doEvent31,[])\r\n link(onEvent32,5279407:doEvent32,[])\r\n link(onEvent33,5279407:doEvent33,[])\r\n link(onEvent34,5279407:doEvent34,[])\r\n link(onEvent35,5279407:doEvent35,[])\r\n link(onEvent36,5279407:doEvent36,[])\r\n link(onEvent37,5279407:doEvent37,[])\r\n link(onEvent38,5279407:doEvent38,[])\r\n link(onEvent39,5279407:doEvent39,[])\r\n link(onEvent40,5279407:doEvent40,[])\r\n link(onEvent41,5279407:doEvent41,[])\r\n link(onEvent42,5279407:doEvent42,[])\r\n link(onEvent43,5279407:doEvent43,[])\r\n link(onEvent44,5279407:doEvent44,[])\r\n link(onEvent45,5279407:doEvent45,[])\r\n link(onEvent46,5279407:doEvent46,[])\r\n link(onEvent47,5279407:doEvent47,[])\r\n link(onEvent48,5279407:doEvent48,[])\r\n link(onEvent49,5279407:doEvent49,[])\r\n link(onEvent50,5279407:doEvent50,[])\r\n link(onEvent51,5279407:doEvent51,[])\r\n link(onEvent52,5279407:doEvent52,[])\r\n link(onEvent53,5279407:doEvent53,[])\r\n link(onEvent54,5279407:doEvent54,[])\r\n link(onEvent55,5279407:doEvent55,[])\r\n link(onEvent56,5279407:doEvent56,[])\r\n link(onEvent57,5279407:doEvent57,[])\r\n link(onEvent58,5279407:doEvent58,[])\r\n link(onEvent59,5279407:doEvent59,[])\r\n link(onEvent60,5279407:doEvent60,[])\r\n link(onEvent61,5279407:doEvent61,[])\r\n link(onEvent62,5279407:doEvent62,[])\r\n link(onEvent63,5279407:doEvent63,[])\r\n link(onEvent64,5279407:doEvent64,[])\r\n link(onEvent65,5279407:doEvent65,[])\r\n link(onEvent66,5279407:doEvent66,[])\r\n link(onEvent67,5279407:doEvent67,[])\r\n link(onEvent68,5279407:doEvent68,[])\r\n link(onEvent69,5279407:doEvent69,[])\r\n link(onEvent70,5279407:doEvent70,[])\r\n}\r\nAdd(Hub,5279407,10,10)\r\n{\r\n @Freez=True\r\n @Color=16777215\r\n InCount=70\r\n OutCount=1\r\n}"
 link(onFString,2534665:doEvent5,[(607,461)(607,195)])
}
Add(Hub,5385740,301,448)
{
 link(onEvent1,3402807:doEvent,[])
 link(onEvent2,10093889:doExecute,[(331,461)(331,524)])
}
Add(CheckBox,12041085,343,399)
{
 Left=130
 Top=25
 Caption="IIIIIIII"
}
Add(IndexToChanel,3402807,343,448)
{
 Point(Index)
 link(onEvent2,2197683:doString,[])
 link(Index,12041085:Checked,[])
}

Оффтоп: мини-программы и утилиты, которые я конструировал в Hiasm, никогда не распространял ни на коммерческой основе, ни за шоколадку, ни за банку пива ). Кому вдруг надо — как есть . В основном в своих интересах времяпровождения . Очень редко для знакомых утилитку какую ...

Редактировалось 1 раз(а), последний 2025-03-31 21:05:05

карма: 4