Вверх ↑
Ответов: 876
Рейтинг: 187
#1: 2021-12-31 20:50:53 ЛС | профиль | цитата
Предлагаю свой вариант решения проблемы отсутствия новогоднего настроения

Add(MainForm,13530122,105,203)
{
 Width=467
 Height=558
 Caption="С наступающим 2022 годом!"
 link(onCreate,6540583:doFor,[])
}
Add(For,6540583,161,217)
{
 End=26
 Step=2
 link(onEvent,8435115:doEvent1,[])
 link(onStop,8937693:doEvent1,[(200,230)(200,328)])
}
Add(StrList,4783349,658,217)
{
 Strings=#0:|5:_.|._|3:'|'|
}
Add(Label,11234404,903,385)
{
 Left=980
 Top=285
 Align=5
 Color=0
 Font=[Terminal,14,0,32768,255]
 Caption=""
 Alignment=2
 link(Text,13437636:Text,[])
}
Add(CounterEx,6326376,252,266)
{
 Max=1
 Point(onThroughMax)
 Point(doReset)
 link(onThroughMax,2244028:doEvent1,[])
}
Add(Hub,2244028,294,273)
{
 link(onEvent1,4879921:doStrCatDlm,[])
 link(onEvent2,6326376:doReset,[(319,286)(319,307)(242,307)(242,279)])
}
Add(HubEx,4795447,399,217)
{
 link(onEvent,4409347:doStrCatDlm,[])
}
Add(StrCatDelim,4409347,420,217)
{
 Str1="/"
 Str2="\"
 Point(Delimiter)
 link(onStrCatDlm,1401334:doValue,[])
}
Add(StrCatDelim,4879921,343,273)
{
 Str1="_"
 Str2="_"
 Point(Delimiter)
 link(onStrCatDlm,4795447:doWork3,[(403,279)])
 link(Delimiter,16069111:Result,[])
}
Add(DoData,2218651,469,329)
{
 Data=String(\______/)
 link(onEventData,731099:doEvent1,[])
}
Add(HubEx,1882947,560,217)
{
 link(onEvent,9236035:doReplace,[])
}
Add(Replace,5594209,469,280)
{
 SubStr=" "
 DestStr="_"
 link(onReplace,12763570:doWork2,[])
 link(Str,1401334:Value1,[])
}
Add(StrPad,16069111,357,217)
{
 String=" "
 PadString=" "
 PadLength=0
 link(onStrPad,4795447:doWork2,[])
}
Add(Hub,8435115,217,217)
{
 link(onEvent1,16069111:doStrPad,[])
 link(onEvent2,6326376:doNext,[(242,230)(242,272)])
}
Add(Hub,731099,539,329)
{
 link(onEvent1,12763570:doWork3,[(564,335)])
 link(onEvent2,15876350:doTimer,[])
}
Add(MemFIFO,1401334,469,217)
{
 Count=1
 link(onData,2809686:doCase,[])
}
Add(Case,2809686,518,217)
{
 link(onNextCase,1882947:doWork2,[])
}
Add(Hub,8937693,434,322)
{
 link(onEvent1,5594209:doReplace,[(459,328)(459,286)])
 link(onEvent2,2218651:doData,[])
}
Add(HubEx,12763570,560,280)
{
 Angle=3
 link(onEvent,1882947:doWork3,[])
}
Add(Replace,14664928,833,308)
{
 SubStr="o"
 DestStr="x"
 Point(CurentPos)
 Point(Skip)
 link(onReplace,13437636:doAdd,[(893,314)(893,335)])
 link(Sub_str,13317047:Value1,[])
 link(Dest,13317047:Value2,[])
}
Add(Timer,15876350,581,336)
{
 Interval=500
 Enable=1
 link(onTimer,11015187:doEvent1,[])
}
Add(ArrayEnum,13211567,672,357)
{
 link(onItem,3536656:doEvent1,[(711,363)(711,307)])
 link(onEndEnum,11234404:doText,[(718,370)(718,391)])
 link(Array,4783349:Array,[])
}
Add(StrList,13437636,903,329)
{
}
Add(Hub,11015187,630,336)
{
 link(onEvent1,13437636:doClear,[])
 link(onEvent2,13211567:doEnum,[(662,349)(662,363)])
}
Add(MemFIFO,13317047,840,252)
{
}
Add(Switch,11903875,777,252)
{
 DataOn=String(x)
 DataOff=String(o)
 link(onSwitch,13317047:doValue,[])
}
Add(Hub,3536656,735,301)
{
 link(onEvent1,11903875:doSwitch,[(760,307)(760,258)])
 link(onEvent2,14664928:doReplace,[])
}
Add(Replace,9236035,581,217)
{
 SubStr="    "
 DestStr="  o "
 link(onReplace,4783349:doAdd,[])
}

карма: 18

1
Голосовали:3042