как организовать регистр со сдвигом

Вверх ↑

Форумы Помощь по пакетукак организовать регистр со сдвигом ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 128

Рейтинг: 1

#1: 2009-09-13 22:44:52 ЛС | профиль | цитата

есть поток целых чисел.как поймать из потока определённую комбинацию этих чисел?

карма: 0

Ответов: 1304

Рейтинг: 405

#2: 2009-09-14 00:27:05 ЛС | профиль | цитата

deman, самый простой, но не самый эффективный способ.



Add(MainForm,2953706,-93,98)
{
 Height=199
 Position=1
}
Add(Random,3035721,12,98)
{
 Max=9
 link(onRandom,6918293:doStrCat,[])
}
Add(StrCat,6918293,68,98)
{
 link(onStrCat,5288650:doEvent1,[])
 link(Str1,6918293:Result,[(74,86)(62,86)(62,142)(74,142)])
}
Add(Memo,5920054,166,91)
{
 Left=5
 Top=10
 Width=380
 Height=120
 ScrollBars=2
}
Add(Timer,14646798,-37,98)
{
 Interval=10
 link(onTimer,3035721:doRandom,[])
}
Add(Hub,5288650,110,98)
{
 OutCount=3
 link(onEvent1,5920054:doClear,[])
 link(onEvent2,12571914:doSearch,[(138,111)(138,167)])
 link(onEvent3,5920054:doAdd,[(155,118)(155,97)])
}
Add(BlockFind,12571914,173,161)
{
 StartBlock="3"
 EndBlock="6"
 link(onSearch,14470978:doCompare,[])
}
Add(Edit,6116654,264,161)
{
 Left=5
 Top=140
 Width=135
 link(onChange,14646798:doStop,[(307,167)(307,214)(-49,214)(-49,111)])
}
Add(If_else,14470978,215,161)
{
 Op2=Integer(382116)
 link(onTrue,6116654:doText,[])
}
Add(InfoTip,16129921,-37,42)
{
 Info=#56:Небходимо к примеру выявить числовую комбинацию "382116"|
 Width=197
}
Add(InfoTip,7811359,152,140)
{
 Info=#13:модуль поиска|
 Width=106
 Height=67
}

карма: 3

Ответов: 128

Рейтинг: 1

#3: 2009-09-14 00:59:18 ЛС | профиль | цитата

MAV, примерно так.есть от чего отталкиваться . поток с однозначными цифрами все нормально,а с двух или трёхзначными не справляется . спасибо

карма: 0

Ответов: 4641

Рейтинг: 334

#4: 2009-09-14 12:30:16 ЛС | профиль | цитата

deman писал(а):

,а с двух или трёхзначными не справляется

code_14936.txt
------------ Дoбавленo в 12.35:
и еще


Add(MainForm,6160816,91,175)
{
 Height=199
 Position=1
}
Add(Random,3035721,196,175)
{
 Max=9
 link(onRandom,6918293:doStrCat,[])
}
Add(StrCat,6918293,252,175)
{
 link(onStrCat,5288650:doEvent1,[])
 link(Str1,6918293:Result,[(258,163)(245,163)(245,222)(258,222)])
}
Add(Memo,5920054,350,168)
{
 Left=5
 Top=10
 Width=380
 Height=120
 ScrollBars=2
}
Add(Timer,14646798,147,175)
{
 Interval=10
 link(onTimer,3035721:doRandom,[])
}
Add(Hub,5288650,294,175)
{
 OutCount=3
 link(onEvent1,5920054:doClear,[])
 link(onEvent2,3854777:doSearch,[(335,188)(335,230)])
 link(onEvent3,5920054:doAdd,[(344,195)(344,174)])
}
Add(Position,3854777,350,224)
{
 Target="31"
 link(onSearch,14646798:doStop,[(400,230)(400,265)(140,265)(140,188)])
}