Вверх ↑
Этот топик читают: Гость
Ответов: 160
Рейтинг: 4
#1: 2010-04-06 09:49:42 ЛС | профиль | цитата
Собрал схему с задержкой, задержка срабатывает как надо, но вот с элементом MouseEvent мне не понятно что происходит !Как быть ?вот код примера

 Add(MainForm,16667262,588,168)
{
Left=20
Top=105
Width=412
Height=297
Caption="GetPixel"
Point(Handle)
}
Add(Counter,6485220,714,147)
{
link(onNext,8803559:doText,[])
}
Add(Sleep,10843103,672,252)
{
Delay=5000000
link(onSleep,650522:doWork1,[(732,258)])
}
Add(Label,8803559,770,147)
{
Left=210
Top=120
Height=20
Font=[MS Sans Serif,24,1,255,1]
}
Add(Button,10176707,665,147)
{
Left=145
Top=120
link(onClick,6485220:doNext,[])
}
Add(Hub,5865846,637,287)
{
InCount=2
OutCount=4
link(onEvent1,10843103:doSleep,[(737,293)(737,265)])
link(onEvent2,5291068:doPosition,[(799,300)(799,307)])
link(onEvent3,650522:doWork2,[(784,307)(784,293)])
link(onEvent4,4995155:doNext,[(763,314)(763,335)])
}
Add(Sleep,5360686,588,294)
{
Delay=5000000
link(onSleep,5865846:doEvent2,[])
}
Add(Timer,10852050,532,301)
{
link(onTimer,5360686:doSleep,[])
}
Add(MouseEvent,5291068,749,287)
{
Point(doPosition)
link(X,9714390:Value,[(762,275)(741,275)])
link(Y,9236161:Value,[(769,279)(797,279)])
}
Add(Counter,4995155,707,329)
{
link(onNext,948696:doText,[])
}
Add(Label,948696,763,329)
{
Left=70
Top=15
Height=20
Font=[MS Sans Serif,24,1,255,1]
}
Add(Memory,9714390,735,231)
{
Default=Integer(209)
}
Add(Memory,9236161,791,231)
{
Default=Integer(266)
}
Add(HubEx,650522,728,287)
{
link(onEvent,5291068:doClick,[])
}
Add(Timer,1006250,525,224)
{
Interval=2000
link(onTimer,7478175:doPopup,[])
}
Add(WinTools,7478175,588,217)
{
link(Handle,16667262:Handle,[])
}


карма: 0

0
Ответов: 875
Рейтинг: 322
#2: 2010-04-06 10:26:36 ЛС | профиль | цитата
man-man74, попробуй так - code_17711.txt
карма: 1

0
файлы: 1code_17711.txt [1.3KB] [184]
Ответов: 57
Рейтинг: 4
#3: 2010-04-06 10:27:02 ЛС | профиль | цитата
Задержка срабатывания или что тут должно быть, или задержка эмуляции клика?
карма: 0

0
Ответов: 160
Рейтинг: 4
#4: 2010-04-06 11:01:59 ЛС | профиль | цитата
Mihail88,
Mihail88 писал(а):
Задержка срабатывания или что тут должно быть, или задержка эмуляции клика?

задержка эмуляции клика
и не понятно пачему так происходит хочется причину узнать!
kamakama,
kamakama писал(а):
попробуй так - code_17711.txt
- схема без задержки ни то что нужно
карма: 0

0
Ответов: 57
Рейтинг: 4
#5: 2010-04-06 11:12:21 ЛС | профиль | цитата
man-man74
В исправленной схеме от kamakama, есть задержка в секунду и клик происходит.
карма: 0

0
Ответов: 160
Рейтинг: 4
#6: 2010-04-06 11:30:08 ЛС | профиль | цитата
Mihail88, Это не задержка а интервал! в 1 секунду
карма: 0

0
Ответов: 57
Рейтинг: 4
#7: 2010-04-06 11:36:45 ЛС | профиль | цитата
man-man74
Поставьте выключенный таймер перед кликом эмулятора мышки


Add(MainForm,16667262,273,112)
{
Left=20
Top=105
Width=412
Height=297
Caption="GetPixel"
Point(Handle)
link(onCreate,15918089:doEvent1,[])
}
Add(Counter,6485220,518,126)
{
link(onNext,8803559:doText,[])
}
Add(Label,8803559,574,126)
{
Left=210
Top=120
Height=20
Font=[MS Sans Serif,24,1,255,1]
}
Add(Button,10176707,469,126)
{
Left=145
Top=120
link(onClick,6485220:doNext,[])
}
Add(MouseEvent,5291068,539,280)
{
Point(doPosition)
link(X,9714390:Value,[(552,261)(524,261)])
link(Y,9236161:Value,[(559,265)(580,265)])
}
Add(Counter,4995155,504,343)
{
link(onNext,948696:doText,[])
}
Add(Label,948696,560,343)
{
Left=70
Top=15
Height=20
Font=[MS Sans Serif,24,1,255,1]
}
Add(Memory,9714390,518,217)
{
Default=Integer(200)
}
Add(Memory,9236161,574,217)
{
Default=Integer(255)
}
Add(WinTools,7478175,273,161)
{
link(Handle,16667262:Handle,[])
}
Add(Hub,3088734,371,273)
{
OutCount=3
link(onEvent1,5291068:doPosition,[(462,279)(462,300)])
link(onEvent2,5291068:doClick,[])
link(onEvent3,4995155:doNext,[(399,293)(399,349)])
}
Add(Hub,15918089,329,126)
{
link(onEvent2,7478175:doPopup,[(355,139)(355,157)(261,157)(261,174)])
}
Add(Timer,13759809,322,273)
{
Enable=1
AutoStop=1
Point(doInterval)
link(onTimer,3088734:doEvent1,[])
}
Add(Button,281021,203,273)
{
Left=225
Top=195
Width=60
Caption="кликнуть"
link(onClick,13759809:doTimer,[])
}
Add(Edit,11097759,266,322)
{
Left=290
Top=195
Width=55
Text="1000"
DataType=1
link(onChange,13759809:doInterval,[(310,328)(310,293)])
}
Add(Label,10172082,208,231)
{
Left=290
Top=175
Width=77
Height=17
Caption="Задержка (ms)"
Point(doLeft)
}
карма: 0

