Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2014-07-11 18:47:59 ЛС | профиль | цитата
code_33985.txt
------------ Дoбавленo в 18.47:
или так из "0" и "1" :

Add(MainForm,2953706,91,189)
{
Width=1009
Height=660
link(onCreate,16655523:doFor,[])
}
Add(ListBox,11199062,714,210)
{
Left=5
Top=65
Width=970
Height=535
Font=[Consolas,12,0,0,204]
link(onChange,4850231:doClear,[(756,216)(756,263)(534,263)(534,216)])
}
Add(StrCat,4850231,546,203)
{
Point(doClear)
link(onStrCat,663139:doEvent1,[])
link(Str1,4850231:Result,[(552,191)(597,191)(597,249)(552,249)])
}
Add(If_else,2765891,644,210)
{
Op2=Integer(100)
link(onTrue,11199062:doAdd,[])
link(Op1,13638953:Result,[])
}
Add(Length,13638953,644,154)
{
}
Add(Hub,663139,609,203)
{
link(onEvent1,13638953:doLength,[(632,209)(632,160)])
link(onEvent2,2765891:doCompare,[])
}
Add(For,16655523,217,203)
{
End=10000
link(onEvent,2342025:doRandom,[])
}
Add(Random,2342025,287,203)
{
Min=48
Max=49
link(onRandom,2965997:doConvert,[])
}
Add(Convertor,2965997,343,203)
{
Mode=4
link(onResult,4850231:doStrCat,[])
}
Add(InfoTip,2765396,518,126)
{
Info=#21:Это то, что ты просил|
Font=[MS Sans Serif,8,1,255,1]
Width=253
Height=172
Margin=5
}
Add(InfoTip,13459353,203,126)
{
Info=#15:Генератор 0 и 1|
Font=[MS Sans Serif,8,1,255,1]
Width=183
Height=151
Margin=5
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_33985.txt [1.1KB] [83]