Вверх ↑
Этот топик читают: Гость
Ответов: 1343
Рейтинг: 31
#1: 2014-07-11 16:49:46 ЛС | профиль | цитата
как сделать одноразовое событие что бы как простой электрический тумблер было 1 раз вкл, 1 раз выкл...

в поток идёт на вкл и выкл каждые 25мс по условиям...

компонент вместо тумблера KeyEvent , точки doPressDown и doPressUp



конкретно суть такая: есть прогресбар, читаем его значение(таймер 25мс), если значение меньше 20 то надо 1 раз ЗАЖАТЬ клавишу, далее если значение стало равно или выше 20 то отжать клавишу и ждать 100мс, после опять зажать клавишу ((ВСЁ ЭТО БЕЗ ЦИКЛА И РАБОТАТЬ ДОЛЖНО В ТАЙМЕРЕ 20мс))
карма: 2

0
Ответов: 8930
Рейтинг: 823
#2: 2014-07-11 21:23:03 ЛС | профиль | цитата
Rysik, ох, не заметил, что ТС коллега Rysik, но схемка нарисована, не пропадать же напрасно
code_33986.txt
(Для контроля запускаем Блокнот и там жмём клавишу №65 (это буковка A))
карма: 19

1
файлы: 1code_33986.txt [1.9KB] [170]
Голосовали:Rysik
Ответов: 9906
Рейтинг: 351
#3: 2014-07-12 09:58:54 ЛС | профиль | цитата
Леонид, Не уважаете Вы Калашникова, наверное

Add(MainForm,11829971,308,56)
{
Height=98
Position=1
link(onCreate,9393096:doExec,[])
}
Add(ProgressBar,13418889,420,98)
{
Width=392
Height=22
Align=2
Ctl3D=0
}
Add(Counter,396005,364,98)
{
link(onNext,13418889:doPosition,[])
}
Add(KeyEvent,3196336,623,140)
{
Code=65
link(Handle,9393096:ProcessID,[])
}
Add(WinExec,9393096,623,70)
{
FileName="notepad.exe"
Point(ProcessID)
}
Add(Timer,7467518,308,147)
{
Interval=100
Enable=1
AutoStop=1
link(onTimer,3705536:doTimer,[])
}
Add(Timer,9708582,308,98)
{
Interval=20
link(onTimer,396005:doNext,[])
}
Add(Timer,3705536,364,147)
{
Interval=25
link(onTimer,13920782:doCalc,[])
}
Add(MathParse,13920782,420,147)
{
DataCount=1
MathStr="%1 >= 20"
ResultType=0
link(onResult,2029173:doData,[])
link(X1,13418889:Position,[])
}
Add(ChangeMon,2029173,476,147)
{
link(onData,7213863:doEvent,[])
}
Add(IndexToChanel,7213863,525,147)
{
link(onEvent1,3196336:doPressDown,[])
link(onEvent2,1810172:doEvent1,[])
}
Add(Hub,1810172,574,154)
{
OutCount=3
link(onEvent1,3196336:doPressUp,[])
link(onEvent2,7467518:doTimer,[(606,167)(606,195)(298,195)(298,153)])
link(onEvent3,3705536:doStop,[(599,174)(599,188)(354,188)(354,160)])
}

карма: 9

0
Ответов: 8930
Рейтинг: 823
#4: 2014-07-12 11:06:52 ЛС | профиль | цитата
Galkov, радиотехника мешает (про танцора не вспоминать!), написано "тумблер", значит надо тумблер, сиречь триггер
карма: 19

0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)