Вверх ↑
Ответов: 672
Рейтинг: 141
#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,[])
}

карма: 14

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