Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2013-08-19 14:15:22 ЛС | профиль | цитата
Потребовался "Накопитель событий" - получился такой компонент.
Знаю, что словосочетание "Схема совпадений" (хинт к компоненту) подразумевает одновремённость входных сигналов.
Пример:

Add(MainForm,2953706,175,161)
{
Width=325
Height=152
Caption="Накопитель событий. (с) Tad"
BorderStyle=1
Position=1
}
Add(Andlogic,576647,329,196)
{
Count=3
link(onIYes,11638431:doOperation,[])
}
Add(Button,2435100,245,161)
{
Left=10
Top=35
Caption="1"
link(onClick,576647:doSig1,[(303,167)(303,202)])
}
Add(Button,15734888,245,203)
{
Left=10
Top=60
Caption="2"
link(onClick,576647:doSig2,[])
}
Add(Math,11638431,399,196)
{
Op2=1
link(onResult,15078636:doStrCat,[])
link(Op1,11638431:Result,[(405,184)(393,184)(393,240)(405,240)])
}
Add(Button,4722478,245,245)
{
Left=10
Top=85
Caption="3"
link(onClick,576647:doSig3,[(303,251)(303,216)])
}
Add(Label,2513509,532,196)
{
Left=100
Top=60
Width=4
Height=4
Caption=""
}
Add(StrCat,15078636,462,196)
{
Str1="Произошло событие № "
link(onStrCat,2513509:doText,[])
}
Add(Label,9557459,175,217)
{
Left=5
Top=5
Width=290
Height=25
Caption="Событие происходит после нажатия на все три кнопки.
Порядок нажатия кнопок не имеет значения."
AutoSize=1
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
2
файлы: 1andlogic.rar [1.2KB] [410]
Голосовали:ser_davkin, wasya