Предлагаю свой вариант решения проблемы отсутствия новогоднего настроения
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,[]) }
|