Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26068
Рейтинг: 2121
#16: 2012-11-05 13:19:27 ЛС | профиль | цитата
Леонид писал(а):
вполне реализуемое время в Thread

MMTimer реализован именно на Thread, только имеет методы обычного таймера, но и условия накладываются такие же
nesco писал(а):
никакие визуальные компоненты нельзя цеплять к выходу onTimer

Схему я привел, точность можно проверить по показаниям, если перевести TimeCounter в мксек.
карма: 22

0
Ответов: 7
Рейтинг: 0
#17: 2012-11-05 21:57:58 ЛС | профиль | цитата
Что здесь неверно? И как лучше?

code_29453.txt
Нужен эфект как в варианте ниже. Задержка и точное выполнение всех итераций в 10000 раз. А то я с задержками совсем запутался.
карма: 0

0
файлы: 1code_29453.txt [2KB] [286]
Разработчик
Ответов: 26068
Рейтинг: 2121
#18: 2012-11-05 22:33:49 ЛС | профиль | цитата
sova2004 писал(а):
Задержка и точное выполнение всех итераций в 10000 раз

Мляяяять... У меня уже зла не хватает Я кому пару постов назад схему приводил, дяде Васе, наверное

Ну нельзя использовать визуальные компоненты в итерациях, если хотите получить точный результат. Схема, которую я привел, дает очень точный результат итераций с задержками. Если хотите сделать прогресс, то его надо делать, считывая текущее значение счетчика с нижней точки в другом таймере.

Странный народ какой-то, сто раз будут делать одни и теже грабли и с честью на них наступать, но будут нещадно рады тому, что эти грабли они сделали сами
------------ Дoбавленo в 22.33:
Вот схема, имеющая прогресс, но не влияющая на ход итераций таймера



Add(MainForm,3513381,595,301)
{
}
Add(MMTimer,4119969,385,182)
{
Resolution=0
Interval=5
Enable=1
Point(doAutoStop)
Point(onStop)
link(onTimer,11442839:doOperation,[])
link(onStop,4631823:doStop,[(467,195)(467,307)])
}
Add(Edit,6806358,322,133)
{
Left=25
Top=5
Width=130
Cursor=1
Text="1000"
}
Add(Math,11442839,525,182)
{
Op2=1
ResultType=0
Point(doClear)
link(Op1,1076077:Var3,[(531,170)(566,170)(566,222)])
}
Add(Button,3654948,203,168)
{
Left=75
Top=35
TabOrder=-1
Caption="Sart"
link(onClick,15544446:doEvent1,[])
}
Add(Hub,15544446,266,168)
{
OutCount=5
link(onEvent1,11442839:doClear,[(485,174)(485,195)])
link(onEvent2,15260899:doData,[(310,181)(310,202)])
link(onEvent3,4119969:doTimer,[])
link(onEvent4,13701384:doTimer,[(303,195)(303,258)])
link(onEvent5,4631823:doStart,[(294,202)(294,300)])
}
Add(DoData,15260899,322,196)
{
link(onEventData,4119969:doAutoStop,[])
link(Data,6806358:Text,[])
}
Add(TimeCounter,4631823,525,294)
{
Precision=1
link(onStop,3513381:doCaption,[])
}
Add(Edit,14665970,525,252)
{
Left=180
Top=5
Width=130
Cursor=1
Text=""
link(Str,1076077:Var2,[])
}
Add(GetDataEx,1076077,525,217)
{
link(Data,11442839:Result,[])
}
Add(Timer,13701384,385,252)
{
Interval=50
Enable=1
link(onTimer,14665970:doText,[])
}

карма: 22

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