Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2010-10-17 23:44:17 ЛС | профиль | цитата
Ravilr, не спорь. Набери в Edit-ах (в своей схеме) все единицы. именно получилось
Ravilr писал(а):
просто тупо
Вот так доработанная ещё может работать

Add(MainForm,2573341,168,84)
{
Width=332
Height=167
}
Add(Edit,12658659,238,84)
{
Left=40
Top=25
Text="1"
}
Add(Edit,14405351,280,84)
{
Left=110
Top=25
Text="1"
}
Add(Edit,7022689,322,84)
{
Left=180
Top=25
Text="1"
}
Add(Edit,1435577,364,84)
{
Left=250
Top=25
Text="1"
}
Add(Label,5803453,602,154)
{
Left=150
Top=80
}
Add(Button,11984370,168,154)
{
Left=40
Top=80
link(onClick,9408821:doString,[])
}
Add(StrCat,1742984,546,154)
{
Point(doClear)
link(onStrCat,5803453:doText,[])
link(Str1,1742984:Result,[(552,142)(536,142)(536,199)(552,199)])
}
Add(FormatStr,9408821,273,154)
{
DataCount=4
Mask="%1;%2;%3;%4"
link(onFString,4369857:doEnum,[])
link(Str1,12658659:Text,[(279,135)(244,135)])
link(Str2,14405351:Text,[])
link(Str3,7022689:Text,[(293,135)(328,135)])
link(Str4,1435577:Text,[(300,141)(370,141)])
}
Add(Str_Enum,4369857,364,154)
{
Direct=0
link(onEnum,5482247:doCompare,[])
}
Add(ChanelToIndex,5116592,483,154)
{
link(onIndex,1742984:doStrCat,[])
}
Add(If_else,5482247,427,154)
{
Op2=Integer(1)
link(onTrue,5116592:doWork1,[])
link(onFalse,5116592:doWork2,[])
}
foksov, не ожидал. Набери двоичное число с большей разрядностью. Например 011001011011.
Только схема Леонида всегда отработает верно и с любой разрядностью.
ИМХО
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0