Вверх ↑
Этот топик читают: Гость
Ответов: 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

0
Ответов: 2370
Рейтинг: 683
#2: 2025-03-31 23:11:38 ЛС | профиль | цитата
-del-

Редактировалось 2 раз(а), последний 2025-04-03 08:28:29
карма: 11

0
Ответов: 209
Рейтинг: 2
#3: 2025-03-31 23:32:28 ЛС | профиль | цитата
tig-rrr, мой первый проект был похож на это
да что уж там, я по сей день так рисую)))
карма: 0

0
Ответов: 1120
Рейтинг: 80
#4: 2025-04-01 08:53:01 ЛС | профиль | цитата
zhorik5 писал(а):
я по сей день так рисую

Не только. Большая часть участников форума так рисуют
карма: 2

0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)