0
файлы: 1code_17712.txt [221B] [77]
Ответов: 160
Рейтинг: 4
#8: 2010-04-06 11:47:23 ЛС | профиль | цитата
Mihail88, А с линиментом Sleep ни как ?вот еще пример там замерзает вся форма хотя по принципу подключения должна быть последовательное сравнение!
code_17713.txt
Складывается такое ощущение что все процесы замораживаются
карма: 0

0
файлы: 1code_17713.txt [1.7KB] [75]
Ответов: 57
Рейтинг: 4
#9: 2010-04-06 11:56:18 ЛС | профиль | цитата
man-man74
Sleep (задержка выполнения программы), он и замораживает процессы программы. Если вам нужно эмуляцию клика задержать достаточно таймера, просто настройте его как в примере, выключенный, срабатывание один раз и включайте по надобности.
карма: 0

0
Ответов: 160
Рейтинг: 4
#10: 2010-04-06 12:06:37 ЛС | профиль | цитата
Mihail88,
Mihail88 писал(а):
Sleep (задержка выполнения программы)
А почему тогда в первой схема эмуляция мыши замораживается а счетчик нет ? (Почему разность в числах получается между просто счетчиком и счетчик +эмулятор?)

карма: 0

0
Ответов: 57
Рейтинг: 4
#11: 2010-04-06 12:49:18 ЛС | профиль | цитата
Интересно получается таймер сам себя не может включить, более того если стоит автовлючение и он сам себе посылает включение он выключается.
В HiAsm 3 таймер свободно себя включает.
------------ Дoбавленo в 12.49:
man-man74
Как бы так

Add(Counter,6485220,476,161)
{
link(onNext,8803559:doText,[])
}
Add(Label,8803559,532,161)
{
Left=210
Top=120
Height=20
Font=[MS Sans Serif,24,1,255,1]
}
Add(Button,10176707,427,161)
{
Left=145
Top=120
link(onClick,6485220:doNext,[])
}
Add(Hub,5865846,399,301)
{
OutCount=4
link(onEvent1,4318485:doEvent2,[(422,307)(422,285)(205,285)(205,335)])
link(onEvent2,5291068:doPosition,[(483,314)(483,321)])
link(onEvent3,5291068:doClick,[(462,321)(462,307)])
link(onEvent4,4995155:doNext,[(441,328)(441,349)])
}
Add(Sleep,5360686,315,301)
{
Delay=5000000
link(onSleep,5865846:doEvent1,[])
}
Add(Timer,10852050,245,322)
{
Enable=1
AutoStop=1
Point(onStop)
link(onStop,5360686:doSleep,[(296,335)(296,314)])
}
Add(MouseEvent,5291068,511,301)
{
Point(doPosition)
link(X,9714390:Value,[(524,289)(503,289)])
link(Y,9236161:Value,[(531,293)(559,293)])
}
Add(Counter,4995155,469,343)
{
link(onNext,948696:doText,[])
}
Add(Label,948696,525,343)
{
Left=70
Top=15
Height=20
Font=[MS Sans Serif,24,1,255,1]
}
Add(Memory,9714390,497,245)
{
Default=Integer(209)
}
Add(Memory,9236161,553,245)
{
Default=Integer(266)
}
Add(WinTools,7478175,350,231)
{
link(Handle,13363705:Handle,[(356,209)(314,209)])
}
Add(Hub,11353330,399,196)
{
link(onEvent1,7478175:doPopup,[(432,202)(432,222)(338,222)(338,244)])
link(onEvent2,4318485:doEvent1,[(425,209)(425,241)(212,241)(212,328)])
}
Add(Hub,4318485,217,322)
{
InCount=2
OutCount=1
link(onEvent1,10852050:doTimer,[(238,330)])
}
Add(MainForm,13363705,308,154)
{
Left=20
Top=105
Width=412
Height=297
Caption="GetPixel"
Point(Handle)
link(onCreate,11353330:doEvent1,[(370,174)(370,202)])
}

Получается у таймера первая точка не включение, а скорее переключение из обратного состояни

карма: 0

0
Ответов: 160
Рейтинг: 4
#12: 2010-04-06 13:05:42 ЛС | профиль | цитата
code_17714.txt и вот так тоже )
карма: 0

0
файлы: 1code_17714.txt [1.7KB] [121]
12
Сообщение
...
Прикрепленные файлы
(файлы не залиты)